sessions-create-atom.clj

(ns sessions)

(defn create-sessions
  "Initialize the session atom."
  []
  (atom []))

(defn put-session!
  "Insert a session into the sessions atom."
  [sessions session]
  (swap! sessions conj session))

(defn has-session?
  "Check if there are at least one session."
  [sessions]
  (not (empty? @sessions)))

(defn read-session
  "Read ALWAYS the first element of sessions. TO BE IMPROVED!"
  [sessions]
  (first @sessions))

(defn reset-session!
  "Reset the session atom."
  [sessions]
  (swap! sessions empty))

sessions-defonce.clj

(ns sessions)

(defonce sessions (atom []))

(defn put-session!
  "Insert a session into the sessions atom."
  [session]
  (swap! sessions conj session))

(defn has-session?
  "Check if there are at least one session."
  []
  (not (empty? @sessions)))

(defn read-session
  "Read ALWAYS the first element of sessions. TO BE IMPROVED!"
  []
  (first @sessions))

(defn reset-session!
  "Reset the session atom."
  []
  (swap! sessions empty))