 |
Make index page compatible with subscriptions - cl-yag - Common Lisp Yet Anothe… |
 |
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit dcbc55ff7e26410c8c8d7f06f68e1c0a246bcdd1 |
|
parent a9cc963e39455b4f75af129ca00d635a02fc1702 |
|
Author: Solene Rapenne <[email protected]> |
|
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(-) |
|
--- |
|
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 ~… |
|
(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)) |
|
