diff options
Diffstat (limited to 'src/mulk/benki/book_marx.clj')
| -rw-r--r-- | src/mulk/benki/book_marx.clj | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/src/mulk/benki/book_marx.clj b/src/mulk/benki/book_marx.clj index 61755c0..df5c2ad 100644 --- a/src/mulk/benki/book_marx.clj +++ b/src/mulk/benki/book_marx.clj @@ -59,18 +59,7 @@ -(defn htmlize-description [text] - (letfn [(listify [par] - (when (re-matches #"^(?msu)\s*\*\s+.*" par) - [:ul {} - (map (fn [item] [:li {} item]) - (filter #(not (= "" (string/trim %))) - (string/split par #"(?su)(\n|^)\s*\*\s+")))]))] - (let [input (escape-html text)] - (map (fn [par] - (or (listify par) - [:p {} par])) - (string/split input #"\n\s*?\n"))))) +(def htmlize-description (comp sanitize-html markdown->html)) (defn bookmarks-visible-by [user] (-> bookmarks |