;;; tex-site.el - Site specific variables.

;; Copyright (C) 1991 Kresten Krab Thorup 
;; Copyright (C) 1993, 1994 Per Abrahamsen 

;; Author: Per Abrahamsen <abraham@iesd.auc.dk>
;; Maintainer: AUC TeX Managers <auc-tex_mgr@iesd.auc.dk>
;; Version: $Id: tex-site.el,v 5.76 1995/01/24 22:52:52 amanda Exp $
;; Keywords: wp

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; 
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;; 
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

;;; Commentary:

;; This file contains variables customized for the local site.

;; It also contains all necessary autoloads, so the user can simple
;; enable AUC TeX by putting (load "tex-site") in his .emacs file,
;; or the administrator can insert it in the site-start.el file.
;;
;; The ideal place for this file is in the `site-lisp' directory.

;;; Code:


(defvar no-doc
  "This function is part of AUC TeX, but has not yet been loaded.
Full documentation will be available after autoloading the function."
  "Documentation for autoload functions.")

;;; Customization:
;;
;; Copy variables you need to change from the start of `tex.el' and
;; insert them here.

;; Before emacs-20.3
;;;(defvar TeX-lisp-directory "/usr/local/share/emacs/site-lisp/auctex/"
;;;  "*The directory where the AUC TeX lisp files are located.")

;; Hack: Try with x-emacs auctex
(defvar TeX-lisp-directory "/home/ki/strecker/emacs/"
  "*The directory where the AUC TeX lisp files are located.")

;; Change this to point to the place where the TeX macros are stored
;; at yourt site.
(defvar TeX-macro-global '("/usr/local/lib/texmf/tex/" 
			   "/usr/local/tex/inputs/unsupported/"
			   "~/Tex/")
  "*Directories containing the sites TeX macro files and style files.
The directory names *must* end with a slash.")


