summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/mulk/benki/book_marx.clj13
1 files changed, 11 insertions, 2 deletions
diff --git a/src/mulk/benki/book_marx.clj b/src/mulk/benki/book_marx.clj
index 4dd328e..e5e8701 100644
--- a/src/mulk/benki/book_marx.clj
+++ b/src/mulk/benki/book_marx.clj
@@ -63,8 +63,17 @@
(defn htmlize-description [text]
- (let [input (escape-html text)]
- (map (fn [x] [:p {} x]) (string/split text #"\n\s*?\n"))))
+ (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 text #"\n\s*?\n")))))
(defn bookmarks-visible-by [user]
(-> bookmarks