grid.cljs

(def path-element (s/or :key keyword? :index integer?))
(s/def :column/title string?)
(s/def :column/spec  (s/or :path      (s/+ path-element)
                           :path+keys (s/cat :path (s/* path-element)
                                             :keys (s/coll-of keyword? []))
                           :path+fn   (s/cat :path (s/* path-element)
                                             :fn fn?)
                           :fn        fn?))
(s/def ::column (s/keys :req [:column/title :column/spec]))
(s/def :grid/title string?)
(s/def :grid/columns (s/+ ::column))
(s/def :grid/rows vector?)
(s/def ::grid (s/keys :req [:grid/columns :grid/rows]
                      :opt [:grid/title]))