Recently Written · git

cl-yag

Mirror and rewrite of Solène Rapenne's cl-yag SSG of renown

git clone https://github.com/equwal/cl-yag

Log | Files | Refs


commit f074e943bcf03b62ddee3273b075dc25dbe69904
Solene Rapenne <solene@perso.pw>
2019-10-18 15:06:35 +0200

Short article texts should be in a paragraph

 generator.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/generator.lisp b/generator.lisp
index eb483aa..625b111 100644
--- a/generator.lisp
+++ b/generator.lisp
@@ -243,7 +243,7 @@
 	   (template "%%Text%%"   (if no-text
 				      ""
                                       (if (and tiny (article-tiny article))
-                                          (article-tiny article)
+                                          (format nil "<p>~a</p>" (article-tiny article))
                                           (load-file (format nil "temp/data/~d.html" (article-id article))))))))
 
 ;; return a html string