(defvar TeX-queue-command "lpstat -d %p"
  "*Command used to show the status of a printer queue. 

First %p is expanded to the printer name, then ordinary expansion is
performed as specified in TeX-expand-list.")


;; translate string %f4 into <filename>-4.ps (for use with psnup)
(defun translf4 ()
  (concatenate 'string (TeX-master-file) "-4.ps"))

;;(defvar TeX-expand-list (cons '("%h" translf4) TeX-expand-list))
;;(setq TeX-expand-list (cons '("%h" translf4) TeX-expand-list))

(setq TeX-command-list
  '(("acroread" "acroread %s.pdf" TeX-run-background t nil)
    ("BibTeX" "bibtex %s" TeX-run-BibTeX nil nil)
    ("Check" "lacheck %s" TeX-run-compile nil t)
    ("DviPS" "dvips %d -o %f " TeX-run-command t nil)
    ("Foilview" "xdvi -expert -paper a4r %s.dvi " TeX-run-background t nil)
    ("Ghostview" "gv %f " TeX-run-background t nil)
    ("Index" "makeindex %s" TeX-run-command nil t)
    ("LaTeX" "%l '\\nonstopmode\\input{%t}'" TeX-run-LaTeX nil t)
    ("LaTeX Interactive" "%l %t" TeX-run-interactive nil t)
    ("Makeinfo" "makeinfo %t" TeX-run-compile nil t)
    ("Other" "" TeX-run-command t t)
    ("pdflatex" "pdflatex '\\nonstopmode\\input{%t}'" TeX-run-LaTeX nil t)
    ("Print" "nlp %f" TeX-run-command t nil)
    ("ppower" "/home/streckem/bin/ppower4 %s.pdf %s_trans.pdf" TeX-run-command t nil)
    ("psnup" "psnup -4 %f > %h" TeX-run-command t nil)
    ("Queue" "%q" TeX-run-background nil nil)
    ("Spell" "<ignored>" TeX-run-ispell nil nil)
    ("TeX" "tex '\\nonstopmode\\input %t'" TeX-run-TeX nil t)
    ("TeX Interactive" "tex %t" TeX-run-interactive nil t)
    ("View" "xdvi -expert %s.dvi" TeX-run-background t nil)
    ))

; Each element is a list, whose first element is the name of the command
; as it will be presented to the user.  

; The second element is the string handed to the shell after being
; expanded. The expansion is done using the information found in
; TeX-expand-list. 

; The third element is the function which actually start the process.
; Several such hooks has been defined:

; TeX-run-command: Start up the process and show the output in a
; separate buffer.  Check that there is not two commands running for the
; same file.  Return the process object. 

; TeX-run-format: As TeX-run-command, but assume the output is created
; by a TeX macro package.  Return the process object. 

; TeX-run-TeX: For TeX output.

; TeX-run-LaTeX: For LaTeX output.

; TeX-run-interactive: Run TeX or LaTeX interactively.

; TeX-run-BibTeX: For BibTeX output.

; TeX-run-compile: Use `compile' to run the process.  

; TeX-run-shell: Use `shell-command' to run the process.

; TeX-run-discard: Start the process in the background, discarding its
; output.

; TeX-run-background: Start the process in the background, show output
; in other window.

; TeX-run-dviout: Special hook for the Japanese dviout previewer for
; PC-9801.

; To create your own hook, define a function taking three arguments: The
; name of the command, the command string, and the name of the file to
; process.  It might be useful to use TeX-run-command in order to
; create an asynchronous process.

; If the fourth element is non-nil, the user will get a chance to
; modify the expanded string.

; The fifth element is obsolete and ignored.


(defvar TeX-printer-list
  '(("duplex" "dvips -Pduplex %s" "lpstat -d doom")
    ("sparc") ("doom"))
  "*List of available printers.

The first element of each entry is the printer name.

The second element is the command used to print to this
printer.  It defaults to the value of TeX-print-command.

The third element is the command used to examine the print queue for
this printer.  It defaults to the value of TeX-queue-command.

Any occurence of `%p' in the second or third element is expanded to
the printer name given in the first element, then ordinary expansion
is performed as specified in TeX-expand-list.")


(defvar TeX-printer-default (or (getenv "PRINTER")
				(and TeX-printer-list
				     (car (car TeX-printer-list)))
				"doom")
  "*Default printer to use with TeX-command.")

;; Das Standard- xdvi ist eine Katastrophe. Deshalb Verwenden eines anderen (s.u.)
;(defvar TeX-view-style '(("^a5$" "xdvi -expert %d -paper a5")
;			 ("^landscape$" "xdvi %d -expert -paper a4r -s 4")
;			 ;; The latest xdvi can show embedded postscript.
;			 ;; If you don't have that, uncomment next line.
;			 ;; ("^epsf$" "ghostview %f")
;			 ("." "xdvi -expert -s 7 %d"))
;  "*List of style options and view options.
;
;If the first element (a regular expresion) matches the name of one of
;the style files, any occurrence of the string %v in a command in
;TeX-command-list will be replaced with the second element.  The first
;match is used, if no match is found the %v is replaced with the empty
;string.")


(defvar TeX-view-style '(("^a5$" "xdvi -expert %d -paper a5")
			 ("^landscape$" "xdvi %d -expert -paper a4r -s 4")
			 ;; The latest xdvi can show embedded postscript.
			 ;; If you don't have that, uncomment next line.
			 ;; ("^epsf$" "ghostview %f")
			 ("." "xdvi -expert -s 7 %d"))
  "*List of style options and view options.

If the first element (a regular expresion) matches the name of one of
the style files, any occurrence of the string %v in a command in
TeX-command-list will be replaced with the second element.  The first
match is used, if no match is found the %v is replaced with the empty
string.")


;;; Autoloads:

(or (assoc TeX-lisp-directory (mapcar 'list load-path))	;No `member' yet.
    (assoc (substring TeX-lisp-directory 0 -1) ;Without trailing slash.
	   (mapcar 'list load-path))
    (setq load-path (cons TeX-lisp-directory load-path)))

;; This hook will store bibitems when you save a BibTeX buffer.
(defvar bibtex-mode-hook nil)
(or (memq 'BibTeX-auto-store bibtex-mode-hook) ;No `add-hook' yet.
    (setq bibtex-mode-hook (cons 'BibTeX-auto-store bibtex-mode-hook)))

(autoload 'BibTeX-auto-store "latex" no-doc t)

;; Bind latex-help globally. 
(autoload 'latex-help "ltx-help" no-doc t)
(define-key help-map "\C-l" 'latex-help)

(autoload 'tex-mode "tex" no-doc t)
(autoload 'plain-tex-mode "tex" no-doc t)
(autoload 'ams-tex-mode "tex" no-doc t)
(autoload 'TeX-auto-generate "tex" no-doc t)
(autoload 'TeX-auto-generate-global "tex" no-doc t)
(autoload 'TeX-insert-quote "tex" no-doc t)
(autoload 'TeX-submit-bug-report "tex" no-doc t)
;;; (autoload 'japanese-plain-tex-mode "tex-jp" no-doc t)
;;; (autoload 'japanese-latex-mode "tex-jp" no-doc t)
;;; (autoload 'japanese-slitex-mode "tex-jp" no-doc t)
;;; (autoload 'texinfo-mode "tex-info" no-doc t)
(autoload 'latex-mode "latex" no-doc t)

(provide 'tex-site)

;;; tex-site.el ends here