revert a little mistake - 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 0daf877b6b4cf608db813b28f4563ac4481a7c8e
 (DIR) parent a6f07ecaad846e608500efa5cb5b3913a43db7e0
 (HTM) Author: Solene Rapenne <solene@dataswamp.org>
       Date:   Sun,  1 May 2016 01:05:07 +0200
       
       revert a little mistake
       
       Diffstat:
         M generator.lisp                      |      15 ++++++---------
       
       1 file changed, 6 insertions(+), 9 deletions(-)
       ---
 (DIR) diff --git a/generator.lisp b/generator.lisp
       @@ -69,13 +69,10 @@
        
        
        ;; Homepage generation
       -(defun generate-mainpage()
       -  (prepare "template/layout.tpl"
       -           (template "%%Body%%" 
       -                     (format nil "~{~d~}"
       -                             (loop for article in *articles* collect
       -                                   (create-article article :tiny t))))
       -           (template "%%Title%%" (getf *config* :title))))
       +(defun generate-semi-mainpage()
       +  (format nil "~{~d~}"
       +          (loop for article in *articles* collect
       +                (create-article article :tiny t))))
        
        
        ;; Generate the items for the xml
       @@ -104,8 +101,8 @@
        (defun generate-site()
        
          ;; produce index.html
       -  (save-file "index.html"
       -             (generate-mainpage))
       +  (generate "index.html"
       +             (generate-semi-mainpage))
          
          ;; produce each article file
          (dolist (article *articles*)