Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-04 21:38:53 -05:00
Code Issues Activity

💄 Minor cosmetic changes on refs.

Browse source
This commit is contained in:
Andrey Antukh 2020-04-10 16:26:19 +02:00 • committed by Alonso Torres
parent 51e4bf82f2
commit 86e31e7e86
1 changed files with 20 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
frontend/src/uxbox/main/refs.cljs
View file

@ -61,25 +61,27 @@
(get-in % [:workspace-data page-id :objects]))) (get-in % [:workspace-data page-id :objects])))
(l/derive st/state))) (l/derive st/state)))
(defn objects-by-id [ids] (defn objects-by-id
(let [set-ids (set ids)] [ids]
(-> (l/lens (fn [state] (-> (l/lens (fn [state]
(let [page-id (get-in state [:workspace-page :id]) (let [page-id (get-in state [:workspace-page :id])
objects (get-in state [:workspace-data page-id :objects])] objects (get-in state [:workspace-data page-id :objects])]
(mapv #(get objects %) set-ids)))) (->> (set ids)
(l/derive st/state)))) (map #(get objects %))
(filter identity)
(vec)))))
(l/derive st/state)))
(defn is-child-selected? [id] (defn is-child-selected?
(let [is-child-selector [id]
(fn [state] (letfn [(selector [state]
(let [page-id (get-in state [:workspace-page :id]) (let [page-id (get-in state [:workspace-page :id])
objects (get-in state [:workspace-data page-id :objects]) objects (get-in state [:workspace-data page-id :objects])
selected (get-in state [:workspace-local :selected]) selected (get-in state [:workspace-local :selected])
shape (get objects id) shape (get objects id)
children (helpers/get-children id objects)] children (helpers/get-children id objects)]
(some selected children)))] (some selected children)))]
(-> (l/lens selector)
(-> (l/lens is-child-selector)
(l/derive st/state)))) (l/derive st/state))))
(def selected-shapes (def selected-shapes