gopher metadata was one-lined due to a regression - cl-yag - Common Lisp Yet Another website Generator
HTML git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/
DIR Log
DIR Files
DIR Refs
DIR Tags
DIR README
DIR LICENSE
---
DIR commit 929692a3001141f9e9350b888565c51b92851e10
DIR parent f074e943bcf03b62ddee3273b075dc25dbe69904
HTML Author: Solene Rapenne <solene@perso.pw>
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(-)
---
DIR 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-format) (article-date article)) "~%"
- "Tags: " (article-tag article) "~%"
- "==========~%~%"
- (load-file (format nil "data/~d~d" id (converter-extension converter-object))))))))))
+ (format nil "Title: ~a~%Author: ~a~%Date: ~a~%Tags: ~a~%============~%~%~a"
+ (article-title article)
+ (article-author article)
+ (date-format (getf *config* :date-format) (article-date article))
+ (article-tag article)
+ (load-file (format nil "data/~d~d" id (converter-extension converter-object)))))))))
;; This is function called when running the tool