   (send [this edn ok err]
     (let [resp (server {} edn)]
       ; simulates a network delay:
-      (js/setTimeout #(ok resp) 300)))
+      (js/setTimeout #(ok resp) 700)))
   (start [this app]
     (assoc this :complete-app app)))
 
 (defcard-doc
   "# Quick Tour
 
-  Untangled is meant to be as simple as possible, but as Rich would tell you:
+  Untangled is meant to be as simple as possible, but as Rich Hickey would tell you:
   simple does not mean easy. Fortunately, hard vs. easy is something you can fix just by learning.
 
   Om Next (the lower layer of Untangled) takes a very progressive approach

                                                          :post-mutation 'add-counters-to-panel))
                        :networking (map->MockNetwork {}))
         {})

(def ui-counter (om/factory Counter {:keyfn :counter/id}))

(defmethod m/mutate 'counter/inc [{:keys [state] :as env} k {:keys [id] :as params}]
  {;:remote true
   :action (fn [] (swap! state update-in [:counter/by-id id] increment-counter))})

(defmethod m/mutate 'add-counters-to-panel [{:keys [state] :as env} k {:keys [id] :as params}]
  {:action (fn []
             (let [ident-list (get @state :all-counters)]
               (swap! state update-in [:panels/by-kw :counter] assoc :counters ident-list)))})

(defui ^:once CounterPanel
