          [:ul {:class "nav navbar-nav"}
           [navbar-item "Times" :time-track @section]
           [navbar-item "Monitor" :monitor @section]
-          [navbar-item "Groups" :groups @section]
           ]
          [:form {:class "navbar-form navbar-left", :role "search"}
           [:div {:class "form-group"}

    {:app-state {:tabs tabs}
     :ui-state  {:section :time-track}}))

(register-handler
  :group-add
  (fn [app-state [_]]
    (let [tabs    (get-in app-state [:app-state :tabs])
          to-save (map (fn [m] (select-keys m relevant-tab-items)) tabs)
          groups  (conj (or (get-in app-state [:data :groups]) '())
                        (group-from-tabs to-save))]
      (dispatch [:data-set :groups groups])
      app-state)))

(register-handler
  :group-delete-set
  (fn [app-state [_ group]]
    (dispatch [:modal-info-set {:header       "Please confirm"
                                :body         (str "Do you want to delete tab group " (group-label group) "?")
                                :action-label "Kill it"
                                :action       #(do
                                                (dispatch [:modal-info-set nil])
                                                (dispatch [:group-delete group]))}])
    app-state))

(register-handler
  :group-delete
  (fn [app-state [_ group]]
    (let [original (get-in app-state [:data :groups])
          groups   (remove #(= group %) original)]
      (dispatch [:data-set :groups groups])
      app-state)))


(register-handler
  :group-edit-set
  (fn [app-state [_ group]]
    (dispatch [:group-label-set (group-label group)])
    (assoc-in app-state [:ui-state :group-edit] group)))


(register-handler
  :group-label-set
  (fn [app-state [_ label]]
    (assoc-in app-state [:ui-state :group-label] label)))

(register-handler
  :group-update
  (fn [app-state [_ old-group new-group]]
    (dispatch [:data-set :groups (->> (get-in app-state [:data :groups])
                                      (remove #(= % old-group))
                                      (cons new-group))])
    app-state))



(register-handler
  :log-content

        [:tbody
         (list-tabs @tabs :id)]
        ]

       #_ [:a {:class    "btn btn-primary btn-sm"
            :on-click #(dispatch [:group-add])} "Save me"]
       #_ [:a {:class    "btn btn-primary btn-sm"
            :on-click #(go (console/log (<! (storage/get))))} "Get"]
       #_ [:a {:class    "btn btn-primary btn-sm"
            :on-click #(go (console/log "Usage: " (<! (storage/bytes-in-use))))} "Usage"]
       ; [:button {:on-click #(storage/clear)} "Clear"]
       ])))

(defn div-timetrack []
  (let [url-times  (subscribe [:data :url-times])
