Delete some infrequently used custom Magit commands

I used many of these heavily at some point, but due to some
combination of changes in my preferences/workflows and changes in
Magit, I rarely use any of these now.

1 files changed, 0 insertions, 65 deletions

diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index 663fcde..69f5f2b 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -146,30 +146,6 @@ namespace."
           ((magit-remote-branch-p rev)
            (format "Merge pull request #%s from %s" pr rev)))))
 
-(defun km/magit-push-all ()
-  "Push all branches."
-  (interactive)
-  (magit-run-git-async "push" "-v"
-                       (magit-read-remote "Remote")
-                       "--all"))
-
-(defun km/magit-push-head (remote &optional args)
-  "Push the current branch to same name on REMOTE.
-\n(git push [ARGS] REMOTE HEAD)"
-  (interactive (list (magit-read-remote "Remote") (magit-push-arguments)))
-  (magit-run-git-async "push" "-v" args remote "HEAD"))
-
-(defun km/magit-checkout-local-tracking (remote-branch)
-  "Create and check out a local tracking branch for REMOTE-BRANCH.
-\n(git checkout -t REMOTE-BRANCH\)"
-  (interactive
-   (list (let ((branches (magit-list-remote-branch-names)))
-           (magit-completing-read
-            "Remote branch" branches nil t nil nil
-            (car (member (magit-branch-or-commit-at-point)
-                         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
@@ -181,47 +157,6 @@ namespace."
   (unless (string= old new)
     (magit-run-git "branch" (if force "-M" "-m") old new)))
 
-(defun km/magit-delete-previous-branch (&optional force)
-  "Delete the previous branch.
-\n(git branch -d @{-1})"
-  (interactive "P")
-  (magit-run-git "branch" (if force "-D" "-d") "@{-1}"))
-
-(defun km/magit-checkout-previous-branch ()
-  "Check out the previous branch.
-\n(git checkout -)"
-  (interactive)
-  (magit-run-git "checkout" "-"))
-
-(defun km/magit-list-recent-refs (n &optional remote)
-  "List the N-most recent refs.
-If REMOTE is non-nil, limit the results to remote refs."
-  (magit-git-lines
-   "for-each-ref" "--sort=-committerdate" "--format=%(refname:short)"
-   (format "--count=%s" n)
-   (if remote "refs/remotes" "refs/heads")))
-
-(defun km/magit-checkout-recent-ref (n)
-  "Check out branch from N-most 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 check out a local tracking branch.
-Listed refs are limited to th eN-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 ()
   "Check out master branch.
 \n(git checkout master)"