icode simplification - 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 2c4804f37255ff1359dcadc138a713684f9b8898	/scm/cl-yag/commit/2c4804f37255ff1359dcadc138a713684f9b8898.gph	bitreich.org	70
1parent 550197c3e90895cd3177fb1dbf557d08e70f5e17	/scm/cl-yag/commit/550197c3e90895cd3177fb1dbf557d08e70f5e17.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@dataswamp.org>	URL:mailto:solene@dataswamp.org	bitreich.org	70
iDate:   Sat, 30 Apr 2016 18:12:28 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
icode simplification	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M generator.lisp                      |      21 ++++++++++-----------	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 10 insertions(+), 11 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@@ -61,20 +61,19 @@ is replaced with replacement."	Err	bitreich.org	70
i           (loop for article in *articles* collect	Err	bitreich.org	70
i                 (create-article article :tiny t))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-; produce index.html	Err	bitreich.org	70
i-(defun generate-file-index()	Err	bitreich.org	70
i-  (save-file "index.html"	Err	bitreich.org	70
i-             (generate-layout (generate-mainpage))))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-; produce html files for articles	Err	bitreich.org	70
i-(defun generate-file-article(article)	Err	bitreich.org	70
i-  (save-file (format nil "article-~d.html" (getf article :id))	Err	bitreich.org	70
i-             (generate-layout (create-article article :tiny nil))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i ; ENGINE START !	Err	bitreich.org	70
i (defun generate-site()	Err	bitreich.org	70
i-  (generate-file-index)	Err	bitreich.org	70
i-  (dolist (article *articles*) (generate-file-article article))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+  ; produce index.html	Err	bitreich.org	70
i+  (generate "index.html"	Err	bitreich.org	70
i+            (generate-mainpage))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+  ; produce each article file	Err	bitreich.org	70
i+  (dolist (article *articles*)	Err	bitreich.org	70
i+    (generate (format nil "article-~d.html" (getf article :id))	Err	bitreich.org	70
i+              (create-article article :tiny nil)))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i   ;;(generate-file-rss)	Err	bitreich.org	70
i   )	Err	bitreich.org	70
i 	Err	bitreich.org	70
.