jjanzen/website
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

testing a new system

Browse source
This commit is contained in:
jjanzen 2025-04-01 12:42:12 -05:00
parent 3472ce77b7
commit 288ac4b17a
1 changed files with 8 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
publish.el
View file

@ -12,8 +12,6 @@
(use-package org (use-package org
:ensure org-plus-contrib) :ensure org-plus-contrib)
(use-package ox-rss
:after org)
(use-package htmlize (use-package htmlize
:after org) :after org)
(use-package yaml-mode) (use-package yaml-mode)
@ -21,7 +19,6 @@
(use-package plz) (use-package plz)
(require 'org) (require 'org)
(require 'ox-html)
(require 'plz) (require 'plz)
(defun my/org-publish-org-sitemap-format (entry style project) (defun my/org-publish-org-sitemap-format (entry style project)
@ -44,28 +41,23 @@
(defun format-posts-rss-feed-entry (entry _style project) (defun format-posts-rss-feed-entry (entry _style project)
(let* ( (let* (
(title (org-publish-find-title entry project))
(link (concat (file-name-sans-extension entry) ".html")) (link (concat (file-name-sans-extension entry) ".html"))
(file (org-publish--expand-file-name entry project)) (file (org-publish--expand-file-name entry project))
(pubdate (format-time-string (car org-time-stamp-formats) (pubdate (format-time-string (car org-time-stamp-formats)
(org-publish-find-date entry project)))) (org-publish-find-date entry project))))
(message pubdate) (message pubdate)
(format "%s (format "%s
:properties: :PROPERTIES:
:rss_permalink: blog/%s :RSS: t
:pubdate: %s :DATE: %s
:author: jjanzen :AUTHOR: jjanzen
:end:\n%s" :LINK: %s
title :END:\n%s"
link
pubdate pubdate
link
(get-file-contents file)))) (get-file-contents file))))
(defun publish-posts-rss-feed (plist filename dir) (defun publish-posts-rss-feed (plist filename dir))
(if (equal "rss.org" (file-name-nondirectory filename))
(progn
(message "publishing %s with plist %s and dir %s" filename plist dir)
(org-rss-publish-to-rss plist filename dir))))
(defvar jj/html-head "\ (defvar jj/html-head "\
<link rel='stylesheet' href='/css/stylesheet.css' type='text/css'/>\ <link rel='stylesheet' href='/css/stylesheet.css' type='text/css'/>\