Clojure specs for a geographical bounding box

bbox.cljs

(ns data-portal.specs.bbox
  (:require [clojure.spec.alpha :as s]))

(s/def :geo/latitude (s/and number? #(<= -90 % 90)))
(s/def :geo/longitude (s/and number? #(<= -180 % 360)))

(s/def :geo/north :geo/latitude)
(s/def :geo/south :geo/latitude)
(s/def :geo/east :geo/longitude)
(s/def :geo/west :geo/longitude)

(s/def :bbox/bbox
  (s/or :full (s/and (s/keys :req-un [:geo/north :geo/south :geo/east :geo/west])
                     #(<= (- (:east %) (:west %)) 360)
                     #(<= (:south %) (:north %))
                     #(<= (:west %) (:east %)))
        :empty #(every? nil? (vals %))))