revert a little mistake - cl-yag - Common Lisp Yet Another website Generator
HTML 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
HTML 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*)