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

use my actual function

Browse source
This commit is contained in:
Jacob Janzen 2024-04-28 17:02:26 -05:00
parent b7ace712a7
commit 2f1c0834dd
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
publish.el
View file

@ -23,16 +23,13 @@
(require 'plz) (require 'plz)
(setq webring (json-parse-string (plz 'get "https://aidang.cc/webring/https://jjanzen.ca"))) (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>" (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 "url" (gethash "left" webring))
(gethash "name" (gethash "left" webring)) (gethash "name" (gethash "left" webring))
(gethash "url" (gethash "right" webring)) (gethash "url" (gethash "right" webring))
(gethash "name" (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) (defun my/org-publish-org-sitemap-format (entry style project)
(cond ((not (directory-name-p entry)) (cond ((not (directory-name-p entry))
(format "(%s) [[file:blog/%s][%s]]\n" (format "(%s) [[file:blog/%s][%s]]\n"
@ -75,7 +72,7 @@
(org-rss-publish-to-rss plist filename dir))) (org-rss-publish-to-rss plist filename dir)))
(setq org-html-htmlize-output-type 'css) (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 (setq org-publish-project-alist
'( '(
("org-core" ("org-core"