   [answers]
   (merge (zipmap answers (repeat true)) {nil false}))
 
-(defn preprocess-answers [field raw-answers]
+(defn preprocess-answers
   "Preproccesses answers depending on the field. For multi-selects, return type
    is a list of list of strings. For other types, a list of strings."
+  [field raw-answers]
   (cond
     (f/select-one? field) raw-answers
     (f/text? field) raw-answers

    (f/select-all? field) (->> raw-answers
                               (map #(when % (s/split % #" "))))))

(defn field->colors [field]
  "Returns the appropriate set of colors given the field."
  (cond
    ;; if too many options w/in select-one field, fall back to select-all style
    (f/select-one? field) (if (<= (count (:children field))

   Saturated red+brown disabled due to clash with the :clicked color."
  ["#1f78b4"
   "#33a02c"
   "#6a3d9a"
   "#ffff99"
   "#b15928"
   "#a6cee3"
