(def errors
  {"Phone" :DUPLICATED_PHONE
   "Email" :DUPLICATED_EMAIL})

(def matcher
  (re-pattern
    (apply str (interpose "|" (keys errors)))))

(defn error-id [msg]
  (errors (re-find matcher msg)))

(error-id "Something with that Phone already exists")

(def errors
  {"Phone" :DUPLICATED_PHONE
   "Email" :DUPLICATED_EMAIL})

(defn- error-code
  [^Throwable e, phrase]
  (when (some-> e .getMessage (.contains phrase))
    (errors phrase)))

(some (partial error-code e) (keys errors))

(s/def ::old/spec
  (s/merge
   ::old/spec
   (s/keys :req [:some/key
                 :another/key])))