irevert a little mistake - 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 0daf877b6b4cf608db813b28f4563ac4481a7c8e	/scm/cl-yag/commit/0daf877b6b4cf608db813b28f4563ac4481a7c8e.gph	bitreich.org	70
1parent a6f07ecaad846e608500efa5cb5b3913a43db7e0	/scm/cl-yag/commit/a6f07ecaad846e608500efa5cb5b3913a43db7e0.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@dataswamp.org>	URL:mailto:solene@dataswamp.org	bitreich.org	70
iDate:   Sun,  1 May 2016 01:05:07 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
irevert a little mistake	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M generator.lisp                      |      15 ++++++---------	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 6 insertions(+), 9 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@@ -69,13 +69,10 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i 	Err	bitreich.org	70
i ;; Homepage generation	Err	bitreich.org	70
i-(defun generate-mainpage()	Err	bitreich.org	70
i-  (prepare "template/layout.tpl"	Err	bitreich.org	70
i-           (template "%%Body%%" 	Err	bitreich.org	70
i-                     (format nil "~{~d~}"	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-           (template "%%Title%%" (getf *config* :title))))	Err	bitreich.org	70
i+(defun generate-semi-mainpage()	Err	bitreich.org	70
i+  (format nil "~{~d~}"	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 	Err	bitreich.org	70
i ;; Generate the items for the xml	Err	bitreich.org	70
i@@ -104,8 +101,8 @@	Err	bitreich.org	70
i (defun generate-site()	Err	bitreich.org	70
i 	Err	bitreich.org	70
i   ;; produce index.html	Err	bitreich.org	70
i-  (save-file "index.html"	Err	bitreich.org	70
i-             (generate-mainpage))	Err	bitreich.org	70
i+  (generate "index.html"	Err	bitreich.org	70
i+             (generate-semi-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
.