blob: 1392c96d8419e3d3fbe56be1d802f49ed0fae704 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
;;; evil-collection-forge.el --- Evil-based key bindings for forge -*- lexical-binding: t; -*-
;; Copyright (C) 2021 James Nguyen
;; Author: James Nguyen <james@jojojames.com>
;; Maintainer: James Nguyen <james@jojojames.com>
;; Package-Requires: ((emacs "26.3") (evil "1.2.3"))
;; Homepage: https://github.com/emacs-evil/evil-collection
;; Version: 0.4.1
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published
;; by the Free Software Foundation; either version 3, or (at your
;; option) any later version.
;;
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; For a full copy of the GNU General Public License
;; see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; This library configures Magit and Evil to play well with each
;; other. For some background see:
;; https://github.com/emacs-evil/evil-collection/issues/543.
;;; Code:
(require 'evil-collection)
(require 'forge nil t)
(require 'transient nil t)
(defcustom evil-collection-forge-use-y-for-yank t
"View `evil-collection-magit-state' for more information."
:group 'magit
:type 'boolean)
(defcustom evil-collection-forge-state
(if evil-collection-forge-use-y-for-yank 'normal 'motion)
"State to use for forge."
:group 'magit
:type 'symbol)
(defvar forge-add-default-bindings)
;;;###autoload
(defun evil-collection-forge-setup ()
"Set up `evil' bindings for `magit'."
;; The latest release tag of forge doesn't include
;; `forge-add-default-bindings' yet, it will throw an error:
;;
;; void-variable `forge-add-default-bindings'
;;
;; for GNU Guix and MELPA stable users.
(when (bound-and-true-p forge-add-default-bindings)
(message "Setting `forge-add-default-bindings' to nil in `evil-collection-forge-setup'.
To suppress this message you can set this variable to nil in your init.el file.")
(setq forge-add-default-bindings nil))
(let ((states (if evil-collection-forge-use-y-for-yank
`(,evil-collection-forge-state visual)
`(,evil-collection-forge-state))))
(dolist (state states)
(evil-collection-define-key state 'magit-mode-map "@" 'forge-dispatch)
(evil-collection-define-key
state 'magit-commit-section-map
[remap magit-browse-thing] 'forge-browse-dwim)
(evil-collection-define-key
state 'magit-remote-section-map
[remap magit-browse-thing] 'forge-browse-remote)
(evil-collection-define-key
state 'magit-branch-section-map
[remap magit-browse-thing] 'forge-browse-branch)
(evil-collection-define-key
state 'magit-commit-section-map (kbd "C-c C-v") 'forge-visit-topic)
(evil-collection-define-key
state 'magit-branch-section-map (kbd "C-c C-v") 'forge-visit-topic)))
;; https://github.com/magit/forge/blob/master/lisp/forge.el
(transient-append-suffix 'magit-dispatch "!"
'("@" "Forge" forge-dispatch)) ;; N -> @
(transient-append-suffix 'magit-fetch "m"
'("n" "forge topics" forge-pull))
(transient-append-suffix 'magit-fetch "n"
'("N" "forge notifications" forge-pull-notifications))
(transient-append-suffix 'magit-pull "m"
'("n" "forge topics" forge-pull))
(transient-append-suffix 'magit-pull "n"
'("N" "forge notifications" forge-pull-notifications))
(transient-append-suffix 'magit-branch "w"
'("f" "pull-request" forge-checkout-pullreq))
(transient-append-suffix 'magit-branch "W"
'("F" "from pull-request" forge-branch-pullreq))
(transient-append-suffix 'magit-worktree "c"
'("n" "pull-request worktree" forge-checkout-worktree))
(transient-append-suffix 'magit-status-jump "w"
'("Np" "pull-requests" forge-jump-to-pullreqs))
(transient-append-suffix 'magit-status-jump "Np"
'("Ni" "issues" forge-jump-to-issues))
(transient-append-suffix 'magit-merge "a"
'(7 "M" "Merge using API" forge-merge)))
;;; evil-collection-forge.el ends soon
(provide 'evil-collection-forge)
;; Local Variables:
;; End:
;;; evil-collection-forge.el ends here
|
