From 24e806d4fd7b5a0fac985f6b8ce8941550ad4106 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Wed, 6 Jul 2022 21:34:46 +0000 Subject: [PATCH] AddYoutubeMusic --- projects/nat-archive-tool/src/nat/ArchiveController.kiss | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/projects/nat-archive-tool/src/nat/ArchiveController.kiss b/projects/nat-archive-tool/src/nat/ArchiveController.kiss index 24e998cd..86e4bcdb 100644 --- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss +++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss @@ -273,6 +273,12 @@ (defCommand AddDLURL [e SelectedEntry url (Text null)] (addComponent archive e DLURL url)) + (defCommand AddYoutubeMusic [name (Text null) url (Text null)] + [(archive.createEntry ->e + {(addComponent archive e Name name) + (addTags archive e ["music"]) + (AddDLURL e url)})]) + (defCommand AddKeyShortcut [e SelectedEntry description (Text null)] (addComponent archive e KeyShortcut description))