diff options
| -rw-r--r-- | .emacs | 21 |
1 files changed, 18 insertions, 3 deletions
@@ -226,6 +226,20 @@ (require 'project) (magit-status (project-prompt-project-dir))) +(defun my/magit-toggle-margin-date () + (interactive) + (let ((do-message + (lambda (old new) + (message + "%s ⇒ %s" + (propertize old 'face 'shadow) + (propertize new 'face 'bold))))) + (apply do-message (if magit-log-margin-show-committer-date + '("commit" "author") '("author" "commit"))) + (setq magit-log-margin-show-committer-date + (not magit-log-margin-show-committer-date)) + (revert-buffer))) + (defmacro my/define-prefix-command (name doc bindings) (declare (indent defun)) `(defvar ,name @@ -255,10 +269,11 @@ (my/define-prefix-command my/magit-map "Keymap for Magit commands." - '(("f" magit-file-dispatch) - ("\C-f" magit-find-file) + '(("d" my/magit-toggle-margin-date) + ("f" magit-file-dispatch) ("g" magit-status) - ("x" magit-dispatch))) + ("x" magit-dispatch) + ("\C-f" magit-find-file))) (my/define-prefix-command my/input-map "Keymap for input methods shortcuts." |