Explorar o código

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

Brit Butler %!s(int64=11) %!d(string=hai) anos
pai
achega
b11b6fbf94
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      src/indices.lisp

+ 1 - 1
src/indices.lisp

@@ -64,7 +64,7 @@
64 64
 
65 65
 (defun render-indices ()
66 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 68
     (dolist (tag (all-tags))
69 69
       (render-index (index-by-tag tag results)))
70 70
     (dolist (month (all-months))