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

[nat] removeTags, selectByTags

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-06-29 14:23:36 -06:00
parent 4d38915ab4
commit f3d4ea8411
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -169,4 +169,16 @@
(withWritableComponents archive e [tags Tags] (withWritableComponents archive e [tags Tags]
(doFor tag tagsToAdd (dictSet tags tag 1))) (doFor tag tagsToAdd (dictSet tags tag 1)))
(addComponent archive e Tags (for tag tagsToAdd =>tag 1))))) (addComponent archive e Tags (for tag tagsToAdd =>tag 1)))))
entries)) entries) // TODO this includes entries that already had the tag in the changeset
(defcommand removeTags [entries (SelectedEntries 1 null)
tagsToRemove (VarText null)]
(doFor e entries
(withWritableEntry archive e
(when (hasComponent e Tags)
(withWritableComponents archive e [tags Tags]
(doFor tag tagsToRemove (tags.remove tag))))))
entries) // TODO this includes entries that didn't have the tag in the changeset
(defcommand selectByTags [tagsBoolExp (Text null)]
(selectEntries (filter archive.entries ->e (tagsMatch archive e tagsBoolExp)))))