From: Frank Duncan <frank@consxy.com>
Date: Fri, 14 Jan 2022 15:18:15 +0000 (-0600)
Subject: Fix bug where multiline paragraphs weren't handled correction
X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=commitdiff_plain;h=b9834e11fc72e7291d4b17323adf60e833d26e11;p=honey

Fix bug where multiline paragraphs weren't handled correction
---

diff --git a/src/main/parse.lisp b/src/main/parse.lisp
index 61f37e8..45fa179 100644
--- a/src/main/parse.lisp
+++ b/src/main/parse.lisp
@@ -139,7 +139,11 @@ DESCRIPTION:
    ((textp prev) (values (p prev) t)))))
 
 (defun default (text)
- (lambda (prev) (declare (ignore prev)) text))
+ (lambda (prev)
+  (if
+   (textp prev)
+   (values (as-text (format nil "~A ~A" (cadr prev) (cadr text))) t)
+   text)))
 
 (defun codefence (codetype)
  (lambda (prev)