about summary refs log tree commit diff
path: root/tools/emacs-pkgs/tvl
diff options
context:
space:
mode:
Diffstat (limited to 'tools/emacs-pkgs/tvl')
-rw-r--r--tools/emacs-pkgs/tvl/tvl.el13
1 files changed, 8 insertions, 5 deletions
diff --git a/tools/emacs-pkgs/tvl/tvl.el b/tools/emacs-pkgs/tvl/tvl.el
index add72f533d29..d39ba218a8b8 100644
--- a/tools/emacs-pkgs/tvl/tvl.el
+++ b/tools/emacs-pkgs/tvl/tvl.el
@@ -23,15 +23,18 @@
 
 (defcustom tvl-gerrit-remote "origin"
   "Name of the git remote for gerrit"
+  :type '(string)
   :group 'tvl)
 
 (defcustom tvl-depot-path "/depot"
   "Location at which the TVL depot is checked out."
+  :type '(string)
   :group 'tvl)
 
 (defcustom tvl-target-branch "canon"
   "Branch to use to target CLs"
   :group 'tvl
+  :type '(string)
   :safe (lambda (_) t))
 
 (defun tvl--gerrit-ref (target-branch &optional flags)
@@ -39,7 +42,7 @@
                        "")))
     (format "HEAD:refs/for/%s%s" target-branch flag-suffix)))
 
-(define-suffix-command magit-gerrit-push-for-review ()
+(transient-define-suffix magit-gerrit-push-for-review ()
   "Push to Gerrit for review."
   (interactive)
   (magit-push-refspecs tvl-gerrit-remote
@@ -50,7 +53,7 @@
   #'magit-push ["r"]
   (list "R" "push to Gerrit for review" #'magit-gerrit-push-for-review))
 
-(define-suffix-command magit-gerrit-push-wip ()
+(transient-define-suffix magit-gerrit-push-wip ()
   "Push to Gerrit as a work-in-progress."
   (interactive)
   (magit-push-refspecs tvl-gerrit-remote
@@ -61,7 +64,7 @@
   #'magit-push ["r"]
   (list "W" "push to Gerrit as a work-in-progress" #'magit-gerrit-push-wip))
 
-(define-suffix-command magit-gerrit-submit ()
+(transient-define-suffix magit-gerrit-submit ()
   "Push to Gerrit for review."
   (interactive)
   (magit-push-refspecs tvl-gerrit-remote
@@ -73,7 +76,7 @@
   (list "S" "push to Gerrit to submit" #'magit-gerrit-submit))
 
 
-(define-suffix-command magit-gerrit-rubberstamp ()
+(transient-define-suffix magit-gerrit-rubberstamp ()
   "Push, automatically approve and submit to Gerrit. This
 rubberstamp operation is dangerous and should only be used in
 `//users'."
@@ -90,7 +93,7 @@ rubberstamp operation is dangerous and should only be used in
 (defun tvl-depot-status ()
   "Open the TVL monorepo in magit."
   (interactive)
-  (magit-status tvl-depot-path))
+  (magit-status-setup-buffer tvl-depot-path))
 
 (provide 'tvl)
 ;;; tvl.el ends here