From 64ba09baed50dfc95adf46ccd1f32425a635fb9f Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 10 May 2015 22:29:08 -0400
Subject: Magit: Add commands for checking out recent refs

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

(limited to 'lisp/init-git.el')

diff --git a/lisp/init-git.el b/lisp/init-git.el
index 108d26c..f342199 100644
--- a/lisp/init-git.el
+++ b/lisp/init-git.el
@@ -123,6 +123,35 @@ without requiring confirmation.
   (interactive)
   (magit-run-git "checkout" "-"))
 
+(defun km/magit-list-recent-refs (n &optional remote)
+  "List N recent refs.
+If REMOTE is non-nil, limit to remote refs."
+  (magit-git-lines
+   "for-each-ref" "--sort=-committerdate" "--format=%(refname:short)"
+   (format "--count=%s" n)
+   (if remote "refs/remotes" "refs")))
+
+(defun km/magit-checkout-recent-ref (n)
+  "Checkout branch from N recent refs.
+Refs are sorted by committer date."
+  (interactive (list (or (and current-prefix-arg
+                              (prefix-numeric-value current-prefix-arg))
+                         5)))
+  (magit-run-git "checkout"
+                 (magit-completing-read
+                  "Ref" (km/magit-list-recent-refs n))))
+
+(defun km/magit-checkout-track-recent-ref (n)
+  "Create and checkout a local tracking branch.
+Listed refs are limited to N most recent, sorted by committer
+date."
+  (interactive (list (or (and current-prefix-arg
+                              (prefix-numeric-value current-prefix-arg))
+                         5)))
+  (magit-run-git "checkout" "-t"
+                 (magit-completing-read
+                  "Ref" (km/magit-list-recent-refs n 'remote))))
+
 (defun km/magit-checkout-master ()
   "Checkout master branch.
 \n(git checkout master)"
@@ -310,6 +339,10 @@ the file name if NO-DIRECTORY is non-nil."
     'km/magit-delete-previous-branch)
   (magit-define-popup-action 'magit-branch-popup
     ?m "Checkout master" 'km/magit-checkout-master)
+  (magit-define-popup-action 'magit-branch-popup
+    ?n "Checkou recent ref" 'km/magit-checkout-recent-ref)
+  (magit-define-popup-action 'magit-branch-popup
+    ?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
-- 
cgit v1.2.3