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
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
|
;;; evil-collection-reftex.el --- Bindings for `reftex' -*- lexical-binding: t -*-
;; Copyright (C) 2017 Pierre Neidhardt
;; Author: Maximiliano Sandoval <msandova@protonmail.com>
;; Maintainer: James Nguyen <james@jojojames.com>
;; Pierre Neidhardt <mail@ambrevar.xyz>
;; URL: https://github.com/emacs-evil/evil-collection
;; Version: 0.0.1
;; Package-Requires: ((emacs "26.3"))
;; Keywords: evil, reftex, tools
;; 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:
;; Evil bindings for `reftex-mode'.
;;; Code:
(require 'evil-collection)
(require 'reftex-ref nil t)
(require 'reftex-ref nil t)
(require 'reftex-cite nil t)
(require 'reftex-toc nil t)
(defconst evil-collection-reftex-maps '(reftex-select-shared-map
reftex-toc-mode-map))
;; original code can be found in reftex-ref.el
(setq reftex-select-label-prompt
"Select: [RET]select [j]next [k]previous [gr]escan [go]context [q]uit [g?]help")
;; original code can be found in reftex-cite.el
(setq reftex-citation-prompt
"Select: [RET]select [j]next [k]previous [q]uit [g?]help")
;; original at reftex-ref.el
(setq reftex-select-label-help
" j / k Go to next/previous label (Cursor motion works as well)
[ / ] Go to previous/next section heading.
c Reuse last referenced label.
J Jump to a specific section, e.g. '3 J' jumps to section 3.
s Switch label type.
gr Reparse document.
go / gO Show context / Show insertion point.
S Switch to label menu of external document (with LaTeX package `xr').
r / R Toggle \\ref <-> \\vref / Rotate \\ref <=> \\fref <=> \\Fref.
TAB Enter a label with completion.
m / M Mark/unmark entry.
x / X Put all marked entries into one/many \\ref commands.
q / RET Quit without referencing / Accept current label.")
;; code can be found in reftex-cite.el
(setq reftex-citation-help
" j / k Go to next/previous entry (Cursor motion works as well).
go / gO Show citation / Show insertion point.
q Quit without inserting \\cite macro into buffer.
TAB Enter citation key with completion.
RET Accept current entry and create \\cite macro.
m / M Mark/Unmark the entry.
o / O Create BibTeX file with all marked / unmarked entries.
X / X Put all (marked) entries into one/many \\cite commands.")
(setq reftex-toc-help
" AVAILABLE KEYS IN TOC BUFFER
============================
j / k next-line / previous-line
go Show the corresponding location of the LaTeX document.
TAB Goto the location and keep the TOC window.
RET Goto the location and hide the TOC window (also on mouse-2).
< / > Promote / Demote section, or all sections in region.
zi Display Index. With prefix arg, restrict index to current section.
q / ZZ Hide/Kill *toc* buffer, return to position of reftex-toc command.
l i c F Toggle display of [l]abels, [i]ndex, [c]ontext, [F]ile borders.
f Toggle follow mode
gr / gR Reparse the LaTeX document / Reparse entire LaTeX document.
. In other window, show position from where `reftex-toc' was called.
rl Global search and replace to rename label at point.
x Switch to TOC of external document (with LaTeX package `xr').
J Jump to a specific section (e.g. '3 J' goes to section 3).")
;;;###autoload
(defun evil-collection-reftex-setup ()
"Set up `evil' bindings for `reftex'."
(evil-set-initial-state 'reftex-select-label-mode 'normal)
(evil-set-initial-state 'reftex-select-bib-mode 'normal)
(evil-collection-define-key 'normal 'reftex-select-shared-map
"j" 'reftex-select-next
"k" 'reftex-select-previous
(kbd "]]") 'reftex-select-next-heading
(kbd "[[") 'reftex-select-previous-heading
(kbd "gj") 'reftex-select-next-heading
(kbd "gk") 'reftex-select-previous-heading
(kbd "C-j") 'reftex-select-next-heading
(kbd "C-k") 'reftex-select-previous-heading
(kbd "RET") 'reftex-select-accept
"go" 'reftex-select-callback ;shows the point where the label is
"gr" (lambda nil "Press `?' during selection to find out
about this key" (interactive) (throw (quote myexit) 114)) ;reftex binds keys in a very arcane way using the number asigned by describe-char, in this case the value of "g" is 114
"q" 'reftex-select-quit
"ZZ" 'reftex-select-quit
"ZQ" 'evil-quit
"g?" 'reftex-select-help
"c" (lambda nil "Press `?' during selection to find out
about this key." (interactive) (throw (quote myexit) 108))
"J" 'reftex-select-jump ;; weird binding, using default
(kbd "<tab>") 'reftex-select-read-label
"s" (lambda nil "Press `?' during selection to find out
about this key." (interactive) (throw (quote myexit) 115))
"x" (lambda nil "Press `?' during selection to find out
about this key." (interactive) (throw (quote myexit) 97))
"X" (lambda nil "Press `?' during selection to find out
about this key." (interactive) (throw (quote myexit) 65))
"S" (lambda nil "Press `?' during selection to find out
about this key." (interactive) (throw (quote myexit) 120))
"r" 'reftex-select-cycle-ref-style-forward
"R" 'reftex-select-cycle-ref-style-backward
"gO" 'reftex-select-show-insertion-point
"o" (lambda nil "Press `?' during selection to find out
about this key." (interactive) (throw (quote myexit) 101))
"O" (lambda nil "Press `?' during selection to find out
about this key." (interactive) (throw (quote myexit) 69))
;; mark
"m" 'reftex-select-mark ; TODO: Need a mark toggle function.
"u" 'reftex-select-unmark)
(evil-set-initial-state 'reftex-toc-mode 'normal)
;; This one is more involved, in reftex-toc.el, line 267 it shows the prompt
;; string with the keybinds and I don't see any way of changing it to show evil-like binds.
(evil-collection-define-key 'normal 'reftex-toc-mode-map
"j" 'reftex-toc-next
"k" 'reftex-toc-previous
"go" 'reftex-toc-view-line
"gO" 'reftex-toc-view-line
(kbd "RET") 'reftex-toc-goto-line-and-hide
(kbd "<tab>") 'reftex-toc-goto-line
"g?" 'reftex-toc-show-help
"?" 'reftex-toc-show-help
"q" 'reftex-toc-quit
"ZZ" 'reftex-toc-quit-and-kill
"ZQ" 'evil-quit
"gr" 'reftex-toc-rescan
"gR" 'reftex-toc-Rescan
"l" 'reftex-toc-toggle-labels
"i" 'reftex-toc-toggle-index
"c" 'reftex-toc-toggle-context
"F" 'reftex-toc-toggle-file-boundary
"rl" 'reftex-toc-rename-label
"zi" 'reftex-toc-display-index
"x" 'reftex-toc-external
"." 'reftex-toc-show-calling-point
"J" 'reftex-toc-jump
(kbd "[[") 'reftex-toc-previous-heading
(kbd "]]") 'reftex-toc-next-heading
(kbd ">") 'reftex-toc-promote
(kbd "<") 'reftex-toc-demote
"f" 'reftex-toc-toggle-follow))
(provide 'evil-collection-reftex)
;;; evil-collection-reftex.el ends here
|
