From 5065f5395bc9caf094e5218a6a5935eb25046e6d Mon Sep 17 00:00:00 2001
From: Vincent Ambo <tazjin@gmail.com>
Date: Mon, 13 Nov 2017 16:49:41 +0100
Subject: [PATCH] feat: Make blog-title configurable in preamble

---
 blog.el       | 13 ++++++++++++-
 preamble.html |  2 +-
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/blog.el b/blog.el
index d968c9ce2..4e515a3cd 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
diff --git a/preamble.html b/preamble.html
index 38fe179c5..be74b9207 100644
--- a/preamble.html
+++ b/preamble.html
@@ -1,6 +1,6 @@
 <header>
   <h1>
-    <a class="unstyled-link" href="/">Tazjin&#39;s blog</a>
+    <a class="unstyled-link" href="/">%s</a>
   </h1>
   <hr>
 </header>