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

Merge pull request #209 from khinsen/fix-recent-posts

Browse source
This commit is contained in:
Cthulhux 2024-05-10 14:48:25 +02:00 • committed by GitHub
commit 58cf3eebcc
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
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)