     (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)

  "#d9d9d9")

(defn customizable-style?
  [[style-name _]]
  (contains? user-customizable-styles style-name))


  (:require [clojure.string :refer [join split]]
            [hatti.ona.forms :as form-utils]))

(def user-customizable-styles
  "Set of CSS properties that can be modified by a user"
  #{"color"})

(def qualitative-palette
  "Saturated qualitative palette from colorbrewer.
