Created
April 1, 2017 05:35
-
-
Save jasonm23/6326d278d99fe82f252a90d9b9ad61db to your computer and use it in GitHub Desktop.
Use Magit and Emacs with git-duet (Just a basic commit feature)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(require 'dash) | |
(defvar magit-duet--default-commit-popup-actions nil | |
"Store the magit-commit-popup here for | |
de-initializing. magit-duet-commit") | |
(defun magit-duet-commit (&optional args) | |
"Create a new duet commit" | |
(interactive (if current-prefix-arg | |
(list (cons "--amend" (magit-commit-arguments))) | |
(list (magit-commit-arguments)))) | |
(when (setq args (magit-commit-assert args)) | |
(magit-run-git-with-editor "duet-commit" args))) | |
(defun magit-duet-commit-init () | |
"Add duet-commit to magit commit popup.." | |
(interactive) | |
(when (eq magit-duet--default-commit-popup-actions nil) | |
(setq magit-duet--default-commit-popup-actions | |
(plist-get magit-commit-popup :actions)) | |
(plist-put | |
magit-commit-popup | |
:actions | |
(-remove-at 5 (-insert-at 4 | |
'(100 "Duet commit" magit-duet-commit) | |
(plist-get magit-commit-popup :actions)))))) | |
(defun magit-duet-commit-deinit () | |
"Remove duet-commit from magit commit popup.." | |
(interactive) | |
(unless (eq magit-duet--default-commit-popup-actions nil) | |
(plist-put magit-commit-popup | |
:actions | |
magit-duet--default-commit-popup-actions))) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
See fix here: https://emacs.stackexchange.com/questions/51363/how-can-you-configure-magit-for-duet-commit