kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

CreateTaggedEntries

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-07-05 01:57:28 +00:00
parent 4190887156
commit 7a32e7792a
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
projects/nat-archive-tool/src/nat/ArchiveController.kiss
View File

@@ -239,7 +239,19 @@
// createEntry returns a list, so these lists must be flattened // createEntry returns a list, so these lists must be flattened
(flatten (for name names (flatten (for name names
(CreateEntry name)))) (CreateEntry name))))
// TODO use VarTags
(defCommand CreateTaggedEntry [tags (VarText null) name (Text null)]
[(archive.createEntry ->e
{(addComponent archive e Name name)
(addTags archive e tags)})])
// TODO use VarTags
(defCommand CreateTaggedEntries [tags (VarText null) names (VarText null)]
// createEntry returns a list, so these lists must be flattened
(flatten (for name names
(CreateTaggedEntry tags name))))
(defCommand CreateMediaEntry [medium (Text null) name (Text null)] (defCommand CreateMediaEntry [medium (Text null) name (Text null)]
[(archive.createEntry ->e { [(archive.createEntry ->e {
(addComponent archive e Name name) (addComponent archive e Name name)