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