From 27e57ae520ecd760020f985a80395afe54f12f69 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 25 Mar 2015 23:33:14 -0400 Subject: Add magit-delete-previous-branch command --- lisp/init-git.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lisp/init-git.el') diff --git a/lisp/init-git.el b/lisp/init-git.el index d6b8344..45a6f0c 100644 --- a/lisp/init-git.el +++ b/lisp/init-git.el @@ -107,6 +107,12 @@ without requiring confirmation. (magit-list-remote-branch-names)))) (magit-run-git "checkout" "-t" remote-branch)) +(defun km/magit-delete-previous-branch (&optional force) + "Delete previous branch. +\n(git branch -d @{-1})" + (interactive "P") + (magit-run-git "branch" (if force "-D" "-d") "@{-1}")) + (defun km/magit-checkout-previous-branch () "Checkout previous branch. \n(git checkout -)" @@ -270,6 +276,9 @@ the commit buffer. And no dinging." (magit-define-popup-action 'magit-branch-popup ?c "Create & checkout from current" 'km/magit-branch-and-checkout-from-current) + (magit-define-popup-action 'magit-branch-popup + ?l "Delete previous branch" + 'km/magit-delete-previous-branch) (magit-define-popup-action 'magit-branch-popup ?p "Checkout previous" 'km/magit-checkout-previous-branch) (magit-define-popup-action 'magit-branch-popup -- cgit v1.2.3