ソースを参照

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

Brit Butler 11 年 前
コミット
b11b6fbf94
共有1 個のファイルを変更した1 個の追加1 個の削除を含む
  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))