From c1860d920022caf61b332739410acfa3aa3c560a Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Sun, 27 Jun 2021 22:25:05 -0600 Subject: [PATCH] createEntries --- src/nat/ArchiveController.kiss | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/nat/ArchiveController.kiss b/src/nat/ArchiveController.kiss index 3a79fc6..9110bf0 100644 --- a/src/nat/ArchiveController.kiss +++ b/src/nat/ArchiveController.kiss @@ -146,6 +146,10 @@ (defcommand printSelectedEntries [entries (SelectedEntries null null)] (doFor e entries (ui.displayMessage (archive.fullString e))) []) - (defcommand createEntry [name (Text null null)] + (defcommand createEntry [name (Text null)] [(archive.createEntry ->e - (addComponent archive e Name name))])) \ No newline at end of file + (addComponent archive e Name name))]) + + (defcommand createEntries [names (VarText null)] + (flatten (for name names + (createEntry name))))) \ No newline at end of file