From 52203a49aa544b2c11c96445d8732893160c436b Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@bien.ee>
Date: Tue, 19 Apr 2022 17:50:19 +0300
Subject: WIP #16

Pretty much done. Needs more testing. And new documentation.
---
 src/clarktown/parsers/code_block.clj | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100644 src/clarktown/parsers/code_block.clj

(limited to 'src/clarktown/parsers/code_block.clj')

diff --git a/src/clarktown/parsers/code_block.clj b/src/clarktown/parsers/code_block.clj
deleted file mode 100644
index c6ecfea..0000000
--- a/src/clarktown/parsers/code_block.clj
+++ /dev/null
@@ -1,30 +0,0 @@
-(ns clarktown.parsers.code-block
-  (:require
-    [clojure.string :as string]))
-
-
-(defn is?
-  "Determines whether 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)
-        lines (string/split-lines block)
-        block* (->> (next lines)
-                    (take (- (count lines) 2))
-                    (string/join \newline))
-        code (-> block*
-                 (string/replace #"&" "&amp;")
-                 (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>"))))
-- 
cgit v1.2.3