summaryrefslogtreecommitdiff
path: root/journal-content.lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-12-16 14:48:08 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-12-16 14:48:08 +0100
commite58ee3a36ba9491bd777f9cf19b9067c8695af1f (patch)
tree4089972218ead0d42f3484d071c5381ad131526f /journal-content.lisp
parentb455cae0cd4336448e787d6cc5d61ee1943677cc (diff)
Remove spurious line breaks from preformatted blocks.
darcs-hash:b82dbd2f9b53f02e6f5279b1dc513e6f58e4c0b5
Diffstat (limited to 'journal-content.lisp')
-rw-r--r--journal-content.lisp3
1 files changed, 2 insertions, 1 deletions
diff --git a/journal-content.lisp b/journal-content.lisp
index 630599e..f74a45f 100644
--- a/journal-content.lisp
+++ b/journal-content.lisp
@@ -235,7 +235,8 @@
;; CLISP/Markdown hack, because Markdown's default
;; *OUTPUT-STREAM* seems to spontaneously close itself, making
;; everything break when Markdown tries to render more stuff.
- (markdown markup :stream s)))))))
+ (markdown (remove #\Return markup) ;<pre/> treats CR, LF as two line breaks. Ouch.
+ :stream s)))))))
(defun compute-journal-last-modified-date ()