          (t :user/Sendverifylink)]])]))
 
 (defn email-address-table [state]
-  [:table.table
+  [:table.table.hidden-xs
    [:thead
     [:tr
      [:th (t :user/Email)]

        [:div {:class (str "alert " (:class @message-atom))}
         (:content @message-atom)])
      (email-address-table state)
      [:form
       [:div.form-group
        [:label {:for "input-new-address"}

                   (t :user/Loginaddress)
                   (email-options email verified primary_address state))]]))])

(defn email-address-table-mobile [state]
  [:table.table.visible-xs
   [:thead
    [:tr
     [:th (t :user/Email) ]
     
     [:th (t :user/Actions)]]]
   (into [:tbody]
         (for [address (sort-by :ctime (:emails @state))
               :let [{:keys [email verified primary_address]} address]]
           [:tr
            [:td [:div email (if verified [:i {:class "fa fa-check" }])]]
            [:td (if (and primary_address verified) 
                   (t :user/Loginaddress)
                   (email-options email verified primary_address state))]]))])

(defn content [state]
  (let [new-address-atom (cursor state [:new-address])
        message-atom (cursor state [:message])]
