diff options
author | Tom Willemse | 2020-02-25 23:32:48 -0800 |
---|---|---|
committer | Tom Willemse | 2020-02-25 23:35:57 -0800 |
commit | 10cf6bbc49155a719d0eb4d360b72ad340074f65 (patch) | |
tree | a4345092f0bc31631985ed3bf906f37a6816dff3 /project-config.el | |
parent | 9bdcc275491c3d46d563981088d72c889d04d999 (diff) | |
download | new-ryuslash.org-10cf6bbc49155a719d0eb4d360b72ad340074f65.tar.gz new-ryuslash.org-10cf6bbc49155a719d0eb4d360b72ad340074f65.zip |
Update reading time generation
Diffstat (limited to 'project-config.el')
-rw-r--r-- | project-config.el | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/project-config.el b/project-config.el index 96cb365..b41fb1e 100644 --- a/project-config.el +++ b/project-config.el @@ -12,6 +12,7 @@ :publishing-function org-html-publish-to-html :html-head "<link rel=\"stylesheet\" href=\"assets/css/main.css\" type=\"text/css\"/>" :html-link-home "https://ryuslash.gitlab.io/ryuslash.org/" + :html-link-up nil :html-link-user-abs-url t) ("ryuslash.org Posts" :base-directory "posts" @@ -21,7 +22,11 @@ :publishing-function org-html-publish-to-html :html-head "<link rel=\"stylesheet\" href=\"../assets/css/main.css\" type=\"text/css\"/>" :html-link-home "https://ryuslash.gitlab.io/ryuslash.org/" - :html-link-user-abs-url t) + :html-link-up "../" + :html-link-user-abs-url t + :html-preamble (lambda (_) + (project-config-print-reading-time + (project-config-reading-time (buffer-file-name))))) ("ryuslash-rss" :base-directory "." :publishing-directory "public_html" @@ -56,14 +61,19 @@ (org-forward-element)) alist))) +(defun project-config-print-reading-time (time) + (format "%d minute%s" + time + (if (= time 1) "" "s"))) + (defun project-config-print-element (alist) - (format "* %s\n :PROPERTIES:\n :ID: %s\n :PUBDATE: %s\n :END:\n\n %s\n[[file:%s][Read more (%d minutes)]]\n" + (format "* %s\n :PROPERTIES:\n :ID: %s\n :PUBDATE: %s\n :END:\n\n %s\n[[file:%s][Read more (%s)]]\n" (alist-get 'TITLE alist) (alist-get 'ID alist) (alist-get 'PUBDATE alist) (alist-get 'BODY alist) (alist-get 'NAME alist) - (alist-get 'LENGTH alist))) + (project-config-print-reading-time (alist-get 'LENGTH alist)))) (defun project-config-reading-time (file) (with-current-buffer (find-file file) |