summaryrefslogtreecommitdiff
path: root/src/clarktown/renderers/italic.clj
diff options
context:
space:
mode:
Diffstat (limited to 'src/clarktown/renderers/italic.clj')
-rw-r--r--src/clarktown/renderers/italic.clj18
1 files changed, 18 insertions, 0 deletions
diff --git a/src/clarktown/renderers/italic.clj b/src/clarktown/renderers/italic.clj
new file mode 100644
index 0000000..970364e
--- /dev/null
+++ b/src/clarktown/renderers/italic.clj
@@ -0,0 +1,18 @@
+(ns clarktown.renderers.italic
+ (:require
+ [clojure.string :as string]))
+
+
+(defn render
+ "Renders all occurring italic text as italic."
+ [block _ _]
+ (loop [block block
+ matches (-> (re-seq #"(\*{1,}?|\_{1,}?)(.*?)(\*{1,}?|\_{1,}?)" block)
+ distinct)]
+ (if (empty? matches)
+ block
+ (let [match (ffirst matches)
+ value (subs match 1 (- (count match) 1))
+ replacement (str "<em>" value "</em>")]
+ (recur (string/replace block match replacement)
+ (drop 1 matches))))))