aboutsummaryrefslogtreecommitdiff
path: root/publish.el
diff options
context:
space:
mode:
Diffstat (limited to 'publish.el')
-rw-r--r--publish.el16
1 files changed, 13 insertions, 3 deletions
diff --git a/publish.el b/publish.el
index f397a0c..4de2cc2 100644
--- a/publish.el
+++ b/publish.el
@@ -16,9 +16,19 @@
:after org)
(use-package htmlize
:after org)
+(use-package plz)
(require 'org)
(require 'ox-html)
+(require 'plz)
+
+(setq webring (json-parse-string (plz 'get "https://aidang.cc/webring/https://jjanzen.ca")))
+(defun create-webring-html ()
+ (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-publish-org-sitemap-format (entry style project)
(cond ((not (directory-name-p entry))
@@ -73,9 +83,9 @@
:with-toc nil
:headline-levels 4
:section-numbers nil
- :html-head "<link rel='stylesheet' href='/css/stylesheet.css' type='text/css'/><script src='/scripts/webring.js'></script>"
- :html-preamble "<div class='topnav'><a href='/'>Home</a><a href='/projects.html'>Projects</a><a href='/blog'>Blog</a><a href='/config.html'>Dotfiles</a><a href='/about.html'>About Me</a><a href='/rss.xml'>RSS</a></div>")
- ;; :html-postamble "<div class='footer'><span><a href='/'>« Left Site</a></span><span>Web Ring</span><span><a href='/'>Right Site »</a></span></div>"
+ :html-head "<link rel='stylesheet' href='/css/stylesheet.css' type='text/css'/>"
+ :html-preamble "<div class='topnav'><a href='/'>Home</a><a href='/projects.html'>Projects</a><a href='/blog'>Blog</a><a href='/config.html'>Dotfiles</a><a href='/about.html'>About Me</a><a href='/rss.xml'>RSS</a></div>"
+ :html-postamble (create-webring-html))
("org-static"
:base-directory "~/website/"