From bbb1e806a9b9e369a5aa7154f70285c6be980030 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 16 Apr 2020 23:53:06 -0400 Subject: km/magit-toggle-remote-skip: Give visual feedback --- lisp/km-magit.el | 9 ++++----- 1 file 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." -- cgit v1.2.3