blob: 0bfe5e93b9cc86f64c03c485bfe9ac31018c5217 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
(ns mulk.benki.util
(:refer-clojure)
(:use [hiccup core page-helpers]
[clojure.core.match :only [match]]
noir.core
[mulk.benki config])
(:require [noir.session :as session]
[noir.request :as request]
[noir.response :as response]
[clojure.java.jdbc :as sql])
(:import [java.text DateFormat]
[java.security SecureRandom]
[java.math BigInteger]
[org.jsoup Jsoup]
[org.jsoup.safety Cleaner Whitelist]
[org.pegdown PegDownProcessor]))
(def fmt clojure.pprint/cl-format)
(def ^:dynamic *user*)
(def ^:dynamic *client-cert*)
(defonce #^:private finished-initializations (atom #{}))
(defmacro do-once [key & body]
`(while (not (@(deref #'finished-initializations) key))
(let [fininit-copy# @(deref #'finished-initializations)]
(when (compare-and-set! (deref #'finished-initializations)
fininit-copy#
(conj fininit-copy# key))
(do ~@body)))))
;; defpartial is just defn + html.
(defpartial layout [kind title & content]
(html5 {:xml? true}
[:head {:data-logged-in (if *user* "true" "false"),
:data-websocket-base (:websocket-base @benki-config)}
[:title title]
;; jQuery
[:script {:type "text/javascript"
:src (resolve-uri "/3rdparty/jquery/jquery-1.7.min.js")}]
[:script {:type "text/javascript"
:src (resolve-uri "https://browserid.org/include.js")}]
[:script {:type "text/javascript"
:src (resolve-uri "/js/browserid.js")}]
[:link {:type "text/css"
:rel "stylesheet"
:href (resolve-uri "/style/benki.css")}]
[:meta {:content "initial-scale=1.0, width=device-width"
:name "viewport"}]
(:head kind)]
[:body [:h1 title]
content
(:bottom kind)]))
(defn linkrel [& args]
(match [(vec args)]
[[:login]] (str (:cert-req-base @benki-config) "/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]] (fmt nil "/lafargue")
[[:lafargue :feed]] (fmt nil "/lafargue/feed")
[[:lafargue :post]] (fmt nil "/lafargue/post")
[[:wiki title & xs]] (fmt nil "/wiki/~a~@[~a~]" title (first xs))
))
(defn link [& args]
(resolve-uri (apply linkrel args)))
(defn call-with-auth [thunk]
(if *user*
(thunk)
(do (session/flash-put! (str (:uri (request/ring-request))
(if-let [q (:query-string (request/ring-request))]
(str "?" q)
"")))
(response/redirect "/login"))))
(defmacro with-auth [& body]
`(call-with-auth (fn [] ~@body)))
(defn redirect [x]
{:status 302, :headers {"Location" x}, :body ""})
(defn format-date [x]
(.format (DateFormat/getDateTimeInstance DateFormat/FULL DateFormat/FULL)
x))
(defonce secure-random (SecureRandom.))
(defn genkey []
;;(.toString (BigInteger. 260 secure-random) 32)
(BigInteger. 260 secure-random))
;;;; * User input
(def pegdown (PegDownProcessor.
(bit-or org.pegdown.Extensions/SMARTYPANTS
org.pegdown.Extensions/ABBREVIATIONS
org.pegdown.Extensions/HARDWRAPS
org.pegdown.Extensions/TABLES
org.pegdown.Extensions/AUTOLINKS
org.pegdown.Extensions/DEFINITIONS
org.pegdown.Extensions/FENCED_CODE_BLOCKS)))
(def markdown (PegDownProcessor.))
(defn markdown->html [markdown]
(.markdownToHtml pegdown markdown))
(defn sanitize-html [html]
(Jsoup/clean html (Whitelist/basic)))
|