WIP #16

Pretty much done. Needs more testing. And new documentation.

1 files changed, 18 insertions, 0 deletions

diff --git a/src/clarktown/renderers/bold.clj b/src/clarktown/renderers/bold.clj
new file mode 100644
index 0000000..1ce7f84
--- /dev/null
+++ b/src/clarktown/renderers/bold.clj
@@ -0,0 +1,18 @@
+(ns clarktown.renderers.bold
+  (:require
+    [clojure.string :as string]))
+
+
+(defn render
+  "Renders all occurring bold text as bold."
+  [block _]
+  (loop [block block
+         matches (-> (re-seq #"(\*{2}|\_{2})[^\*|\_](.*?)[^\*|\_](\*{2}|\_{2})" block)
+                     distinct)]
+    (if (empty? matches)
+      block
+      (let [match (ffirst matches)
+            value (subs match 2 (- (count match) 2))
+            replacement (str "<strong>" value "</strong>")]
+        (recur (string/replace block match replacement)
+               (drop 1 matches))))))