fixing newline return for source, precisely for <pre> tag - 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 90c0b0856598602ac56d81dc055f3d17c31da061
DIR parent da8e0af550cd5a47d4fccc399636d47287b143dd
HTML Author: Solene Rapenne <solene@dataswamp.org>
Date: Tue, 3 May 2016 22:08:30 +0200
fixing newline return for source, precisely for <pre> tag
Diffstat:
M generator.lisp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
---
DIR diff --git a/generator.lisp b/generator.lisp
@@ -30,7 +30,7 @@
;; we have to remove the quotes
;; when using collect in a loop
(defun strip-quotes(input)
- (format nil "~{~d~}" input))
+ (format nil "~{~d~%~}" input))
;; load a file as a string
;; we escape ~ to avoid failures with format