From e58ee3a36ba9491bd777f9cf19b9067c8695af1f Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 16 Dec 2008 14:48:08 +0100
Subject: Remove spurious line breaks from preformatted blocks.

darcs-hash:b82dbd2f9b53f02e6f5279b1dc513e6f58e4c0b5
---
 journal-content.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'journal-content.lisp')

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 ()
-- 
cgit v1.2.3