 |
revert a little mistake - cl-yag - Common Lisp Yet Another website Generator |
 |
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit 0daf877b6b4cf608db813b28f4563ac4481a7c8e |
|
parent a6f07ecaad846e608500efa5cb5b3913a43db7e0 |
|
Author: Solene Rapenne <[email protected]> |
|
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(-) |
|
--- |
|
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*) |
