diff options
| author | Asko Nomm <asko@bien.ee> | 2022-04-09 19:32:05 +0200 |
|---|---|---|
| committer | Asko Nomm <asko@bien.ee> | 2022-04-09 19:32:05 +0200 |
| commit | 9fae4b6dfabc7485a8a2debf108d8190761590f5 (patch) | |
| tree | f880342b263fd281850ba70b011ca5e13bb11360 /src/clarktown/parsers | |
| parent | aad4d251568125c7f3938237a8fc5d44552bbea1 (diff) | |
Fix #8: Links break textual checkboxes
Diffstat (limited to 'src/clarktown/parsers')
| -rw-r--r-- | src/clarktown/parsers/link_and_image.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/clarktown/parsers/link_and_image.clj b/src/clarktown/parsers/link_and_image.clj index dd8c9d0..3dbbac7 100644 --- a/src/clarktown/parsers/link_and_image.clj +++ b/src/clarktown/parsers/link_and_image.clj @@ -7,15 +7,15 @@ "Renders all occurring links and images." [block _] (loop [block block - matches (-> (re-seq #"\!?\[(.*?)\]\((.*?)\)" block) + matches (-> (re-seq #"\!?\[(\w+( \w+|\.|\,)*)\]\((.*?)\)" block) distinct)] (if (empty? matches) block - (let [[whole-match label href] (first matches) + (let [[whole-match label _ href] (first matches) image? (string/starts-with? whole-match "!") image (str "<img src=\"" href "\" alt=\"" label "\">") link (str "<a href=\"" href "\">" label "</a>")] (recur (if image? (string/replace block whole-match image) (string/replace block whole-match link)) - (drop 1 matches)))))) + (drop 1 matches))))))
\ No newline at end of file |