Timed Clojure thingy

anonymous-gist.clj

(def ^:private credentials-status-atom (atom nil))

(defn- credentials-status []
  (when-not @credentials-status-atom
    (reset! credentials-status-atom
            {:status "awaiting_mobile_bankid_authentication"})
    (future
      (Thread/sleep 3000)
      (reset! credentials-status-atom {:status "updating"}))
    (future
      (Thread/sleep 6000)
      (reset! credentials-status-atom {:status "updated"}))
    ;; Reset the atom to nil after 2 seconds of `updated` to give test clients
    ;; some time to react to the status change.
    (future
      (Thread/sleep 8000)
      (reset! credentials-status-atom nil)))
  
  @credentials-status-atom)