Clojure Is Awesome!!! [PART 4]

(ns monostate) (def ^:private session-state (atom {:user-id nil :permissions #{} :last-access nil})) (defn start-session "Starts a new user session with ID and permissions." [user-id permissions] (reset! session-state {:user-id user-id :permissions permissions :last-access (java.time.Instant/now)})) (defn end-session "Ends the session, resetting the state to default values." [] (reset! session-state {:user-id nil :permissions #{} :last-access nil})) (defn update-last-access "Updates the last access timestamp to the current time." [] (swap! session-state assoc :last-access (java.time.Instant/now))) (defn get-session "Retrieves the complete state of the current session." [] @session-state) (defn has-permission? "Checks if the user has a specific permission." [permission] (contains? (:permissions @session-state) permission)) (comment (start-session "user-123" #{"read" "write"}) ;; => {:user-id "user-123", :permissions #{"read" "write"}, :last-access <timestamp>} (has-permission? "read") ;; => true (has-permission? "delete") ;; => false (update-last-access) (get-session) ;; => {:user-id "user-123", :permissions #{"read" "write"}, :last-access <new-timestamp>} (end-session) ;; => {:user-id nil, :permissions #{}, :last-access nil} )