Introduction
Introduction Statistics Contact Development Disclaimer Help
gopher metadata was one-lined due to a regression - cl-yag - Common Lisp Yet An…
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws…
Log
Files
Refs
Tags
README
LICENSE
---
commit 929692a3001141f9e9350b888565c51b92851e10
parent f074e943bcf03b62ddee3273b075dc25dbe69904
Author: Solene Rapenne <[email protected]>
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(-)
---
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-fo…
- "Tags: " (article-tag article) "~%"
- "==========~%~%"
- (load-file (format nil "data/~d~d" id (conver…
+ (format nil "Title: ~a~%Author: ~a~%Date: ~a~%Tags: ~a…
+ (article-title article)
+ (article-author article)
+ (date-format (getf *config* :date-format) (ar…
+ (article-tag article)
+ (load-file (format nil "data/~d~d" id…
;; This is function called when running the tool
You are viewing proxied material from bitreich.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.