tickets.clj

(ns liberator.gist
  (:use [liberator.core :only [defresource request-method-in]]
        [compojure.core :only [defroutes ANY]]
        [ring.adapter.jetty :only [run-jetty]]))

(defn create-new-ticket []
  ;; create the ticket, and return the url
  "/tickets/new")

(defn get-all-tickets []
  ;; load all of the tickets
  "all tickets")

;; define the tickets resource, which handles the GET and the POST requests
(defresource tickets-resource
  :method-allowed? (request-method-in :get :post)

  ;; I'm only using text/plain here for the example - this should probably be JSON/XML/etc
  :available-media-types ["text/plain"]
  
  :post! (fn [context]
           (let [url (create-new-ticket)]
             ;; returning a map from post! adds the :new-ticket-url to the context
             {:new-ticket-url url}))
  :post-redirect? true
  :see-other (fn [context]
               ;; we just retrieve the :new-ticket-url that we put in the context, and return it
               ;; Liberator handles the rest!
               (:new-ticket-url context))
  
  ;; handle-ok handles the GET requests
  :handle-ok (fn [context] (get-all-tickets)))

;; attach the resource to a route (this is Compojure, you can also use Moustache)
(defroutes routes
  (ANY "/tickets" [] tickets-resource))

;; run the jetty server
(run-jetty #'routes {:port 3000})