From 8a5e868098005401ff7cba45ec50e9c6612550f4 Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@bien.ee>
Date: Sat, 4 Dec 2021 17:33:28 -0300
Subject: Add italic text renderer

---
 src/clarktown/parsers/italic.clj | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 src/clarktown/parsers/italic.clj

diff --git a/src/clarktown/parsers/italic.clj b/src/clarktown/parsers/italic.clj
new file mode 100644
index 0000000..5b90d12
--- /dev/null
+++ b/src/clarktown/parsers/italic.clj
@@ -0,0 +1,18 @@
+(ns clarktown.parsers.italic
+  (:require
+    [clojure.string :as string]))
+
+
+(defn render
+  "Renders all occuring italic text as italic."
+  [block]
+  (loop [block block
+         matches (-> (re-seq #"_.*?_" block)
+                     distinct)]
+    (if (empty? matches)
+      block
+      (let [match (first matches)
+            value (subs match 1 (- (count match) 1))
+            replacement (str "<em>" value "</em>")]
+        (recur (string/replace block match replacement)
+               (drop 1 matches))))))
-- 
cgit v1.2.3