Fix url in RSS feed - 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 b8e92c61d9ff8d0a7e7fd65c33b0fd26c9741e68 DIR parent 5c6b061bb6f819e9e5a3bd028c5683e3b6227815 HTML Author: Solene Rapenne <solene@perso.pw> 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(-) --- DIR diff --git 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