iFixing gopher RSS url - 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 4a5228a3803cf285d220aedb5caa92b731375b62	/scm/cl-yag/commit/4a5228a3803cf285d220aedb5caa92b731375b62.gph	bitreich.org	70
1parent f28ae44a217cb53b2b38ebbbbe53c65779383802	/scm/cl-yag/commit/f28ae44a217cb53b2b38ebbbbe53c65779383802.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Tue, 15 May 2018 09:26:20 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iFixing gopher RSS url	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M generator.lisp                      |      10 +++++-----	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 5 insertions(+), 5 deletions(-)	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@@ -126,9 +126,9 @@	Err	bitreich.org	70
i ;; get the converter object of "article"	Err	bitreich.org	70
i (defmacro with-converter(&body code)	Err	bitreich.org	70
i   `(progn	Err	bitreich.org	70
i-     (let ((converter-name	Err	bitreich.org	70
i-            (or (article-converter article)	Err	bitreich.org	70
i-                (getf *config* :default-converter))))	Err	bitreich.org	70
i+     (let ((converter-name (if (article-converter article)	Err	bitreich.org	70
i+                               (article-converter article)	Err	bitreich.org	70
i+                             (getf *config* :default-converter))))	Err	bitreich.org	70
i        (let ((converter-object (getf *converters* converter-name)))	Err	bitreich.org	70
i          ,@code))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i@@ -228,7 +228,7 @@	Err	bitreich.org	70
i ;; produce the code of a whole page with title+layout with the parameter as the content	Err	bitreich.org	70
i (defun generate-layout(body &optional &key (title nil))	Err	bitreich.org	70
i   (prepare "templates/layout.tpl"	Err	bitreich.org	70
i-           (template "%%Title%%" (or title (getf *config* :title)))	Err	bitreich.org	70
i+           (template "%%Title%%" (if title title (getf *config* :title)))	Err	bitreich.org	70
i            (template "%%Tags%%" (get-tag-list))	Err	bitreich.org	70
i            (template "%%Body%%" body)	Err	bitreich.org	70
i            output))	Err	bitreich.org	70
i@@ -263,7 +263,7 @@	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                                  (if gopher	Err	bitreich.org	70
i-                                     (format nil "gopher://~a:~d/0~a/~a.txt"	Err	bitreich.org	70
i+                                     (format nil "gopher://~a:~d/0~a/article-~a.txt"	Err	bitreich.org	70
i                                              (getf *config* :gopher-server)	Err	bitreich.org	70
i                                              (getf *config* :gopher-port)	Err	bitreich.org	70
i                                              (getf *config* :gopher-path)	Err	bitreich.org	70
.