fix blog index page titles

6 years ago · 52d026e0d4
parent aeb7f51deb
commit 52d026e0d4
1 changed files with 6 additions and 2 deletions
--- a/src/equilibrium/render.clj
+++ b/src/equilibrium/render.clj
@ -135,7 +135,10 @@
                  pre-content (subs content 0 end)
                  article-link (str "<a href=\""
                                    (:link site)
-                                    "\">↪</a>")]
+                                    "\">"
+                                    (when divider-pos
+                                      "…")
+                                    "↪</a>")]
              (str res
                   "<article>"
                   pre-content
@ -209,7 +212,8 @@
 (defn render-blog [template dir]
  (let [dir-name (core/filename dir)
        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})
        blog-sites (blog-sites dir-name)]
    (blog/write-files config