 |
output of tag list in gopher export is now nicer - cl-yag - Common Lisp Yet Ano… |
 |
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit 10812b6e84c471e0b76cdb6ea4f5df420365eb36 |
|
parent b70cc28e578b4ce432d7e81dab33b60eb118ccaf |
|
Author: solene rapenne <[email protected]> |
|
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(-) |
|
--- |
|
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 … |
|
+ (format nil "~a by ~a (~a) ~%0~a /a… |
|
(getf article :date) |
|
(getf article :author (getf *confi… |
|
- (getf article :tag) |
|
+ (format nil "~{#~a ~}" (split-str … |
|
(getf article :title) |
|
(getf article :id) |
|
(getf *config* :gopher-server) |
