add '.html' ending to prev/next links in preview pages
This commit is contained in:
parent
21e3c0e75f
commit
30b3503abc
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue