 |
Fix url in RSS feed - cl-yag - Common Lisp Yet Another website Generator |
 |
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit b8e92c61d9ff8d0a7e7fd65c33b0fd26c9741e68 |
|
parent 5c6b061bb6f819e9e5a3bd028c5683e3b6227815 |
|
Author: Solene Rapenne <[email protected]> |
|
Date: Fri, 16 Mar 2018 11:15:24 +0100 |
|
|
|
Fix url in RSS feed |
|
|
|
Diffstat: |
|
M generator.lisp | 4 +++- |
|
|
|
1 file changed, 3 insertions(+), 1 deletion(-) |
|
--- |
|
diff --git a/generator.lisp b/generator.lisp |
|
@@ -262,8 +262,10 @@ |
|
(subseq (getf (article-dat… |
|
(subseq (getf (article-dat… |
|
(template "%%Url%%" |
|
- (format nil "~darticle-~d.html" |
|
+ (format nil "~d~d-~d.html" |
|
(getf *config* :url) |
|
+ (date-format "%Year-%MonthNumber-%Day… |
|
+ (article-date article)) |
|
(article-id article))))))) |
|
|
|
;; Generate the rss xml data |
