From 52203a49aa544b2c11c96445d8732893160c436b Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@bien.ee>
Date: Tue, 19 Apr 2022 17:50:19 +0300
Subject: WIP #16

Pretty much done. Needs more testing. And new documentation.
---
 src/clarktown/renderers/inline_code.clj | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 src/clarktown/renderers/inline_code.clj

(limited to 'src/clarktown/renderers/inline_code.clj')

diff --git a/src/clarktown/renderers/inline_code.clj b/src/clarktown/renderers/inline_code.clj
new file mode 100644
index 0000000..29593a8
--- /dev/null
+++ b/src/clarktown/renderers/inline_code.clj
@@ -0,0 +1,21 @@
+(ns clarktown.renderers.inline-code
+  (:require
+    [clojure.string :as string]))
+
+
+(defn render
+  "Renders all occurring inline code."
+  [block _]
+  (loop [block block
+         matches (-> (re-seq #"\`.*?\`" block)
+                     distinct)]
+    (if (empty? matches)
+      block
+      (let [match (first matches)
+            value (-> (subs match 1 (- (count match) 1))
+                      (string/replace #"&" "&amp;")
+                      (string/replace #"<" "&lt;")
+                      (string/replace #">" "&gt;"))
+            replacement (str "<code>" value "</code>")]
+        (recur (string/replace block match replacement)
+               (drop 1 matches))))))
-- 
cgit v1.2.3