diff options
Diffstat (limited to 'src/clarktown/engine.clj')
| -rw-r--r-- | src/clarktown/engine.clj | 8 |
1 files changed, 3 insertions, 5 deletions
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 |