 
 (defn mk-state
   [put-fn]
-  (atom initial-state))
+  (atom (initial-state)))
 
 (defn component
   [cmp-id]

(defn persist-settings
  [cmp-state]
  (reset! settings (select-keys @cmp-state persistent-settings)))

(defn correlate-sender-with-receiver
  "Matches message sent over a channel with a received one on the other and (by another component),

  (local-storage (atom {:message-limit 500
                        :message-filters #{}}) :settings))

(defn initial-state
  []
  {
   ;; List of messages captured. Oldest first. When messages are filtered, they are
   ;; removed/not stored here.
