feat(emacs-pkgs/tvl): Add #'tvl-depot-status function r/1040

This function opens the depot in magit. By default the depot path is
assumed to be `/depot`, but that is made available as a customise
option that users can override.

Change-Id: Iefc127cad515dbae330d7af3aa69a0c53aa02015
Reviewed-on: https://cl.tvl.fyi/c/depot/+/504
Reviewed-by: glittershark <grfn@gws.fyi>

2 files changed, 9 insertions, 3 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
diff --git a/users/tazjin/emacs/config/functions.el b/users/tazjin/emacs/config/functions.el
index 907dbe5e11..6478f88cc1 100644
--- a/users/tazjin/emacs/config/functions.el
+++ b/users/tazjin/emacs/config/functions.el
@@ -41,9 +41,6 @@
   (man "configuration.nix"))
 
 ;; Open my monorepo in magit
-(defun depot-status ()
-  (interactive)
-  (magit-status depot-path))
 
 ;; Get the nix store path for a given derivation.
 ;; If the derivation has not been built before, this will trigger a build.