Browse Source

We only want to include POSTs in an INDEX for now.

Brit Butler 11 years ago
parent
commit
b11b6fbf94
1 changed files with 1 additions and 1 deletions
  1. 1 1
      src/indices.lisp

+ 1 - 1
src/indices.lisp

64
 
64
 
65
 (defun render-indices ()
65
 (defun render-indices ()
66
   "Render the indices to view content in groups of size N, by month, and by tag."
66
   "Render the indices to view content in groups of size N, by month, and by tag."
67
-  (let ((results (by-date (hash-table-values *content*))))
67
+  (let ((results (by-date (find-all 'post))))
68
     (dolist (tag (all-tags))
68
     (dolist (tag (all-tags))
69
       (render-index (index-by-tag tag results)))
69
       (render-index (index-by-tag tag results)))
70
     (dolist (month (all-months))
70
     (dolist (month (all-months))