From 9c7b4e3ba6133d61e5de6649808daa3c14de41ec Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 6 Dec 2015 23:58:05 -0500 Subject: Add custom magit-branch-rename command --- lisp/init-git.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'lisp/init-git.el') diff --git a/lisp/init-git.el b/lisp/init-git.el index 69dc888..c9bd73c 100644 --- a/lisp/init-git.el +++ b/lisp/init-git.el @@ -149,6 +149,17 @@ without requiring confirmation. branches)))))) (magit-run-git "checkout" "-t" remote-branch)) +(defun km/magit-branch-rename (old new &optional force) + "Like `magit-branch-rename', but use old branch as initial prompt." + (interactive + (let ((branch (magit-read-local-branch "Rename branch"))) + (list branch + (magit-read-string-ns (format "Rename branch '%s' to" branch) + branch) + current-prefix-arg))) + (unless (string= old new) + (magit-run-git-no-revert "branch" (if force "-M" "-m") old new))) + (defun km/magit-delete-previous-branch (&optional force) "Delete previous branch. \n(git branch -d @{-1})" @@ -660,6 +671,8 @@ show tags by default." ?N "Track recent ref" 'km/magit-checkout-track-recent-ref) (magit-define-popup-action 'magit-branch-popup ?p "Checkout previous" 'km/magit-checkout-previous-branch) +(magit-define-popup-action 'magit-branch-popup + ?r "Rename branch" 'km/magit-branch-rename) (magit-define-popup-action 'magit-branch-popup ?s "Backup current branch" 'km/magit-backup-branch) (magit-define-popup-action 'magit-branch-popup -- cgit v1.2.3