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

Stick with indices rendering all content rather than having content types control their inclusion at this time.

Browse source
This commit is contained in:
Brit Butler 2013-01-04 16:18:03 -05:00
parent f2ccd8829f
commit 686aaa2941
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/indices.lisp
View file

@ -66,19 +66,19 @@
:title "Recent Posts")) :title "Recent Posts"))
(defun render-indices () (defun render-indices ()
"Render the indices to view posts in groups of size N, by month, and by tag." "Render the indices to view content in groups of size N, by month, and by tag."
(let ((posts (by-date (find-all 'post)))) (let ((results (by-date (hash-table-values *content*))))
(dolist (tag (all-tags)) (dolist (tag (all-tags))
(let ((index (index-by-tag tag posts))) (let ((index (index-by-tag tag results)))
(write-page (page-path index) (render-page index)))) (write-page (page-path index) (render-page index))))
(dolist (month (all-months)) (dolist (month (all-months))
(let ((index (index-by-month month posts))) (let ((index (index-by-month month results)))
(write-page (page-path index) (render-page index)))) (write-page (page-path index) (render-page index))))
(dotimes (i (ceiling (length posts) 10)) (dotimes (i (ceiling (length results) 10))
(let ((index (index-by-n i posts))) (let ((index (index-by-n i results)))
(write-page (page-path index) (write-page (page-path index)
(render-page index nil (render-page index nil
:prev (and (plusp i) i) :prev (and (plusp i) i)
:next (and (< (* (1+ i) 10) (length posts)) :next (and (< (* (1+ i) 10) (length results))
(+ 2 i))))))) (+ 2 i)))))))
(update-symlink "index.html" "1.html")) (update-symlink "index.html" "1.html"))