iMake index page compatible with subscriptions - cl-yag - Common Lisp Yet Another website Generator	Err	bitreich.org	70
hgit clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/	URL:git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/	bitreich.org	70
1Log	/scm/cl-yag/log.gph	bitreich.org	70
1Files	/scm/cl-yag/files.gph	bitreich.org	70
1Refs	/scm/cl-yag/refs.gph	bitreich.org	70
1Tags	/scm/cl-yag/tag	bitreich.org	70
1README	/scm/cl-yag/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/cl-yag/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit dcbc55ff7e26410c8c8d7f06f68e1c0a246bcdd1	/scm/cl-yag/commit/dcbc55ff7e26410c8c8d7f06f68e1c0a246bcdd1.gph	bitreich.org	70
1parent a9cc963e39455b4f75af129ca00d635a02fc1702	/scm/cl-yag/commit/a9cc963e39455b4f75af129ca00d635a02fc1702.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Fri,  1 Jan 2021 17:41:04 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iMake index page compatible with subscriptions	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M generator.lisp                      |       5 ++++-	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 4 insertions(+), 1 deletion(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/generator.lisp b/generator.lisp	/scm/cl-yag/file/generator.lisp.gph	bitreich.org	70
i@@ -180,9 +180,12 @@	Err	bitreich.org	70
i       (setf output	Err	bitreich.org	70
i             (string	Err	bitreich.org	70
i              (concatenate 'string output	Err	bitreich.org	70
i-                          (format nil "=> ~a/articles/~a.txt ~a~%"	Err	bitreich.org	70
i+                          (format nil "=> ~a/articles/~a.md ~a-~2,'0d-~2,'0d ~a~%"	Err	bitreich.org	70
i                                   (getf *config* :gemini-path)	Err	bitreich.org	70
i                                   (article-id article)	Err	bitreich.org	70
i+                                  (getf (article-date article) :year)	Err	bitreich.org	70
i+                                  (getf (article-date article) :monthnumber)	Err	bitreich.org	70
i+                                  (getf (article-date article) :daynumber)	Err	bitreich.org	70
i                                   (article-title article))))))	Err	bitreich.org	70
i     output))	Err	bitreich.org	70
i 	Err	bitreich.org	70
.