From 7c3eba77fd3de0e108efba94018233a57e66989e Mon Sep 17 00:00:00 2001
From: Asko Nõmm <ano@ano.ee>
Date: Wed, 11 May 2022 20:42:30 +0300
Subject: Implement indented code blocks.

---
 src/clarktown/renderers/indented_code_block.clj | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 src/clarktown/renderers/indented_code_block.clj

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

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
-- 
cgit v1.2.3