 |
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) |
