From 16c151a6a88d0e68930f34cc4c863ce1fa77dff1 Mon Sep 17 00:00:00 2001
From: Lee Adams <lee@4d4ms.com>
Date: Sun, 29 Dec 2019 00:49:20 -0800
Subject: [PATCH] Don't consider indented blocks in a paragraph code blocks
 (#157)

---
 src/cljc/markdown/transformers.cljc |  5 ++++-
 test/markdown/md_test.cljc          | 12 ++++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/src/cljc/markdown/transformers.cljc b/src/cljc/markdown/transformers.cljc
index c3820fd..b50300f 100644
--- a/src/cljc/markdown/transformers.cljc
+++ b/src/cljc/markdown/transformers.cljc
@@ -162,7 +162,7 @@
 (defn paragraph [text state]
   (apply close-paragraph (open-paragraph text state)))
 
-(defn code [text {:keys [eof lists code codeblock] :as state}]
+(defn code [text {:keys [eof lists code codeblock paragraph] :as state}]
   (cond
     (or lists codeblock)
     [text state]
@@ -172,6 +172,9 @@
       [(str "</code></pre>" text) (dissoc state :indented-code :code :last-line-empty?)]
       [(str "\n" (escape-code (string/replace-first text #"    " ""))) state])
 
+    paragraph
+    [text state]
+
     (empty? (string/trim text))
     [text state]
 
diff --git a/test/markdown/md_test.cljc b/test/markdown/md_test.cljc
index 88caa71..29fb56f 100644
--- a/test/markdown/md_test.cljc
+++ b/test/markdown/md_test.cljc
@@ -193,6 +193,18 @@
 ```
 "))))
 
+(deftest indented-codeblock
+  (is (= "<pre><code>foo</code></pre>"
+         (entry-function "    foo")))
+  (is (= "<pre><code>foo</code></pre><p>bar</p>"
+         (entry-function "    foo\n\nbar")))
+  (is (= "<pre><code>foo</code></pre>bar"
+         (entry-function "    foo\nbar")))
+  (is (= "<p>baz     foo</p><p>bar</p>"
+         (entry-function "baz\n    foo\n\nbar")))
+  (is (= "<p><div class=\"grid-container\">   <div class=\"child1\">     <p>Element #1</p>   </div> </div></p>"
+         (entry-function "<div class=\"grid-container\">\n  <div class=\"child1\">\n    <p>Element #1</p>\n  </div>\n</div>"))))
+
 (deftest strikethrough
   (is (= "<p><del>foo</del></p>"
          (entry-function "~~foo~~"))))