cljs-macro.cljc

;; .clj

(defn defcomponents*
  [components]
  `(let [components#   (~'js->clj ~components)
         defcomponent# (fn [[n# c#]]
                         `(defn ~(symbol (str n# "-component")) []
                            "foo"))]
     `(do
        ~@(map defcomponent# components#))))

(defmacro defcomponents
  [components]
  (defcomponents* components))

;; cljs

(println (defcomponents js/SomeJSObject))

;; prints this in the JS console:

(do (clojure.core/defn Button-component [] foo) (clojure.core/defn Card-component [] foo) (clojure.core/defn Heading-component [] foo) (clojure.core/defn Layout-component [] foo) (clojure.core/defn Text-component [] foo))