Add confirmation for projects and pages deletion.

This commit is contained in:
Andrey Antukh 2016-04-02 11:45:04 +03:00
parent ebd7242048
commit db95342759
2 changed files with 14 additions and 9 deletions

View File

@ -153,9 +153,11 @@
[own project] [own project]
(letfn [(on-navigate [event] (letfn [(on-navigate [event]
(rs/emit! (dp/go-to (:id project)))) (rs/emit! (dp/go-to (:id project))))
(delete []
(rs/emit! (dp/delete-project project)))
(on-delete [event] (on-delete [event]
(dom/stop-propagation event) (dom/stop-propagation event)
(rs/emit! (dp/delete-project project)))] (lightbox/open! :confirm {:on-accept delete}))]
(html (html
[:div.grid-item.project-th {:on-click on-navigate [:div.grid-item.project-th {:on-click on-navigate
:key (:id project)} :key (:id project)}

View File

@ -46,26 +46,29 @@
(defn page-item-render (defn page-item-render
[own page total active?] [own page total active?]
(letfn [(edit [event] (letfn [(on-edit [event]
(lightbox/open! :page-form {:page page})) (lightbox/open! :page-form {:page page}))
(navigate [event] (on-navigate [event]
(rs/emit! (dp/go-to (:project page) (:id page)))) (rs/emit! (dp/go-to (:project page) (:id page))))
(delete [event] (delete []
(let [next #(rs/emit! (dp/go-to (:project page)))]
(rs/emit! (udp/delete-page (:id page) next))))
(on-delete [event]
(dom/prevent-default event) (dom/prevent-default event)
(dom/stop-propagation event) (dom/stop-propagation event)
(let [next #(rs/emit! (dp/go-to (:project page)))] (lightbox/open! :confirm {:on-accept delete}))]
(rs/emit! (udp/delete-page (:id page) next))))]
(html (html
[:li {:class (when active? "selected") [:li {:class (when active? "selected")
:on-click navigate} :on-click on-navigate}
[:div.page-icon i/page] [:div.page-icon i/page]
[:span (:name page)] [:span (:name page)]
[:div.page-actions [:div.page-actions
[:a {:on-click edit} i/pencil] [:a {:on-click on-edit} i/pencil]
(if (> total 1) (if (> total 1)
[:a {:on-click delete} i/trash])]]))) [:a {:on-click on-delete} i/trash])]])))
(def ^:const page-item (def ^:const page-item
(mx/component (mx/component