diff options
-rw-r--r-- | init.el | 3 | ||||
-rw-r--r-- | lisp/km-magit.el | 12 |
2 files changed, 15 insertions, 0 deletions
@@ -1053,6 +1053,9 @@ ?c "Create & checkout from current" #'km/magit-branch-and-checkout-from-current) + (magit-define-popup-action 'magit-stash-popup + ?e "Edit message" #'km/magit-stash-edit-message) + (magit-define-popup-action 'magit-branch-popup ?K "Delete previous branch" #'km/magit-delete-previous-branch) (magit-define-popup-action 'magit-branch-popup diff --git a/lisp/km-magit.el b/lisp/km-magit.el index 4ab9125..9b6c3cd 100644 --- a/lisp/km-magit.el +++ b/lisp/km-magit.el @@ -645,6 +645,18 @@ argument. Interactively, this can be accessed using the command (interactive "P") (km/magit-diff-visit-file prev-rev t)) +(defun km/magit-stash-edit-message (stash message) + "Change STASH's message to MESSAGE." + (interactive + (let* ((stash (magit-read-stash "Rename" t)) + (old-msg (magit-git-string "show" "-s" "--format=%s" stash))) + (list stash (magit-read-string "Stash message" old-msg)))) + (let ((commit (magit-rev-parse stash)) + (inhibit-magit-refresh t)) + (magit-stash-drop stash) + (magit-stash-store message "refs/stash" commit)) + (magit-refresh)) + (defun km/git-commit-turn-on-flyspell () "Like `git-commit-turn-on-flyspell', but don't check buffer initially." (setq flyspell-generic-check-word-predicate |