   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]} (css/get-classnames Root)]
+          {:keys [main-row action-title reload-button video-chooser remaining-bar]} (css/get-classnames Root)]
       (dom/div #js {:key react-key}
-        (dom/div nil
+        (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"})

                                  :padding        "8px"
                                  :font-weight    "bold"
                                  :text-transform "uppercase"}]
                    [:.menu-item-active {:background "#ffce8c"}]])
  (include-children [_] [MainViewLink
                         QueuedVideo
                         CategoryGroup])

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

            :else
            [(dom/div #js {:className video-chooser :key "view-selector"}
               (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}))
             (dom/div #js {:className remaining-bar :key "remaining"}
               (->> queue
                    (remove ::video/watched?)
                    (map (comp duration->seconds ::video/duration ::video/content-details))
                    (reduce +)
                    (seconds->duration))
               " left to watch")
             (dom/div #js {:key "view" :className (cs Root "view-area")}
               (case main-view
                 ::main-view.latest (mapv queued-video queue)
                 ::main-view.channels (mapv category-group list)))]))))))

(css/upsert-css "ygq" Root)

(comment
  )
