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

9 years ago · 30b3503abc
parent 21e3c0e75f
commit 30b3503abc
1 changed files with 2 additions and 2 deletions
--- a/src/cryogen_core/compiler.clj
+++ b/src/cryogen_core/compiler.clj
@ -277,8 +277,8 @@
  [previews blog-prefix]
  (mapv (fn [[prev target next]]
          (merge target
-                 {:prev (if prev (str blog-prefix "/p/" (:index prev)) nil)
-                  :next (if next (str blog-prefix "/p/" (:index next)) nil)}))
+                 {:prev (if prev (str blog-prefix "/p/" (:index prev) ".html") nil)
+                  :next (if next (str blog-prefix "/p/" (:index next) ".html") nil)}))
        (partition 3 1 (flatten [nil previews nil]))))

 (defn compile-preview-pages