From 7c3eba77fd3de0e108efba94018233a57e66989e Mon Sep 17 00:00:00 2001 From: Asko Nõmm Date: Wed, 11 May 2022 20:42:30 +0300 Subject: Implement indented code blocks. --- src/clarktown/engine.clj | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'src/clarktown/engine.clj') diff --git a/src/clarktown/engine.clj b/src/clarktown/engine.clj index 5eb22d5..dc07e9f 100644 --- a/src/clarktown/engine.clj +++ b/src/clarktown/engine.clj @@ -70,7 +70,7 @@ (defn- remove-excess-newlines - "Replaces all occurences of 3 or more concecutive newlines into + "Replaces all occurrences of 3 or more consecutive newlines into two newlines." [markdown] (string/replace markdown #"\n{3,}" "\n\n")) @@ -133,10 +133,8 @@ [blocks given-parsers given-correctors] (for [block blocks] (if-let [parser (find-parser-by-block given-parsers block)] - (->> (string/trim block) - (parse-block-with-known-parser parser given-parsers given-correctors)) - (->> (string/trim block) - (parse-block-with-unknown-parsers given-parsers given-correctors))))) + (parse-block-with-known-parser parser given-parsers given-correctors block) + (parse-block-with-unknown-parsers given-parsers given-correctors block)))) (defn render -- cgit v1.2.3