Mercurial > emacs
diff lispref/two.el @ 41193:1377d461b09c
*** empty log message ***
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 17 Nov 2001 09:38:14 +0000 |
parents | |
children | 23a1cea22d13 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lispref/two.el Sat Nov 17 09:38:14 2001 +0000 @@ -0,0 +1,59 @@ +;; Auxilary functions for preparing a two volume manual. +;; --rjc 30mar92 + +(defun volume-aux-markup (arg) + "Append `vol. NUMBER' to page number. +Apply to aux file that you save. +Then insert marked file into other volume's .aux file." + (interactive "sType volume number, 1 or 2: " ) + (goto-char (point-min)) + (while (search-forward "-pg" nil t) + (end-of-line 1) + (delete-backward-char 1 nil) + (insert ", vol.'tie" arg "}"))) + +(defun volume-index-markup (arg) + "Prepend `NUMBER:' to page number. Use Roman Numeral. +Apply only to unsorted index file, +Then insert marked file into other volume's unsorted index file. +Then run texindex on that file and save." + (interactive + "sType volume number, roman number I or II: " ) + (goto-char (point-min)) + (while (search-forward "\\entry" nil t) + (search-forward "}{" (save-excursion (end-of-line) (point)) nil) + (insert arg ":"))) + +(defun volume-numbers-toc-markup (arg) + (interactive + "sType volume number, roman number I or II: " ) + (goto-char (point-min)) + (while (search-forward "chapentry" nil t) + (end-of-line) + (search-backward "{" nil t) + (forward-char 1) + (insert arg ":"))) + +(defun volume-header-toc-markup () + "Insert Volume I and Volume II text into .toc file. +NOTE: this auxilary function is file specific. +This is for the *Elisp Ref Manual*" + (interactive) + (goto-char (point-min)) + (insert "\\unnumbchapentry {Volume 1}{}\n\\unnumbchapentry {}{}\n") + (search-forward "\\unnumbchapentry {Index}") + (forward-line 1) + (insert + "\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {}{}\n\\unnumbchapentry {Volume 2}{}\n\\unnumbchapentry {}{}\n")) + + +;;; In batch mode, you cannot call functions with args; hence this kludge: + +(defun volume-aux-markup-1 () (volume-aux-markup "1")) +(defun volume-aux-markup-2 () (volume-aux-markup "2")) + +(defun volume-index-markup-I () (volume-index-markup "I")) +(defun volume-index-markup-II () (volume-index-markup "II")) + +(defun volume-numbers-toc-markup-I () (volume-numbers-toc-markup "I")) +(defun volume-numbers-toc-markup-II () (volume-numbers-toc-markup "II"))