diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/mulk/benki/lazychat.clj | 72 | ||||
| -rw-r--r-- | src/mulk/benki/util.clj | 2 |
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)) )) |