144 lines
5.6 KiB
EmacsLisp
144 lines
5.6 KiB
EmacsLisp
(require 'package)
|
|
(add-to-list 'package-archives '("gnu" . "https://elpa.gnu.org/packages/"))
|
|
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
|
|
(package-initialize)
|
|
|
|
(unless (package-installed-p 'use-package)
|
|
(package-refresh-contents)
|
|
(package-install 'use-package))
|
|
(eval-and-compile
|
|
(setq use-package-always-ensure t
|
|
use-package-expand-minimally t))
|
|
|
|
(use-package org
|
|
:ensure org-plus-contrib)
|
|
(use-package ox-rss
|
|
: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 (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-publish-org-sitemap-format (entry style project)
|
|
(cond ((not (directory-name-p entry))
|
|
(format "(%s) [[file:blog/%s][%s]]\n"
|
|
(format-time-string "%Y-%m-%d"
|
|
(org-publish-find-date entry project))
|
|
entry
|
|
(org-publish-find-title entry project)))))
|
|
|
|
(defun posts-rss-feed (title list)
|
|
(concat
|
|
"#+TITLE: " title "\n\n"
|
|
(org-list-to-subtree list)))
|
|
|
|
(defun get-file-contents (filename)
|
|
(with-temp-buffer
|
|
(insert-file-contents filename)
|
|
(buffer-string)))
|
|
|
|
(defun format-posts-rss-feed-entry (entry _style project)
|
|
(let* (
|
|
(title (org-publish-find-title entry project))
|
|
(link (concat (file-name-sans-extension entry) ".html"))
|
|
(file (org-publish--expand-file-name entry project))
|
|
(pubdate (format-time-string (car org-time-stamp-formats)
|
|
(org-publish-find-date entry project))))
|
|
(message pubdate)
|
|
(format "%s
|
|
:properties:
|
|
:rss_permalink: blog/%s
|
|
:pubdate: %s
|
|
:author: Jacob Janzen
|
|
:end:\n%s"
|
|
title
|
|
link
|
|
pubdate
|
|
(get-file-contents file))))
|
|
|
|
(defun publish-posts-rss-feed (plist filename dir)
|
|
(if (equal "rss.org" (file-name-nondirectory filename))
|
|
(org-rss-publish-to-rss plist filename dir)))
|
|
|
|
(setq org-html-htmlize-output-type 'css)
|
|
(setq org-html-postamble 'create-webring-html)
|
|
(setq org-publish-project-alist
|
|
'(
|
|
("org-core"
|
|
:base-directory "~/website/"
|
|
:base-extension "org"
|
|
:publishing-directory "~/public_html/"
|
|
:recursive t
|
|
:publishing-function org-html-publish-to-html
|
|
:with-toc nil
|
|
:headline-levels 4
|
|
:section-numbers nil
|
|
: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='/dotfiles/index.html'>Dotfiles</a><a href='/about.html'>About Me</a><a href='/rss.xml'>RSS</a></div>")
|
|
("org-static"
|
|
:base-directory "~/website/"
|
|
:base-extension "txt\\|css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
|
|
:publishing-directory "~/public_html"
|
|
:recursive t
|
|
:publishing-function org-publish-attachment)
|
|
("org-blog"
|
|
:base-directory "~/blog/"
|
|
:base-extension "org"
|
|
:publishing-directory "~/public_html/blog"
|
|
:recursive t
|
|
:publishing-function org-html-publish-to-html
|
|
:with-toc nil
|
|
:with-properties t
|
|
:with-date t
|
|
:with-timestamps nil
|
|
:headline-levels 4
|
|
:section-numbers nil
|
|
: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='/dotfiles/index.html'>Dotfiles</a><a href='/about.html'>About Me</a><a href='/rss.xml'>RSS</a></div>"
|
|
:auto-sitemap t
|
|
:sitemap-filename "index.org"
|
|
:sitemap-format-entry my/org-publish-org-sitemap-format
|
|
:sitemap-sort-files anti-chronologically
|
|
:sitemap-title "Blog")
|
|
("org-rss"
|
|
:publishing-directory "~/public_html"
|
|
:base-directory "~/blog/"
|
|
:base-extension "org"
|
|
:exclude "index.org"
|
|
:publishing-function publish-posts-rss-feed
|
|
:rss-extension "xml"
|
|
:html-link-home "https://jjanzen.ca"
|
|
:html-link-use-abs-url t
|
|
:html-link-org-files-as-html t
|
|
:auto-sitemap t
|
|
:sitemap-function posts-rss-feed
|
|
:sitemap-title "Jacob Janzen's Blog"
|
|
:sitemap-filename "rss.org"
|
|
:sitemap-style list
|
|
:sitemap-sort-files anti-chronologically
|
|
:sitemap-format-entry format-posts-rss-feed-entry)
|
|
("org-config"
|
|
:base-directory "~/.dotfiles/"
|
|
:base-extension "org"
|
|
: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='/dotfiles/index.html'>Dotfiles</a><a href='/about.html'>About Me</a><a href='/rss.xml'>RSS</a></div>"
|
|
:html-wrap-src-lines t
|
|
:with-toc nil
|
|
:recursive t
|
|
:publishing-directory "~/public_html/dotfiles/index.html"
|
|
:publishing-function org-html-publish-to-html
|
|
:headline-levels 4
|
|
:auto-preamble t)
|
|
("org" :components ("org-core" "org-static" "org-config" "org-blog" "org-rss"))))
|
|
(org-publish-all t)
|