From a1189f110940663ab7f1fe7e28459d53a71386a6 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Thu, 21 Jun 2012 12:18:27 +0200
Subject: Book Marx: Don't process bookmark descriptions using our own HTML
 transformer.  Use Pegdown instead.

---
 src/mulk/benki/book_marx.clj | 13 +------------
 1 file changed, 1 insertion(+), 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
-- 
cgit v1.2.3