 |
gopher metadata was one-lined due to a regression - cl-yag - Common Lisp Yet An… |
 |
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit 929692a3001141f9e9350b888565c51b92851e10 |
|
parent f074e943bcf03b62ddee3273b075dc25dbe69904 |
|
Author: Solene Rapenne <[email protected]> |
|
Date: Sun, 17 Nov 2019 17:21:20 +0100 |
|
|
|
gopher metadata was one-lined due to a regression |
|
|
|
Diffstat: |
|
M generator.lisp | 14 ++++++-------- |
|
|
|
1 file changed, 6 insertions(+), 8 deletions(-) |
|
--- |
|
diff --git a/generator.lisp b/generator.lisp |
|
@@ -398,14 +398,12 @@ |
|
(with-converter |
|
(let ((id (article-id article))) |
|
(save-file (format nil "output/gopher/article-~d.txt" id) |
|
- (format nil "~{~a~}" |
|
- (list |
|
- "Title: " (article-title article) "~%" |
|
- "Author: " (article-author article) "~%" |
|
- "Date: " (date-format (getf *config* :date-fo… |
|
- "Tags: " (article-tag article) "~%" |
|
- "==========~%~%" |
|
- (load-file (format nil "data/~d~d" id (conver… |
|
+ (format nil "Title: ~a~%Author: ~a~%Date: ~a~%Tags: ~a… |
|
+ (article-title article) |
|
+ (article-author article) |
|
+ (date-format (getf *config* :date-format) (ar… |
|
+ (article-tag article) |
|
+ (load-file (format nil "data/~d~d" id… |
|
|
|
|
|
;; This is function called when running the tool |
