RESTful state machines

statemachine.clj

(defn update [state event-name]
  ;; current state id | event-name | action
  ;; 
  (match [(:status state) event-name]

         [:waiting :prepare] #(assoc state :foo f3)
         [:ready :delete] #(assoc state :bar 19)
         [_ _] (throw (ex-info "Boom: roasted" {:reason :invalid-transition :event-name event-name}))
))

(def s (atom {}))

(defn handler [req]
  
  (swap! s update http-method arg)
  )



GET /checkin-process/1 ;; returns current state
POST /checkin=process/1/event ;; changes state (or error)

{:event checkin
 :ticket-num 1234}