diff options
Diffstat (limited to 'elpa/auctex-13.1.3/style/tex-live.el')
| -rw-r--r-- | elpa/auctex-13.1.3/style/tex-live.el | 177 |
1 files changed, 177 insertions, 0 deletions
diff --git a/elpa/auctex-13.1.3/style/tex-live.el b/elpa/auctex-13.1.3/style/tex-live.el new file mode 100644 index 0000000..b74890d --- /dev/null +++ b/elpa/auctex-13.1.3/style/tex-live.el @@ -0,0 +1,177 @@ +;;; tex-live.el --- AUCTeX style for `tex-live.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2020--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2020-03-29 +;; Keywords: tex + +;; This file is part of AUCTeX. + +;; AUCTeX 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. + +;; AUCTeX 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 AUCTeX; 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 adds support for `tex-live.sty' from 2019/08/14. +;; `tex-live.sty' is part of TeXLive. + +;; Chances are high that this style is not feature complete, and +;; fontification is not ideal. But this might be a starting point for +;; TeXLive documentation editors who use AUCTeX. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function LaTeX-add-fancyvrb-environments + "fancyvrb" + (&rest fancyvrb-environments)) +(declare-function LaTeX-fancyvrb-key-val-options "fancyvrb" ()) + +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "tex-live" + (lambda () + + ;; Run hooks for required packages: + (TeX-run-style-hooks "geometry" + "alltt" + "array" + "colortbl" + "comment" + "float" + "graphicx" + "longtable" + "ulem" + "url" + "xspace" + "relsize" + "fancyvrb") + + ;; Add | to a local version of `LaTeX-shortvrb-chars' before + ;; running the style hook `shortvrb.el': + (add-to-list (make-local-variable 'LaTeX-shortvrb-chars) ?|) + (TeX-run-style-hooks "shortvrb") + + ;; Add support for custom environments defined with `fancyvrb.sty': + (LaTeX-add-fancyvrb-environments + '("verbatim" "Verbatim") + '("sverbatim" "Verbatim") + '("fverbatim" "Verbatim") + '("boxedverbatim" "Verbatim")) + + (TeX-add-symbols + '("verbatiminput" LaTeX-fancyvrb-arg-file-relative) + '("boxedverbatiminput" LaTeX-fancyvrb-arg-file-relative) + '("listinginput" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Value of firstnumber key") + (cadr (assoc "firstnumber" (LaTeX-fancyvrb-key-val-options)))) + LaTeX-fancyvrb-arg-file-relative) + + ;; Various sorts of names: + '("pkgname" "Package") + '("optname" "Option") + '("cmdname" "Command") + '("colname" "Collection") + '("dirname" "Directory") + '("filename" "Directory") + '("envname" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Environment") + '("TEXMFCACHE" + "TEXMFCNF" + "TEXMFCONFIG" + "TEXMFDIST" + "TEXMFHOME" + "TEXMFLOCAL" + "TEXMFMAIN" + "TEXMFOUTPUT" + "TEXMFSYSCONFIG" + "TEXMFSYSVAR" + "TEXMFVAR" + "TEXINPUTS" + "TEXFONTMAPS" + "ENCFONTS" + "PATH" "MANPATH" "INFOPATH" "DISPLAY"))) + '("code" "Code") + '("file" "File") + '("prog" "Program") + '("samp" "Sample") + '("var" "Variable") + '("ttbar" "Variable (typewriter)") + + '("Ucom" "Command (bold)") + + ;; Special names: + '("dpi" 0) + '("bs" 0) + '("cs" TeX-arg-macro)) + + (add-to-list 'LaTeX-verbatim-macros-with-braces-local "dirname") + (add-to-list 'LaTeX-verbatim-macros-with-braces-local "filename") + + (LaTeX-add-environments + '("ttdescription" LaTeX-env-item) + '("cmddescription" LaTeX-env-item) + '("itemize*" LaTeX-env-item) + '("enumerate*" LaTeX-env-item) + '("warningbox") + '("lrBox")) + + ;; `tex-live.sty' adds one new column specification letter P: + (set (make-local-variable 'LaTeX-array-column-letters) + (concat LaTeX-array-column-letters "P")) + + ;; Custom env's where \item takes an opt. argument: + (let ((envs '("ttdescription" "cmddescription"))) + (dolist (env envs) + (add-to-list 'LaTeX-item-list `(,env . LaTeX-item-argument) t))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("verbatiminput" "{") + ("boxedverbatiminput" "{") + ("listinginput" "{{") + ("pkgname" "{") + ("optname" "{") + ("cmdname" "{") + ("colname" "{") + ("dirname" "") + ("filename" "") + ("envname" "{") + ("cs" "{")) + 'reference) + (font-latex-add-keywords '(("code" "{") + ("file" "{") + ("prog" "{") + ("samp" "{") + ("ttvar" "{")) + 'type-command) + (font-latex-add-keywords '(("var" "{") ) + 'italic-command) + (font-latex-add-keywords '(("Ucom" "{")) + 'bold-command))) + TeX-dialect) + +;;; tex-live.el ends here |