kiss-lang/nat-archive-tool
1
0
Fork 0
Code Issues 4 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 73096cf7b7
commit 9fd48d6308
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/nat/ArchiveController.kiss
View File

@@ -239,7 +239,19 @@
// createEntry returns a list, so these lists must be flattened
(flatten (for name names
(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)]
[(archive.createEntry ->e {
(addComponent archive e Name name)