|
41193
|
1 ;; Auxilary functions for preparing a two volume manual.
|
|
|
2 ;; --rjc 30mar92
|
|
|
3
|
|
|
4 (defun volume-aux-markup (arg)
|
|
|
5 "Append `vol. NUMBER' to page number.
|
|
|
6 Apply to aux file that you save.
|
|
|
7 Then insert marked file into other volume's .aux file."
|
|
|
8 (interactive "sType volume number, 1 or 2: " )
|
|
|
9 (goto-char (point-min))
|
|
|
10 (while (search-forward "-pg" nil t)
|
|
|
11 (end-of-line 1)
|
|
|
12 (delete-backward-char 1 nil)
|
|
|
13 (insert ", vol.'tie" arg "}")))
|
|
|
14
|
|
|
15 (defun volume-index-markup (arg)
|
|
|
16 "Prepend `NUMBER:' to page number. Use Roman Numeral.
|
|
|
17 Apply only to unsorted index file,
|
|
|
18 Then insert marked file into other volume's unsorted index file.
|
|
|
19 Then run texindex on that file and save."
|
|
|
20 (interactive
|
|
|
21 "sType volume number, roman number I or II: " )
|
|
|
22 (goto-char (point-min))
|
|
|
23 (while (search-forward "\\entry" nil t)
|
|
|
24 (search-forward "}{" (save-excursion (end-of-line) (point)) nil)
|
|
|
25 (insert arg ":")))
|
|
|
26
|
|
|
27 (defun volume-numbers-toc-markup (arg)
|
|
|
28 (interactive
|
|
|
29 "sType volume number, roman number I or II: " )
|
|
|
30 (goto-char (point-min))
|
|
|
31 (while (search-forward "chapentry" nil t)
|
|
|
32 (end-of-line)
|
|
|
33 (search-backward "{" nil t)
|
|
|
34 (forward-char 1)
|
|
|
35 (insert arg ":")))
|
|
|
36
|
|
|
37 (defun volume-header-toc-markup ()
|
|
|
38 "Insert Volume I and Volume II text into .toc file.
|
|
|
39 NOTE: this auxilary function is file specific.
|
|
|
40 This is for the *Elisp Ref Manual*"
|
|
|
41 (interactive)
|
|
|
42 (goto-char (point-min))
|
|
|
43 (insert "\\unnumbchapentry {Volume 1}{}\n\\unnumbchapentry {}{}\n")
|
|
|
44 (search-forward "\\unnumbchapentry {Index}")
|
|
|
45 (forward-line 1)
|
|
|
46 (insert
|
|
|
47 "\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {Volume 2}{}\n\\unnumbchapentry {}{}\n"))
|
|
|
48
|
|
|
49
|
|
|
50 ;;; In batch mode, you cannot call functions with args; hence this kludge:
|
|
|
51
|
|
|
52 (defun volume-aux-markup-1 () (volume-aux-markup "1"))
|
|
|
53 (defun volume-aux-markup-2 () (volume-aux-markup "2"))
|
|
|
54
|
|
|
55 (defun volume-index-markup-I () (volume-index-markup "I"))
|
|
|
56 (defun volume-index-markup-II () (volume-index-markup "II"))
|
|
|
57
|
|
|
58 (defun volume-numbers-toc-markup-I () (volume-numbers-toc-markup "I"))
|
|
|
59 (defun volume-numbers-toc-markup-II () (volume-numbers-toc-markup "II"))
|
