igopher metadata was one-lined due to a regression - cl-yag - Common Lisp Yet Another website Generator	Err	bitreich.org	70
hgit clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/	URL:git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/	bitreich.org	70
1Log	/scm/cl-yag/log.gph	bitreich.org	70
1Files	/scm/cl-yag/files.gph	bitreich.org	70
1Refs	/scm/cl-yag/refs.gph	bitreich.org	70
1Tags	/scm/cl-yag/tag	bitreich.org	70
1README	/scm/cl-yag/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/cl-yag/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit 929692a3001141f9e9350b888565c51b92851e10	/scm/cl-yag/commit/929692a3001141f9e9350b888565c51b92851e10.gph	bitreich.org	70
1parent f074e943bcf03b62ddee3273b075dc25dbe69904	/scm/cl-yag/commit/f074e943bcf03b62ddee3273b075dc25dbe69904.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Sun, 17 Nov 2019 17:21:20 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
igopher metadata was one-lined due to a regression	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M generator.lisp                      |      14 ++++++--------	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 6 insertions(+), 8 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/generator.lisp b/generator.lisp	/scm/cl-yag/file/generator.lisp.gph	bitreich.org	70
i@@ -398,14 +398,12 @@	Err	bitreich.org	70
i        (with-converter	Err	bitreich.org	70
i            (let ((id (article-id article)))	Err	bitreich.org	70
i              (save-file (format nil "output/gopher/article-~d.txt" id)	Err	bitreich.org	70
i-                        (format nil "~{~a~}"	Err	bitreich.org	70
i-                                (list	Err	bitreich.org	70
i-                                 "Title: " (article-title article) "~%"	Err	bitreich.org	70
i-                                 "Author: " (article-author article) "~%"	Err	bitreich.org	70
i-                                 "Date: " (date-format (getf *config* :date-format) (article-date article)) "~%"	Err	bitreich.org	70
i-                                 "Tags: " (article-tag article) "~%"	Err	bitreich.org	70
i-                                 "==========~%~%"	Err	bitreich.org	70
i-                                 (load-file (format nil "data/~d~d" id (converter-extension converter-object))))))))))	Err	bitreich.org	70
i+                        (format nil "Title: ~a~%Author: ~a~%Date: ~a~%Tags: ~a~%============~%~%~a"	Err	bitreich.org	70
i+                                 (article-title article)	Err	bitreich.org	70
i+                                 (article-author article)	Err	bitreich.org	70
i+                                 (date-format (getf *config* :date-format) (article-date article))	Err	bitreich.org	70
i+                                 (article-tag article)	Err	bitreich.org	70
i+                                         (load-file (format nil "data/~d~d" id (converter-extension converter-object)))))))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i 	Err	bitreich.org	70
i ;; This is function called when running the tool	Err	bitreich.org	70
.