Man, clojure is terse

gistfile1.clj

(def get-event-action [table event current-state]
  (let [identity (fn [o _] o)]
    (get-in table [current-state event] identity)))

(def player-state-table
  {:spawning {:timeout       go-running }

   :running  {:button        go-jump
              :fall-off      go-fall }

   :falling  {:out-of-bounds go-die
              :button        go-jump
              :landed        go-running }

   :jumping  {:button        go-double-jump }
   :dieing   {:timeout       go-quit}})