From 842d64c8f02a7958e4201660b05f2c17cdd9b6dc Mon Sep 17 00:00:00 2001
From: Asko Nomm <asko@bien.ee>
Date: Thu, 7 Apr 2022 11:05:25 +0200
Subject: Add tests for bold text, and support using `__` for bold text
 creation as well (re #5)

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

(limited to 'src')

diff --git a/src/clarktown/parsers/bold.clj b/src/clarktown/parsers/bold.clj
index cc209e6..e672153 100644
--- a/src/clarktown/parsers/bold.clj
+++ b/src/clarktown/parsers/bold.clj
@@ -7,11 +7,11 @@
   "Renders all occurring bold text as bold."
   [block _]
   (loop [block block
-         matches (-> (re-seq #"\*\*.*?\*\*" block)
+         matches (-> (re-seq #"(\*{2}|\_{2})(.*?)(\*{2}|\_{2})" block)
                      distinct)]
     (if (empty? matches)
       block
-      (let [match (first matches)
+      (let [match (ffirst matches)
             value (subs match 2 (- (count match) 2))
             replacement (str "<strong>" value "</strong>")]
         (recur (string/replace block match replacement)
-- 
cgit v1.2.3