|
24
|
1 ;;; tex-info.el - Support for editing TeXinfo source.
|
|
|
2 ;;
|
|
|
3 ;; Maintainer: Per Abrahamsen <auc-tex@sunsite.auc.dk>
|
|
|
4 ;; Version: 9.7i
|
|
|
5
|
|
|
6 ;; Copyright (C) 1993, 1994, 1997 Per Abrahamsen
|
|
|
7 ;;
|
|
|
8 ;; This program is free software; you can redistribute it and/or modify
|
|
|
9 ;; it under the terms of the GNU General Public License as published by
|
|
|
10 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
11 ;; any later version.
|
|
|
12 ;;
|
|
|
13 ;; This program is distributed in the hope that it will be useful,
|
|
|
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
16 ;; GNU General Public License for more details.
|
|
|
17 ;;
|
|
|
18 ;; You should have received a copy of the GNU General Public License
|
|
|
19 ;; along with this program; if not, write to the Free Software
|
|
|
20 ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
21
|
|
|
22 ;;; Code:
|
|
|
23
|
|
|
24 (require 'tex)
|
|
|
25 (condition-case nil ;Lucid is not providing.
|
|
|
26 (require 'texinfo)
|
|
|
27 (error))
|
|
|
28
|
|
|
29 ;;; Environments:
|
|
|
30
|
|
|
31 (defvar TeXinfo-environment-list
|
|
|
32 '(("cartouche")
|
|
|
33 ("defcv")
|
|
|
34 ("deffn") ("defivar") ("defmac")
|
|
|
35 ("defmethod") ("defop") ("defopt") ("defspec") ("deftp")
|
|
|
36 ("deftypefn") ("deftypefun") ("deftypevar") ("deftypevr")
|
|
|
37 ("defun") ("defvar") ("defvr") ("description") ("display")
|
|
|
38 ("enumerate") ("example") ("ifset") ("ifclear") ("flushleft")
|
|
|
39 ("flushright") ("format") ("ftable") ("iftex") ("itemize")
|
|
|
40 ("lisp") ("quotation") ("smallexample") ("smalllisp") ("table")
|
|
|
41 ("tex") ("titlepage") ("vtable"))
|
|
|
42 "Alist of TeXinfo environments.")
|
|
|
43
|
|
|
44 (defconst texinfo-environment-regexp
|
|
|
45 ;; Overwrite version from `texinfo.el'.
|
|
|
46 (concat "^@\\("
|
|
|
47 (mapconcat 'car TeXinfo-environment-list "\\|")
|
|
|
48 "\\|end\\)")
|
|
|
49 "Regexp for environment-like TeXinfo list commands.
|
|
|
50 Subexpression 1 is what goes into the corresponding `@end' statement.")
|
|
|
51
|
|
|
52 (defun TeXinfo-insert-environment (env)
|
|
|
53 "Insert TeXinfo environment ENV.
|
|
|
54 When called interactively, prompt for an environment."
|
|
|
55 (interactive (list (completing-read "Environment: "
|
|
|
56 TeXinfo-environment-list)))
|
|
|
57 (insert "@" env "\n\n@end " env "\n")
|
|
|
58 (if (null (cdr-safe (assoc "defcv" TeXinfo-environment-list)))
|
|
|
59 (forward-line -2)
|
|
|
60 ;; apply arguments
|
|
|
61 ))
|
|
|
62
|
|
|
63 ;;; Keymap:
|
|
|
64
|
|
|
65 (defvar TeXinfo-mode-map nil
|
|
|
66 "Keymap for TeXinfo mode.")
|
|
|
67
|
|
|
68 (if TeXinfo-mode-map
|
|
|
69 ()
|
|
|
70 (setq TeXinfo-mode-map (make-sparse-keymap))
|
|
|
71
|
|
|
72 ;; From texinfo.el
|
|
|
73
|
|
|
74 ;; bindings for updating nodes and menus
|
|
|
75 (define-key TeXinfo-mode-map "\C-c\C-um" 'texinfo-master-menu)
|
|
|
76 (define-key TeXinfo-mode-map "\C-c\C-u\C-m" 'texinfo-make-menu)
|
|
|
77 (define-key TeXinfo-mode-map "\C-c\C-u\C-n" 'texinfo-update-node)
|
|
|
78 (define-key TeXinfo-mode-map "\C-c\C-u\C-e" 'texinfo-every-node-update)
|
|
|
79 (define-key TeXinfo-mode-map "\C-c\C-u\C-a" 'texinfo-all-menus-update)
|
|
|
80
|
|
|
81 ;; From TeX-mode
|
|
|
82
|
|
|
83 ;; Standard
|
|
|
84 (define-key TeXinfo-mode-map "\177" 'backward-delete-char-untabify)
|
|
|
85 (define-key TeXinfo-mode-map "\C-c}" 'up-list)
|
|
|
86 (define-key TeXinfo-mode-map "\C-c#" 'TeX-normal-mode)
|
|
|
87 (define-key TeXinfo-mode-map "\C-c\C-n" 'TeX-normal-mode)
|
|
|
88 (define-key TeXinfo-mode-map "\C-c?" 'describe-mode)
|
|
|
89
|
|
|
90 ;; From tex.el
|
|
|
91 (define-key TeXinfo-mode-map "\C-c{" 'TeX-insert-braces)
|
|
|
92 (define-key TeXinfo-mode-map "\C-c\C-f" 'TeX-font)
|
|
|
93 (define-key TeXinfo-mode-map "\C-c\C-m" 'TeX-insert-macro)
|
|
|
94 (define-key TeXinfo-mode-map "\e\t" 'TeX-complete-symbol)
|
|
|
95
|
|
|
96 (define-key TeXinfo-mode-map "\C-c;" 'TeX-comment-region)
|
|
|
97 (define-key TeXinfo-mode-map "\C-c%" 'TeX-comment-paragraph)
|
|
|
98 (define-key TeXinfo-mode-map "\C-c'" 'TeX-comment-paragraph) ;*** Old way
|
|
|
99 (define-key TeXinfo-mode-map "\C-c:" 'TeX-un-comment-region) ;*** Old way
|
|
|
100 (define-key TeXinfo-mode-map "\C-c\"" 'TeX-un-comment) ;*** Old way
|
|
|
101
|
|
|
102 ;; From tex-buf.el
|
|
|
103 (define-key TeXinfo-mode-map "\C-c\C-c" 'TeX-command-master)
|
|
|
104 (define-key TeXinfo-mode-map "\C-c\C-k" 'TeX-kill-job)
|
|
|
105 (define-key TeXinfo-mode-map "\C-c\C-l" 'TeX-recenter-output-buffer)
|
|
|
106 (define-key TeXinfo-mode-map "\C-c^" 'TeX-home-buffer)
|
|
|
107 (define-key TeXinfo-mode-map "\C-c`" 'TeX-next-error)
|
|
|
108 (define-key TeXinfo-mode-map "\C-c\C-w" 'TeX-toggle-debug-boxes)
|
|
|
109
|
|
|
110 ;; From tex.cpl.el
|
|
|
111
|
|
|
112 ;; Simulating LaTeX-mode
|
|
|
113
|
|
|
114 (define-key TeXinfo-mode-map "\C-c\C-e" 'TeXinfo-insert-environment)
|
|
|
115 (define-key TeXinfo-mode-map "\C-c\n" 'texinfo-insert-@item)
|
|
|
116 (define-key TeXinfo-mode-map "\C-c\C-s" 'texinfo-insert-@node)
|
|
|
117 (define-key TeXinfo-mode-map "\C-c]" 'texinfo-insert-@end))
|
|
|
118
|
|
|
119 (easy-menu-define TeXinfo-mode-menu
|
|
|
120 TeXinfo-mode-map
|
|
|
121 "Menu used in TeXinfo mode."
|
|
|
122 (list "TeXinfo"
|
|
|
123 ["Environment..." TeXinfo-insert-environment t]
|
|
|
124 ["Node..." texinfo-insert-@node t]
|
|
|
125 ["Macro..." TeX-insert-macro t]
|
|
|
126 ["Complete" TeX-complete-symbol t]
|
|
|
127 ["Item" texinfo-insert-@item t]
|
|
|
128 (list "Insert Font"
|
|
|
129 ["Emphasize" (TeX-font nil ?\C-e) :keys "C-c C-f C-e"]
|
|
|
130 ["Bold" (TeX-font nil ?\C-b) :keys "C-c C-f C-b"]
|
|
|
131 ["Typewriter" (TeX-font nil ?\C-t) :keys "C-c C-f C-t"]
|
|
|
132 ["Small Caps" (TeX-font nil ?\C-c) :keys "C-c C-f C-c"]
|
|
|
133 ["Italic" (TeX-font nil ?\C-i) :keys "C-c C-f C-i"]
|
|
|
134 ["Sample" (TeX-font nil ?\C-s) :keys "C-c C-f C-s"]
|
|
|
135 ["Roman" (TeX-font nil ?\C-r) :keys "C-c C-f C-r"])
|
|
|
136 (list "Change Font"
|
|
|
137 ["Emphasize" (TeX-font t ?\C-e) :keys "C-u C-c C-f C-e"]
|
|
|
138 ["Bold" (TeX-font t ?\C-b) :keys "C-u C-c C-f C-b"]
|
|
|
139 ["Typewriter" (TeX-font t ?\C-t) :keys "C-u C-c C-f C-t"]
|
|
|
140 ["Small Caps" (TeX-font t ?\C-c) :keys "C-u C-c C-f C-c"]
|
|
|
141 ["Italic" (TeX-font t ?\C-i) :keys "C-u C-c C-f C-i"]
|
|
|
142 ["Sample" (TeX-font t ?\C-s) :keys "C-u C-c C-f C-s"]
|
|
|
143 ["Roman" (TeX-font t ?\C-r) :keys "C-u C-c C-f C-r"])
|
|
|
144 "-"
|
|
|
145 ["Save Document" TeX-save-document t]
|
|
|
146 ["Next Error" TeX-next-error t]
|
|
|
147 (list "TeX Output"
|
|
|
148 ["Kill Job" TeX-kill-job t]
|
|
|
149 ["Debug Bad Boxes" TeX-toggle-debug-boxes
|
|
|
150 :style toggle :selected TeX-debug-bad-boxes ]
|
|
|
151 ["Switch to original file" TeX-home-buffer t]
|
|
|
152 ["Recenter Output Buffer" TeX-recenter-output-buffer t])
|
|
|
153 "--"
|
|
|
154 ["Create Master Menu" texinfo-master-menu t]
|
|
|
155 ["Create Menu" texinfo-make-menu t]
|
|
|
156 ["Update Node" texinfo-update-node t]
|
|
|
157 ["Update Every Node" texinfo-every-node-update t]
|
|
|
158 ["Update All Menus" texinfo-all-menus-update t]
|
|
|
159 ["Uncomment Region" TeX-un-comment-region t]
|
|
|
160 ["Comment Region" TeX-comment-region t]
|
|
|
161 ["Switch to Master file" TeX-home-buffer t]
|
|
|
162 ["Submit bug report" TeX-submit-bug-report t]
|
|
|
163 ["Reset Buffer" TeX-normal-mode t]
|
|
|
164 ["Reset AUC TeX" (TeX-normal-mode t) :keys "C-u C-c C-n"]))
|
|
|
165
|
|
|
166 (easy-menu-define TeXinfo-command-menu
|
|
|
167 TeXinfo-mode-map
|
|
|
168 "Menu used in TeXinfo mode for external commands."
|
|
|
169 (append '("Command")
|
|
|
170 (mapcar 'TeX-command-menu-entry TeX-command-list)))
|
|
|
171
|
|
|
172 (defvar TeXinfo-font-list
|
|
|
173 '((?\C-b "@b{" "}")
|
|
|
174 (?\C-c "@sc{" "}")
|
|
|
175 (?\C-e "@emph{" "}")
|
|
|
176 (?\C-i "@i{" "}")
|
|
|
177 (?\C-r "@r{" "}")
|
|
|
178 (?\C-s "@samp{" "}")
|
|
|
179 (?\C-t "@t{" "}")
|
|
|
180 (?s "@strong{" "}")
|
|
|
181 (?\C-f "@file{" "}")
|
|
|
182 (?\C-d "@dfn{" "}")
|
|
|
183 (?\C-v "@var{" "}")
|
|
|
184 (?k "@key{" "}")
|
|
|
185 (?\C-k "@kbd{" "}")
|
|
|
186 (?c "@code{" "}")
|
|
|
187 (?C "@cite{" "}"))
|
|
|
188 "Font commands used in TeXinfo mode. See `TeX-font-list'.")
|
|
|
189
|
|
|
190 ;;; Mode:
|
|
|
191
|
|
|
192 ;;; Do not ;;;###autoload because of conflict with standard tex-mode.el.
|
|
|
193 (defun texinfo-mode ()
|
|
|
194 "Major mode for editing files of input for TeXinfo.
|
|
|
195
|
|
|
196 Special commands:
|
|
|
197 \\{TeXinfo-mode-map}
|
|
|
198
|
|
|
199 Entering TeXinfo mode calls the value of text-mode-hook,
|
|
|
200 then the value of TeX-mode-hook, and then the value of
|
|
|
201 TeXinfo-mode-hook."
|
|
|
202 (interactive)
|
|
|
203 ;; Mostly stolen from texinfo.el
|
|
|
204 (setq mode-name "TeXinfo")
|
|
|
205 (setq major-mode 'texinfo-mode)
|
|
|
206 (use-local-map TeXinfo-mode-map)
|
|
|
207 (set-syntax-table texinfo-mode-syntax-table)
|
|
|
208 (make-local-variable 'page-delimiter)
|
|
|
209 (setq page-delimiter
|
|
|
210 (concat
|
|
|
211 "^@node [ \t]*[Tt]op\\|^@\\("
|
|
|
212 texinfo-chapter-level-regexp
|
|
|
213 "\\)"))
|
|
|
214 (make-local-variable 'require-final-newline)
|
|
|
215 (setq require-final-newline t)
|
|
|
216 (make-local-variable 'indent-tabs-mode)
|
|
|
217 (setq indent-tabs-mode nil)
|
|
|
218 (make-local-variable 'paragraph-separate)
|
|
|
219 (setq paragraph-separate
|
|
|
220 (concat "\b\\|^@[a-zA-Z]*[ \n]\\|" paragraph-separate))
|
|
|
221 (make-local-variable 'paragraph-start)
|
|
|
222 (setq paragraph-start
|
|
|
223 (concat "\b\\|^@[a-zA-Z]*[ \n]\\|" paragraph-start))
|
|
|
224 (make-local-variable 'fill-column)
|
|
|
225 (setq fill-column 72)
|
|
|
226 (make-local-variable 'comment-start)
|
|
|
227 (setq comment-start "@c ")
|
|
|
228 (make-local-variable 'comment-start-skip)
|
|
|
229 (setq comment-start-skip "@c +\\|@comment +")
|
|
|
230 (make-local-variable 'words-include-escapes)
|
|
|
231 (setq words-include-escapes t)
|
|
|
232 (if (not (boundp 'texinfo-imenu-generic-expression))
|
|
|
233 ;; This was introduced in 19.30.
|
|
|
234 ()
|
|
|
235 (make-local-variable 'imenu-generic-expression)
|
|
|
236 (setq imenu-generic-expression texinfo-imenu-generic-expression))
|
|
|
237 (make-local-variable 'font-lock-defaults)
|
|
|
238 (setq font-lock-defaults '(texinfo-font-lock-keywords t))
|
|
|
239 (if (not (boundp 'texinfo-section-list))
|
|
|
240 ;; This was included in 19.31.
|
|
|
241 ()
|
|
|
242 (make-local-variable 'outline-regexp)
|
|
|
243 (setq outline-regexp
|
|
|
244 (concat "@\\("
|
|
|
245 (mapconcat 'car texinfo-section-list "\\>\\|")
|
|
|
246 "\\>\\)"))
|
|
|
247 (make-local-variable 'outline-level)
|
|
|
248 (setq outline-level 'texinfo-outline-level))
|
|
|
249
|
|
|
250 ;; Mostly AUC TeX stuff
|
|
|
251 (easy-menu-add TeXinfo-command-menu TeXinfo-mode-map)
|
|
|
252 (easy-menu-add TeXinfo-mode-menu TeXinfo-mode-map)
|
|
|
253 (make-local-variable 'TeX-command-current)
|
|
|
254 (setq TeX-command-current 'TeX-command-master)
|
|
|
255
|
|
|
256 (setq TeX-default-extension "texi")
|
|
|
257 (make-local-variable 'TeX-esc)
|
|
|
258 (setq TeX-esc "@")
|
|
|
259
|
|
|
260 (make-local-variable 'TeX-auto-regexp-list)
|
|
|
261 (setq TeX-auto-regexp-list 'TeX-auto-empty-regexp-list)
|
|
|
262 (make-local-variable 'TeX-auto-update)
|
|
|
263 (setq TeX-auto-update t)
|
|
|
264
|
|
|
265 (setq TeX-command-default "TeX")
|
|
|
266 (setq TeX-header-end "%**end")
|
|
|
267 (setq TeX-trailer-start (regexp-quote (concat TeX-esc "bye")))
|
|
|
268
|
|
|
269 (make-local-variable 'TeX-complete-list)
|
|
|
270 (setq TeX-complete-list
|
|
|
271 (list (list "@\\([a-zA-Z]*\\)" 1 'TeX-symbol-list nil)
|
|
|
272 (list "" TeX-complete-word)))
|
|
|
273
|
|
|
274 (make-local-variable 'TeX-font-list)
|
|
|
275 (setq TeX-font-list TeXinfo-font-list)
|
|
|
276
|
|
|
277 (TeX-add-symbols
|
|
|
278 '("appendix" "Title")
|
|
|
279 '("appendixsec" "Title")
|
|
|
280 '("appendixsection" "Title")
|
|
|
281 '("appendixsubsec" "Title")
|
|
|
282 '("appendixsubsubsec" "Title")
|
|
|
283 '("asis")
|
|
|
284 '("author" "Author")
|
|
|
285 '("b" "Text")
|
|
|
286 '("bullet")
|
|
|
287 '("bye")
|
|
|
288 '("c" "Comment")
|
|
|
289 '("center" "Line-of-text")
|
|
|
290 '("chapheading" "Title")
|
|
|
291 '("chapter" "Title")
|
|
|
292 '("cindex" "Entry")
|
|
|
293 '("cite" "Reference")
|
|
|
294 '("clear" "Flag")
|
|
|
295 '("code" "Sample-code")
|
|
|
296 '("comment" "Comment")
|
|
|
297 '("contents")
|
|
|
298 '("copyright")
|
|
|
299 '("defcodeindex" "Index-name")
|
|
|
300 '("defindex" "Index-name")
|
|
|
301 '("dfn" "Term")
|
|
|
302 '("dmn" "Dimension")
|
|
|
303 '("dots")
|
|
|
304 '("emph" "Text")
|
|
|
305 '("equiv")
|
|
|
306 '("error")
|
|
|
307 '("evenfooting" TeXinfo-lrc-argument-hook)
|
|
|
308 '("evenheading" TeXinfo-lrc-argument-hook)
|
|
|
309 '("everyfooting" TeXinfo-lrc-argument-hook)
|
|
|
310 '("everyheading" TeXinfo-lrc-argument-hook)
|
|
|
311 '("exdent" "Line-of-text")
|
|
|
312 '("expansion")
|
|
|
313 '("file" "Filename")
|
|
|
314 '("finalout")
|
|
|
315 '("findex" "Entry")
|
|
|
316 '("footnote" "Text-of-footnote")
|
|
|
317 '("footnotestyle" "Style")
|
|
|
318 '("group")
|
|
|
319 '("heading" "Title")
|
|
|
320 '("headings" "On-off-single-double")
|
|
|
321 '("i" "Text")
|
|
|
322 '("ignore")
|
|
|
323 '("include" "Filename")
|
|
|
324 '("inforef" "Node-name" "Info-file-name")
|
|
|
325 '("item")
|
|
|
326 '("itemx")
|
|
|
327 '("kbd" "Keyboard-characters")
|
|
|
328 '("key" "Key-name")
|
|
|
329 '("kindex" "Entry")
|
|
|
330 '("majorheading" "Title")
|
|
|
331 '("menu")
|
|
|
332 '("minus")
|
|
|
333 '("need" "N")
|
|
|
334 '("node" "Name" "Next" "Previous" "Up")
|
|
|
335 '("noindent")
|
|
|
336 '("oddfooting" TeXinfo-lrc-argument-hook)
|
|
|
337 '("oddheading" TeXinfo-lrc-argument-hook)
|
|
|
338 '("page")
|
|
|
339 '("paragraphindent" "Indent")
|
|
|
340 '("pindex" "Entry")
|
|
|
341 '("point")
|
|
|
342 '("print")
|
|
|
343 '("printindex" "Index-name")
|
|
|
344 '("pxref" "Node-name")
|
|
|
345 '("r" "Text")
|
|
|
346 '("ref" "Node-name")
|
|
|
347 '("refill")
|
|
|
348 '("result")
|
|
|
349 '("samp" "Text")
|
|
|
350 '("sc" "Text")
|
|
|
351 '("section" "Title")
|
|
|
352 '("set" "Flag")
|
|
|
353 '("setchapternewpage" "On-off-odd")
|
|
|
354 '("setfilename" "Info-file-name")
|
|
|
355 '("settitle" "Title")
|
|
|
356 '("shortcontents")
|
|
|
357 '("smallbook")
|
|
|
358 '("sp" "N")
|
|
|
359 '("strong" "Text")
|
|
|
360 '("subheading" "Title")
|
|
|
361 '("subsection" "Title")
|
|
|
362 '("subsubheading" "Title")
|
|
|
363 '("subsubsection" "Title")
|
|
|
364 '("subtitle" "Title")
|
|
|
365 '("summarycontents")
|
|
|
366 '("syncodeindex" "From-index" "Into-index")
|
|
|
367 '("synindex" "From-index" "Into-index")
|
|
|
368 '("t" "Text")
|
|
|
369 '("TeX")
|
|
|
370 '("thischapter")
|
|
|
371 '("thischaptername")
|
|
|
372 '("thisfile")
|
|
|
373 '("thispage")
|
|
|
374 '("tindex" "Entry")
|
|
|
375 '("title" "Title")
|
|
|
376 '("titlefont" "Text")
|
|
|
377 '("titlepage")
|
|
|
378 '("today")
|
|
|
379 '("top" "Title")
|
|
|
380 '("unnumbered" "Title")
|
|
|
381 '("unnumberedsec" "Title")
|
|
|
382 '("unnumberedsubsec" "Title")
|
|
|
383 '("unnumberedsubsubsec" "Title")
|
|
|
384 '("value" "Flag")
|
|
|
385 '("var" "Metasyntactic-variable")
|
|
|
386 '("vindex" "Entry")
|
|
|
387 '("vskip" "Amount")
|
|
|
388 '("w" "Text"))
|
|
|
389
|
|
|
390 (run-hooks 'text-mode-hook 'TeXinfo-mode-hook))
|
|
|
391
|
|
|
392 (provide 'tex-info)
|
|
|
393
|
|
|
394 ;;; tex-info.el ends here
|
