diff options
Diffstat (limited to 'src/clarktown/parsers/ordered_list_block.clj')
| -rw-r--r-- | src/clarktown/parsers/ordered_list_block.clj | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/src/clarktown/parsers/ordered_list_block.clj b/src/clarktown/parsers/ordered_list_block.clj deleted file mode 100644 index 4dfaf38..0000000 --- a/src/clarktown/parsers/ordered_list_block.clj +++ /dev/null @@ -1,25 +0,0 @@ -(ns clarktown.parsers.ordered-list-block - (:require - [clojure.string :as string] - [clarktown.parser :as parser])) - - -(defn is? - "Determines whether we're dealing with a list block or not." - [block] - (re-matches #"(?s)^\d\..*$" (string/trim block))) - - -(defn render - "Renders the ordered list block" - [block parsers] - (loop [result "" - items (string/split-lines block)] - (if (empty? items) - (str "<ol>" result "</ol>") - (let [value (-> (first items) - (string/replace-first #"\d\." "") - string/trim - (parser/parse parsers))] - (recur (str result "<li>" value "</li>") - (drop 1 items)))))) |
