mirror of
https://github.com/penpot/penpot.git
synced 2026-05-11 11:03:52 +00:00
🔥 Remove unused workspace tokens common ns file
This commit is contained in:
parent
6d1ff0cb49
commit
f4dee75a17
@ -1,8 +0,0 @@
|
||||
(ns app.main.data.workspace.tokens.common
|
||||
(:require
|
||||
[app.main.data.helpers :as dsh]))
|
||||
|
||||
(defn get-workspace-tokens-lib
|
||||
[state]
|
||||
(-> (dsh/lookup-file-data state)
|
||||
(get :tokens-lib)))
|
||||
@ -3,7 +3,7 @@
|
||||
Will default to the first set."
|
||||
(:require
|
||||
[app.common.types.tokens-lib :as ctob]
|
||||
[app.main.data.workspace.tokens.common :as dwtc]
|
||||
[app.main.data.helpers :as dsh]
|
||||
[potok.v2.core :as ptk]))
|
||||
|
||||
(defn assoc-selected-token-set-name [state set-name]
|
||||
@ -11,14 +11,16 @@
|
||||
|
||||
(defn get-selected-token-set-name [state]
|
||||
(or (get-in state [:workspace-local :selected-token-set-name])
|
||||
(some-> (dwtc/get-workspace-tokens-lib state)
|
||||
(some-> (dsh/lookup-file-data state)
|
||||
(get :tokens-lib)
|
||||
(ctob/get-sets)
|
||||
(first)
|
||||
:name)))
|
||||
|
||||
(defn get-selected-token-set [state]
|
||||
(when-let [set-name (get-selected-token-set-name state)]
|
||||
(some-> (dwtc/get-workspace-tokens-lib state)
|
||||
(some-> (dsh/lookup-file-data state)
|
||||
(get :tokens-lib)
|
||||
(ctob/get-set set-name))))
|
||||
|
||||
(defn get-selected-token-set-token [state token-name]
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user