iFix url in RSS feed - cl-yag - Common Lisp Yet Another website Generator Err bitreich.org 70 hgit clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/ URL:git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/ bitreich.org 70 1Log /scm/cl-yag/log.gph bitreich.org 70 1Files /scm/cl-yag/files.gph bitreich.org 70 1Refs /scm/cl-yag/refs.gph bitreich.org 70 1Tags /scm/cl-yag/tag bitreich.org 70 1README /scm/cl-yag/file/README.md.gph bitreich.org 70 1LICENSE /scm/cl-yag/file/LICENSE.gph bitreich.org 70 i--- Err bitreich.org 70 1commit b8e92c61d9ff8d0a7e7fd65c33b0fd26c9741e68 /scm/cl-yag/commit/b8e92c61d9ff8d0a7e7fd65c33b0fd26c9741e68.gph bitreich.org 70 1parent 5c6b061bb6f819e9e5a3bd028c5683e3b6227815 /scm/cl-yag/commit/5c6b061bb6f819e9e5a3bd028c5683e3b6227815.gph bitreich.org 70 hAuthor: Solene Rapenne URL:mailto:solene@perso.pw bitreich.org 70 iDate: Fri, 16 Mar 2018 11:15:24 +0100 Err bitreich.org 70 i Err bitreich.org 70 iFix url in RSS feed Err bitreich.org 70 i Err bitreich.org 70 iDiffstat: Err bitreich.org 70 i M generator.lisp | 4 +++- Err bitreich.org 70 i Err bitreich.org 70 i1 file changed, 3 insertions(+), 1 deletion(-) Err bitreich.org 70 i--- Err bitreich.org 70 1diff --git a/generator.lisp b/generator.lisp /scm/cl-yag/file/generator.lisp.gph bitreich.org 70 i@@ -262,8 +262,10 @@ Err bitreich.org 70 i (subseq (getf (article-date article) :dayname) 0 3) Err bitreich.org 70 i (subseq (getf (article-date article) :monthname) 0 3))) Err bitreich.org 70 i (template "%%Url%%" Err bitreich.org 70 i- (format nil "~darticle-~d.html" Err bitreich.org 70 i+ (format nil "~d~d-~d.html" Err bitreich.org 70 i (getf *config* :url) Err bitreich.org 70 i+ (date-format "%Year-%MonthNumber-%DayNumber" Err bitreich.org 70 i+ (article-date article)) Err bitreich.org 70 i (article-id article))))))) Err bitreich.org 70 i Err bitreich.org 70 i ;; Generate the rss xml data Err bitreich.org 70 .