 
 (dispatch/react-to #{:documents-changed}
                    (fn [_ d]
-                     (local/set-item "docs" d)))
+                     (local/set-item! "docs" d)))
 
 (defn uuid []
   (let [chars "0123456789abcdef"

    (fn document [command & args]
      (condp = command
        :set! (let [[k v] args]
                (swap! state assoc k v))
        :get  (let [[key] args]
                (@state key))))))



(defn now [] (.getTime (js/Date.)))

(defn session [{:keys [who id content title mode cursor born]}]
  (let [state   (atom {})
        watch   (add-watch state :document-state-key
                           (fn [k r o n]
                             (swap! docs assoc (:id n) n)))
        init    (swap! state assoc
                       :who who
