diff options
Diffstat (limited to 'publish.el')
| -rw-r--r-- | publish.el | 7 |
1 files changed, 2 insertions, 5 deletions
@@ -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" |