output of tag list in gopher export is now nicer - 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 10812b6e84c471e0b76cdb6ea4f5df420365eb36
DIR parent b70cc28e578b4ce432d7e81dab33b60eb118ccaf
HTML Author: solene rapenne <solene@dataswamp.org>
Date: Thu, 11 Aug 2016 15:57:26 +0200
output of tag list in gopher export is now nicer
Diffstat:
M generator.lisp | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
---
DIR diff --git 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)