Implement indented code blocks.

1 files changed, 17 insertions, 0 deletions

diff --git a/src/clarktown/renderers/indented_code_block.clj b/src/clarktown/renderers/indented_code_block.clj
new file mode 100644
index 0000000..b3828ec
--- /dev/null
+++ b/src/clarktown/renderers/indented_code_block.clj
@@ -0,0 +1,17 @@
+(ns clarktown.renderers.indented-code-block
+  (:require
+    [clojure.string :as string]))
+
+
+(defn render
+  "Renders the indented code block."
+  [block _ _]
+  (str
+    "<pre><code>"
+    (-> (->> (string/split-lines block)
+             (map #(subs % 4))
+             (string/join \newline))
+        (string/replace #"&" "&amp;")
+        (string/replace #"<" "&lt;")
+        (string/replace #">" "&gt;"))
+    "</code></pre>"))
\ No newline at end of file