Clojurians Log v2

Proposing some new schemas to increase expressivity of map keysets https://github.com/metosin/malli/pull/1161

;; if :git/tag is provided, then so should :git/sha
(def TagImpliesSha
  [:and
   [:map
    [:git/sha {:optional true} :string]
    [:git/tag {:optional true} :string]]
   [:implies [:has :git/tag] [:has :git/sha]]])

(m/validate TagImpliesSha {:git/sha "abc123"}) ;=> true
(m/validate TagImpliesSha {:git/tag "v1.0.0" :git/sha "abc123"}) ; => true

(me/humanize
  (m/explain TagImpliesSha {:git/tag "v1.0.0"}))
; => {:git/sha ["missing required key"]}