From d8ea5093f7b757058f740496ee9762e15ed91bb5 Mon Sep 17 00:00:00 2001
From: cage <cage-invalid@invalid>
Date: Tue, 23 Jun 2020 16:21:26 +0200
Subject: [PATCH] - removed trim in preformatted text.

---
 src/gemini/gemini-parser.lisp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/gemini/gemini-parser.lisp b/src/gemini/gemini-parser.lisp
index 2e54c48..585b8da 100644
--- a/src/gemini/gemini-parser.lisp
+++ b/src/gemini/gemini-parser.lisp
@@ -51,7 +51,6 @@
                (list :pre
                      (list (list :alt (coerce (second a) 'string)))))))
 
-
 (defrule link-prefix (and "=>"
                           (* space))
   (:constant :a))
@@ -314,8 +313,7 @@
                       +quote-line-prefix+
                       (text-value node)))
              ((html-utils:tag= :pre node)
-              (princ (text-value node)
-                     stream))
+              (write-sequence (text-value node :trim nil) stream))
              ((html-utils:tag= :a node)
               (let ((link-name  (text-value node :trim nil))
                     (link-value (html-utils:attribute-value (html-utils:find-attribute :href