   (fetch-data channel "answers" {:category category :respondent__neighborhood nid}))
 
 (defn handle-user-input [intent data-channel user-channel]
-  (log "Handling intent")
   (condp = (:type intent)
     :newlocation
     (let [nid (:location intent)]

  [category]
  (first (first (filter (fn [[k v]] (v category)) aggregates))))

; todo better way
(def app-state (atom {}))

(defn category [data]
  (log "category")
  (if (or (nil? data) (empty? (data "features")))
    nil
    (((-> (data "features")

                               aggregate-keys
                               new-keys)
           new-data           (assoc-in data [aggregate-id category] val)]
       (if aggregate-complete?
         (do
           (>! complete-channel {:resource-type :answer-aggregate
