From e3aee2b049c46599b3e8f7552bd33ea162e485ab Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 9 Apr 2012 15:05:27 +0200 Subject: Add Lafargue subsite (lazy chat functionality). --- src/mulk/benki/util.clj | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'src/mulk/benki/util.clj') diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj index 505c637..cb0ffde 100644 --- a/src/mulk/benki/util.clj +++ b/src/mulk/benki/util.clj @@ -9,7 +9,10 @@ [clojure.java.jdbc :as sql]) (:import [java.text DateFormat] [java.security SecureRandom] - [java.math BigInteger])) + [java.math BigInteger] + [org.jsoup Jsoup] + [org.jsoup.safety Cleaner Whitelist] + [org.pegdown PegDownProcessor])) (def fmt clojure.pprint/cl-format) @@ -54,10 +57,12 @@ (defn linkrel [& args] (match [(vec args)] [[:login]] (fmt nil "/login") + [[:home]] (fmt nil "/") [[:marx]] (fmt nil "/marx") [[:marx :submit]] (fmt nil "/marx/submit") [[:marx :feed]] (fmt nil "/marx/feed") [[:marx id]] (fmt nil "/marx/~a" id) + [[:lafargue :post]] (fmt nil "/lafargue/post") [[:wiki title & xs]] (fmt nil "/wiki/~a~@[~a~]" title (first xs)) )) @@ -87,3 +92,13 @@ (defn genkey [] ;;(.toString (BigInteger. 260 secure-random) 32) (BigInteger. 260 secure-random)) + + +;;;; * User input +(defonce pegdown (PegDownProcessor.)) + +(defn markdown->html [markdown] + (.markdownToHtml pegdown markdown)) + +(defn sanitize-html [html] + (Jsoup/clean html (Whitelist/basic))) -- cgit v1.2.3