diff options
Diffstat (limited to 'src/clarktown/parsers/strikethrough.clj')
| -rw-r--r-- | src/clarktown/parsers/strikethrough.clj | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/src/clarktown/parsers/strikethrough.clj b/src/clarktown/parsers/strikethrough.clj deleted file mode 100644 index 6f03152..0000000 --- a/src/clarktown/parsers/strikethrough.clj +++ /dev/null @@ -1,18 +0,0 @@ -(ns clarktown.parsers.strikethrough - (:require - [clojure.string :as string])) - - -(defn render - "Renders all occurring strikethrough text." - [block _] - (loop [block block - matches (-> (re-seq #"~~.*?~~" block) - distinct)] - (if (empty? matches) - block - (let [match (first matches) - value (subs match 2 (- (count match) 2)) - replacement (str "<del>" value "</del>")] - (recur (string/replace block match replacement) - (drop 1 matches)))))) |