1 files changed, 29 insertions, 0 deletions
diff --git a/src/clarktown/parsers/code_block.clj b/src/clarktown/parsers/code_block.clj
new file mode 100644
index 0000000..9d41ae7
--- /dev/null
+++ b/src/clarktown/parsers/code_block.clj
@@ -0,0 +1,29 @@
+(ns clarktown.parsers.code-block
+  (:require
+    [clojure.string :as string]))
+
+
+(defn is?
+  "Determines whether or not we're dealing with a code block."
+  [block]
+  (and (string/starts-with? block "```")
+       (string/ends-with? block "```")))
+
+
+(defn render
+  "Renders the code block."
+  [block _]
+  (let [language (->> block
+                      (re-find #"\`\`\`(\w+)")
+                      second)
+        code (as-> block n
+                   (string/replace-first n #"\`\`\`(\w+)?\n" "")
+                   (subs n 0 (- (count n) 5))
+                   (string/replace n #"&" "&amp;")
+                   (string/replace n #"<" "&lt;")
+                   (string/replace n #">" "&gt;")
+                   (string/replace n #"\n" "<br>")
+                   (string/trim n))]
+    (if language
+      (str "<pre class=\"language-" language "\"><code>" code "</code></pre>")
+      (str "<pre><code>" code "</code></pre>"))))