shoutbox.clj

(ns shoutbox
  (:use compojure
        somnium.congomongo)) 

(mongo! :db "shoutbox")

(defn save-shout [s]
  (insert! :shouts 
    {:text s}))
    
(defn shout-div [s]
  [:div (s :text)])

(defn new-shout [s]
  (do (save-shout s)
    (redirect-to "/")))
    
(defn shouts-page []
  (html 
    (doctype :html4) 
    [:html 
      [:head 
        [:title "shoutbox"]] 
      [:body
        [:div#main
          (form-to [:post "/"] 
            (text-field :shout)
            (submit-button "shout it"))
          [:div#shouts 
            (map shout-div (fetch :shouts))]]]]))

(defroutes webservice
  (GET "/"
    (shouts-page))
  (POST "/"
    (new-shout (:shout params))))

(run-server {:port 8080} 
  "/*" (servlet webservice))