Skip to content

Instantly share code, notes, and snippets.

@christianberg
Created June 9, 2010 15:28
Show Gist options
  • Save christianberg/431645 to your computer and use it in GitHub Desktop.
Save christianberg/431645 to your computer and use it in GitHub Desktop.
(defn login
([email] (login email false))
([email admin?] (swap! login-info merge {:email email
:logged-in? true
:admin? admin?})))
(defn logout []
(swap! login-info merge {:email ""
:logged-in? false
:admin? false}))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment