mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-22 07:09:54 +00:00
62 lines
2.1 KiB
EmacsLisp
62 lines
2.1 KiB
EmacsLisp
;; 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"))
|
|
|
|
;;; arch-tag: 848955fe-e9cf-45e7-a2f1-570ef156d6a5
|