clojure state machine

gistfile1.txt

state (atom :continue)
        ;;              state    event  new state
        state-machine {:continue {:pause :paused
                                  :halt :halting}
                       :paused {:resume :resuming
                                :halt :halting}
                       :resuming {:continue :continue}
                       :halting {:halt :halted}}

        step-state (fn [transition]
                     (swap! state #(get-in state-machine [% transition])))