marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Ensure that index.html points to the most recent index page

Browse source
This commit is contained in:
Konrad Hinsen 2023-11-15 09:48:52 +01:00
parent cc0271b319
commit 96ae19b146
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/coleslaw.lisp
View file

@ -42,7 +42,10 @@
(publish ctype)) (publish ctype))
(do-subclasses (itype index) (do-subclasses (itype index)
(publish itype)) (publish itype))
(let ((recent-posts (first (find-all 'numeric-index)))) (let ((recent-posts (reduce #'(lambda (a b)
(if (< (index-name a) (index-name b))
a b))
(find-all 'numeric-index))))
(update-symlink "index.html" (page-url recent-posts))))) (update-symlink "index.html" (page-url recent-posts)))))
(defgeneric deploy (staging) (defgeneric deploy (staging)