AddYoutubeMusic

2022-07-06 21:34:46 +00:00
parent 53bc549a95
commit 24e806d4fd
1 changed files with 6 additions and 0 deletions
--- 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))