react interop example

example.core.clj

(ns example.core
  (:require
   [hicada.compiler :as h]))

(defmacro html [body]
  (h/compile body {} {} &env))

example.core.cljs

(ns example.core
  (:require
   [goog.dom :as dom]
   [react :as react]
   [react-dom :as react-dom]
   [applied-science.js-interop :as j])
  (:require-macros
   [example.core :refer [html]]))

(j/defn component [^:js {:keys [name children]}]
  (html
   [:div
    [:div name]
    [:div children]]))

(react-dom/render
 (html
  [:*
   [:div "foo 5"]
   [:> component {:name "John II3"}
    [:div "inner 1"]
    [:div "inner 2"]]]) 
 (dom/getElement "app"))