Add the date in the RSS feed - cl-yag - Common Lisp Yet Another website Generator (HTM) 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 fc0d8912469f5ce1e210ded72b2f52f49d307352 (DIR) parent 013ada82f339f61de56f426824c1c3c1a88bf9b1 (HTM) Author: Solene Rapenne <solene@perso.pw> Date: Wed, 13 Dec 2017 20:56:37 +0100 Add the date in the RSS feed Diffstat: M generator.lisp | 4 ++++ M templates/rss-item.tpl | 1 + 2 files changed, 5 insertions(+), 0 deletions(-) --- (DIR) diff --git a/generator.lisp b/generator.lisp @@ -212,6 +212,10 @@ (prepare "templates/rss-item.tpl" (template "%%Title%%" (article-title article)) (template "%%Description%%" (load-file (format nil "temp/data/~d.html" (article-id article)))) + (let ((date (date-parse (article-date article)))) + (template "%%Date%%" (format nil (date-format "~a, %DayNumber ~a %Year 00:00:00 GMT" date) + (subseq (getf date :dayname) 0 3) + (subseq (getf date :monthname) 0 3)))) (template "%%Url%%" (format nil "~darticle-~d.html" (getf *config* :url) (DIR) diff --git a/templates/rss-item.tpl b/templates/rss-item.tpl @@ -7,4 +7,5 @@ </description> <guid>%%Url%%</guid> <link>%%Url%%</link> + <pubDate>%%Date%%</pubDate> </item>