From 7a32e7792a67327b0a6e240408d668cead891c21 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Tue, 5 Jul 2022 01:57:28 +0000 Subject: [PATCH] CreateTaggedEntries --- .../src/nat/ArchiveController.kiss | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/projects/nat-archive-tool/src/nat/ArchiveController.kiss b/projects/nat-archive-tool/src/nat/ArchiveController.kiss index 8a4e4e05..e1fb1238 100644 --- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss +++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss @@ -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)