Convert whitelist of boolean values to yes/no text

convert.clj

;; converts boolean (true/false) to text (yes/no)
(defn- boolean-to-text [bool]
  {:pre [(boolean? bool)] }
  (if (true? bool) "Yes" "No"))

;; returns true if coll contains given value
(defn- seq-contains? [coll target] (some #(= target %) coll))

;; converts key values from true/false to yes/no in map
(defn- coerce-boolean-values-for-map [bool-keys record]
  (into {} (for [[k v] record] [k (if (seq-contains? bool-keys k) (boolean-to-text v) v)])))

;; converts key values from boolean to text for collection of maps
(defn coerce-boolean-values-for-coll [coll bool-keys]
  {:pre [(every? map? coll)]}
  (map (partial coerce-boolean-values-for-map bool-keys) coll))

(defn data [ { :bar true :foo false :baz "Hi" } ])

(coerce-boolean-values-for-coll data [:bar :foo])