Exploring if I can get Respo component simpler. Tried in Lumo.

a.cljs

(ns demo.a
  (:require demo.b)
  (:require-macros [demo.b :refer [defcomp]]))

(println (macroexpand '(defcomp my-comp [x y] 1)))
(defcomp my-comp [x y] 1)

(println my-comp)

b.cljc

(ns demo.b)

(defn create-comp [comp-name body]
  [comp-name body])

(defmacro defcomp [comp-name params & body]
  `(def ~comp-name
    (create-comp ~(keyword comp-name)
      (~'fn [~@params]
        (~'fn [~'cursor] ~@body)))))

component.cljs

(def comp-demo
  (create-comp :demo
    (fn [content]
      (fn [cursor]
        (div
          {:class-name "demo-container"
           :style {:color :red}}
          (comp-text content nil))))))

result.text

=>> lumo -c src/ -i src/demo/a.cljs
(def my-comp (demo.b/create-comp :my-comp (fn [x y] (fn [cursor] 1))))
[:my-comp #object[Function "function (x,y){
return (function (cursor){
return (1);
});
}"]]