fix blog index page titles

master
Josha von Gizycki 6 years ago
parent aeb7f51deb
commit 52d026e0d4

@ -135,7 +135,10 @@
pre-content (subs content 0 end) pre-content (subs content 0 end)
article-link (str "<a href=\"" article-link (str "<a href=\""
(:link site) (:link site)
"\">↪</a>")] "\">"
(when divider-pos
"…")
"↪</a>")]
(str res (str res
"<article>" "<article>"
pre-content pre-content
@ -209,7 +212,8 @@
(defn render-blog [template dir] (defn render-blog [template dir]
(let [dir-name (core/filename dir) (let [dir-name (core/filename dir)
index-file (blog/index-file dir-name input-root) index-file (blog/index-file dir-name input-root)
config (merge (blog/config dir-name) config (merge (analysed-page index-file)
(blog/config dir-name)
{:dir dir}) {:dir dir})
blog-sites (blog-sites dir-name)] blog-sites (blog-sites dir-name)]
(blog/write-files config (blog/write-files config

Loading…
Cancel
Save