kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 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 c9ed27f6e9
commit 7fef6b9533
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
kiss/src/kiss/Kiss.hx
View File

@@ -64,6 +64,7 @@ class Kiss {
"expList" => Symbol("Prelude.expList"), "expList" => Symbol("Prelude.expList"),
"map" => Symbol("Lambda.map"), "map" => Symbol("Lambda.map"),
"filter" => Symbol("Lambda.filter"), // TODO use truthy as the default filter function "filter" => Symbol("Lambda.filter"), // TODO use truthy as the default filter function
"flatten" => Symbol("Lambda.flatten"),
"has" => Symbol("Lambda.has"), "has" => Symbol("Lambda.has"),
"count" => Symbol("Lambda.count") "count" => Symbol("Lambda.count")
], ],

8
projects/nat-archive-tool/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)))))