summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2020-04-16 23:53:06 -0400
committerKyle Meyer <kyle@kyleam.com>2020-04-16 23:54:15 -0400
commitbbb1e806a9b9e369a5aa7154f70285c6be980030 (patch)
tree50a08ab4a7ac8296450ff4fcaf8be4d3dee6c0cd /lisp
parent8decfccd37b9a0d2d88695cebaef1a5d3f96b4d0 (diff)
downloademacs.d-bbb1e806a9b9e369a5aa7154f70285c6be980030.tar.gz
km/magit-toggle-remote-skip: Give visual feedback
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-magit.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index 3ec0289..146a223 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -164,11 +164,10 @@ namespace."
(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)))
+ (let* ((keys (list "remote" remote "skipFetchAll"))
+ (skipped-p (apply #'magit-get-boolean keys)))
+ (apply #'magit-set (and (not skipped-p) "true") keys)
+ (message "%sabled %s" (if skipped-p "En" "Dis") remote)))
(defun km/magit-branch-rename (old new &optional force)
"Like `magit-branch-rename', but use old branch as initial prompt."