Spec human errors

human_errors.clj

(s/fdef my-component
        :args
        (s/cat :opts
               (s/and
                (s/keys
                 :opt-un [::collapsed?
                          ::collapsible?])
                (fn
                  ;; "Use either :collapsed or :collapsible?, but not both. This doesn't make sense."
                  [m]
                  (not (and (:collapsed m)
                            (:collapsible? m)))))))

;; vs.

(s/fdef my-component
        :args
        (s/cat :opts
               (s/and
                (s/keys
                 :opt-un [::collapsed?
                          ::collapsible?])
                (s/with-human-error
                  (fn [m]
                    ;; these options are mutually exclusive
                    (not (and (:collapsed? m)
                              (:collapsible? m))))
                  (fn [_]
                    "Use either :collapsed or :collapsible?, but not both. This doesn't make sense.")))))