Recently Written · git

cl-yag

Mirror and rewrite of Solène Rapenne's cl-yag SSG of renown

git clone https://github.com/equwal/cl-yag

Log | Files | Refs


commit dcbc55ff7e26410c8c8d7f06f68e1c0a246bcdd1
Solene Rapenne <solene@perso.pw>
2021-01-01 17:41:04 +0100

Make index page compatible with subscriptions

 generator.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/generator.lisp b/generator.lisp
index 38523b6..cee0228 100644
--- a/generator.lisp
+++ b/generator.lisp
@@ -180,9 +180,12 @@
       (setf output
 	    (string
 	     (concatenate 'string output
-                          (format nil "=> ~a/articles/~a.txt ~a~%"
+                          (format nil "=> ~a/articles/~a.md ~a-~2,'0d-~2,'0d ~a~%"
                                   (getf *config* :gemini-path)
                                   (article-id article)
+                                  (getf (article-date article) :year)
+                                  (getf (article-date article) :monthnumber)
+                                  (getf (article-date article) :daynumber)
                                   (article-title article))))))
     output))