From 2072d2730e0a7991bdf6474275f9fe9cd8fac182 Mon Sep 17 00:00:00 2001
From: Asko Nomm <asko@bien.ee>
Date: Wed, 6 Apr 2022 13:43:59 +0200
Subject: Fixes list blocks, which can now be of any depth and should work just
 fine.

---
 src/clarktown/parsers/ordered_list_block.clj | 25 -------------------------
 1 file changed, 25 deletions(-)
 delete mode 100644 src/clarktown/parsers/ordered_list_block.clj

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

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