summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/mulk/benki/lazychat.clj63
-rw-r--r--src/mulk/benki/util.clj6
2 files changed, 54 insertions, 15 deletions
diff --git a/src/mulk/benki/lazychat.clj b/src/mulk/benki/lazychat.clj
index 189b562..653475b 100644
--- a/src/mulk/benki/lazychat.clj
+++ b/src/mulk/benki/lazychat.clj
@@ -3,22 +3,30 @@
(:use [clojure repl]
[hiccup core page-helpers]
[noir core]
+ [noir-async core]
[mulk.benki auth config db util webutil]
;;
[clojure.core.match :only [match]]
[hiccup.core :only [escape-html]]
- [ring.util.codec :only [url-encode]])
+ [ring.util.codec :only [url-encode]]
+ [lamina.core :only [channel enqueue enqueue-and-close receive-all
+ map* filter*]])
(:require [clojure.algo.monads :as m]
[clojure.java.jdbc :as sql]
[clojure.string :as string]
[noir.request :as request]
[noir.response :as response]
[noir.session :as session]
- hiccup.core)
+ hiccup.core
+ [lamina.core :as lamina]
+ [aleph.http :as ahttp]
+ [aleph.formats :as aformats])
(:import [org.apache.abdera Abdera]))
(defonce abdera (Abdera.))
+(defonce lafargue-events (channel))
+
(defn create-lazychat-message! [{content :content, visibility :visibility
format :format, targets :targets,
@@ -42,7 +50,11 @@
(doseq [target targets]
(sql/insert-values :lazychat_targets
[:message :target]
- [id (int target)]))))))
+ [id (int target)]))
+ (enqueue lafargue-events
+ {content :content, visibility :visibility
+ format :format, targets :targets,
+ referees :referees, id :id})))))
(defn select-message [id]
(let [message (query1 "SELECT author, content, format, visibility, date
@@ -74,7 +86,9 @@
:type "text/css"}]
[:link {:rel "stylesheet"
:href (resolve-uri "/style/lafargue.css")
- :type "text/css"}])})
+ :type "text/css"}]
+ [:script {:src (resolve-uri "/js/lafargue.js")
+ :type "text/javascript"}])})
(defmacro with-messages-visible-by-user [[messages user] & body]
`(sql/with-query-results ~messages
@@ -93,6 +107,19 @@
~@body))
+(defn render-message [message]
+ (html
+ [:li {:class "lafargue-message"}
+ [:h2 {:class "lafargue-message-title"}]
+ [:p {:class "lafargue-message-date-and-owner"}
+ [:span {:class "lafargue-message-date"}
+ (escape-html (format-date (:date message)))]
+ [:span {:class "lafargue-message-owner"}
+ " by " (escape-html (:first_name message))]]
+ [:div {:class "lafargue-message-body"}
+ (sanitize-html (markdown->html (:content message)))]]))
+
+
(defpage "/lafargue" {}
(with-dbt
(layout lafargue-list-page "Lafargue Lazy Chat"
@@ -112,15 +139,7 @@
(with-messages-visible-by-user [messages *user*]
(doall
(for [message messages]
- [:li {:class "lafargue-message"}
- [:h2 {:class "lafargue-message-title"}]
- [:p {:class "lafargue-message-date-and-owner"}
- [:span {:class "lafargue-message-date"}
- (escape-html (format-date (:date message)))]
- [:span {:class "lafargue-message-owner"}
- " by " (escape-html (:first_name message))]]
- [:div {:class "lafargue-message-body"}
- (sanitize-html (markdown->html (:content message)))]])))
+ (render-message message))))
[:div {:id "lafargue-footer"}
(let [feed-link (linkrel :lafargue :feed)]
[:span {:id "lafargue-footer-text"}
@@ -160,6 +179,24 @@
(response/content-type "application/atom+xml; charset=UTF-8"
(lazychat-feed-for-user *user*)))
+(defpage-async "/lafargue/events" {} conn
+ (if (websocket? conn)
+ (let [messages (filter* #(may-read? *user* %) lafargue-events)]
+ (receive-all messages
+ (fn [msg]
+ (async-push conn (render-message msg)))))
+ {:status 418}))
+
+(defpage [:any "/lafargue/post"] {content :content, visibility :visibility
+ format :format, targets :targets,
+ referees :referees}
+ (with-auth
+ (create-lazychat-message! {:content content, :visibility visibility,
+ :format format, :targets targets,
+ :referees referees})
+ (redirect (referrer))))
+
+
(defpage [:any "/lafargue/post"] {content :content, visibility :visibility
format :format, targets :targets,
referees :referees}
diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj
index 478fac3..ee53a7e 100644
--- a/src/mulk/benki/util.clj
+++ b/src/mulk/benki/util.clj
@@ -2,7 +2,8 @@
(:refer-clojure)
(:use [hiccup core page-helpers]
[clojure.core.match :only [match]]
- noir.core)
+ noir.core
+ [mulk.benki config])
(:require [noir.session :as session]
[noir.request :as request]
[noir.response :as response]
@@ -35,7 +36,8 @@
;; defpartial is just defn + html.
(defpartial layout [kind title & content]
(html5 {:xml? true}
- [:head {:data-logged-in (if *user* "true" "false")}
+ [:head {:data-logged-in (if *user* "true" "false"),
+ :data-websocket-base (:websocket-base @benki-config)}
[:title title]
;; jQuery
[:script {:type "text/javascript"