diff options
| author | Asko Nõmm <84135165+askonomm@users.noreply.github.com> | 2022-04-30 12:12:28 +0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-04-30 12:12:28 +0300 |
| commit | faf11bf88b598d55f81899784c7c16e32a8d415d (patch) | |
| tree | 287468b35b2815a7164225883669e070bde39b63 /src/clarktown/renderers/heading_block.clj | |
| parent | d6e39c016e16b60b85b60898e93eda8d2c6f00db (diff) | |
| parent | ee7ab7fd1163a1a8444e16017793eb32a0eb08ee (diff) | |
Merge pull request #25 from askonomm/issue-22
Improve ATX heading blocks
Diffstat (limited to 'src/clarktown/renderers/heading_block.clj')
| -rw-r--r-- | src/clarktown/renderers/heading_block.clj | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/src/clarktown/renderers/heading_block.clj b/src/clarktown/renderers/heading_block.clj index 4da9bda..7f4c7de 100644 --- a/src/clarktown/renderers/heading_block.clj +++ b/src/clarktown/renderers/heading_block.clj @@ -7,8 +7,7 @@ (defn render-atx-heading "Renders the hashbang heading block." [block] - (let [single-line-block (-> (string/replace block #"\n" "") - string/trim) + (let [single-line-block (string/trim block) size (-> (string/split single-line-block #" ") first string/trim @@ -39,6 +38,10 @@ (defn render "Renders the heading block." [block _ _] - (if (matcher/is-atx-heading? block) - (render-atx-heading block) - (render-settext-heading block))) + (cond (matcher/is-atx-heading? block) + (render-atx-heading block) + + (matcher/is-settext-heading? block) + (render-settext-heading block) + + :else block)) |