diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2020-04-16 23:53:06 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2020-04-16 23:54:15 -0400 |
| commit | bbb1e806a9b9e369a5aa7154f70285c6be980030 (patch) | |
| tree | 50a08ab4a7ac8296450ff4fcaf8be4d3dee6c0cd /lisp | |
| parent | 8decfccd37b9a0d2d88695cebaef1a5d3f96b4d0 (diff) | |
| download | emacs.d-bbb1e806a9b9e369a5aa7154f70285c6be980030.tar.gz | |
km/magit-toggle-remote-skip: Give visual feedback
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/km-magit.el | 9 |
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." |