Commit | Line | Data |
---|---|---|
9f8bbf0f EZ |
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. | |
177c0ea7 | 17 | Apply only to unsorted index file, |
9f8bbf0f EZ |
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) | |
177c0ea7 | 46 | (insert |
9f8bbf0f EZ |
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")) | |
ab5796a9 MB |
60 | |
61 | ;;; arch-tag: 848955fe-e9cf-45e7-a2f1-570ef156d6a5 |