From 994d94e660bb11369bed96ce93676f50fd3c2fe6 Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@bien.ee>
Date: Sat, 4 Dec 2021 17:33:47 -0300
Subject: Improve heading block renderer

---
 src/clarktown/parsers/heading_block.clj | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/clarktown')

diff --git a/src/clarktown/parsers/heading_block.clj b/src/clarktown/parsers/heading_block.clj
index 84483a0..1bc1faf 100644
--- a/src/clarktown/parsers/heading_block.clj
+++ b/src/clarktown/parsers/heading_block.clj
@@ -16,10 +16,10 @@
   [block]
   (let [single-line-block (-> (string/replace block #"\n" "")
                               string/trim)
-        size-indicators (-> (string/split single-line-block #" ")
-                            first
-                            string/trim)
-        size (count size-indicators)
+        size (-> (string/split single-line-block #" ")
+                 first
+                 string/trim
+                 count)
         value (->> (string/split single-line-block #" ")
                    next
                    (string/join " ")
-- 
cgit v1.2.3