code simplification - 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 2c4804f37255ff1359dcadc138a713684f9b8898
 (DIR) parent 550197c3e90895cd3177fb1dbf557d08e70f5e17
 (HTM) Author: Solene Rapenne <solene@dataswamp.org>
       Date:   Sat, 30 Apr 2016 18:12:28 +0200
       
       code simplification
       
       Diffstat:
         M generator.lisp                      |      21 ++++++++++-----------
       
       1 file changed, 10 insertions(+), 11 deletions(-)
       ---
 (DIR) diff --git a/generator.lisp b/generator.lisp
       @@ -61,20 +61,19 @@ is replaced with replacement."
                  (loop for article in *articles* collect
                        (create-article article :tiny t))))
        
       -; produce index.html
       -(defun generate-file-index()
       -  (save-file "index.html"
       -             (generate-layout (generate-mainpage))))
       -
       -; produce html files for articles
       -(defun generate-file-article(article)
       -  (save-file (format nil "article-~d.html" (getf article :id))
       -             (generate-layout (create-article article :tiny nil))))
        
        ; ENGINE START !
        (defun generate-site()
       -  (generate-file-index)
       -  (dolist (article *articles*) (generate-file-article article))
       +
       +  ; produce index.html
       +  (generate "index.html"
       +            (generate-mainpage))
       +
       +  ; produce each article file
       +  (dolist (article *articles*)
       +    (generate (format nil "article-~d.html" (getf article :id))
       +              (create-article article :tiny nil)))
       +
          ;;(generate-file-rss)
          )