                                     :cell-fn :fingerprint}
                                    {:header "Remove"
                                     :type #{:shrink :right}
-                                    :cell-fn
-                                    (fn [key]
-                                      (table/action-button
-                                       "Remove"
-                                       (icon/delete)
-                                       #(raise! owner [:deleted-ssh-key (-> key
-                                                                            (select-keys [:hostname :fingerprint])
-                                                                            (assoc :project-id project-id))])))}]}))]]])))))
+                                    :cell-fn #(om/build remove-ssh-key-button {:ssh-key %
+                                                                               :project-id project-id})}]}))]]])))))
 
 (defn checkout-key-link [key project user]
   (cond (= "deploy-key" (:type key))

                                         :value code
                                         :on-click #(.select (.-target %))}]]]]]]))))

(defn ssh-keys [project-data owner]
  (reify
    om/IRender

            (om/build common/flashes error-message)
            (om/build body-component body-params)]]]]))))

(defn remove-p12-button [row owner]
  (reify
    om/IInitState
    (init-state [_]
