From 474f08e35a66974bdb91c223e491888c9b939aa0 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 25 Jul 2023 01:06:04 -0700 Subject: [PATCH] Add title to blog index and don't add reading time to index --- GNUmakefile | 1 + publish.el | 7 +++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/GNUmakefile b/GNUmakefile index 9c00d0b..ff7fdd1 100644 --- a/GNUmakefile +++ b/GNUmakefile @@ -30,6 +30,7 @@ clean: ## Remove all of the build files @rm -rvf *.elc @rm -rvf public @rm -rvf .org-timestamps + @rm -rvf posts/index.org serve: ## Run a simple web server to look at the results @cd public && php -S localhost:8000 diff --git a/publish.el b/publish.el index a7a2f0f..11aca3d 100644 --- a/publish.el +++ b/publish.el @@ -58,9 +58,12 @@ Argument PROPS ." (let ((files (directory-files "posts/" t (rx bos (= 8 digit) "-" (= 4 digit) "-" (one-or-more nonl) (not "~") eos)))) (with-temp-buffer + (insert "#+title: ryuslash's blog\n") + (insert "#+options: num:nil\n") + (insert "\n") (apply 'insert (mapcar (lambda (file) - (format "* %s\n:PROPERTIES:\n:CUSTOM_ID: %s\n:PUBDATE: %s\n:RSS_PERMALINK: %s\n:END:\n\n%s[[file:%s][Read More]]\n\n" + (format "* %s\n:PROPERTIES:\n:CUSTOM_ID: %s\n:PUBDATE: %s\n:RSS_PERMALINK: %s\n:END:\n\n%s\n\n[[file:%s][Read More]]\n\n" (car (org-publish-find-property file :title props)) (file-name-nondirectory file) (format-time-string "[%Y-%m-%d %a %H:%M]" (org-timestamp-to-time (car (org-publish-find-property file :date props)))) @@ -115,7 +118,7 @@ Argument PROPS :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")) + '("ryuslash.org" "ryuslash's blog")) (publish-format-reading-time (publish-calculate-reading-time buffer)))))) ("rss"