createEntries

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")
             ],

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))]))
+            (addComponent archive e Name name))])
+    
+    (defcommand createEntries [names (VarText null)]
+        (flatten (for name names
+            (createEntry name)))))