diff options
author | Vincent Ambo <tazjin@gmail.com> | 2017-11-13T15·49+0100 |
---|---|---|
committer | Vincent Ambo <tazjin@gmail.com> | 2017-11-13T15·49+0100 |
commit | 5065f5395bc9caf094e5218a6a5935eb25046e6d (patch) | |
tree | f0dd6d9992fe13f033a9f2cb6ead221e60d7e279 /blog.el | |
parent | 3e37d3990d23efee87572c07b8ae9b00c64eab79 (diff) |
feat: Make blog-title configurable in preamble
Diffstat (limited to 'blog.el')
-rw-r--r-- | blog.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/blog.el b/blog.el index d968c9ce261b..4e515a3cd5b0 100644 --- a/blog.el +++ b/blog.el @@ -20,13 +20,24 @@ :group 'elblog :type 'string) +(defcustom elblog-title "Elblog" + "Title text for this elblog instance" + :group 'elblog + :type 'string) + +;; HTML templating setup + +(defun template-preamble () + "Templates the preamble snippet with the correct blog title." + (format (f-read-text "preamble.html") elblog-title)) + (defun configure-org-html-export () "Configure org-mode settings for elblog's HTML templating to work correctly." (setq org-html-postamble t) (setq org-html-doctype "html5") (setq org-html-head-include-scripts nil) (setq org-html-style-default (f-read-text "blog.css")) - (setq org-html-preamble-format `(("en" ,(f-read-text "preamble.html")))) + (setq org-html-preamble-format `(("en" ,(template-preamble)))) (setq org-html-postamble-format `(("en" ,(f-read-text "postamble.html"))))) ;; Article fetching & rendering functions |