reagent_like.cljs

(ns example.core
  (:require
   [goog.dom :as dom]
   [applied-science.js-interop :as j]
   [example.react :as react]
   [goog.object :as gobj]
   [clojure.walk :as w]))

(def e (gobj/get js/React "createElement"))

(defn- transform [node]
  (if-not (vector? node)
    node
    (let [props    (-> node (meta) (clj->js))
          type     (first node)
          type     (if (keyword? type) (name type) type)
          children (rest node)]
      (e type props children))))

(defn hickup [node]
  (w/postwalk transform node))

(defn wrap-component [component]
  (-> (fn [props]
        (let [children (gobj/get props "children")
              markup   (apply component children)]
          (hickup markup)))))

(def my-component
  (wrap-component
   (fn [a b c & nested]
     [:div
      [:div (str "a: " a)]
      [:div (str "b: " b)]
      [:div (str "c: " c)]
      nested])))
      
(react/render
 (hickup
  [my-component 1 2 3
   [:div "nested 1"]
   [:div "nested 2"]]) 
 (dom/getElement "app"))