|
|
@ -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
|
|
|
|