 
 (enable-console-print!)
 
-(defn throttle [in ms]
-  (let [c (chan)
-        timer (atom nil)]
-    (go-loop []
-      (when-let [new-text (<! in)]
-        (js/clearTimeout @timer)
-        (reset! timer (js/setTimeout #(put! c new-text) ms))
-        (recur)))
-    c))
-
 (defn ajax-chan [opts]
   (let [c (chan)]
     (ajax

                     (close! ch))
                   ch))
               :clojuredocs.examples/save handle-save-example})]

    #_(new-example-loop !state new-example-ch)
    #_(update-example-loop !state update-example-ch)
    #_(delete-example-loop !state delete-ch)

    (rea/render-component
      [examples/$examples-widget !state bus]

                (put! c {:success false :data body}))})
    c))

(defn init-examples [$root !state]
  (let [bus (ops/kit
              !state
              {}
