                   (dissoc data aggregate-id)))
          (recur new-keys new-data))))))
 
-(defn init
-  []
+(defn init []
   (let [data-channel (chan)
         user-channel (chan)
         incomplete-channel (chan)]

        first) "properties") "category")))

(defn handle-new-data [data incomplete-channel user-channel]
  (condp = (:resource-type data)
    :divisions
    (if (:results data)
      ; no id, got all neighborhoods
      (let [neighborhoods
            (sort-by #(:name %)

   (loop [received-keys #{}
          data {}]
     (let [val (<! channel)
           cdata              (js->clj val)
           category           (category cdata)
           aggregate-id       (keyword (category-to-map-id category))
