fix(edit): make edit commands available only in compatible modes

Walheimat · Sep 7, 2024 · e28afb9 · e28afb9
1 parent 24f380c
commit e28afb9
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/ship-mate-edit.el b/ship-mate-edit.el
@@ -119,7 +119,7 @@ Sets MODE unless already set."
 
 (defun ship-mate-edit-environment-apply ()
   "Apply the edited environment."
-  (interactive)
+  (interactive nil ship-mate-edit-environment-mode)
 
   (when-let ((warnings (ship-mate-edit-environment--validate)))
     (user-error (string-join warnings ", ")))
@@ -135,13 +135,13 @@ Sets MODE unless already set."
 
 (defun ship-mate-edit-environment-abort ()
   "Abort editing."
-  (interactive)
+  (interactive nil ship-mate-edit-environment-mode)
 
   (ship-mate-edit-environment--quit))
 
 (defun ship-mate-edit-environment-clear ()
   "Clear the environment."
-  (interactive)
+  (interactive nil ship-mate-edit-environment-mode)
 
   (ship-mate-edit-environment--set-environment nil)
   (ship-mate-edit-environment--quit))
@@ -187,20 +187,21 @@ This is set in buffer `ship-mate-edit-environment-buffer-name'."
 
 (defun ship-mate-edit-history-apply ()
   "Apply the edited history."
-  (interactive)
+  (interactive nil ship-mate-edit-history-mode)
+
   (ship-mate-edit-history--set-history (ship-mate-edit-history--listify))
   (ship-mate-edit-history--quit))
 
 (defun ship-mate-edit-history-clear ()
   "Clear the history."
-  (interactive)
+  (interactive nil ship-mate-edit-history-mode)
 
   (ship-mate-edit-history--set-history nil)
   (ship-mate-edit-history--quit))
 
 (defun ship-mate-edit-history-abort ()
   "Abort editing history."
-  (interactive)
+  (interactive nil ship-mate-edit-history-mode)
 
   (ship-mate-edit-history--quit))