--- /dev/null
+;;; tex-style.el --- Customizable variables for AUCTeX style files
+
+;; Copyright (C) 2005 Free Software Foundation, Inc.
+
+;; Author: Reiner Steib <Reiner.Steib@gmx.de>
+;; Keywords: tex, wp, convenience
+
+;; This file 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 3, or (at your option)
+;; any later version.
+
+;; This file 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 GNU Emacs; see the file COPYING. If not, write to
+;; the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file provides customizable variables for AUCTeX style files.
+
+;;; Code:
+
+(defgroup LaTeX-style nil
+ "Support for special LaTeX style files in AUCTeX."
+ :group 'LaTeX-macro)
+
+;; Note: We don't have any defcustom in plain TeX style files yet. Else we
+;; should also create a TeX-style group.
+
+;; style/amsmath.el
+
+(defcustom LaTeX-amsmath-label nil
+ "Default prefix to amsmath equation labels.
+
+Amsmath equations include \"align\", \"alignat\", \"xalignat\",
+\"multline\", \"flalign\" and \"gather\". If it is nil,
+`LaTeX-equation-label' is used."
+ :group 'LaTeX-label
+ :type '(choice (const :tag "Use `LaTeX-equation-label'" nil)
+ (string)))
+
+;; style/beamer.el
+
+(defcustom LaTeX-beamer-section-labels-flag nil
+ "If non-nil section labels are added"
+ :type 'boolean
+ :group 'LaTeX-style)
+
+(defcustom LaTeX-beamer-item-overlay-flag t
+ "If non-nil do prompt for an overlay in itemize-like environments."
+ :type 'boolean
+ :group 'LaTeX-style)
+
+(defcustom LaTeX-beamer-themes 'local
+ "Presentation themes for the LaTeX beamer package.
+It can be a list of themes or a function. If it is the symbol
+`local', search only once per buffer."
+ :group 'LaTeX-style
+ :type
+ '(choice
+ (const :tag "TeX search" LaTeX-beamer-search-themes)
+ (const :tag "Search once per buffer" local)
+ (function :tag "Other function")
+ (list
+ :value
+ ;; Work around (bug in customize?), see
+ ;; <news:v9is48jrj1.fsf@marauder.physik.uni-ulm.de>
+ ("Antibes" "Bergen" "Berkeley" "Berlin" "Boadilla" "Copenhagen"
+ "Darmstadt" "Dresden" "Frankfurt" "Goettingen" "Hannover"
+ "Ilmenau" "JuanLesPins" "Luebeck" "Madrid" "Malmoe" "Marburg"
+ "Montpellier" "PaloAlto" "Pittsburgh" "Rochester" "Singapore"
+ "Szeged" "Warsaw")
+ (set :inline t
+ (const "Antibes")
+ (const "Bergen")
+ (const "Berkeley")
+ (const "Berlin")
+ (const "Boadilla")
+ (const "Copenhagen")
+ (const "Darmstadt")
+ (const "Dresden")
+ (const "Frankfurt")
+ (const "Goettingen")
+ (const "Hannover")
+ (const "Ilmenau")
+ (const "JuanLesPins")
+ (const "Luebeck")
+ (const "Madrid")
+ (const "Malmoe")
+ (const "Marburg")
+ (const "Montpellier")
+ (const "PaloAlto")
+ (const "Pittsburgh")
+ (const "Rochester")
+ (const "Singapore")
+ (const "Szeged")
+ (const "Warsaw"))
+ (repeat :inline t
+ :tag "Other"
+ (string)))))
+
+(defcustom LaTeX-beamer-inner-themes 'local
+ "Presentation inner themes for the LaTeX beamer package.
+It can be a list of themes or a function. If it is the symbol
+`local', search only once per buffer."
+ :group 'LaTeX-style
+ :type '(choice
+ (const :tag "TeX search" LaTeX-beamer-search-inner-themes)
+ (const :tag "Search once per buffer" local)
+ (function :tag "Other function")
+ (list
+ :value ("circles" "default" "inmargin" "rectangles" "rounded")
+ (set :inline t
+ (const "circles")
+ (const "default")
+ (const "inmargin")
+ (const "rectangles")
+ (const "rounded"))
+ (repeat :inline t
+ :tag "Other"
+ (string)))))
+
+(defcustom LaTeX-beamer-outer-themes 'local
+ "Presentation outer themes for the LaTeX beamer package.
+It can be a list of themes or a function. If it is the symbol
+`local', search only once per buffer."
+ :group 'LaTeX-style
+ :type
+ '(choice
+ (const :tag "TeX search" LaTeX-beamer-search-outer-themes)
+ (const :tag "Search once per buffer" local)
+ (function :tag "Other function")
+ (list
+ :value
+ ("default" "infolines" "miniframes" "shadow" "sidebar" "smoothbars"
+ "smoothtree" "split" "tree")
+ (set :inline t
+ (const "default")
+ (const "infolines")
+ (const "miniframes")
+ (const "shadow")
+ (const "sidebar")
+ (const "smoothbars")
+ (const "smoothtree")
+ (const "split")
+ (const "tree"))
+ (repeat :inline t
+ :tag "Other"
+ (string)))))
+
+(defcustom LaTeX-beamer-color-themes 'local
+ "Presentation color themes for the LaTeX beamer package.
+It can be a list of themes or a function. If it is the symbol
+`local', search only once per buffer."
+ :group 'LaTeX-style
+ :type
+ '(choice
+ (const :tag "TeX search" LaTeX-beamer-search-color-themes)
+ (const :tag "Search once per buffer" local)
+ (function :tag "Other function")
+ (list
+ :value
+ ("albatross" "beetle" "crane" "default" "dolphin" "dove" "fly" "lily"
+ "orchid" "rose" "seagull" "seahorse" "sidebartab" "structure" "whale")
+ (set :inline t
+ (const "albatross")
+ (const "beetle")
+ (const "crane")
+ (const "default")
+ (const "dolphin")
+ (const "dove")
+ (const "fly")
+ (const "lily")
+ (const "orchid")
+ (const "rose")
+ (const "seagull")
+ (const "seahorse")
+ (const "sidebartab")
+ (const "structure")
+ (const "whale"))
+ (repeat :inline t
+ :tag "Other"
+ (string)))))
+
+(defcustom LaTeX-beamer-font-themes 'local
+ "Presentation font themes for the LaTeX beamer package.
+It can be a list of themes or a function. If it is the symbol
+`local', search only once per buffer."
+ :group 'LaTeX-style
+ :type
+ '(choice
+ (const :tag "TeX search" LaTeX-beamer-search-font-themes)
+ (const :tag "Search once per buffer" local)
+ (function :tag "Other function")
+ (list
+ :value
+ ("default" "professionalfonts" "serif" "structurebold"
+ "structureitalicserif" "structuresmallcapsserif")
+ (set :inline t
+ (const "default")
+ (const "professionalfonts")
+ (const "serif")
+ (const "structurebold")
+ (const "structureitalicserif")
+ (const "structuresmallcapsserif"))
+ (repeat :inline t
+ :tag "Other"
+ (string)))))
+
+;; style/comment.el
+
+(defcustom LaTeX-comment-env-list '("comment")
+ "List of environment names defined with comment.sty.
+Setting this variable does not take effect unless you
+reinitialize affected buffers."
+ :type '(repeat string)
+ :group 'LaTeX-style)
+
+;; style/csquotes.el
+
+(defcustom LaTeX-csquotes-quote-after-quote nil
+ "Initial value of `TeX-quote-after-quote' for `csquotes.el'"
+ :type 'boolean
+ :group 'LaTeX-style)
+
+(defcustom LaTeX-csquotes-open-quote ""
+ "Opening quotation mark to be used with the csquotes package.
+The specified string will be used for `TeX-open-quote' (and override
+any language-specific setting) only if both `LaTeX-csquotes-open-quote'
+and `LaTeX-csquotes-close-quote' are non-empty strings."
+ :type 'string
+ :group 'LaTeX-style)
+
+(defcustom LaTeX-csquotes-close-quote ""
+ "Closing quotation mark to be used with the csquotes package.
+The specified string will be used for `TeX-close-quote' (and override
+any language-specific setting) only if both `LaTeX-csquotes-open-quote'
+and `LaTeX-csquotes-close-quote' are non-empty strings."
+ :type 'string
+ :group 'LaTeX-style)
+
+;; style/emp.el
+
+(defcustom LaTeX-write18-enabled-p t
+ "*If non-nil, insert automatically the \\write18 calling metapost.
+When disabled, you have to use mpost on the mp files automatically
+produced by emp.sty and then re-LaTeX the document."
+ :type 'boolean
+ :group 'LaTeX-style)
+
+;; style/graphicx.el
+
+(defcustom LaTeX-includegraphics-extensions
+ '("eps" "jpe?g" "pdf" "png")
+ "Extensions for images files used by \\includegraphics."
+ :group 'LaTeX-style
+ :type '(list (set :inline t
+ (const "eps")
+ (const "jpe?g")
+ (const "pdf")
+ (const "png"))
+ (repeat :inline t
+ :tag "Other"
+ (string))))
+
+(defcustom LaTeX-includegraphics-options-alist
+ '((0 width)
+ ;; (1 width height clip)
+ ;; (2 width height keepaspectratio clip)
+ (4) ;; --> (4 nil)
+ (5 trim)
+ (16
+ ;; Table 1 in epslatex.ps: ``includegraphics Options''
+ height totalheight width scale angle origin bb
+ ;; Table 2 in epslatex.ps: ``cropping Options''
+ viewport trim
+ ;; Table 3 in epslatex.ps: ``Boolean Options''
+ ;; [not implemented:] noclip draft final
+ clip keepaspectratio
+ ;; Only for PDF:
+ page))
+ "Controls for which optional arguments of \\includegraphics you get prompted.
+
+An alist, consisting of \(NUMBER . LIST\) pairs. Valid elements of LIST are
+`width', `height', `keepaspectratio', `clip', `angle', `totalheight', `trim'
+and `bb' \(Bounding Box\).
+
+The list corresponding to 0 is used if no prefix is given. Note that 4 \(one
+\\[universal-argument]\) and 16 \(two \\[universal-argument]'s\) are easy to
+type and should be used for frequently needed combinations."
+ :group 'LaTeX-style
+ :type '(repeat (cons (integer :tag "Argument")
+ (list (set :inline t
+ (const height)
+ (const totalheight)
+ (const width)
+ (const scale)
+ (const angle)
+ (const origin)
+ (const :tag "Bounding Box" bb)
+ ;;
+ (const viewport)
+ (const trim)
+ ;;
+ (const clip)
+ (const keepaspectratio))))))
+
+(defcustom LaTeX-includegraphics-strip-extension-flag t
+ "Non-nil means to strip known extensions from image file name."
+ :group 'LaTeX-style
+ :type 'boolean)
+
+(defcustom LaTeX-includegraphics-read-file
+ 'LaTeX-includegraphics-read-file-TeX
+ "Function for reading \\includegraphics files.
+
+`LaTeX-includegraphics-read-file-TeX' lists all graphic files
+found in the TeX search path.
+
+`LaTeX-includegraphics-read-file-relative' lists all graphic files
+in the master directory and its subdirectories and inserts the
+relative file name. This option does not work with Emacs 21 or
+XEmacs.
+
+The custom option `simple' works as
+`LaTeX-includegraphics-read-file-relative' but it lists all kind of
+files.
+
+Inserting the subdirectory in the filename (as
+`LaTeX-includegraphics-read-file-relative') is discouraged by
+`epslatex.ps'."
+;; ,----[ epslatex.ps; Section 12; (page 26) ]
+;; | Instead of embedding the subdirectory in the filename, there are two
+;; | other options
+;; | 1. The best method is to modify the TeX search path [...]
+;; | 2. Another method is to specify sub/ in a \graphicspath command
+;; | [...]. However this is much less efficient than modifying the
+;; | TeX search path
+;; `----
+;; See "Inefficiency" and "Unportability" in the same section for more
+;; information.
+ :group 'LaTeX-style
+ :type '(choice (const :tag "TeX" LaTeX-includegraphics-read-file-TeX)
+ (const :tag "relative"
+ LaTeX-includegraphics-read-file-relative)
+ (const :tag "simple" (lambda ()
+ (file-relative-name
+ (read-file-name "Image file: ")
+ (TeX-master-directory))))
+ (function :tag "other")))
+
+;; style/shortvrb.el
+
+(defcustom LaTeX-shortvrb-chars '(?|)
+ "List of characters toggling verbatim mode."
+ :group 'LaTeX-style
+ :type '(repeat character))
+
+(provide 'tex-style)
+
+;;; tex-style.el ends here