3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-30 11:18:36 +02:00
Code Issues Projects Releases Packages Wiki Activity

Improved logic to run once for all shapes

Browse source
This commit is contained in:
Florian Schroedl 2024-07-08 14:38:19 +02:00
parent 90618ec89a
commit da0389e304
2 changed files with 37 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

17
frontend/src/app/main/ui/workspace/tokens/token.cljs
View file

@ -1,6 +1,7 @@
(ns app.main.ui.workspace.tokens.token
(:require
[cuerdas.core :as str]))
[cuerdas.core :as str]
[clojure.set :as set]))
(defn attributes-map
"Creats an attributes map using collection of `attributes` for `id`."
@ -45,8 +46,20 @@
[token shapes token-attributes]
(some #(token-applied? token % token-attributes) shapes))
(defn shapes-ids-by-applied-attributes [token shapes token-attributes]
(reduce (fn [acc shape]
(let [applied-ids-by-attribute (->> (map #(when (token-attribute-applied? token shape %)
[% #{(:id shape)}])
token-attributes)
(filter some?)
(into {}))]
(merge-with into acc applied-ids-by-attribute)))
{} shapes))
(defn shapes-applied-all? [ids-by-attributes shape-ids attributes]
(every? #(set/superset? (get ids-by-attributes %) shape-ids) attributes))
(defn group-shapes-by-all-applied
""
[token shapes token-attributes]
(reduce
(fn [acc cur-shape]