           (apply dom/ul nil
                  (map (fn [ocean]
                         (dom/li nil
+                                ((if (= (:selected-ocean (om/props this))
+                                       ocean
+                                       )
+                                   dom/strong dom/span) nil
                                 ocean
+                                  )
                                 )
                         )
                       (:oceans (om/props this))


(defmulti mutatef om/dispatch)

;; Root

(def data {
           :countries (js->clj js/COUNTRIES_LIST :keywordize-keys true)
           :oceans ["Pacific" "Atlantic" "Indian" "Southern" "Arctic"]
           :hello "Hello, world! What's up?"
           })

                     (go-loop [new-query (<! routes-chan)]
                                (om/set-query!
                                  this
                                  {:query
                                   (-> new-query :query (concat root-own-query) vec)
                                   :params
                                   (-> new-query :params (merge root-own-params)) ;; TODO: this weren't checked
                                   }
                                  )
                              (recur (<! routes-chan))
                       )
