compassus.cljs

(ns compassus-bug.core
  (:require [compassus.core :as compassus]
            [goog.dom :as gdom]
            [om.next :as om :refer-macros [defui]]
            [om.dom :as dom]))

(enable-console-print!)

(defmulti read om/dispatch)

(defmethod read :foo
  [{:keys [ast]} _ _]
  (let [ast' (assoc-in ast [:params :foo] :bar)]
    {:remote ast'}))

(defui Child
  Object
  (render [this]
    (dom/a
        #js {:href    "#"
             :onClick (fn [e] (om/transact! this [:foo]))}
      "Trigger transact!")))

(def child (om/factory Child))

(defui Index
  static om/IQuery
  (query [this]
    [:foo])
  Object
  (render [this]
    (dom/div nil
      (child))))

(defn send [remotes cb]
  (println (:remote remotes)))

(def reconciler
  (om/reconciler
   {:state          {}
    :parser         (compassus/parser {:read read})
    :send           send}))

(om/add-root! reconciler
              (om/factory Index) (gdom/getElement "app"))