miniblog

commit 964d88c89c27e06d0d7956b84c5e1188b9da9227
parent 8700f059ef026cebb307641183ec4d571e2174fe
Author: Decay <decay@todayiwilllaunchmyinfantsonintoorbit.com>
Date:   Tue, 29 Sep 2020 01:14:21 -0700

Fixing month-and-index regeneration

Diffstat:
M
src/miniblog.lisp
 | 
7
++++---

1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/src/miniblog.lisp b/src/miniblog.lisp
@@ -162,14 +162,15 @@
 (defun regenerate-index-and-given-month (entries year month)
   (let ((rss-content (miniblog.content:gen-rss-feed entries
                                                     :generator *rss-generator*
-                                                    :tz *blog-timezone*)))
+                                                    :tz *blog-timezone*))
+        (pages (miniblog.db:get-pages)))
     (regenerate-file (list :rss nil rss-content))
     (regenerate-file (list :index nil
-                           (miniblog.content:gen-index entries
+                           (miniblog.content:gen-index entries pages
                                                        :enable-rss rss-content
                                                        :generator *generator*
                                                        :tz *blog-timezone*)))
-    (regenerate-file (car (miniblog.content:gen-month entries year month
+    (regenerate-file (car (miniblog.content:gen-month entries year month pages
                                                       :enable-rss rss-content
                                                       :generator *generator*
                                                       :tz *blog-timezone*)))))