 |
Syntax improvement - cl-yag - Common Lisp Yet Another website Generator |
 |
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit c91cb403a8bdc1efd8e38450aaaec4192d287674 |
|
parent 1181d71528f9fe834fe23cde1000034cd1f92e8d |
|
Author: Solene Rapenne <[email protected]> |
|
Date: Sun, 31 Dec 2017 16:37:40 +0100 |
|
|
|
Syntax improvement |
|
|
|
Diffstat: |
|
M generator.lisp | 8 ++++---- |
|
|
|
1 file changed, 4 insertions(+), 4 deletions(-) |
|
--- |
|
diff --git a/generator.lisp b/generator.lisp |
|
@@ -126,9 +126,9 @@ |
|
;; get the converter object of "article" |
|
(defmacro with-converter(&body code) |
|
`(progn |
|
- (let ((converter-name (if (article-converter article) |
|
- (article-converter article) |
|
- (getf *config* :default-converter)))) |
|
+ (let ((converter-name |
|
+ (or (article-converter article) |
|
+ (getf *config* :default-converter)))) |
|
(let ((converter-object (getf *converters* converter-name))) |
|
,@code)))) |
|
|
|
@@ -228,7 +228,7 @@ |
|
;; produce the code of a whole page with title+layout with the parameter as th… |
|
(defun generate-layout(body &optional &key (title nil)) |
|
(prepare "templates/layout.tpl" |
|
- (template "%%Title%%" (if title title (getf *config* :title))) |
|
+ (template "%%Title%%" (or title (getf *config* :title))) |
|
(template "%%Tags%%" (get-tag-list)) |
|
(template "%%Body%%" body) |
|
output)) |
