commit 10812b6e84c471e0b76cdb6ea4f5df420365eb36 solene rapenne <solene@dataswamp.org> 2016-08-11 15:57:26 +0200 output of tag list in gopher export is now nicer
generator.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/generator.lisp b/generator.lisp index 8742edf..9e1c1ee 100644 --- a/generator.lisp +++ b/generator.lisp @@ -179,10 +179,10 @@ (dolist (article *articles*) (setf output (concatenate 'string output - (format nil "~a by ~a tagged (~a) ~%0~a /article-~d.txt ~a ~a~%~%" + (format nil "~a by ~a (~a) ~%0~a /article-~d.txt ~a ~a~%~%" (getf article :date) (getf article :author (getf *config* :webmaster)) - (getf article :tag) + (format nil "~{#~a ~}" (split-str (getf article :tag))) (getf article :title) (getf article :id) (getf *config* :gopher-server)