src/clarktown/renderers/indented_code_block.clj


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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>"))