Allow an ATX heading block to precede with up to 3 spaces

2 files changed, 15 insertions, 2 deletions

diff --git a/src/clarktown/matchers/heading_block.clj b/src/clarktown/matchers/heading_block.clj
index 1a9a451..7cf931d 100644
--- a/src/clarktown/matchers/heading_block.clj
+++ b/src/clarktown/matchers/heading_block.clj
@@ -6,7 +6,7 @@
 (defn is-atx-heading?
   "Determines whether the given block is a atx heading."
   [block]
-  (re-matches #"^\#{1,6}\s.*" block))
+  (re-matches #"^\s{0,3}?\#{1,6}\s.*" block))
 
 
 (defn is-settext-heading?
diff --git a/test/clarktown/renderers/heading_block_test.clj b/test/clarktown/renderers/heading_block_test.clj
index 7647b53..8f229fb 100644
--- a/test/clarktown/renderers/heading_block_test.clj
+++ b/test/clarktown/renderers/heading_block_test.clj
@@ -35,7 +35,20 @@
   
   (testing "No H tag when there is no space between # characters and value"
     (is (= "#This is not a heading block."
-           (heading-block/render "#This is not a heading block." nil nil)))))
+           (heading-block/render "#This is not a heading block." nil nil))))
+  
+  (testing "ATX heading can precede up to 3 spaces"
+    (is (= "<h1>This is a heading.</h1>"
+           (heading-block/render " # This is a heading." nil nil)))
+    (is (= "<h1>This is a heading.</h1>"
+           (heading-block/render "  # This is a heading." nil nil)))
+    (is (= "<h1>This is a heading.</h1>"
+           (heading-block/render "   # This is a heading." nil nil))))
+  
+  (testing "But no more than 3 spaces"
+    (is (= "    # This is a heading."
+           (heading-block/render "    # This is a heading." nil nil)))))    
+    
 
 
 (deftest settext-heading-renderer-text