From 52203a49aa544b2c11c96445d8732893160c436b Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@bien.ee>
Date: Tue, 19 Apr 2022 17:50:19 +0300
Subject: WIP #16

Pretty much done. Needs more testing. And new documentation.
---
 src/clarktown/renderers/heading_block.clj | 44 +++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 src/clarktown/renderers/heading_block.clj

(limited to 'src/clarktown/renderers/heading_block.clj')

diff --git a/src/clarktown/renderers/heading_block.clj b/src/clarktown/renderers/heading_block.clj
new file mode 100644
index 0000000..f953d0a
--- /dev/null
+++ b/src/clarktown/renderers/heading_block.clj
@@ -0,0 +1,44 @@
+(ns clarktown.renderers.heading-block
+  (:require
+    [clojure.string :as string]
+    [clarktown.matchers.heading-block :as matcher]))
+
+
+(defn render-atx-heading
+  "Renders the hashbang heading block."
+  [block]
+  (let [single-line-block (-> (string/replace block #"\n" "")
+                              string/trim)
+        size (-> (string/split single-line-block #" ")
+                 first
+                 string/trim
+                 count)
+        value (->> (string/split single-line-block #" ")
+                   next
+                   (string/join " ")
+                   string/trim)]
+    (str "<h" size ">" value "</h" size ">")))
+
+
+(defn render-settext-heading
+  "Renders the settext heading block."
+  [block]
+  (let [lines (string/split-lines block)
+        value (->> (split-at (- (count lines) 1) lines)
+                   first
+                   (string/join "\n"))
+        h1? (= "=" (-> (last lines)
+                       string/trim
+                       (string/split #"")
+                       first))]
+    (if h1?
+      (str "<h1>" value "</h1>")
+      (str "<h2>" value "</h2>"))))
+
+
+(defn render
+  "Renders the heading block."
+  [block _]
+  (if (matcher/is-atx-heading? block)
+    (render-atx-heading block)
+    (render-settext-heading block)))
-- 
cgit v1.2.3