Make index page compatible with subscriptions - cl-yag - Common Lisp Yet Another website Generator
HTML git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/
DIR Log
DIR Files
DIR Refs
DIR Tags
DIR README
DIR LICENSE
---
DIR commit dcbc55ff7e26410c8c8d7f06f68e1c0a246bcdd1
DIR parent a9cc963e39455b4f75af129ca00d635a02fc1702
HTML Author: Solene Rapenne <solene@perso.pw>
Date: Fri, 1 Jan 2021 17:41:04 +0100
Make index page compatible with subscriptions
Diffstat:
M generator.lisp | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
---
DIR diff --git 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))