HCoop / bpt / emacs.git / blame
| 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. | |
| 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")) |