about summary refs log tree commit diff
path: root/tools/emacs-pkgs/tvl/tvl.el
diff options
context:
space:
mode:
Diffstat (limited to 'tools/emacs-pkgs/tvl/tvl.el')
-rw-r--r--tools/emacs-pkgs/tvl/tvl.el9
1 files changed, 9 insertions, 0 deletions
diff --git a/tools/emacs-pkgs/tvl/tvl.el b/tools/emacs-pkgs/tvl/tvl.el
index 4947f66a65c9..cc50d6b234d4 100644
--- a/tools/emacs-pkgs/tvl/tvl.el
+++ b/tools/emacs-pkgs/tvl/tvl.el
@@ -25,6 +25,10 @@
   "Name of the git remote for gerrit"
   :group 'tvl)
 
+(defcustom tvl-depot-path "/depot"
+  "Location at which the TVL depot is checked out."
+  :group 'tvl)
+
 (defun tvl--gerrit-ref (target-branch &optional flags)
   (let ((flag-suffix (if flags (format "%%l=%s" (s-join "," flags))
                        "")))
@@ -67,5 +71,10 @@ rubberstamp operation is dangerous and should only be used in
   #'magit-push ["r"]
   (list "P" "push, rubberstamp & submit to Gerrit" #'magit-gerrit-rubberstamp))
 
+(defun tvl-depot-status ()
+  "Open the TVL monorepo in magit."
+  (interactive)
+  (magit-status tvl-depot-path))
+
 (provide 'tvl)
 ;;; tvl.el ends here