 
   static om/IQuery
   (query [_]
-         '[:oceans]
+         '[:tab-key/oceans
+           :oceans]
          )
 
   Object


(defmethod readf :default
  [{:keys [state] :as env} k params]
  (if-let [v (get @state k)]
    {:value v}
    {:value nil}

(defui RootView
  static om/IQueryParams
  (params [_]
          initial-params ; here and below, we're passing (pre-computed) value
                         ; and not doing function calls
    )

  static om/IQuery
  (query [_]
         initial-query
    )

  Object
  (componentDidMount [this]
                     (go-loop [new-query (<! routes-chan)]
                                (om/set-query!
                                  this
                                  new-query
                                  )
                              (recur (<! routes-chan))
                       )
                     )

  (render [this]
          (println "render called. and"
                       (meta (first (-> this om/get-query)))
                       (-> this om/get-query)
                   (om/query this)
                   (om/params this)
                   )
          (let [;unbound-query (om/query this)
                ;unbound-params (om/params this)
                query (om/get-query this)
                tab-is-active (fn [tab]
                                (contains?
                                  (into #{} (comp
                                              (filter keyword?)
                                              (filter #(= (namespace %) "tab-key"))
                                              (map name)
                                              (map keyword)
                                             ) query)
                                   (:key tab)
                                   )
                                )
                ]
