From db8da38d7df9a2a03053879e92d9bf3b8e5df4c4 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Sun, 3 Jul 2022 03:01:38 +0000
Subject: [PATCH] Rename command for entries

---
 src/nat/ArchiveController.kiss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/nat/ArchiveController.kiss b/src/nat/ArchiveController.kiss
index c3e23f4..776523e 100644
--- 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))) [])