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]
|
||||
(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
|
||||
|
|
Loading…
Reference in a new issue