💄 Use correct comments style on tokens-lib

This commit is contained in:
Andrey Antukh
2025-10-23 11:18:22 +02:00
parent 6aa797f51b
commit c44fd2dd1d

View File

@@ -927,19 +927,19 @@ Will return a value that matches this schema:
(-write [this writter options] (json/-write (export-dtcg-json this) writter options))]) (-write [this writter options] (json/-write (export-dtcg-json this) writter options))])
ITokenSets ITokenSets
; Naming conventions: ;; Naming conventions:
; (TODO: this will disappear after refactoring the internal structure of TokensLib). ;; (TODO: this will disappear after refactoring the internal structure of TokensLib).
; Set name: the complete name as a string, without prefix \"some-group/some-subgroup/some-set\". ;; Set name: the complete name as a string, without prefix \"some-group/some-subgroup/some-set\".
; Set final name or fname: the last part of the name \"some-set\". ;; Set final name or fname: the last part of the name \"some-set\".
; Set path: the groups part of the name, as a vector [\"some-group\" \"some-subgroup\"]. ;; Set path: the groups part of the name, as a vector [\"some-group\" \"some-subgroup\"].
; Set path str: the set path as a string \"some-group/some-subgroup\". ;; Set path str: the set path as a string \"some-group/some-subgroup\".
; Set full path: the path including the fname, as a vector [\"some-group\", \"some-subgroup\", \"some-set\"]. ;; Set full path: the path including the fname, as a vector [\"some-group\", \"some-subgroup\", \"some-set\"].
; Set full path str: the set full path as a string \"some-group/some-subgroup/some-set\". ;; Set full path str: the set full path as a string \"some-group/some-subgroup/some-set\".
;
; Set prefix: the two-characters prefix added to a full path item \"G-\" / \"S-\". ;; Set prefix: the two-characters prefix added to a full path item \"G-\" / \"S-\".
; Prefixed set path or ppath: a path wit added prefixes [\"G-some-group\", \"G-some-subgroup\"]. ;; Prefixed set path or ppath: a path wit added prefixes [\"G-some-group\", \"G-some-subgroup\"].
; Prefixed set full path or pfpath: a full path wit prefixes [\"G-some-group\", \"G-some-subgroup\", \"S-some-set\"]. ;; Prefixed set full path or pfpath: a full path wit prefixes [\"G-some-group\", \"G-some-subgroup\", \"S-some-set\"].
; Prefixed set final name or pfname: a final name with prefix \"S-some-set\". ;; Prefixed set final name or pfname: a final name with prefix \"S-some-set\".
(add-set [_ token-set] (add-set [_ token-set]
(assert (token-set? token-set) "expected valid token-set") (assert (token-set? token-set) "expected valid token-set")
(let [path (get-set-prefixed-path token-set)] (let [path (get-set-prefixed-path token-set)]