diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/km-magit.el | 65 |
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)" |