Tom Willemse
839c53448b
- Add a ‘posts/index.org’ that just includes all of the posts and only exports headings tagged with ‘summary’. - Add summaries to all posts. - Rename posts to include the date and time in the file name. - Add an RSS feed from the new ‘posts/index.org’ Unfortunately generating an RSS feed from the ‘index.org’ doesn't work, so this experiment is at a dead end for now.
123 lines
4.3 KiB
EmacsLisp
123 lines
4.3 KiB
EmacsLisp
;;; publish.el --- Publishing configuration for ryuslash.org -*- lexical-binding: t; -*-
|
||
|
||
;; Copyright (C) 2020 Tom Willemse
|
||
|
||
;; Author: Tom Willemse <tom@ryuslash.org>
|
||
;; Keywords:
|
||
;; Version: 1
|
||
;; Package-Requires: (dockerfile-mode htmlize org org-contrib rainbow-delimiters ox-rss)
|
||
|
||
;; This program is free software; you can redistribute it and/or modify
|
||
;; it under the terms of the GNU General Public License as published by
|
||
;; the Free Software Foundation, either version 3 of the License, or
|
||
;; (at your option) any later version.
|
||
|
||
;; This program is distributed in the hope that it will be useful,
|
||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;; GNU General Public License for more details.
|
||
|
||
;; You should have received a copy of the GNU General Public License
|
||
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
||
|
||
;;; Commentary:
|
||
|
||
;;
|
||
|
||
;;; Code:
|
||
|
||
(require 'dockerfile-mode)
|
||
(require 'ob-dot)
|
||
(require 'ox-publish)
|
||
(require 'ox-rss)
|
||
(require 'rainbow-delimiters)
|
||
(require 'subr-x)
|
||
|
||
(defconst publish-root
|
||
(file-name-directory
|
||
(or load-file-name
|
||
(buffer-file-name)))
|
||
"The directory where ‘oni-org’ was loaded from.")
|
||
|
||
(add-hook 'prog-mode-hook 'rainbow-delimiters-mode)
|
||
|
||
(defun publish-calculate-reading-time (buffer)
|
||
"Calculate the amount of minutes it would take to read the contents of BUFFER."
|
||
(with-current-buffer buffer
|
||
(max 1 (/ (count-words (point-min) (point-max)) 228))))
|
||
|
||
(defun publish-format-reading-time (time)
|
||
"Return a string describing TIME."
|
||
(format "%d minute%s"
|
||
time
|
||
(if (= time 1) "" "s")))
|
||
|
||
(setq org-export-exclude-tags '("noexport" "draft"))
|
||
|
||
(setq org-confirm-babel-evaluate nil)
|
||
|
||
(setq org-html-head-include-default-style nil)
|
||
|
||
(setq org-html-htmlize-output-type 'css)
|
||
|
||
(setq org-publish-timestamp-directory
|
||
(concat default-directory "/.org-timestamps/"))
|
||
|
||
(setq org-html-html5-fancy t)
|
||
|
||
(setq org-html-doctype "html5")
|
||
|
||
(setq org-publish-project-alist
|
||
`(("index"
|
||
:base-directory "."
|
||
:base-extension "org"
|
||
:publishing-directory "public/"
|
||
:recursive t
|
||
:exclude ,(rx string-start
|
||
(or "posts/"
|
||
(and "README.org" string-end)))
|
||
:publishing-function org-html-publish-to-html
|
||
:html-head "<link rel=\"stylesheet\" href=\"/assets/css/main.css\" type=\"text/css\"/>"
|
||
:html-postamble t
|
||
:html-postamble-format (("en" "<p class=\"social social-mastodon\">Find me on <a href=\"https://fosstodon.org/@ryuslash\" rel=\"me\">Mastodon</a></p>
|
||
<p class=\"date\">Date: %C</p>
|
||
<p class=\"creator\">%c</p>")))
|
||
("posts"
|
||
:base-directory "posts/"
|
||
:base-extension "org"
|
||
:publishing-directory "public/posts/"
|
||
:recursive t
|
||
:publishing-function org-html-publish-to-html
|
||
:html-head "<link rel=\"stylesheet\" href=\"/assets/css/main.css\" type=\"text/css\"/>"
|
||
:html-preamble (lambda (project)
|
||
(let ((buffer (find-file-noselect (buffer-file-name))))
|
||
(unless (member (car (org-publish-find-property (buffer-file-name) :title project))
|
||
'("ryuslash.org" "posts"))
|
||
(publish-format-reading-time
|
||
(publish-calculate-reading-time buffer))))))
|
||
("rss"
|
||
:base-directory "posts/"
|
||
:base-extension "org"
|
||
:rss-extension "xml"
|
||
:publishing-directory "public/posts/"
|
||
:publishing-function (org-rss-publish-to-rss)
|
||
:section-numbers nil
|
||
:exclude ".*"
|
||
:include ("index.org")
|
||
:table-of-contents nil)
|
||
("assets"
|
||
:base-directory "."
|
||
:recursive t
|
||
:exclude "^public/"
|
||
:base-extension "svg\\|png\\|jpg"
|
||
:publishing-function org-publish-attachment
|
||
:publishing-directory "public/")
|
||
("all" :components ("index" "posts" "rss" "assets"))))
|
||
|
||
(defvar publish-feed-url-format
|
||
;"https://gitlab.com/ryuslash/ryuslash.org/-/commits/master/%s?feed_token=Rf8otgpS8YEiYakJN4NR&format=atom"
|
||
"https://code.ryuslash.org/new-ryuslash.org/atom/%s?h=master"
|
||
"Format string for the URL to the page’s atom feed.")
|
||
|
||
(provide 'publish)
|
||
;;; publish.el ends here
|