diff options
| -rw-r--r-- | init.el | 2 | ||||
| -rw-r--r-- | lisp/km-magit.el | 6 |
2 files changed, 8 insertions, 0 deletions
@@ -1177,6 +1177,8 @@ ?p ?P) (magit-define-popup-action 'magit-log-popup + ?l "Log current" #'km/magit-log-current) + (magit-define-popup-action 'magit-log-popup ?d "Log dwim" #'km/magit-log-dwim) (magit-define-popup-action 'magit-log-popup ?y "Cherry dwim" #'km/magit-cherry-dwim) diff --git a/lisp/km-magit.el b/lisp/km-magit.el index 19cae74..83b6b08 100644 --- a/lisp/km-magit.el +++ b/lisp/km-magit.el @@ -627,6 +627,12 @@ argument. Interactively, this can be accessed using the command 'git-commit-flyspell-verify) (turn-on-flyspell)) +(defun km/magit-log-current (&optional args files) + "Like `magit-log-current', but if head is detached, use \"HEAD\"." + (interactive (magit-log-arguments)) + (magit-log (list (or (magit-get-current-branch) "HEAD")) + args files)) + (defun km/magit-log-dwim (&optional args files) (interactive (magit-log-arguments)) (let ((range |