Rename command for entries

2022-07-03 03:01:38 +00:00
parent 0d5dbcd9ce
commit db8da38d7d
1 changed files with 4 additions and 0 deletions
--- a/src/nat/ArchiveController.kiss
+++ b/src/nat/ArchiveController.kiss
@@ -211,6 +211,10 @@

    (load "SelectionCommands.kiss")

+    (defCommand Rename [e SelectedEntry newName (Text null)]
+        (withWritableComponents archive e [name Name]
+            (set name newName)))
+
    (defCommand PrintSelectedEntries [entries (SelectedEntries null null)]
        (doFor e entries (ui.displayMessage (archive.fullString e))) [])