magit: Add command for toggling skipFetchAll

1 files changed, 9 insertions, 0 deletions

diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index d83e9e1..038e7d6 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -155,6 +155,15 @@ namespace."
           ((magit-remote-branch-p rev)
            (format "Merge pull request #%s from %s" pr rev)))))
 
+(defun km/magit-toggle-remote-skip (remote)
+  "Toggle REMOTE.skipFetchAll value."
+  (interactive (list (magit-read-remote "Remote")))
+  (let ((keys (list "remote" remote "skipFetchAll")))
+    (apply #'magit-set
+           (and (not (apply #'magit-get-boolean keys))
+                "true")
+           keys)))
+
 (defun km/magit-branch-rename (old new &optional force)
   "Like `magit-branch-rename', but use old branch as initial prompt."
   (interactive