Naming improvements, code block matcher test

1 files changed, 23 insertions, 0 deletions

diff --git a/src/clarktown/renderers/fenced_code_block.clj b/src/clarktown/renderers/fenced_code_block.clj
new file mode 100644
index 0000000..905c061
--- /dev/null
+++ b/src/clarktown/renderers/fenced_code_block.clj
@@ -0,0 +1,23 @@
+(ns clarktown.renderers.fenced-code-block
+  (:require
+    [clojure.string :as string]))
+
+
+(defn render
+  "Renders the code block."
+  [block _ _]
+  (let [language (->> block
+                      (re-find #"\`\`\`(\w+)")
+                      second)
+        lines (string/split-lines block)
+        block* (->> (next lines)
+                    (take (- (count lines) 2))
+                    (string/join \newline))
+        code (-> block*
+                 (string/replace #"&" "&")
+                 (string/replace #"<" "&lt;")
+                 (string/replace #">" "&gt;")
+                 string/trim)]
+    (if language
+      (str "<pre><code class=\"language-" language "\">" code "</code></pre>")
+      (str "<pre><code>" code "</code></pre>"))))