commit b8e92c61d9ff8d0a7e7fd65c33b0fd26c9741e68 Solene Rapenne <solene@perso.pw> 2018-03-16 11:15:24 +0100 Fix url in RSS feed
generator.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/generator.lisp b/generator.lisp index edc9728..80793f0 100644 --- a/generator.lisp +++ b/generator.lisp @@ -262,8 +262,10 @@ (subseq (getf (article-date article) :dayname) 0 3) (subseq (getf (article-date article) :monthname) 0 3))) (template "%%Url%%" - (format nil "~darticle-~d.html" + (format nil "~d~d-~d.html" (getf *config* :url) + (date-format "%Year-%MonthNumber-%DayNumber" + (article-date article)) (article-id article))))))) ;; Generate the rss xml data