Skip to content

Instantly share code, notes, and snippets.

@spacepluk

spacepluk/actions.cljc

Created December 16, 2015 13:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save spacepluk/70a0e9fbd152073828ff to your computer and use it in GitHub Desktop.
Save spacepluk/70a0e9fbd152073828ff to your computer and use it in GitHub Desktop.
Download ZIP
Raw
actions.cljc
(defmethod action->events "new-session"
[action state]
(let [state (action->events {:action "stop-session"} state)
state (assoc state :session (session state (:params action)))
state (add-events state [(session-start state)])]
state))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment