Add bold parser

2 files changed, 21 insertions, 1 deletions

diff --git a/src/clarktown/core.clj b/src/clarktown/core.clj
index 436b782..f9f82e4 100644
--- a/src/clarktown/core.clj
+++ b/src/clarktown/core.clj
@@ -1,6 +1,7 @@
 (ns clarktown.core
   (:require
     [clojure.string :as string]
+    [clarktown.parsers.bold :as bold]
     [clarktown.parsers.empty-block :as empty-block]
     [clarktown.parsers.heading-block :as heading-block]))
 
@@ -9,7 +10,8 @@
   [{:matcher empty-block/is?
     :renderers [empty-block/render]}
    {:matcher heading-block/is?
-    :renderers [heading-block/render]}])
+    :renderers [bold/render
+                heading-block/render]}])
 
 
 (defn find-parser-by-block
diff --git a/src/clarktown/parsers/bold.clj b/src/clarktown/parsers/bold.clj
new file mode 100644
index 0000000..5840a6e
--- /dev/null
+++ b/src/clarktown/parsers/bold.clj
@@ -0,0 +1,18 @@
+(ns clarktown.parsers.bold
+  (:require
+    [clojure.string :as string]))
+
+
+(defn render
+  "Renders all occuring bold text as bold."
+  [block]
+  (loop [block block
+         matches (-> (re-seq #"\*\*.*?\*\*" block)
+                     distinct)]
+    (if (empty? matches)
+      block
+      (let [match (first matches)
+            value (subs match 2 (- (count match) 2))
+            replacement (str "<strong>" value "</strong>")]
+        (recur (string/replace block match replacement)
+               (drop 1 matches))))))