                 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

            [:th "Title"]
            [:th "Last visit"]]]
          [:tbody
           (list-urls @to-list @site-times)
           ]]]]
       ])
    ))

(def ModalBody (reagent/adapt-react-class js/ReactBootstrap.ModalBody))
(def ModalFooter (reagent/adapt-react-class js/ReactBootstrap.ModalFooter))
(def ModalHeader (reagent/adapt-react-class js/ReactBootstrap.ModalHeader))
(def Pagination (reagent/adapt-react-class js/ReactBootstrap.Pagination))

;;;;----------------------------
;;;; Components
