 (defn normalize-idea [idea]
   (-> idea
       (update :urls #(into [] (vals (apply sorted-set %))))
-      ;; just add to all districts for now
-      (assoc :districts (selected-districts))))
+      (assoc :districts [@db/selected-district])))
 
 (defn submit-idea!
   [doc]


    (when-let [title (:title idea)]
      (and (seq title)
           (some (comp #{title} :title) @db/ideas)))
    (assoc :title (str (snippet :title) " " (snippet :already-used)))

    (empty? (:category idea))

  "Update errors atom, and return true if there were any errors."
  [doc]
  (let [errors (validate-idea @doc)]
    (swap! doc assoc :errors errors)
    (empty? errors)))

