summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-02-29 09:47:09 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-02-29 09:47:09 +0100
commitc36256cb55640fbe452198831cb21cdeb4c570b9 (patch)
treecdc8b966e2fa0b9df3d7927f5801616e00619d45 /src
parentc6e3977aed02aac11d457fabb587ee3c15a16980 (diff)
Book Marx: Support simple list syntax in descriptions.
Diffstat (limited to 'src')
-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