fix rss description, using whole text now - cl-yag - Common Lisp Yet Another we… | |
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… | |
Log | |
Files | |
Refs | |
Tags | |
README | |
LICENSE | |
--- | |
commit e37816fdaba64ea82b138e9d4678d556f8c7f20d | |
parent 7682a4620e7aa93fabcd996fe7450e8f67bf7f37 | |
Author: solene rapenne <[email protected]> | |
Date: Thu, 19 May 2016 16:47:49 +0200 | |
fix rss description, using whole text now | |
Diffstat: | |
M generator.lisp | 2 +- | |
1 file changed, 1 insertion(+), 1 deletion(-) | |
--- | |
diff --git a/generator.lisp b/generator.lisp | |
@@ -134,7 +134,7 @@ | |
(loop for article in *articles* collect | |
(prepare "template/rss-item.tpl" | |
(template "%%Title%%" (getf article :title)) | |
- (template "%%Description%%" (getf article :short "")) | |
+ (template "%%Description%%" (load-file (format nil "data/~d.… | |
(template "%%Url%%" | |
(format nil "~darticle-~d.html" | |
(getf *config* :url) |