commit c91cb403a8bdc1efd8e38450aaaec4192d287674 Solene Rapenne <solene@perso.pw> 2017-12-31 16:37:40 +0100 Syntax improvement
generator.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/generator.lisp b/generator.lisp index 5d45cd5..a5ceaa3 100644 --- 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 the content (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))