view lispref/two.el @ 83384:08b4dd6a6e87

Merged from [e-mail]--gnu-2005 (patch 578-592) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-578 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-579 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-580 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-581 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-582 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-583 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-584 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-585 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-586 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-587 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-588 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-589 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-590 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-591 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-592 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-424

;; 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