   [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

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

      (mu/bring-to-top-if-selected id-selected? marker))))

(defn filter-answer-data-structures
  "Given a list of answers + query, returns map from answers to true/false.
   True if query is in the answer, false if not."
  [answers query field language]
  (let [query-present? (fn [ans]
                         (when ans
                           (re-find (safe-regex query)
