summaryrefslogtreecommitdiff
path: root/src/clarktown/parsers/quote_block.clj
diff options
context:
space:
mode:
Diffstat (limited to 'src/clarktown/parsers/quote_block.clj')
-rw-r--r--src/clarktown/parsers/quote_block.clj24
1 files changed, 0 insertions, 24 deletions
diff --git a/src/clarktown/parsers/quote_block.clj b/src/clarktown/parsers/quote_block.clj
deleted file mode 100644
index ff2dda8..0000000
--- a/src/clarktown/parsers/quote_block.clj
+++ /dev/null
@@ -1,24 +0,0 @@
-(ns clarktown.parsers.quote-block
- (:require
- [clojure.string :as string]
- [clarktown.parser :as parser]))
-
-
-(defn is?
- "Determines whether the given block is a quote block."
- [block]
- (-> (string/replace block #"\n" "")
- string/trim
- (string/starts-with? ">")))
-
-
-(defn render
- "Renders a quote block."
- [block parsers]
- (let [matches (re-seq #">.*" block)
- blocks (->> (for [match matches]
- (-> (subs match 1)
- string/trim))
- (string/join "\n"))
- block (parser/parse blocks parsers)]
- (str "<blockquote>" block "</blockquote>")))