             (if-not watched?
               (dom/a #js {:className video-action
                           :href      "#"
-                          :onClick   (pd #(om/transact! this `[(video/mark-watched {::video/id ~id})]))}
+                          :onClick   (pd #(om/transact! this `[(video/mark-watched {::video/id ~id}) :video/queue]))}
                 (icon "ok"))
               (dom/a #js {:className video-action
                           :href      "#"
-                          :onClick   (pd #(om/transact! this `[(video/mark-unwatched {::video/id ~id})]))}
+                          :onClick   (pd #(om/transact! this `[(video/mark-unwatched {::video/id ~id} :video/queue)]))}
                 (icon "repeat")))))))))
 
 (def queued-video (om/factory QueuedVideo))

            (center-text "No videos left to watch.")

            :else
            (dom/div nil
              (dom/div #js {:className video-chooser}
                (main-view-link #:ui{:label     "Latest Uploads"
                                     :main-view ::main-view.latest
                                     :component this})
                (main-view-link #:ui{:label     "Channels"
                                     :main-view ::main-view.channels
                                     :component this}))
              (case main-view
                ::main-view.latest (mapv queued-video queue)
                ::main-view.channels (mapv category-group list)))))))))

(css/upsert-css "ygq" Root)

  Object
  (render [this]
    (let [{:keys [ui/react-key video/queue channel/list ui/main-view]} (om/props this)
          {:keys [main-row action-title reload-button video-chooser remaining-bar]} (css/get-classnames Root)]
      (dom/div #js {:key react-key}
        (dom/div #js {:className (cs Root "main-container")}
          (dom/div #js {:className main-row}
            (dom/div #js {:className action-title} "Youtube Gmail Queue")
            (dom/div #js {:className "flex-space"})
