Allow extra keys in schemas

[ikitommi]

Would be super in conjunction with select-schema:

(s/defschema Abba {:a s/Str, :b {:c s/Str}})

(st/with-extra-keys Abba)
; => {:a s/Str, s/Any s/Any, :b {:c s/Str, s/Any s/Any}}

(st/with-extra-keyword-keys Abba)
; => {:a s/Str, s/Keyword s/Any, :b {:c s/Str, s/Keyword s/Any}}

[ikitommi]

and the reverse functions too:

(st/without-extra-keys {:a s/Str, s/Any s/Any, :b {:c s/Str, s/Keyword s/Any}})
; => {:a s/Str, :b {:c s/Str}}

[ikitommi]

st/open-schema