WIP #16

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

1 files changed, 27 insertions, 0 deletions

diff --git a/src/clarktown/renderers/link_and_image.clj b/src/clarktown/renderers/link_and_image.clj
new file mode 100644
index 0000000..ea4a006
--- /dev/null
+++ b/src/clarktown/renderers/link_and_image.clj
@@ -0,0 +1,27 @@
+(ns clarktown.renderers.link-and-image
+  (:require
+    [clojure.string :as string]))
+
+
+(defn encode-href
+  [href]
+  (-> href
+      (string/replace "_" "_")))
+
+
+(defn render
+  "Renders all occurring links and images."
+  [block _]
+  (loop [block block
+         matches (-> (re-seq #"\!?\[([a-zA-Z0-9\-\.\,]+( [a-zA-Z0-9\-\.\,]+)*)\]\((.*?)\)" block)
+                     distinct)]
+    (if (empty? matches)
+      block
+      (let [[whole-match label _ href] (first matches)
+            image? (string/starts-with? whole-match "!")
+            image (str "<img src=\"" (encode-href href) "\" alt=\"" label "\">")
+            link (str "<a href=\"" (encode-href href) "\">" label "</a>")]
+        (recur (if image?
+                 (string/replace block whole-match image)
+                 (string/replace block whole-match link))
+               (drop 1 matches))))))
\ No newline at end of file