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

createEntries

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-06-27 22:25:05 -06:00
parent c6419fb216
commit c1860d9200
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/nat/ArchiveController.kiss
View File

@@ -146,6 +146,10 @@
(defcommand printSelectedEntries [entries (SelectedEntries null null)] (defcommand printSelectedEntries [entries (SelectedEntries null null)]
(doFor e entries (ui.displayMessage (archive.fullString e))) []) (doFor e entries (ui.displayMessage (archive.fullString e))) [])
(defcommand createEntry [name (Text null null)] (defcommand createEntry [name (Text null)]
[(archive.createEntry ->e [(archive.createEntry ->e
(addComponent archive e Name name))])) (addComponent archive e Name name))])
(defcommand createEntries [names (VarText null)]
(flatten (for name names
(createEntry name)))))