From 7fef6b9533f2f01ec36d43e9668e40b750355336 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Sun, 27 Jun 2021 22:25:05 -0600 Subject: [PATCH] createEntries --- kiss/src/kiss/Kiss.hx | 1 + projects/nat-archive-tool/src/nat/ArchiveController.kiss | 8 ++++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/kiss/src/kiss/Kiss.hx b/kiss/src/kiss/Kiss.hx index 2873e4e4..23409210 100644 --- a/kiss/src/kiss/Kiss.hx +++ b/kiss/src/kiss/Kiss.hx @@ -64,6 +64,7 @@ class Kiss { "expList" => Symbol("Prelude.expList"), "map" => Symbol("Lambda.map"), "filter" => Symbol("Lambda.filter"), // TODO use truthy as the default filter function + "flatten" => Symbol("Lambda.flatten"), "has" => Symbol("Lambda.has"), "count" => Symbol("Lambda.count") ], diff --git a/projects/nat-archive-tool/src/nat/ArchiveController.kiss b/projects/nat-archive-tool/src/nat/ArchiveController.kiss index 3a79fc61..9110bf02 100644 --- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss +++ b/projects/nat-archive-tool/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