From b0475ce5581bcb396fda3685f92916597b320ab5 Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@bien.ee>
Date: Tue, 7 Dec 2021 22:21:25 -0300
Subject: Fix quote block

---
 src/clarktown/parsers/quote_block.clj | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'src/clarktown/parsers/quote_block.clj')

diff --git a/src/clarktown/parsers/quote_block.clj b/src/clarktown/parsers/quote_block.clj
index 8b9c997..ff2dda8 100644
--- a/src/clarktown/parsers/quote_block.clj
+++ b/src/clarktown/parsers/quote_block.clj
@@ -16,8 +16,9 @@
   "Renders a quote block."
   [block parsers]
   (let [matches (re-seq #">.*" block)
-        blocks (for [match matches]
-                  (-> (subs match 1)
-                      string/trim
-                      (parser/parse parsers)))]
-    (str "<blockquote>" (string/join "\n" blocks) "</blockquote>")))
+        blocks (->> (for [match matches]
+                      (-> (subs match 1)
+                          string/trim))
+                    (string/join "\n"))
+        block (parser/parse blocks parsers)]
+    (str "<blockquote>" block "</blockquote>")))
-- 
cgit v1.2.3