Refactor of observe and ref-cursor assuming app-state assessable via om/get-shared

component.cljs

(ns om-tick.component
  "
  We assume that components have :app-state in shared.
  "
  (:require [om.core :as om]))


(defn- korks-it [korks]
  (cond
    (nil? korks) []
    (sequential? korks) korks
    :else [korks]))


(defn root-cursor
  "Given an om-tick style component, return root-cursor"
  [c]
  (assert (om/component? c) c)
  (om/root-cursor (om/get-shared c :app-state)))


(defn ref-cursor
  ([c]
   (assert (om/component? c) c)
   (om/ref-cursor (root-cursor c)))
  ([c path]
   (assert (om/component? c) c)
   (assert path path)
   (let [root (root-cursor c)
         path (korks-it path)]
     (assert (get-in root path) (str "No value for " (pr-str path) " root-cursor"))
     (om/ref-cursor (get-in root path)))))


(defn observe
  "Given an om-tick style component, observe."
  ([c]
   (assert (om/component? c) c)
   (om/observe c (root-cursor c)))
  ([c path]
   (println :observe path)
   (assert (om/component? c) c)
   (om/observe c (ref-cursor c (korks-it path)))))