summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2019-05-05 23:10:42 -0400
committerKyle Meyer <kyle@kyleam.com>2019-05-05 23:10:42 -0400
commit1d9789d1e9459b91f58dc2db960c2fa5ba5460da (patch)
treec07c9239c5bf5eb9c0cbc0d88013a93fcdfa582e /lisp
parent1102f94ddbb21b4cd94b36d89c5def80cf00bc51 (diff)
downloademacs.d-1d9789d1e9459b91f58dc2db960c2fa5ba5460da.tar.gz
magit: Add command to copy branch
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-magit.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index 8faceeb..e672ec8 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -158,6 +158,16 @@ namespace."
(unless (string= old new)
(magit-run-git "branch" (if force "-M" "-m") old new)))
+(defun km/magit-branch-copy (old new &optional force)
+ (interactive
+ (let ((branch (magit-read-local-branch "Copy branch")))
+ (list branch
+ (magit-read-string-ns (format "Copy branch '%s' to" branch)
+ branch)
+ current-prefix-arg)))
+ (unless (string= old new)
+ (magit-run-git "branch" (if force "-C" "-c") old new)))
+
(defun km/magit-checkout-master ()
"Check out master branch.
\n(git checkout master)"