summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/mulk/benki/lazychat.clj72
-rw-r--r--src/mulk/benki/util.clj2
2 files changed, 60 insertions, 14 deletions
diff --git a/src/mulk/benki/lazychat.clj b/src/mulk/benki/lazychat.clj
index 7546f45..189b562 100644
--- a/src/mulk/benki/lazychat.clj
+++ b/src/mulk/benki/lazychat.clj
@@ -18,6 +18,8 @@
(:import [org.apache.abdera Abdera]))
+(defonce abdera (Abdera.))
+
(defn create-lazychat-message! [{content :content, visibility :visibility
format :format, targets :targets,
referees :referees, id :id}]
@@ -74,6 +76,23 @@
:href (resolve-uri "/style/lafargue.css")
:type "text/css"}])})
+(defmacro with-messages-visible-by-user [[messages user] & body]
+ `(sql/with-query-results ~messages
+ ["SELECT m.id, m.author, m.date, m.content, m.format, u.first_name, u.last_name
+ FROM lazychat_messages m
+ JOIN users u ON (author = u.id)
+ WHERE (visibility = 'public'
+ OR (visibility = 'protected' AND (?::INTEGER) IS NOT NULL)
+ OR (visibility = 'personal'
+ AND EXISTS (SELECT *
+ FROM lazychat_targets t
+ WHERE t.target = (?::INTEGER)
+ AND message = m.id)))
+ ORDER BY m.date DESC"
+ ~user ~user]
+ ~@body))
+
+
(defpage "/lafargue" {}
(with-dbt
(layout lafargue-list-page "Lafargue Lazy Chat"
@@ -90,19 +109,7 @@
[:input {:type "radio", :name "visibility", :value "public"} "Public"]]
[:div [:input {:type "submit"}]]]]
[:ul {:class "lafargue-list"}
- (sql/with-query-results messages
- ["SELECT m.id, m.author, m.date, m.content, m.format, u.first_name, u.last_name
- FROM lazychat_messages m
- JOIN users u ON (author = u.id)
- WHERE (visibility = 'public'
- OR (visibility = 'protected' AND (?::INTEGER) IS NOT NULL)
- OR (visibility = 'personal'
- AND EXISTS (SELECT *
- FROM lazychat_targets t
- WHERE t.target = (?::INTEGER)
- AND message = m.id)))
- ORDER BY m.date DESC"
- *user* *user*]
+ (with-messages-visible-by-user [messages *user*]
(doall
(for [message messages]
[:li {:class "lafargue-message"}
@@ -113,8 +120,45 @@
[:span {:class "lafargue-message-owner"}
" by " (escape-html (:first_name message))]]
[:div {:class "lafargue-message-body"}
- (sanitize-html (markdown->html (:content message)))]])))]])))
+ (sanitize-html (markdown->html (:content message)))]])))
+ [:div {:id "lafargue-footer"}
+ (let [feed-link (linkrel :lafargue :feed)]
+ [:span {:id "lafargue-footer-text"}
+ "[" [:a {:href (resolve-uri feed-link)} "Atom"] "]"
+ (when *user*
+ (list
+ " [" [:a {:href (resolve-uri (authlink feed-link))} "Atom auth"] "]"
+ " [" [:a {:href (authlink (:uri (request/ring-request)))} "authlink"] "]"))])]]])))
+
+
+(defn lazychat-feed-for-user [user]
+ (with-dbt
+ (with-messages-visible-by-user [messages user]
+ (let [last-updated (sql/with-query-results results
+ ["SELECT MAX(date) AS maxdate FROM lazychat_messages"]
+ (:maxdate (first results)))
+ feed (doto (.newFeed abdera)
+ (.setId (fmt nil "tag:~A,2012:/lafargue"
+ (:tag-base @benki-config)))
+ (.setTitle "Lafargue Lazy Chat")
+ (.setUpdated last-updated)
+ (.addLink (link :lafargue)))]
+ (doseq [item messages]
+ (doto (.addEntry feed)
+ (.setId (fmt nil "tag:~A,2012:/lafargue/~D"
+ (:tag-base benki-config)
+ (:id item)))
+ (.setSummaryAsHtml (sanitize-html (markdown->html (:content item))))
+ (.setPublished (:date item))
+ ;;(.setAuthor (fmt nil "~A ~A" (:first_name item) (:last_name item)))
+ ;;(.addLink (link :lafargue (:id item)))
+ ))
+ (.toString feed)))))
+
+(defpage "/lafargue/feed" {}
+ (response/content-type "application/atom+xml; charset=UTF-8"
+ (lazychat-feed-for-user *user*)))
(defpage [:any "/lafargue/post"] {content :content, visibility :visibility
format :format, targets :targets,
diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj
index cb0ffde..478fac3 100644
--- a/src/mulk/benki/util.clj
+++ b/src/mulk/benki/util.clj
@@ -62,6 +62,8 @@
[[: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))
))