From 36ee833f36c90741bea34689822fe042b4966d55 Mon Sep 17 00:00:00 2001 From: Jacob Janzen Date: Sat, 28 Sep 2024 15:06:17 -0500 Subject: return webring --- publish.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'publish.el') diff --git a/publish.el b/publish.el index 37b02f6..a335ed5 100644 --- a/publish.el +++ b/publish.el @@ -24,13 +24,13 @@ (require 'ox-html) (require 'plz) -;; (setq webring (json-parse-string (plz 'get "https://aidang.cc/webring/https://jjanzen.ca"))) -;; (defun create-webring-html (plist) -;; ;; (format "" -;; ;; (gethash "url" (gethash "left" webring)) -;; ;; (gethash "name" (gethash "left" webring)) -;; ;; (gethash "url" (gethash "right" webring)) -;; ;; (gethash "name" (gethash "right" webring)))) +(setq webring (json-parse-string (plz 'get "https://aidang.cc/webring/https://jjanzen.ca"))) +(defun create-webring-html (plist) + (format "" + (gethash "url" (gethash "left" webring)) + (gethash "name" (gethash "left" webring)) + (gethash "url" (gethash "right" webring)) + (gethash "name" (gethash "right" webring)))) (defun my/org-publish-org-sitemap-format (entry style project) (cond ((not (directory-name-p entry)) @@ -74,7 +74,7 @@ (org-rss-publish-to-rss plist filename dir))) (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 '( ("org-core" -- cgit v1.2.3