                    (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])]

         (t :user/Sendverifylink)]])]))

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

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