From 2f1c0834dd014ed22e9d575c45c3eab131b424a1 Mon Sep 17 00:00:00 2001
From: Jacob Janzen <jjanzenn@proton.me>
Date: Sun, 28 Apr 2024 17:02:26 -0500
Subject: use my actual function
---
publish.el | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/publish.el b/publish.el
index d7b9bf6..4072912 100644
--- a/publish.el
+++ b/publish.el
@@ -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"
--
cgit v1.2.3