Minor style fix on sitemap.

This commit is contained in:
Andrey Antukh 2016-03-29 22:00:37 +03:00
parent b6a89ccfc8
commit 90957190db

View File

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