kiss-lang/nat-archive-tool
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

selectAllEntries, addTags

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-06-27 23:33:49 -06:00
parent c1860d9200
commit a3b64f6477
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/nat/ArchiveController.kiss
View File

@@ -140,6 +140,9 @@
(defcommand selectEntries [entries (Entries null null)] (defcommand selectEntries [entries (Entries null null)]
(set selectedEntries entries) []) (set selectedEntries entries) [])
(defcommand selectAllEntries []
(set selectedEntries (for =>id e archive.entries e)) [])
(defcommand selectLastChangeSet [] (defcommand selectLastChangeSet []
(set selectedEntries lastChangeSet) []) (set selectedEntries lastChangeSet) [])
@@ -152,4 +155,14 @@
(defcommand createEntries [names (VarText null)] (defcommand createEntries [names (VarText null)]
(flatten (for name names (flatten (for name names
(createEntry name))))) (createEntry name))))
(defcommand addTags [entries (SelectedEntries 1 null)
tagsToAdd (VarText null)]
(doFor e entries
(withWritableEntry archive e
(if (hasComponent e Tags)
(withWritableComponents archive e [tags Tags]
(doFor tag tagsToAdd (dictSet tags tag 1)))
(addComponent archive e Tags (for tag tagsToAdd =>tag 1)))))
entries))