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.el11
1 files changed, 11 insertions, 0 deletions
diff --git a/tools/emacs-pkgs/tvl/tvl.el b/tools/emacs-pkgs/tvl/tvl.el
index 8468efed04a0..987ddcfe93db 100644
--- a/tools/emacs-pkgs/tvl/tvl.el
+++ b/tools/emacs-pkgs/tvl/tvl.el
@@ -45,6 +45,17 @@
   #'magit-push ["r"]
   (list "R" "push to Gerrit for review" #'magit-gerrit-push-for-review))
 
+(define-suffix-command magit-gerrit-push-wip ()
+  "Push to Gerrit as a work-in-progress."
+  (interactive)
+  (magit-push-refspecs tvl-gerrit-remote
+                       (concat (tvl--gerrit-ref "canon") "%wip")
+                       nil))
+
+(transient-append-suffix
+  #'magit-push ["r"]
+  (list "W" "push to Gerrit as a work-in-progress" #'magit-gerrit-push-wip))
+
 (define-suffix-command magit-gerrit-submit ()
   "Push to Gerrit for review."
   (interactive)