Fixing gopher RSS url - 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 4a5228a3803cf285d220aedb5caa92b731375b62
 (DIR) parent f28ae44a217cb53b2b38ebbbbe53c65779383802
 (HTM) Author: Solene Rapenne <solene@perso.pw>
       Date:   Tue, 15 May 2018 09:26:20 +0200
       
       Fixing gopher RSS url
       
       Diffstat:
         M generator.lisp                      |      10 +++++-----
       
       1 file changed, 5 insertions(+), 5 deletions(-)
       ---
 (DIR) diff --git a/generator.lisp b/generator.lisp
       @@ -126,9 +126,9 @@
        ;; get the converter object of "article"
        (defmacro with-converter(&body code)
          `(progn
       -     (let ((converter-name
       -            (or (article-converter article)
       -                (getf *config* :default-converter))))
       +     (let ((converter-name (if (article-converter article)
       +                               (article-converter article)
       +                             (getf *config* :default-converter))))
               (let ((converter-object (getf *converters* converter-name)))
                 ,@code))))
        
       @@ -228,7 +228,7 @@
        ;; produce the code of a whole page with title+layout with the parameter as the content
        (defun generate-layout(body &optional &key (title nil))
          (prepare "templates/layout.tpl"
       -           (template "%%Title%%" (or title (getf *config* :title)))
       +           (template "%%Title%%" (if title title (getf *config* :title)))
                   (template "%%Tags%%" (get-tag-list))
                   (template "%%Body%%" body)
                   output))
       @@ -263,7 +263,7 @@
                                                            (subseq (getf (article-date article) :monthname) 0 3)))
                               (template "%%Url%%"
                                         (if gopher
       -                                     (format nil "gopher://~a:~d/0~a/~a.txt"
       +                                     (format nil "gopher://~a:~d/0~a/article-~a.txt"
                                                     (getf *config* :gopher-server)
                                                     (getf *config* :gopher-port)
                                                     (getf *config* :gopher-path)