Fix url in RSS feed

2018-03-16 11:15:24 +01:00 · 2018-03-16 11:15:24 +01:00 · b8e92c61d9
parent 5c6b061bb6
commit b8e92c61d9
1 changed files with 3 additions and 1 deletions
--- 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