kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

tags on circle entries

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-07-05 14:55:09 +00:00
parent d9b3723c6b
commit 4a379e00ba
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
projects/nat-archive-tool/src/nat/ArchiveController.kiss
View File

@@ -252,9 +252,10 @@
(flatten (for name names (flatten (for name names
(CreateTaggedEntry tags name)))) (CreateTaggedEntry tags name))))
(defCommand CreateCircleEntry [radius (Number 0 null null)] (defCommand CreateCircleEntry [tags (VarText null) radius (Number 0 null null)]
[(archive.createEntry ->e [(archive.createEntry ->e
(addComponent archive e Circle (objectWith radius)))]) {(addTags archive e tags)
(addComponent archive e Circle (objectWith radius))})])
// TODO use Tag and VarTag arg types for AddTags and RemoveTags // TODO use Tag and VarTag arg types for AddTags and RemoveTags
(defCommand AddTags [entries (SelectedEntries 1 null) (defCommand AddTags [entries (SelectedEntries 1 null)