X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/108d6d47a903cff5d7ac7d83f126dda209c3eeb2..b717b0ee04ffdfd6c44c24cec77ef464fa8d4b95:/packages/auctex/tex-style.el?ds=inline diff --git a/packages/auctex/tex-style.el b/packages/auctex/tex-style.el new file mode 100644 index 000000000..781aa1134 --- /dev/null +++ b/packages/auctex/tex-style.el @@ -0,0 +1,367 @@ +;;; tex-style.el --- Customizable variables for AUCTeX style files + +;; Copyright (C) 2005 Free Software Foundation, Inc. + +;; Author: Reiner Steib +;; 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 + ;; + ("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