   "#d9d9d9")
 
 (defn customizable-style?
+  "Check if a user can customize a style"
   [[style-name _]]
   (contains? user-customizable-styles style-name))
 

       (apply merge)))

(defn- style-map->color-map
  [[answer {:keys [color]}]]
  {answer color})

(defn group-user-defined-colors-by-answer
  [field]
  (->> field
       group-user-defined-styles-by-answer

    (form-utils/select-all? field) (repeat "#f30")))

(defn answer->color
  "Given a field and set of answers, return a mapping of answer to color
   defaulting to an inbuilt palette if the field is not a select-one or
   any of the choices lack an appearance attribute"
  [{:keys [children] :as field} answers]
  (cond
    (and (form-utils/select-one? field)
