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

return webring

Browse source
This commit is contained in:
Jacob Janzen 2024-09-28 15:06:17 -05:00
parent 90eaf3be3e
commit 36ee833f36
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
publish.el
View file

@ -24,13 +24,13 @@
(require 'ox-html) (require 'ox-html)
(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 (plist) (defun create-webring-html (plist)
;; ;; (format "<div class='footer'><div class='footer-top'><span><a href='%s'>« %s</a></span><span>CSSA Web Ring</span><span><a href='%s'>%s »</a></span></div><div class='footer-bottom'>Copyright (C) Jacob Janzen 2024</div></div>" (format "<div class='footer'><div class='footer-top'><span><a href='%s'>« %s</a></span><span>CSSA Web Ring</span><span><a href='%s'>%s »</a></span></div><div class='footer-bottom'>Copyright (C) Jacob Janzen 2024</div></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-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))
@ -74,7 +74,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 'create-webring-html) (setq org-html-postamble 'create-webring-html)
(setq org-publish-project-alist (setq org-publish-project-alist
'( '(
("org-core" ("org-core"