diff options
Diffstat (limited to 'tools/emacs-pkgs/tvl/tvl.el')
| -rw-r--r-- | tools/emacs-pkgs/tvl/tvl.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tools/emacs-pkgs/tvl/tvl.el b/tools/emacs-pkgs/tvl/tvl.el index 4947f66a65..cc50d6b234 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 |