nomalization.cljs

(def init-data
  {:universe
   {:size js/Infinity
    :beings [{:name "John"}
             {:name "Mary"}]}})

(defui Being
  static om/Ident
  (ident [this {:keys [name]}]
    [:being/by-name name])
  static om/IQuery
  (query [this]
    '[:name]))

(defui Universe
  static om/IQuery
  (query [this]
    (let [being (om/get-query Being)]
      `[:size {:beings ~being} ])))

(defui RootView
  static om/IQuery
  (query [this]
    (let [universe (om/get-query Universe)]
      `[{:universe ~universe}])))

(def norm-data (om/normalize RootView init-data true))

(def expected
  {:universe {:size js/Infinity
              :beings [[:being/by-name "John"]
                       [:being/by-name "Mary"]]}
   :being/by-name {"John" {:name "John"}
                   "Mary" {:name "Mary"}}})

(.log js/console norm-data)