                                     :support     (atom (core/new-untangled-client
                                                          :initial-state {:history          history
                                                                          :application      app
+                                                                         :position        :controls-left
                                                                          :client-time      (js/Date.)
                                                                          :frames           (inc max-idx)
                                                                          :current-position max-idx}


(defmethod m/mutate 'support-viewer/step-back [{:keys [state]} k params] {:action #(history-step state dec)})



(defui ^:once SupportViewerRoot
  static om/IQuery
  (query [this] [:react-key :current-position :client-time :frames :position])
  Object
  (render [this]
    (let [{:keys [react-key current-position client-time frames position] :or {react-key "ROOT"}} (om/props this)]
      (dom/div #js {:key react-key :className (str "history-controls " (name position))}
        (dom/button #js {:onClick #(om/transact! this '[(support-viewer/toggle-position)])} (tr "<===>"))
        (dom/button #js {:onClick #(om/transact! this '[(support-viewer/step-back)])} (tr "<Back"))
        (dom/button #js {:onClick #(om/transact! this '[(support-viewer/step-forward)])} (tr "Forward>"))
        (dom/hr nil)
