From 686aaa29416a5c82ce9174dfac3bc5450edb95fc Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Fri, 4 Jan 2013 16:18:03 -0500 Subject: [PATCH] Stick with indices rendering all content rather than having content types control their inclusion at this time. --- src/indices.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/indices.lisp b/src/indices.lisp index ec43ff4..8f90b86 100644 --- a/src/indices.lisp +++ b/src/indices.lisp @@ -66,19 +66,19 @@ :title "Recent Posts")) (defun render-indices () - "Render the indices to view posts in groups of size N, by month, and by tag." - (let ((posts (by-date (find-all 'post)))) + "Render the indices to view content in groups of size N, by month, and by tag." + (let ((results (by-date (hash-table-values *content*)))) (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)))) (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)))) - (dotimes (i (ceiling (length posts) 10)) - (let ((index (index-by-n i posts))) + (dotimes (i (ceiling (length results) 10)) + (let ((index (index-by-n i results))) (write-page (page-path index) (render-page index nil :prev (and (plusp i) i) - :next (and (< (* (1+ i) 10) (length posts)) + :next (and (< (* (1+ i) 10) (length results)) (+ 2 i))))))) (update-symlink "index.html" "1.html"))