use my actual function

This commit is contained in:
Jacob Janzen 2024-04-28 17:02:26 -05:00
parent b7ace712a7
commit 2f1c0834dd

View file

@ -23,16 +23,13 @@
(require 'plz)
(setq webring (json-parse-string (plz 'get "https://aidang.cc/webring/https://jjanzen.ca")))
(defun create-webring-html ()
(defun create-webring-html (plist)
(format "<div class='footer'><span><a href='%s'>« %s</a></span><span>CSSA Web Ring</span><span><a href='%s'>%s »</a></span></div>"
(gethash "url" (gethash "left" webring))
(gethash "name" (gethash "left" webring))
(gethash "url" (gethash "right" webring))
(gethash "name" (gethash "right" webring))))
(defun my-org-html-postamble (plist)
(format "Last update : %s" (format-time-string "%d %b %Y")))
(defun my/org-publish-org-sitemap-format (entry style project)
(cond ((not (directory-name-p entry))
(format "(%s) [[file:blog/%s][%s]]\n"
@ -75,7 +72,7 @@
(org-rss-publish-to-rss plist filename dir)))
(setq org-html-htmlize-output-type 'css)
(setq org-html-postamble 'my-org-html-postamble)
(setq org-html-postamble 'create-webring-html)
(setq org-publish-project-alist
'(
("org-core"