                 label   (if (empty? title)
                           url
                           title)
-                display (if (< 100 (count label))
-                          (apply str (concat (take 100 label) "..."))
+                display (if (and (empty? title)
+                                 (< 80 (count label)))
+                          (apply str (concat (take 80 label) "..."))
                           label)
                 age-ms  (- now (:ts tab))
                 ;; Colors picked at http://www.w3schools.com/tags/ref_colorpicker.asp

                        :width  16
                        :height 16}])
               display]]
             [:td {:class "col-sm-3"}
              [:i (merge {:class "fa fa-circle" :style {:color color}})]
              (time-display (quot age-ms 1000))]
             ]))))))


(defn div-urltimes []
  (let [url-times  (subscribe [:data :url-times])
        site-times (subscribe [:data :site-times])
        url-values (reaction (filter-tabs (vals @url-times)))
        to-list    (reaction (sort-by #(* -1 (:time %)) @url-values))
        total      (reaction (count @to-list))]
    (fn []
      [:div {:class "row"}
       [:p "Total: " @total " URLs."]
       [:div {:class "card"}
        [:div {:class "content table-responsive table-full-width"}
         [:table {:class "table table-striped table-hover"}

      (dispatch [::storage-changed {:changes {:data {:newValue (:data (<! (storage/get)))}}}]))
    {:app-state {}
     :settings  default-settings
     :ui-state  {:section   :intro
                 :url-page  0
                 :site-page 0}}))


(register-handler
