diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-04-10 11:16:13 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-04-10 11:16:13 +0200 |
| commit | 557332e37a7f615bafb767d8ba388c5a3a729944 (patch) | |
| tree | 2dd1a541a136b05ba0a5fa10997b4580e87cf9d6 /src/mulk/benki/lazychat.clj | |
| parent | 0691218f525e2546448613863c8bd684f80c297f (diff) | |
Lafargue: Add desktop notification feature for WebKit-based browsers.
Diffstat (limited to 'src/mulk/benki/lazychat.clj')
| -rw-r--r-- | src/mulk/benki/lazychat.clj | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/mulk/benki/lazychat.clj b/src/mulk/benki/lazychat.clj index 6865d01..e2caaf8 100644 --- a/src/mulk/benki/lazychat.clj +++ b/src/mulk/benki/lazychat.clj @@ -20,7 +20,8 @@ hiccup.core [lamina.core :as lamina] [aleph.http :as ahttp] - [aleph.formats :as aformats]) + [aleph.formats :as aformats] + [clojure.data.json :as json]) (:import [org.apache.abdera Abdera])) @@ -120,12 +121,17 @@ [:div {:class "lafargue-message-body"} (sanitize-html (markdown->html (:content message)))]])) +(defn render-message-as-json [message] + (json/json-str (assoc message + :html (render-message message) + :date nil))) + (defpage "/lafargue" {} (with-dbt (layout lafargue-list-page "Lafargue Lazy Chat" - [:div {:id "login-message" - :class "login-message"} + [:div {:id "notifications" + :class "notifications"} (login-message)] [:div [:div {:id "lafargue-main-input-box" :class "lafargue-input-box"} @@ -185,7 +191,7 @@ (let [messages (filter* #(may-read? *user* %) lafargue-events)] (receive-all messages (fn [msg] - (async-push conn (render-message msg))))) + (async-push conn (render-message-as-json msg))))) (async-push conn {:status 426}))) (defpage [:any "/lafargue/post"] {content :content, visibility :visibility |