                                 (= (set visible)
                                    (->> a->s (filter second) keys set)))]
     (if (nil? answer)
-      ; nil cannot be selected or deselected: no-change
+      ;; nil cannot be selected or deselected: no-change
       answer->selected?
-      ; else -> the logic begins
+      ;; else -> the logic begins
       (if (all-visible-selected? answer->selected? visible-answers)
-        ; first click -> *just* select this answer
+        ;; first click -> *just* select this answer
         (merge (zipmap all-answers (repeat false)) {answer true})
-        ; not first click ->  toggle this answer, leave the rest
+        ;; not first click ->  toggle this answer, leave the rest
         (let [toggled (update-in answer->selected? [answer] not)]
           (if (every? false? (vals toggled))
-            ; special rule: nothing is clicked -> make everything clicked
+            ;; special rule: nothing is clicked -> make everything clicked
             (merge (zipmap all-answers (repeat false))
                    (all-but-nil-selected visible-answers))
-            ; else: some things are clicked -> leave alone
+            ;; else: some things are clicked -> leave alone
             toggled))))))

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

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

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

(defn field->colors
  "Returns the appropriate set of colors given the field."
  [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))
