CreateShortcutEntry command

This commit is contained in:
2022-07-03 03:01:58 +00:00
parent 51ea0fd3f2
commit 6c36f17d23

View File

@@ -257,11 +257,11 @@
(removeTags archive e tagsToRemove))
entries) // TODO this includes entries that didn't have the tag in the changeset
(defCommand AddKeyShortcut [e SelectedEntry description (Text null)]
(addComponent archive e KeyShortcut description))
(defCommand AddDLURL [e SelectedEntry url (Text null)]
(addComponent archive e DLURL url))
(defCommand AddKeyShortcut [e SelectedEntry description (Text null)]
(addComponent archive e KeyShortcut description))
(defCommand AddNATCommand [e (SelectedEntries null null) command (Text null)]
(doFor e e (addComponent archive e NATCommand command)))
@@ -269,6 +269,12 @@
(defCommand AddNATCommands [e (SelectedEntries null null) commands (VarText null)]
(doFor e e (addComponent archive e NATCommands commands)))
(defCommand CreateShortcutEntry [description (Text null) command (Text null)]
[(archive.createEntry ->e {
(addComponent archive e Name description)
(AddKeyShortcut e description)
(AddNATCommand [e] command)})])
(defCommand AddFiles [entries (SelectedEntries 1 null)
// TODO add File and Files as an argument type for commands, ArchiveUI
// TODO make tkinter file browser externs and use tkinter as the file picking mechanism for CLI