mirror of
https://github.com/penpot/penpot.git
synced 2025-03-18 10:41:29 -05:00
💄 Cosmetic changes on pages helpers namespace.
This commit is contained in:
parent
9445e3abb8
commit
357e779013
1 changed files with 9 additions and 12 deletions
|
@ -262,19 +262,16 @@
|
|||
"Retrieves a list with the indexes for each element in the layer tree.
|
||||
This will be used for shift+selection."
|
||||
[objects]
|
||||
(let [rec-index
|
||||
(fn rec-index [cur-idx id]
|
||||
(let [object (get objects id)
|
||||
red-fn
|
||||
(fn [cur-idx id]
|
||||
(let [[prev-idx _] (first cur-idx)
|
||||
prev-idx (or prev-idx 0)
|
||||
cur-idx (conj cur-idx [(inc prev-idx) id])]
|
||||
(rec-index cur-idx id)))]
|
||||
(reduce red-fn cur-idx (reverse (:shapes object)))))]
|
||||
(letfn [(red-fn [cur-idx id]
|
||||
(let [[prev-idx _] (first cur-idx)
|
||||
prev-idx (or prev-idx 0)
|
||||
cur-idx (conj cur-idx [(inc prev-idx) id])]
|
||||
(rec-index cur-idx id)))
|
||||
(rec-index [cur-idx id]
|
||||
(let [object (get objects id)]
|
||||
(reduce red-fn cur-idx (reverse (:shapes object)))))]
|
||||
(into {} (rec-index '() uuid/zero))))
|
||||
|
||||
|
||||
(defn expand-region-selection
|
||||
"Given a selection selects all the shapes between the first and last in
|
||||
an indexed manner (shift selection)"
|
||||
|
@ -285,7 +282,7 @@
|
|||
(map first))
|
||||
|
||||
from (apply min filter-indexes)
|
||||
to (apply max filter-indexes)]
|
||||
to (apply max filter-indexes)]
|
||||
(->> indexed-shapes
|
||||
(filter (fn [[idx _]] (and (>= idx from) (<= idx to))))
|
||||
(map second)
|
||||
|
|
Loading…
Add table
Reference in a new issue