CreateShortcutEntry command
This commit is contained in:
@@ -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
|
||||
|
Reference in New Issue
Block a user