[elpa] externals/auctex 0dee720 35/43: Add new style/tex-live.el

[Tassilo Horn]

branch: externals/auctex
commit 0dee720196bb24fcaed46d92ed9383530d53b0e1
Author: Arash Esbati <address@hidden>
Commit: Arash Esbati <address@hidden>

    Add new style/tex-live.el
    
    * Makefile.in (STYLESRC): Add new style.
    
    * style/tex-live.el: New file.
---
 Makefile.in       |   3 +-
 style/tex-live.el | 177 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 179 insertions(+), 1 deletion(-)

diff --git a/Makefile.in b/Makefile.in
index 6343371..6e599c3 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -171,7 +171,8 @@ STYLESRC = style/prosper.el \
           style/pythontex.el style/dashundergaps.el style/beamerarticle.el \
           style/changelog.el style/ltugboat.el  style/beamerswitch.el \
           style/multitoc.el  style/fbox.el      style/xkcdcolors.el \
-          style/ltxguide.el  style/revtex4-2.el style/overpic.el
+          style/ltxguide.el  style/revtex4-2.el style/overpic.el \
+          style/tex-live.el
 
 STYLEELC = $(STYLESRC:.el=.elc)
 
diff --git a/style/tex-live.el b/style/tex-live.el
new file mode 100644
index 0000000..6b059cf
--- /dev/null
+++ b/style/tex-live.el
@@ -0,0 +1,177 @@
+;;; tex-live.el --- AUCTeX style for `tex-live.sty'
+
+;; Copyright (C) 2020 Free Software Foundation, Inc.
+
+;; Author: Arash Esbati <address@hidden>
+;; Maintainer: address@hidden
+;; 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.
+
+;; Silence the compiler:
+(declare-function LaTeX-add-fancyvrb-environments
+                 "fancyvrb"
+                 (&rest fancyvrb-environments))
+
+(declare-function font-latex-add-keywords
+                 "font-latex"
+                 (keywords class))
+
+(declare-function font-latex-update-font-lock
+                 "font-latex"
+                 (&optional syntactic-kws))
+
+(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 optional nil "Value of firstnumber 
key")
+                   (cadr (assoc "firstnumber" 
LaTeX-fancyvrb-key-val-options-local)))
+      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 optional 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)
+     ;; Tell font-lock about the update.
+     (font-latex-update-font-lock t)))
+ LaTeX-dialect)
+
+;;; tex-live.el ends here