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 |