From aad7a505c9b4c35afbdcd30928b16782899db8ca Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Mon, 9 Jun 2014 21:29:13 -0400
Subject: Add km/magit-backup-branch

---
 lisp/init-git.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'lisp')

diff --git a/lisp/init-git.el b/lisp/init-git.el
index 2e1ee30..5affb59 100644
--- a/lisp/init-git.el
+++ b/lisp/init-git.el
@@ -41,6 +41,14 @@ Useful for non-source code repos (e.g., Org mode note files)."
                                 (magit-list-remote-branch-names))))
   (magit-run-git "checkout" "-t" remote-branch))
 
+(defun km/magit-backup-branch ()
+  "Create a backup branch for the current branch.
+\(git branch b/<current-branch>\)"
+  (interactive)
+  (-if-let (current-branch (magit-get-current-branch))
+      (magit-run-git "branch" (concat "b/" current-branch))
+    (user-error "No current branch")))
+
 (magit-define-popup-action 'magit-commit-popup
   ?u "Auto commit" 'km/magit-auto-commit)
 (magit-define-popup-action 'magit-push-popup
@@ -49,6 +57,8 @@ Useful for non-source code repos (e.g., Org mode note files)."
   ?a "All branches" 'km/magit-log-all-branches)
 (magit-define-popup-action 'magit-branch-popup
   ?t "Local tracking" 'km/magit-checkout-local-tracking)
+(magit-define-popup-action 'magit-branch-popup
+  ?s "Backup current branch" 'km/magit-backup-branch)
 
 ;; http://whattheemacsd.com/setup-magit.el-01.html
 (defadvice magit-status (around magit-fullscreen activate)
-- 
cgit v1.2.3