Hi 🙂 Given the schema:

[:schema
   {:registry
    {"hiccup" [:orn
               [:kindly [:fn {:error/message "should have kindly metadata"} kind]]
               [:primitive [:or string? number? boolean? nil?]]
               [:fragment [:or
                           [:and seq?
                            [:catn [:children [:* [:schema [:ref "hiccup"]]]]]]
                           [:and vector?
                            [:catn [:fragment-indicator [:= :<>]]
                             [:children [:* [:schema [:ref "hiccup"]]]]]]]]
               [:tag-node [:and vector?
                           [:catn [:tag simple-keyword?]
                            [:attrs [:? [:and [:not [:fn kind]]
                                         [:schema [:ref "attrs"]]]]]
                            [:children [:* [:schema [:ref "hiccup"]]]]]]]
               [:raw-node [:and vector?
                           [:catn [:raw-indicator [:= :hiccup/raw-html]]
                            [:content string?]]]]
               [:component-node [:and vector?
                                 [:catn [:view-fn [:and fn?
                                                   [:function [:=> [:cat any?]
                                                               [:schema [:ref "hiccup"]]]]]]
                                  [:children [:* any?]]]]]
               [:reagent-node [:and vector?
                               [:catn [:component [:or [:and list? [:cat [:= 'fn]]]
                                                   symbol?]]
                                [:args [:* any?]]]]]
               [:scittle-node [:and vector?
                               [:catn [:forms [:+ list?]]]]]]
     ;; TODO: attrs may be over restricted (why not accept anything string-able?) and under specified (only styles can be maps)
     "attrs"  [:map-of
               [:or string? keyword? symbol?]
               [:or string? keyword? symbol? number? boolean? nil? vector?
                [:schema [:ref "attrs"]]]]}}
   "hiccup"]

(html [:div [:h2 "hi"] '(info)])

["should have kindly metadata" "should be a string" "should be a number" "should be a boolean" "should be nil" "should be a seq"]