From 3099a0f7cc132a15c4ea1114937c34c07f751318 Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@bien.ee>
Date: Sat, 4 Dec 2021 18:00:15 -0300
Subject: Add fallback rendering (used for paragraphs)

---
 src/clarktown/core.clj | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'src/clarktown/core.clj')

diff --git a/src/clarktown/core.clj b/src/clarktown/core.clj
index be59a00..7cf1e54 100644
--- a/src/clarktown/core.clj
+++ b/src/clarktown/core.clj
@@ -7,18 +7,27 @@
     [clarktown.parsers.strikethrough :as strikethrough]
     [clarktown.parsers.link-and-image :as link-and-image]
     [clarktown.parsers.empty-block :as empty-block]
+    [clarktown.parsers.horizontal-line-block :as horizontal-line-block]
     [clarktown.parsers.heading-block :as heading-block]))
 
 
 (def default-parsers
   [{:matcher empty-block/is?
     :renderers [empty-block/render]}
+   {:matcher horizontal-line-block/is?
+    :renderers [horizontal-line-block/render]}
    {:matcher heading-block/is?
     :renderers [bold/render
                 italic/render
                 inline-code/render
                 strikethrough/render
-                heading-block/render]}])
+                link-and-image/render
+                heading-block/render]}
+   {:renderers [bold/render
+                italic/render
+                inline-code/render
+                strikethrough/render
+                link-and-image/render]}])
 
 
 (defn- stitch-code-blocks
@@ -108,7 +117,6 @@
   [markdown parsers]
   (let [blocks (-> (string/split markdown #"\n\n")
                    stitch-code-blocks)
-        _ (prn (for [block blocks] (do (prn block) (prn ""))))
         parsed-blocks (parse-blocks blocks parsers)]
     (string/join "" parsed-blocks)))
 
-- 
cgit v1.2.3