 
 (defmulti mutatef om/dispatch)
 
+
+(defmethod mutatef 'select-random-ocean
+  [{:keys [state] :as env} k {:keys [current-oceans] :as params}]
+  {:action
+   (fn []
+     (swap! state #(assoc % :selected-ocean
+             (rand-nth (vec current-oceans))
+             ))
+     )}
+  )
+
 ;; Root
 
 (def data {
            :countries (js->clj js/COUNTRIES_LIST :keywordize-keys true)
+           :selected-ocean nil
            :oceans ["Pacific" "Atlantic" "Indian" "Southern" "Arctic"]
            :hello "Hello, world! What's up?"
            })

                                )
                ]
            (dom/div #js {:className "container"}
                     ;; Tabs (navigation)
                        (apply dom/ul
                        #js

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

  Object
