add '.html' ending to prev/next links in preview pages

This commit is contained in:
Carmen La 2015-10-31 14:50:03 -04:00
parent 21e3c0e75f
commit 30b3503abc

View file

@ -277,8 +277,8 @@
[previews blog-prefix] [previews blog-prefix]
(mapv (fn [[prev target next]] (mapv (fn [[prev target next]]
(merge target (merge target
{:prev (if prev (str blog-prefix "/p/" (:index prev)) nil) {:prev (if prev (str blog-prefix "/p/" (:index prev) ".html") nil)
:next (if next (str blog-prefix "/p/" (:index next)) nil)})) :next (if next (str blog-prefix "/p/" (:index next) ".html") nil)}))
(partition 3 1 (flatten [nil previews nil])))) (partition 3 1 (flatten [nil previews nil]))))
(defn compile-preview-pages (defn compile-preview-pages