diff options
| author | mattkae <mattkae@protonmail.com> | 2022-05-17 07:07:37 -0400 |
|---|---|---|
| committer | mattkae <mattkae@protonmail.com> | 2022-05-17 07:07:37 -0400 |
| commit | becff06c71d277647eda4378203d03ab36e141eb (patch) | |
| tree | a1f73bba3676f34e0faf76764f5de963321f5576 /elpa/auctex-13.1.3/style | |
| parent | 3f4a0d5370ae6c34afe180df96add3b8522f4af1 (diff) | |
Evil mode and latex support
Diffstat (limited to 'elpa/auctex-13.1.3/style')
563 files changed, 41152 insertions, 0 deletions
diff --git a/elpa/auctex-13.1.3/style/.nosearch b/elpa/auctex-13.1.3/style/.nosearch new file mode 100644 index 0000000..aa31332 --- /dev/null +++ b/elpa/auctex-13.1.3/style/.nosearch @@ -0,0 +1 @@ +;; AUCTeX style/ and auto/ directories should not appear in load path. diff --git a/elpa/auctex-13.1.3/style/Alegreya.el b/elpa/auctex-13.1.3/style/Alegreya.el new file mode 100644 index 0000000..84adaa5 --- /dev/null +++ b/elpa/auctex-13.1.3/style/Alegreya.el @@ -0,0 +1,106 @@ +;;; Alegreya.el --- AUCTeX style for `Alegreya.sty' (v2015/10/22) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-09-12 +;; 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 `Alegreya.sty' (v2015/10/22). +;; `Alegreya.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "Alegreya" + (lambda () + + ;; Run style hook for packages loaded by Alegreya + (TeX-run-style-hooks "textcomp") + + ;; Load `fontaxes' or `fontspec' dep. on `type1' option: + (if (or (LaTeX-provided-package-options-member "Alegreya" "type1") + (LaTeX-provided-package-options-member "Alegreya" "type1=true")) + (TeX-run-style-hooks "fontaxes") + (TeX-run-style-hooks "fontspec")) + + (TeX-add-symbols + ;; Should be used in preamble only + '("useosf") + ;; Text commands + '("Alegreya" -1) + '("AlegreyaBlack" -1) + '("AlegreyaLF" -1) + '("AlegreyaOsF" -1) + '("AlegreyaTLF" -1) + '("AlegreyaTOsF" -1) + '("textsu" t) ; superior figures + '("sufigures" -1) ; + '("textin" t) ; inferior figures + '("infigures" -1)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textsu" "{") + ("textin" "{")) + 'type-command) + (font-latex-add-keywords '(("Alegreya" "") + ("AlegreyaBlack" "") + ("AlegreyaLF" "") + ("AlegreyaOsF" "") + ("AlegreyaTLF" "") + ("AlegreyaTOsF" "") + ("sufigures" "") + ("infigures" "")) + 'type-declaration))) + TeX-dialect) + +(defvar LaTeX-Alegreya-package-options-list + '(("lining" ("true" "false")) + ("lf" ("true" "false")) + ("oldstyle" ("true" "false")) + ("osf" ("true" "false")) + ("tabular" ("true" "false")) + ("tf" ("true" "false")) + ("proportional" ("true" "false")) + ("pf" ("true" "false")) + ("black" ("true" "false")) + ("type1" ("true" "false")) + ("scaled") + ("scale")) + "Package options for the Alegreya package.") + +(defun LaTeX-Alegreya-package-options () + "Prompt for package options for the Alegreya package." + (TeX-read-key-val t LaTeX-Alegreya-package-options-list)) + +;;; Alegreya.el ends here diff --git a/elpa/auctex-13.1.3/style/Alegreya.elc b/elpa/auctex-13.1.3/style/Alegreya.elc Binary files differnew file mode 100644 index 0000000..4df5db3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/Alegreya.elc diff --git a/elpa/auctex-13.1.3/style/AlegreyaSans.el b/elpa/auctex-13.1.3/style/AlegreyaSans.el new file mode 100644 index 0000000..3b31527 --- /dev/null +++ b/elpa/auctex-13.1.3/style/AlegreyaSans.el @@ -0,0 +1,118 @@ +;;; AlegreyaSans.el --- AUCTeX style for `AlegreyaSans.sty' (v2015/10/22) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-09-12 +;; 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 `AlegreyaSans.sty' (v2015/10/22). +;; `AlegreyaSans.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "AlegreyaSans" + (lambda () + + ;; Run style hook for packages loaded by AlegreyaSans + (TeX-run-style-hooks "textcomp") + + ;; Load `fontaxes' or `fontspec' dep. on `type1' option: + (if (or (LaTeX-provided-package-options-member "AlegreyaSans" "type1") + (LaTeX-provided-package-options-member "AlegreyaSans" "type1=true")) + (TeX-run-style-hooks "fontaxes") + (TeX-run-style-hooks "fontspec")) + + (TeX-add-symbols + ;; Should be used in preamble only + '("useosf") + ;; Text commands + '("AlegreyaSans" -1) + '("AlegreyaSansLF" -1) + '("AlegreyaSansOsF" -1) + '("AlegreyaSansTLF" -1) + '("AlegreyaSansTOsF" -1) + '("AlegreyaSansThin" -1) + '("AlegreyaSansLight" -1) + '("AlegreyaSansMedium" -1) + '("AlegreyaSansExtraBold" -1) + '("AlegreyaSansBlack" -1) + '("textsu" t) ; superior figures + '("sufigures" -1) ; + '("textin" t) ; inferior figures + '("infigures" -1)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textsu" "{") + ("textin" "{")) + 'type-command) + (font-latex-add-keywords '(("AlegreyaSans" "") + ("AlegreyaSansLF" "") + ("AlegreyaSansOsF" "") + ("AlegreyaSansTLF" "") + ("AlegreyaSansTOsF" "") + ("AlegreyaSansLight" "") + ("AlegreyaSansMedium" "") + ("AlegreyaSansExtraBold" "") + ("AlegreyaSansBlack" "") + ("sufigures" "") + ("infigures" "")) + 'type-declaration))) + TeX-dialect) + +(defvar LaTeX-AlegreyaSans-package-options-list + '(("lining" ("true" "false")) + ("lf" ("true" "false")) + ("oldstyle" ("true" "false")) + ("osf" ("true" "false")) + ("tabular" ("true" "false")) + ("tf" ("true" "false")) + ("proportional" ("true" "false")) + ("pf" ("true" "false")) + ("black" ("true" "false")) + ("extrabold" ("true" "false")) + ("thin" ("true" "false")) + ("light" ("true" "false")) + ("medium" ("true" "false")) + ("type1" ("true" "false")) + ("sfdefault" ("true" "false")) + ("scaled") + ("scale")) + "Package options for the AlegreyaSans package.") + +(defun LaTeX-AlegreyaSans-package-options () + "Prompt for package options for the AlegreyaSans package." + (TeX-read-key-val t LaTeX-AlegreyaSans-package-options-list)) + +;;; AlegreyaSans.el ends here diff --git a/elpa/auctex-13.1.3/style/AlegreyaSans.elc b/elpa/auctex-13.1.3/style/AlegreyaSans.elc Binary files differnew file mode 100644 index 0000000..b636def --- /dev/null +++ b/elpa/auctex-13.1.3/style/AlegreyaSans.elc diff --git a/elpa/auctex-13.1.3/style/AnonymousPro.el b/elpa/auctex-13.1.3/style/AnonymousPro.el new file mode 100644 index 0000000..778c703 --- /dev/null +++ b/elpa/auctex-13.1.3/style/AnonymousPro.el @@ -0,0 +1,92 @@ +;;; AnonymousPro.el --- AUCTeX style for `AnonymousPro.sty' (v2.2) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2019, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-10-30 +;; 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 `AnonymousPro.sty' (v2.2) from +;; 2019/07/07. `AnonymousPro.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "AnonymousPro" + (lambda () + + ;; Run style hook for textcomp + (TeX-run-style-hooks "textcomp") + + ;; New symbols + (TeX-add-symbols + "ANPapplelogo" + "ANPappleopen" + "ANPapproxequal" + "ANPback" + "ANPblackdiamond" + "ANPcheckmark" + "ANPcopy" + "ANPellipsis" + "ANPendtab" + "ANPerasetotheright" + "ANPgreaterequal" + "ANPHbar" + "ANPhbar" + "ANPinfinity" + "ANPinsert" + "ANPintegral" + "ANPlessequal" + "ANPlozenge" + "ANPnotequal" + "ANPoptionkey" + "ANPpartialdiff" + "ANPPi" + "ANPpi" + "ANPproduct" + "ANPshift" + "ANPshiftlock" + "ANPSigma" + "ANPsigma" + "ANPsigmaone" + "ANPsummation" + "ANPtab" + "ANPReturnSign" + "ANPShoulderedOpenBox" + "ANPUpArrowHead" + "ANPInsertSign" + "ANPUpArrowHeadBars" + "ANPHelm" + "ANPOpenBox" + "ANPDelta" + "ANPverticaltab" + "ANPNumeroSign")) + TeX-dialect) + +(defvar LaTeX-AnonymousPro-package-options + '("ttdefault" "scale" "scaled") + "Package options for the AnonymousPro package.") + +;;; AnonymousPro.el ends here diff --git a/elpa/auctex-13.1.3/style/AnonymousPro.elc b/elpa/auctex-13.1.3/style/AnonymousPro.elc Binary files differnew file mode 100644 index 0000000..eff5ecf --- /dev/null +++ b/elpa/auctex-13.1.3/style/AnonymousPro.elc diff --git a/elpa/auctex-13.1.3/style/CJK.el b/elpa/auctex-13.1.3/style/CJK.el new file mode 100644 index 0000000..baee5d9 --- /dev/null +++ b/elpa/auctex-13.1.3/style/CJK.el @@ -0,0 +1,97 @@ +;;; CJK.el --- AUCTeX style for the CJK package. -*- lexical-binding: t; -*- + +;; Copyright (C) 2009-2021 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2009-01-04 +;; 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 the CJK package, version 4.8.0 +;; (22-May-2008). + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-CJK-package-options + '("lowercase" "global" "local" "active" "encapsulated") + "Package options for the CJK package.") + +(defvar LaTeX-CJK-enc-list + '("Bg5" "Bg5+" "HK" "GB" "GBt" "GBK" "JIS" "JIS2" "SJIS" "KS" "UTF8" "CNS1" + "CNS2" "CNS3" "CNS4" "CNS5" "CNS6" "CNS7" "CEFX" "CEFY") + "List of encodings supported by the CJK package.") + +(defun LaTeX-env-CJK (env) + "Prompt for the arguments of ENV and insert it. +The function can be used for CJK and CJK* environments." + (LaTeX-insert-environment + env + (concat + (let ((font-enc (TeX-read-string "(Optional) Font encoding: "))) + (unless (zerop (length font-enc)) (format "[%s]" font-enc))) + (format "{%s}" (completing-read "Encoding: " + (mapcar #'list LaTeX-CJK-enc-list))) + (format "{%s}" (TeX-read-string "Font family: "))))) + +(TeX-add-style-hook + "CJK" + (lambda () + ;; New symbols + (TeX-add-symbols + '("CJKencfamily" ["Font encoding"] "Encoding" "Font family") + '("CJKchar" ["Encoding"] "First byte" "Second byte") + '("CJKcaption" 1) + '("CJKfamily" 1) + '("CJKfontenc" "Encoding" "Font encoding") + '("CJKenc" 1) + '("Unicode" "First byte" "Second byte") + '("CJKsymbols" 2) + '("CJKsymbol" 1) + "CJKbold" + "CJKnormal" + "CJKboldshift" + "CJKCJKchar" + "CJKhangulchar" + "CJKlatinchar" + "CJKhwkatakana" + "CJKnohwkatakana" + "CJKglue" + "CJKtolerance" + "CJKtilde" + "nbs" + "standardtilde" + "CJKspace" + "CJKnospace" + "CJKindent" + '("CJKaddEncHook" 2) + "CJKkern" + "CJKverbatim") + ;; New environments + (LaTeX-add-environments + '("CJK" LaTeX-env-CJK) + '("CJK*" LaTeX-env-CJK))) + TeX-dialect) + +;;; CJK.el ends here diff --git a/elpa/auctex-13.1.3/style/CJK.elc b/elpa/auctex-13.1.3/style/CJK.elc Binary files differnew file mode 100644 index 0000000..d0b2924 --- /dev/null +++ b/elpa/auctex-13.1.3/style/CJK.elc diff --git a/elpa/auctex-13.1.3/style/CJKutf8.el b/elpa/auctex-13.1.3/style/CJKutf8.el new file mode 100644 index 0000000..d522015 --- /dev/null +++ b/elpa/auctex-13.1.3/style/CJKutf8.el @@ -0,0 +1,41 @@ +;;; CJKutf8.el --- AUCTeX style for the CJKutf8 package. -*- lexical-binding: t; -*- + +;; Copyright (C) 2009, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2009-01-04 +;; 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 the CJKutf8 package. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "CJKutf8" + (lambda () + (TeX-run-style-hooks "CJK")) + TeX-dialect) + +;;; CJKutf8.el ends here diff --git a/elpa/auctex-13.1.3/style/CJKutf8.elc b/elpa/auctex-13.1.3/style/CJKutf8.elc Binary files differnew file mode 100644 index 0000000..0d8d83a --- /dev/null +++ b/elpa/auctex-13.1.3/style/CJKutf8.elc diff --git a/elpa/auctex-13.1.3/style/FiraMono.el b/elpa/auctex-13.1.3/style/FiraMono.el new file mode 100644 index 0000000..a612291 --- /dev/null +++ b/elpa/auctex-13.1.3/style/FiraMono.el @@ -0,0 +1,78 @@ +;;; FiraMono.el --- AUCTeX style for `FiraMono.sty' (v2016/02/13) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-11-11 +;; 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 `FiraMono.sty' (v2016/02/13). +;; `FiraMono.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "FiraMono" + (lambda () + + ;; `textcomp' is always loaded: + (TeX-run-style-hooks "textcomp") + + ;; If package option `type1' is given, load `fontaxes': + (when (LaTeX-provided-package-options-member "FiraMono" "type1") + (TeX-run-style-hooks "fontaxes")) + + ;; Macros: + (TeX-add-symbols + '("sufigures" -1) + '("firamonooldstyle" -1) + '("firamonolining" -1) + '("firamonomedium" -1)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("sufigures" "") + ("firamonooldstyle" "") + ("firamonolining" "") + ("firamonomedium" "")) + 'type-declaration))) + TeX-dialect) + +(defvar LaTeX-FiraMono-package-options '("scaled" "scale" + "type1" + "lining" "lf" + "oldstyle" "osf" + "nomap" + "medium" "mb") + "Package options for the FiraMono package.") + +;;; FiraMono.el ends here diff --git a/elpa/auctex-13.1.3/style/FiraMono.elc b/elpa/auctex-13.1.3/style/FiraMono.elc Binary files differnew file mode 100644 index 0000000..41cfd37 --- /dev/null +++ b/elpa/auctex-13.1.3/style/FiraMono.elc diff --git a/elpa/auctex-13.1.3/style/FiraSans.el b/elpa/auctex-13.1.3/style/FiraSans.el new file mode 100644 index 0000000..10ac530 --- /dev/null +++ b/elpa/auctex-13.1.3/style/FiraSans.el @@ -0,0 +1,110 @@ +;;; FiraSans.el --- AUCTeX style for `FiraSans.sty' (v2016/11/20) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-11-11 +;; 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 `FiraSans.sty' (v2016/11/20). +;; `FiraSans.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "FiraSans" + (lambda () + + ;; `textcomp' is always loaded: + (TeX-run-style-hooks "textcomp") + + ;; If package option `type1' is given, load `fontaxes': + (when (LaTeX-provided-package-options-member "FiraSans" "type1") + (TeX-run-style-hooks "fontaxes")) + + ;; Macros: + (TeX-add-symbols + '("sufigures" -1) + '("firaoldstyle" -1) + '("firalining" -1) + '("firatabular" -1) + '("firaproportional" -1) + '("firathin" -1) + '("firalight" -1) + '("firaextralight" -1) + '("firaultralight" -1) + '("firamedium" -1) + '("firabook" -1) + '("firasemibold" -1) + '("firaextrabold" -1) + '("firaheavy" -1)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("sufigures" "") + ("firaoldstyle" "") + ("firalining" "") + ("firatabular" "") + ("firaproportional" "") + ("firathin" "") + ("firalight" "") + ("firaextralight" "") + ("firaultralight" "") + ("firamedium" "") + ("firabook" "") + ("firasemibold" "") + ("firaextrabold" "") + ("firaheavy" "")) + 'type-declaration))) + TeX-dialect) + +(defvar LaTeX-FiraSans-package-options + '("scaled" "scale" + "type1" + "lining" "lf" + "oldstyle" "osf" + "tabular" "t" + "proportional" "p" + "book" + "medium" "mb" + "semibold" "sb" + "light" "l" + "extralight" + "ultralight" + "thin" + "extrabold" + "heavy" + "default" + "sfdefault") + "Package options for the FiraSans package.") + +;;; FiraSans.el ends here diff --git a/elpa/auctex-13.1.3/style/FiraSans.elc b/elpa/auctex-13.1.3/style/FiraSans.elc Binary files differnew file mode 100644 index 0000000..be71bcb --- /dev/null +++ b/elpa/auctex-13.1.3/style/FiraSans.elc diff --git a/elpa/auctex-13.1.3/style/MinionPro.el b/elpa/auctex-13.1.3/style/MinionPro.el new file mode 100644 index 0000000..ff76329 --- /dev/null +++ b/elpa/auctex-13.1.3/style/MinionPro.el @@ -0,0 +1,76 @@ +;;; MinionPro.el -- AUCTeX style for MinionPro.sty -*- lexical-binding: t; -*- + +;; Copyright (C) 2005, 2014, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Mark Trettin <Mark.Trettin@gmx.de> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2005-11-26 +;; 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 `MinionPro.sty' (v2.3) from 2012/08/03. +;; The latest version of MinionPro is available as part of FontPro +;; bundle from <https://www.github.com/sebschub>. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "MinionPro" + (lambda () + + ;; New symbols + (TeX-add-symbols + '("smallfrac" "Numerator" "Denominator") + '("slantfrac" "Numerator" "Denominator")) + + ;; Run style hook for amsmath which is loaded via MnSymbol + (TeX-run-style-hooks "amsmath" "fontaxes" "textcomp") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("smallfrac" "{{") + ("slantfrac" "{{")) + 'textual))) + TeX-dialect) + +(defvar LaTeX-MinionPro-package-options + '("smallfamily" "medfamily" "fullfamily" "noopticals" "opticals" + "slides" "textosf" "mathosf" "osf" "textlf" "mathlf" "lf" + "mathtabular" "mnsy" "cmsy" "swash" "abx" "amsbb" "fourierbb" + "lucidabb" "mixedgreek" "italicgreek" "frenchmath" "minionint" + "footnotefigures" + + ;; Additional options in v2.1 + "onlytext" "onlymath" "loosequotes" "openg" "normalsize" "nonormalsize" + + ;; Additional option in v2.2 + "scale") + "Package options for the MinionPro package.") + +;;; MinionPro.el ends here diff --git a/elpa/auctex-13.1.3/style/MinionPro.elc b/elpa/auctex-13.1.3/style/MinionPro.elc Binary files differnew file mode 100644 index 0000000..b63b3ef --- /dev/null +++ b/elpa/auctex-13.1.3/style/MinionPro.elc diff --git a/elpa/auctex-13.1.3/style/MyriadPro.el b/elpa/auctex-13.1.3/style/MyriadPro.el new file mode 100644 index 0000000..0f3de7d --- /dev/null +++ b/elpa/auctex-13.1.3/style/MyriadPro.el @@ -0,0 +1,102 @@ +;;; MyriadPro.el --- AUCTeX style for `MyriadPro.sty' (v0.5) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-10-21 +;; 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 `MyriadPro.sty' (v0.5) from 2013/04/20. +;; The latest version of MyriadPro is available as part of FontPro +;; bundle from <https://www.github.com/sebschub>. `MyriadPro.sty' is +;; not part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "MyriadPro" + (lambda () + + ;; Run style hook for various packages loaded by MyriadPro + (TeX-run-style-hooks "textcomp" "amsmath" "fontaxes" "mdsymbol") + + ;; New symbols + (TeX-add-symbols + '("smallfrac" "Numerator" "Denominator") + '("slantfrac" "Numerator" "Denominator") + '("boldsymbol" "Symbol")) + + ;; More control over spacing in `\slantfrac': + (LaTeX-add-lengths "MdSlantfracSpacingBeforeSlash" + "MdSlantfracSpacingAfterSlash") + + ;; `\mathversion' is available with sansmath option + (when (LaTeX-provided-package-options-member "MyriadPro" "sansmath") + (TeX-add-symbols + '("mathversion" + (TeX-arg-eval completing-read "Math version: " + '(("sans") ("sansbold") + ("sanstabular") ("sansboldtabular")))))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("smallfrac" "{{") + ("slantfrac" "{{")) + 'textual) + (font-latex-add-keywords '(("mathversion" "{")) + 'variable))) + TeX-dialect) + +(defvar LaTeX-MyriadPro-package-options + '(;; Font selection + "smallfamily" "medfamily" "onlytext" "onlymath" "math" "sansmath" + + ;; Figure selection + "textosf" "mathosf" "osf" "textlf" "mathlf" "lf" "mathtabular" + + ;; Calligraphic fonts + "cmsy" "swash" "abx" + + ;; Blackboard bold letters + "amsbb" "fourierbb" "lucidabb" + + ;; Greek letters + "mixedgreek" "italicgreek" "frenchmath" + + ;; Miscellaneous options + "scale" "loosequotes" "footnotefigures" + + ;; Additional mathversions + "sansmath") + "Package options for the MyriadPro package.") + +;;; MyriadPro.el ends here diff --git a/elpa/auctex-13.1.3/style/MyriadPro.elc b/elpa/auctex-13.1.3/style/MyriadPro.elc Binary files differnew file mode 100644 index 0000000..1596d1e --- /dev/null +++ b/elpa/auctex-13.1.3/style/MyriadPro.elc diff --git a/elpa/auctex-13.1.3/style/XCharter.el b/elpa/auctex-13.1.3/style/XCharter.el new file mode 100644 index 0000000..6f35b36 --- /dev/null +++ b/elpa/auctex-13.1.3/style/XCharter.el @@ -0,0 +1,97 @@ +;;; XCharter.el --- AUCTeX style for `XCharter.sty' (v1.094) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2017, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-10-30 +;; 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 `XCharter.sty' (v1.094) from 2017/08/08. +;; `XCharter.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "XCharter" + (lambda () + + ;; Run style hook for various packages loaded by XCharter + (TeX-run-style-hooks "textcomp" "fontaxes") + + ;; New symbols + (TeX-add-symbols + + ;; Only preamble commands + '("useosf" 0) + '("useosfI" 0) + + ;; Text commands + '("textsu" t) ; superior figures + '("sustyle" -1) ; + '("textin" t) ; inferior figures + '("instyle" -1) ; + '("textlf" t) ; lining figures + '("lfstyle" -1) ; + '("textosf" t) ; oldstyle figures + '("textosfI" t) ; oldstyle figures alternate + '("osfstyle" -1) ; whatever oldstyle option is in force + '("textnumerator" t) ; numerators + '("textnu" t) ; + '("textdenominator" t) ; denominators + '("textde" t) ; + '("textfrac" 2)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textsu" "{") + ("textin" "{") + ("textlf" "{") + ("textosf" "{") + ("textosfI" "{") + ("textnumerator" "{") + ("textnu" "{") + ("textdenominator" "{") + ("textde" "{") + ("textfrac" "{{")) + 'type-command) + (font-latex-add-keywords '(("sustyle" "") + ("instyle" "") + ("lfstyle" "") + ("osfstyle" "")) + 'type-declaration))) + TeX-dialect) + +(defvar LaTeX-XCharter-package-options + '("lining" "lf" "oldstyle" "osf" "oldstyleI" "osfI" + "scaled" "sups" "scosf") + "Package options for the XCharter package.") + +;;; XCharter.el ends here diff --git a/elpa/auctex-13.1.3/style/XCharter.elc b/elpa/auctex-13.1.3/style/XCharter.elc Binary files differnew file mode 100644 index 0000000..8a11dda --- /dev/null +++ b/elpa/auctex-13.1.3/style/XCharter.elc diff --git a/elpa/auctex-13.1.3/style/acro.el b/elpa/auctex-13.1.3/style/acro.el new file mode 100644 index 0000000..56291a1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/acro.el @@ -0,0 +1,300 @@ +;;; acro.el --- AUCTeX style for `acro.sty' version 1.2a. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013-2015, 2018, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <giordano.mose@libero.it> +;; 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 `acro.sty' version 1.2a. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-acro-package-options-list + '(;; General Options + ("version" ("0" "1")) + ("single" ("true" "false")) + ("hyperref" ("true" "false")) + ("record-pages" ("true" "false")) + ("only-used" ("true" "false")) + ("mark-as-used" ("first" "any")) + ("macros" ("true" "false")) + ("xspace" ("true" "false")) + ("strict" ("true" "false")) + ("sort" ("true" "false")) + ("cite" ("all" "first" "none")) + ("cite-cmd") + ("cite-space") + ("index-cmd") + ("accsupp" ("true" "false")) + ("uc-cmd") + ;; Options Regarding Acronyms + ("short-format") + ("long-format") + ("first-long-format") + ("list-short-format") + ("list-long-format") + ("extra-format") + ("first-style" ("default" "plain" "empty" "square" "short" "reversed" + "plain-reversed" "footnote" "sidenote")) + ("extra-style" ("default" "plain" "comma" "paren" "bracket")) + ("plural-ending") + ;; Options Regarding the List + ("page-ref" ("none" "plain" "comma" "paren")) + ("page-name") + ("pages-name") + ("page-ranges" ("true" "false")) + ("next-page") + ("next-pages") + ("list-type" ("table" "itemize" "description")) + ("list-style" ("list" "tabular" "longtable" "extra-tabular" "extra-longtable" + "extra-tabular-rev" "extra-longtable-rev")) + ("list-header" ("chapter" "chapter*" "section" "section*" "subsection" + "subsection*" "addchap" "addsec")) + ("list-name") + ("list-table-width") + ("list-caps" ("true" "false"))) + "Package options for the acro package.") + +(TeX-auto-add-type "acro-acronym" "LaTeX") + +;; Self Parsing -- see (info "(auctex)Hacking the Parser"). +(defvar LaTeX-acro-regexp + (concat "\\\\DeclareAcronym" "{\\([^\n\r%\\{}]+\\)}") + "Matches `acro' acronym definitions.") + +(defvar LaTeX-auto-acro-acronym nil + "Temporary for parsing `acro' acronym definitions.") + +(defun LaTeX-acro-prepare () + "Clear `LaTex-auto-acro-acronym' before use." + (setq LaTeX-auto-acro-acronym nil)) + +(defun LaTeX-acro-cleanup () + "Move acronyms from `LaTeX-auto-acro-acronym' to +`LaTeX-acro-list' and to `TeX-auto-symbol' if option `macros' is +set to `true'." + (mapc (lambda (acronym) + (add-to-list 'LaTeX-acro-acronym-list (list acronym))) + LaTeX-auto-acro-acronym) + (when (or (LaTeX-provided-package-options-member "acro" "macros") + (LaTeX-provided-package-options-member "acro" "macros=true")) + (add-to-list 'TeX-auto-symbol LaTeX-auto-acro-acronym))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-acro-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-acro-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defvar LaTeX-acro-acronym-history nil + "History of acronyms in acro.") + +(defun LaTeX-arg-acro-acronym (optional &optional prompt definition) + "Prompt for an acronym completing with known acronyms. +If OPTIONAL is non-nil, insert the resulting value as an optional +argument, otherwise as a mandatory one. Use PROMPT as the prompt +string. If DEFINITION is non-nil, add the chosen acronym to the +list of defined acronyms." + (let ((acronym (completing-read (TeX-argument-prompt optional prompt "Acronym") + (LaTeX-acro-acronym-list) nil nil nil + 'LaTeX-acro-acronym-history))) + (if (and definition (not (string-equal "" acronym))) + (LaTeX-add-acro-acronyms acronym)) + (TeX-argument-insert acronym optional optional))) + +(defun LaTeX-arg-define-acro-acronym (optional &optional prompt) + "Prompt for an acronym completing with known acronyms. +If OPTIONAL is non-nil, insert the resulting value as an optional +argument, otherwise as a mandatory one. Use PROMPT as the prompt +string." + (LaTeX-arg-acro-acronym optional prompt t)) + +(defvar LaTeX-acro-declareacronym-keys + '(("short") ("long") ("short-plural") ("long-plural") ("long-plural-form") + ("short-indefinite") ("long-indefinite") ("long-pre") ("long-post") ("alt") + ("alt-indefinite") ("extra") ("sort") ("class") ("cite") ("short-format") + ("long-format") ("first-long-format") ("pdfstring") ("accsupp") + ("index-sort") ("index") ("index-cmd")) + "List of keys accepted by `\\DeclareAcronym' macro of `acro' package +in its second mandatory argument.") + +(defvar LaTeX-acro-printacronyms-keys + '(("include-classes") ("exclude-classes") ("name") ("header")) + "List of keys accepted by `\\printacronyms' macro of `acro' package +in its optional argument.") + +(defun LaTeX-arg-acro-key-val (optional prompt key-val-alist) + "Prompt for keys and values in KEY-VAL-ALIST. +<SPC> key binding in minibuffer is removed temporarily. Insert +the given value as a TeX macro argument. If OPTIONAL is non-nil, +insert it as an optional argument. Use PROMPT as the prompt +string. KEY-VAL-ALIST is an alist. The car of each element +should be a string representing a key and the optional cdr should +be a list with strings to be used as values for the key." + ;; Remove <SPC> key binding from map used in `multi-prompt-key-value' (called + ;; by `TeX-arg-key-val') with `require-match' set to `nil'. + (let ((crm-local-completion-map + (remove (assoc 32 crm-local-completion-map) crm-local-completion-map))) + (TeX-arg-key-val optional key-val-alist prompt))) + +(TeX-add-style-hook + "acro" + (lambda () + (TeX-auto-add-regexp `(,LaTeX-acro-regexp 1 LaTeX-auto-acro-acronym)) + (TeX-add-symbols + ;; Creating New Acronyms + '("DeclareAcronym" LaTeX-arg-define-acro-acronym + (LaTeX-arg-acro-key-val "Definition of acronym (k=v)" + LaTeX-acro-declareacronym-keys)) + ;; Using the Acronyms + '("ac" LaTeX-arg-acro-acronym) + '("ac*" LaTeX-arg-acro-acronym) + '("Ac" LaTeX-arg-acro-acronym) + '("Ac*" LaTeX-arg-acro-acronym) + '("acs" LaTeX-arg-acro-acronym) + '("acs*" LaTeX-arg-acro-acronym) + '("acl" LaTeX-arg-acro-acronym) + '("acl*" LaTeX-arg-acro-acronym) + '("Acl" LaTeX-arg-acro-acronym) + '("Acl*" LaTeX-arg-acro-acronym) + '("aca" LaTeX-arg-acro-acronym) + '("aca*" LaTeX-arg-acro-acronym) + '("acf" LaTeX-arg-acro-acronym) + '("acf*" LaTeX-arg-acro-acronym) + '("Acf" LaTeX-arg-acro-acronym) + '("Acf*" LaTeX-arg-acro-acronym) + '("acp" LaTeX-arg-acro-acronym) + '("acp*" LaTeX-arg-acro-acronym) + '("Acp" LaTeX-arg-acro-acronym) + '("Acp*" LaTeX-arg-acro-acronym) + '("acsp" LaTeX-arg-acro-acronym) + '("acsp*" LaTeX-arg-acro-acronym) + '("aclp" LaTeX-arg-acro-acronym) + '("aclp*" LaTeX-arg-acro-acronym) + '("Aclp" LaTeX-arg-acro-acronym) + '("Aclp*" LaTeX-arg-acro-acronym) + '("acap" LaTeX-arg-acro-acronym) + '("acap*" LaTeX-arg-acro-acronym) + '("acfp" LaTeX-arg-acro-acronym) + '("acfp*" LaTeX-arg-acro-acronym) + '("Acfp" LaTeX-arg-acro-acronym) + '("Acfp*" LaTeX-arg-acro-acronym) + ;; Indefinite Forms + '("iac" LaTeX-arg-acro-acronym) + '("iac*" LaTeX-arg-acro-acronym) + '("Iac" LaTeX-arg-acro-acronym) + '("Iac*" LaTeX-arg-acro-acronym) + '("iacs" LaTeX-arg-acro-acronym) + '("iacs*" LaTeX-arg-acro-acronym) + '("Iacs" LaTeX-arg-acro-acronym) + '("Iacs*" LaTeX-arg-acro-acronym) + '("iaca" LaTeX-arg-acro-acronym) + '("iaca*" LaTeX-arg-acro-acronym) + '("Iaca" LaTeX-arg-acro-acronym) + '("Iaca*" LaTeX-arg-acro-acronym) + '("iacl" LaTeX-arg-acro-acronym) + '("iacl*" LaTeX-arg-acro-acronym) + '("Iacl" LaTeX-arg-acro-acronym) + '("Iacl*" LaTeX-arg-acro-acronym) + '("iacf" LaTeX-arg-acro-acronym) + '("iacf*" LaTeX-arg-acro-acronym) + '("Iacf" LaTeX-arg-acro-acronym) + '("Iacf*" LaTeX-arg-acro-acronym) + '("iacflike" LaTeX-arg-acro-acronym) + '("iacflike*" LaTeX-arg-acro-acronym) + '("Iacflike" LaTeX-arg-acro-acronym) + '("Iacflike*" LaTeX-arg-acro-acronym) + ;; Simulating the First Appearance + '("acflike" LaTeX-arg-acro-acronym) + '("acflike*" LaTeX-arg-acro-acronym) + '("acfplike" LaTeX-arg-acro-acronym) + '("acfplike*" LaTeX-arg-acro-acronym) + ;; Reset or Mark as Used + '("acreset" "List of acronyms") + '("acresetall" 0) + '("acuse" "List of acronyms") + '("acuseall" 0) + ;; PDF bookmarks + '("acpdfstring" LaTeX-arg-acro-acronym) + '("acpdfstringplural" LaTeX-arg-acro-acronym) + ;; Printing the List + '("printacronyms" [LaTeX-arg-acro-key-val nil LaTeX-acro-printacronyms-keys]) + ;; Customization + '("acsetup" (TeX-arg-key-val LaTeX-acro-package-options-list))) + (TeX-run-style-hooks + "l3sort" + "xspace" + "xtemplate" + "l3keys2e" + "xparse" + "expl3") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("DeclareAcronym" "{{") + ("ac" "*{") + ("Ac" "*{") + ("acs" "*{") + ("acl" "*{") + ("Acl" "*{") + ("aca" "*{") + ("acf" "*{") + ("Acf" "*{") + ("acp" "*{") + ("Acp" "*{") + ("acsp" "*{") + ("aclp" "*{") + ("Aclp" "*{") + ("acap" "*{") + ("acfp" "*{") + ("Acfp" "*{") + ("acflike" "*{") + ("acfplike" "*{") + ("iac" "*{") + ("Iac" "*{") + ("iacs" "*{") + ("Iacs" "*{") + ("iaca" "*{") + ("Iaca" "*{") + ("iacl" "*{") + ("Iacl" "*{") + ("iacf" "*{") + ("Iacf" "*{") + ("iacflike" "*{") + ("Iacflike" "*{") + ("acuse" "{")) + 'function))) + TeX-dialect) + +(defun LaTeX-acro-package-options () + "Prompt for package options for the acro package." + (TeX-read-key-val t LaTeX-acro-package-options-list)) + +;;; acro.el ends here diff --git a/elpa/auctex-13.1.3/style/acro.elc b/elpa/auctex-13.1.3/style/acro.elc Binary files differnew file mode 100644 index 0000000..3388038 --- /dev/null +++ b/elpa/auctex-13.1.3/style/acro.elc diff --git a/elpa/auctex-13.1.3/style/acronym.el b/elpa/auctex-13.1.3/style/acronym.el new file mode 100644 index 0000000..a99fa85 --- /dev/null +++ b/elpa/auctex-13.1.3/style/acronym.el @@ -0,0 +1,185 @@ +;;; acronym.el --- AUCTeX style for `acronym.sty' version 1.38. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013-2015, 2018, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <giordano.mose@libero.it> +;; 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 `acronym.sty' version 1.38. + +;;; Code: + +(require 'tex) ;Indispensable when compiling the call to `TeX-auto-add-type'. +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-auto-add-type "acronym" "LaTeX") + +;; Self Parsing -- see (info "(auctex)Hacking the Parser"). +(defvar LaTeX-acronym-regexp + (concat "\\\\\\(?:acro\\|newacro\\|acrodef\\)" "{\\([^\n\r%\\{}]+\\)}") + "Matches acronyms by `acronym' package.") + +(defvar LaTeX-auto-acronym nil + "Temporary for parsing acronym by `acronym' package.") + +(defun LaTeX-acronym-prepare () + "Clear `LaTex-auto-acronym' before use." + (setq LaTeX-auto-acronym nil)) + +(defun LaTeX-acronym-cleanup () + "Move acronyms from `LaTeX-auto-acronym' to `LaTeX-acronym-list'." + (mapc (lambda (acronym) + (add-to-list 'LaTeX-acronym-list (list acronym))) + LaTeX-auto-acronym)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-acronym-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-acronym-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defvar LaTeX-acronym-acronym-history nil + "History of acronyms in acronym.") + +;; The former `acronym' stands for package name, the latter stands for the +;; argument of the macro calling this function. +(defun LaTeX-arg-acronym-acronym (optional &optional prompt definition) + "Prompt for an acronym completing with known acronyms. +If OPTIONAL is non-nil, insert the resulting value as an optional +argument, otherwise as a mandatory one. Use PROMPT as the prompt +string. If DEFINITION is non-nil, add the chosen acronym to the +list of defined acronyms." + (let ((acronym (completing-read (TeX-argument-prompt optional prompt "Acronym") + (LaTeX-acronym-list) nil nil nil + 'LaTeX-acronym-acronym-history))) + (if (and definition (not (string-equal "" acronym))) + (LaTeX-add-acronyms acronym)) + (TeX-argument-insert acronym optional optional))) + +(defun LaTeX-arg-define-acronym-acronym (optional &optional prompt) + "Prompt for an acronym completing with known acronyms. +If OPTIONAL is non-nil, insert the resulting value as an optional +argument, otherwise as a mandatory one. Use PROMPT as the prompt +string." + (LaTeX-arg-acronym-acronym optional prompt t)) + +(TeX-add-style-hook + "acronym" + (lambda () + (TeX-auto-add-regexp `(,LaTeX-acronym-regexp 1 LaTeX-auto-acronym)) + (LaTeX-add-environments + '("acronym" LaTeX-env-args + [TeX-arg-string "Longest acronym"])) + (TeX-add-symbols + ;; Acronyms in the Text + '("ac" LaTeX-arg-acronym-acronym) + '("acresetall" 0) + '("acf" LaTeX-arg-acronym-acronym) + '("acs" LaTeX-arg-acronym-acronym) + '("acl" LaTeX-arg-acronym-acronym) + '("acp" LaTeX-arg-acronym-acronym) + '("acfp" LaTeX-arg-acronym-acronym) + '("acsp" LaTeX-arg-acronym-acronym) + '("aclp" LaTeX-arg-acronym-acronym) + '("acfi" LaTeX-arg-acronym-acronym) + '("acused" LaTeX-arg-acronym-acronym) + '("acsu" LaTeX-arg-acronym-acronym) + '("aclu" LaTeX-arg-acronym-acronym) + '("iac" LaTeX-arg-acronym-acronym) + '("Iac" LaTeX-arg-acronym-acronym) + '("ac*" LaTeX-arg-acronym-acronym) + '("acf*" LaTeX-arg-acronym-acronym) + '("acs*" LaTeX-arg-acronym-acronym) + '("acl*" LaTeX-arg-acronym-acronym) + '("acp*" LaTeX-arg-acronym-acronym) + '("acfp*" LaTeX-arg-acronym-acronym) + '("acsp*" LaTeX-arg-acronym-acronym) + '("aclp*" LaTeX-arg-acronym-acronym) + '("acfi*" LaTeX-arg-acronym-acronym) + '("acsu*" LaTeX-arg-acronym-acronym) + '("aclu*" LaTeX-arg-acronym-acronym) + '("iac*" LaTeX-arg-acronym-acronym) + '("Iac*" LaTeX-arg-acronym-acronym) + ;; Customization + '("acsfont" 1) + '("acffont" 1) + '("acfsfont" 1) + ;; Defining Acronyms + '("acro" LaTeX-arg-define-acronym-acronym [ "Short name" ] "Full name") + '("acroextra" "Additional info") + '("newacro" LaTeX-arg-define-acronym-acronym [ "Short name" ] "Full name") + '("acrodef" LaTeX-arg-define-acronym-acronym [ "Short name" ] "Full name") + ;; Non standard indefinite articles + '("acroindefinite" LaTeX-arg-acronym-acronym + "Short indefinite article" "Long indefinite article") + '("acrodefindefinite" LaTeX-arg-acronym-acronym + "Short indefinite article" "Long indefinite article") + '("newacroindefinite" LaTeX-arg-acronym-acronym + "Short indefinite article" "Long indefinite article") + ;; Non standard and foreign plural forms + '("acroplural" LaTeX-arg-acronym-acronym [ "Short plural" ] "Long plural") + '("acrodefplural" LaTeX-arg-acronym-acronym [ "Short plural" ] "Long plural") + '("newacroplural" LaTeX-arg-acronym-acronym [ "Short plural" ] "Long plural")) + (TeX-run-style-hooks + "relsize" + "xstring" + "suffix") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("ac" "*{") + ("acf" "*{") + ("acs" "*{") + ("acl" "*{") + ("acp" "*{") + ("acfp" "*{") + ("acsp" "*{") + ("aclp" "*{") + ("acfi" "*{") + ("acused" "{") + ("acsu" "*{") + ("aclu" "*{") + ("iac" "*{") + ("Iac" "*{") + ("acro" "{[{") + ("acroextra" "{") + ("newacro" "{[{") + ("acrodef" "{[{") + ("acroindefinite" "{{{") + ("acrodefindefinite" "{{{") + ("newacroindefinite" "{{{") + ("acroplural" "{[{") + ("acrodefplural" "{[{") + ("newacroplural" "{[{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-acronym-package-options + '("footnote" "nohyperlinks" "printonlyused" "withpage" "smaller" "dua" "nolist") + "Package options for the acronym package.") + +;; acronym.el ends here diff --git a/elpa/auctex-13.1.3/style/acronym.elc b/elpa/auctex-13.1.3/style/acronym.elc Binary files differnew file mode 100644 index 0000000..bfe9971 --- /dev/null +++ b/elpa/auctex-13.1.3/style/acronym.elc diff --git a/elpa/auctex-13.1.3/style/afterpage.el b/elpa/auctex-13.1.3/style/afterpage.el new file mode 100644 index 0000000..1601885 --- /dev/null +++ b/elpa/auctex-13.1.3/style/afterpage.el @@ -0,0 +1,46 @@ +;;; afterpage.el --- AUCTeX style for `afterpage.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2013, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2013-01-01 +;; 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 `afterpage.sty' + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "afterpage" + (lambda () + (TeX-add-symbols + '("afterpage" t))) + TeX-dialect) + +(defvar LaTeX-afterpage-package-options nil + "Package options for afterpage.") + +;; afterpage.el ends here diff --git a/elpa/auctex-13.1.3/style/afterpage.elc b/elpa/auctex-13.1.3/style/afterpage.elc Binary files differnew file mode 100644 index 0000000..13a9534 --- /dev/null +++ b/elpa/auctex-13.1.3/style/afterpage.elc diff --git a/elpa/auctex-13.1.3/style/algorithm.el b/elpa/auctex-13.1.3/style/algorithm.el new file mode 100644 index 0000000..8500f44 --- /dev/null +++ b/elpa/auctex-13.1.3/style/algorithm.el @@ -0,0 +1,80 @@ +;;; algorithm.el --- AUCTeX style for the (LaTeX) algorithm package -*- lexical-binding: t; -*- + +;; Copyright (C) 2020 Free Software Foundation, Inc. + +;; Author: Uwe Brauer <oub@mat.ucm.es> +;; Created: 2020-01-26 +;; 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 the algorithm package. + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-algorithm-package-options + '(;; Appearance options: + "plain" "ruled" "boxed" + ;; Numbering convention: + "part" "chapter" "section" "subsection" "subsubsection" "nothing") + "Package options for the algorithm package.") + +(defun LaTeX-env-algorithm (environment) + "Insert a algorithm-like ENVIRONMENT with caption and label." + (let* ((pos (completing-read (TeX-argument-prompt t nil "Position") + '(("H")))) + (caption (TeX-read-string "Caption: ")) + (short-caption (when (>= (length caption) LaTeX-short-caption-prompt-length) + (TeX-read-string "(Optional) Short caption: ")))) + (LaTeX-insert-environment environment + (concat + (unless (zerop (length pos)) + (concat LaTeX-optop pos LaTeX-optcl)))) + ;; top caption -- do nothing if user skips caption + (unless (zerop (length caption)) + ;; insert `\caption[short-caption]{caption': + (insert TeX-esc "caption") + (when (and short-caption (not (string= short-caption ""))) + (insert LaTeX-optop short-caption LaTeX-optcl)) + (insert TeX-grop caption) + ;; Add } to close `\caption{' + (insert TeX-grcl) + ;; fill the caption + (when auto-fill-function (LaTeX-fill-paragraph)) + ;; Insert a new line and indent + (LaTeX-newline) + (indent-according-to-mode) + ;; Finally add a \label: + (when (LaTeX-label environment 'environment) + (LaTeX-newline) + (indent-according-to-mode))))) + +(TeX-add-style-hook + "algorithm" + (lambda () + (LaTeX-add-environments + '("algorithm" LaTeX-env-algorithm)) + (TeX-add-symbols + '("listofalgorithms" 0))) + TeX-dialect) + +;;; algorithm.el ends here diff --git a/elpa/auctex-13.1.3/style/algorithm.elc b/elpa/auctex-13.1.3/style/algorithm.elc Binary files differnew file mode 100644 index 0000000..0c562d0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/algorithm.elc diff --git a/elpa/auctex-13.1.3/style/algpseudocode.el b/elpa/auctex-13.1.3/style/algpseudocode.el new file mode 100644 index 0000000..1d8bdd7 --- /dev/null +++ b/elpa/auctex-13.1.3/style/algpseudocode.el @@ -0,0 +1,143 @@ +;;; algpseudocode.el --- AUCTeX style for the (LaTeX) algpseudocode package -*- lexical-binding: t; -*- + +;; Copyright (C) 2020--2022 Free Software Foundation, Inc. + +;; Author: Uwe Brauer <oub@mat.ucm.es> +;; Created: 2020-01-26 +;; 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 the algpseudocode package. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-algpseudocode-package-options + '("compatible" "nocompatible" "end" "noend") + "Package options for the algpseudocode package.") + +(TeX-add-style-hook + "algpseudocode" + (lambda () + (TeX-add-symbols + ;; 2.3 Simple lines + '("State" (TeX-arg-literal " ")) + '("Statex" 0) + + ;; 2.4 Placing comments in sources + '("Comment" 1) + + ;; 2.5 Labels and references + '("algref" (TeX-arg-ref "Algorithm") (TeX-arg-ref "Line")) + + ;; 2.6 Breaking up long algorithms + '("algstore" 1) + '("algstore*" 1) + '("algrestore" 1) + '("algrestore*" 1) + + ;; 3.1.1 The for block + '("For" 1) + '("ForAll" 1) + '("EndFor" 0) + + ;; 3.1.2 The while block + '("While" 1) + '("EndWhile" 0) + + ;; 3.1.3 The repeat block + '("Repeat" 0) + '("Until" 1) + + ;; 3.1.4 The if block + '("If" 1) + '("ElsIf" 1) + '("Else" 0) + '("EndIf" 0) + + ;; 3.1.5 The procedure block + '("Procedure" 2) + '("EndProcedure" 0) + + ;; 3.1.6 The function block + '("Function" 2) + '("EndFunction" 0) + + ;; 3.1.7 The loop block + '("Loop" 0) + '("EndLoop" 0) + + ;; 3.1.8 Other commands in this layout + '("Require" (TeX-arg-literal " ")) + '("Ensure" (TeX-arg-literal " ")) + '("Call" 2)) + + (LaTeX-add-environments + '("algorithmic" [ "Number" ])) + + ;; Indentation: Add the keywords above to the respective variables + ;; and run `LaTeX-indent-commands-regexp-make'. + (let ((beg '("For" "ForAll" + "While" + "Repeat" + "If" + "Procedure" + "Function" + "Loop")) + (mid '("ElsIf" "Else")) + (end '("EndFor" + "EndWhile" + "Until" + "EndIf" + "EndProcedure" + "EndFunction" + "EndLoop"))) + (dolist (elt beg) + (add-to-list 'LaTeX-indent-begin-list elt t)) + (dolist (elt mid) + (add-to-list 'LaTeX-indent-mid-list elt t)) + (dolist (elt end) + (add-to-list 'LaTeX-indent-end-list elt t)) + (LaTeX-indent-commands-regexp-make)) + + ;; Add the 'algorithmic' environment to a local version of + ;; `LaTeX-indent-environment-list'. This effectively kills filling + ;; but indenting works as expected. Hence, 'M-q' gives a better + ;; experience. + (add-to-list (make-local-variable 'LaTeX-indent-environment-list) + '("algorithmic") + t) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("algref" "{{")) + 'reference))) + TeX-dialect) + +;;; algpseudocode.el ends here diff --git a/elpa/auctex-13.1.3/style/algpseudocode.elc b/elpa/auctex-13.1.3/style/algpseudocode.elc Binary files differnew file mode 100644 index 0000000..b62fdbc --- /dev/null +++ b/elpa/auctex-13.1.3/style/algpseudocode.elc diff --git a/elpa/auctex-13.1.3/style/alltt.el b/elpa/auctex-13.1.3/style/alltt.el new file mode 100644 index 0000000..57d1ab2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/alltt.el @@ -0,0 +1,57 @@ +;;; alltt.el --- AUCTeX style for `alltt.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2004, 2005, 2014, 2016, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@iwi.uni-sb.de> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2004-04-30 +;; 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 `alltt.sty'. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-set-syntactic-keywords + "font-latex") + +(TeX-add-style-hook + "alltt" + (lambda () + (LaTeX-add-environments "alltt") + (add-to-list (make-local-variable 'LaTeX-indent-environment-list) + '("alltt" current-indentation) t) + (add-to-list 'LaTeX-verbatim-environments-local "alltt") + ;; Fontification + (when (and (fboundp 'font-latex-set-syntactic-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; Tell font-lock about the update. + (font-latex-set-syntactic-keywords))) + TeX-dialect) + +(defvar LaTeX-alltt-package-options nil + "Package options for the alltt package.") + +;;; alltt.el ends here diff --git a/elpa/auctex-13.1.3/style/alltt.elc b/elpa/auctex-13.1.3/style/alltt.elc Binary files differnew file mode 100644 index 0000000..65d84cb --- /dev/null +++ b/elpa/auctex-13.1.3/style/alltt.elc diff --git a/elpa/auctex-13.1.3/style/alphanum.el b/elpa/auctex-13.1.3/style/alphanum.el new file mode 100644 index 0000000..cc24c3b --- /dev/null +++ b/elpa/auctex-13.1.3/style/alphanum.el @@ -0,0 +1,105 @@ +;;; alphanum.el --- AUCTeX style for `alphanum.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2004, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Frank Küster <frank@kuesterei.ch> +;; Maintainer: auctex-devel@gnu.org +;; 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 is file alphanum.el, which makes AUCTeX usable with jura.cls +;; and its style file alphanum.sty. +;; +;; Contributed by Frank Küster <frank@kuesterei.ch>. The code for +;; reftex has been written by Carsten Dominik, the maintainer of +;; reftex, but all the errors are mine. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function reftex-match-string "reftex" (n)) +(defvar reftex-section-regexp) + +(defun reftex-get-section-level-alphanum () + (save-excursion ; preserve position + (save-match-data ; preserve matching data (important!) + ;; Go back to the beginning of the sectioning command + (goto-char (match-beginning 0)) + ;; Define an initial level number, depending on the current macro. + (let* ((macro (reftex-match-string 3)) ; "toc" or "sub" + (lev (cond ((string= macro "toc") 1) ; min level for "toc" + ((string= macro "sub") 2) ; min level for "sub" + (t 0))) + ;; Make a regular expression which will match sectioning commands + ;; and the levelup macro. + (re (concat "\\(^[^%]*\\\\levelup\\>\\)" + "\\|" + "\\(" reftex-section-regexp "\\)"))) + ;; Now parse backwards for all sectioning and levelup macros, + ;; and keep track of the relative level changes. + (while (re-search-backward re nil t) + (cond + ((match-beginning 1) + ;; levelup matched, reduce level counter + (setq lev (1- lev))) + ((string= (reftex-match-string 4) "toc") + ;; a toc entry, nothing changes + ) + ((string= (reftex-match-string 4) "sub") + ;; a sub entry, increase level counter + (setq lev (1+ lev))))) + ;; return the level + lev)))) + +(TeX-add-style-hook + "alphanum" + (lambda () + (LaTeX-largest-level-set "chapter") + (TeX-add-symbols + '("levelup" (TeX-arg-literal " "))) + (make-local-variable 'LaTeX-section-list) + (LaTeX-section-list-add-locally + '(("part" 0) + ;; the levels don't make sense with alphanum, I randomly chose 0... + ("toc" 0) + ("sub" 0)) + t) + (setq LaTeX-section-label + '(("part" . "part:") + ("toc" . "sec:") + ("sub" . "sec:"))) + ;; + ;; ****************** reftex part ****************** + ;; this won't work in multifile documents, but at least there is + ;; something. + + (if (fboundp 'reftex-add-section-levels) + (reftex-add-section-levels + '(("toc" . reftex-get-section-level-alphanum) + ("sub" . reftex-get-section-level-alphanum))))) + TeX-dialect) + +;; Local Variables: +;; coding: utf-8 +;; End: diff --git a/elpa/auctex-13.1.3/style/alphanum.elc b/elpa/auctex-13.1.3/style/alphanum.elc Binary files differnew file mode 100644 index 0000000..50ba913 --- /dev/null +++ b/elpa/auctex-13.1.3/style/alphanum.elc diff --git a/elpa/auctex-13.1.3/style/amsart.el b/elpa/auctex-13.1.3/style/amsart.el new file mode 100644 index 0000000..7f93f1a --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsart.el @@ -0,0 +1,16 @@ +;;; amsart.el --- Style hook for the AMS-LaTeX article document class. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "amsart" + (function + (lambda () + (TeX-run-style-hooks "amsmath" "amsthm") + (LaTeX-add-environments "abstract"))) + TeX-dialect) + +;;; amsart.el ends here. diff --git a/elpa/auctex-13.1.3/style/amsart.elc b/elpa/auctex-13.1.3/style/amsart.elc Binary files differnew file mode 100644 index 0000000..7b2e74a --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsart.elc diff --git a/elpa/auctex-13.1.3/style/amsbook.el b/elpa/auctex-13.1.3/style/amsbook.el new file mode 100644 index 0000000..c645767 --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsbook.el @@ -0,0 +1,15 @@ +;;; amsbook.el --- Style hook for the AMS-LaTeX book document class. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "amsbook" + (lambda () + (TeX-run-style-hooks "amsmath" "amsthm") + (LaTeX-add-environments "abstract")) + TeX-dialect) + +;;; amsbook.el ends here. diff --git a/elpa/auctex-13.1.3/style/amsbook.elc b/elpa/auctex-13.1.3/style/amsbook.elc Binary files differnew file mode 100644 index 0000000..a3c0ae1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsbook.elc diff --git a/elpa/auctex-13.1.3/style/amsbsy.el b/elpa/auctex-13.1.3/style/amsbsy.el new file mode 100644 index 0000000..dce3825 --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsbsy.el @@ -0,0 +1,21 @@ +;;; amsbsy.el --- Style hook for the AMS-LaTeX amsbsy package. -*- lexical-binding: t; -*- +;;; +;;; AUTHOR: Carsten Dominik <dominik@strw.leidenuniv.nl> + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "amsbsy" + (lambda () + (TeX-add-symbols + '("boldsymbol" "Symbol") + '("pmb" "Symbol"))) + TeX-dialect) + +(defvar LaTeX-amsbsy-package-options nil + "Package options for the amsbsy package.") + +;;; amsbsy.el ends here. diff --git a/elpa/auctex-13.1.3/style/amsbsy.elc b/elpa/auctex-13.1.3/style/amsbsy.elc Binary files differnew file mode 100644 index 0000000..7375372 --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsbsy.elc diff --git a/elpa/auctex-13.1.3/style/amsfonts.el b/elpa/auctex-13.1.3/style/amsfonts.el new file mode 100644 index 0000000..03556e7 --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsfonts.el @@ -0,0 +1,61 @@ +;;; amsfonts.el --- AUCTeX style for `amsfonts.sty' version 3.01 -*- lexical-binding: t; -*- + +;; Copyright (C) 2016, 2018, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <mose@gnu.org> +;; 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 `amsfonts.sty' version 3.01. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "amsfonts" + (lambda () + (TeX-add-symbols + '("bold" 1)) + ;; New math font by `amsfonts'. + (setq TeX-font-list + (append + TeX-font-list + '((?\C-k "" "" "\\mathfrak{" "}")))) + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("bold" "{")) + 'bold-command))) + TeX-dialect) + +;; The `psamsfonts' option is obsolete in AMSFonts v3 +(defvar LaTeX-amsfonts-package-options nil + "Package options for the amsfonts package.") + +;;; amsfonts.el ends here. diff --git a/elpa/auctex-13.1.3/style/amsfonts.elc b/elpa/auctex-13.1.3/style/amsfonts.elc Binary files differnew file mode 100644 index 0000000..a3db471 --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsfonts.elc diff --git a/elpa/auctex-13.1.3/style/amsmath.el b/elpa/auctex-13.1.3/style/amsmath.el new file mode 100644 index 0000000..5e7812e --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsmath.el @@ -0,0 +1,259 @@ +;;; amsmath.el --- Style hook for the AMS-LaTeX amsmath package. -*- lexical-binding: t; -*- + +;; Copyright (C) 2002, 2005-2007, 2012-2014, 2017-2020, 2022 +;; Free Software Foundation, Inc. +;; FIXME: What about the copyright for <= 2001? + +;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl> +;; Maintainer: auctex-devel@gnu.org + +;; 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 will also load the amstext, amsbsy and amsopn style files. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Fontification +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "amsmath" + (lambda () + (LaTeX-add-environments + '("align" LaTeX-env-label) + '("gather" LaTeX-env-label) + '("flalign" LaTeX-env-label) + '("multline" LaTeX-env-label) + '("alignat" LaTeX-amsmath-env-alignat) + '("alignat*" LaTeX-amsmath-env-alignat) + '("xalignat" LaTeX-amsmath-env-alignat) + '("xalignat*" LaTeX-amsmath-env-alignat) + '("xxalignat" LaTeX-amsmath-env-alignat) + '("aligned" ["Vertical position (t or b)"]) + '("gathered" ["Vertical position (t or b)"]) + '("alignedat" LaTeX-amsmath-env-alignedat) + "align*" "gather*" "flalign*" "multline*" "equation*" + "split" + "cases" + "matrix" "smallmatrix" "pmatrix" "bmatrix" "Bmatrix" "vmatrix" "Vmatrix" + "subequations" + '("subarray" "Alignment")) + + (TeX-add-symbols + '("eqref" TeX-arg-ref) + '("numberwithin" TeX-arg-counter "Section level") + '("raisetag" "Dimension") + '("shoveright" t) '("shoveleft" t) + '("intertext" t) + '("hdotsfor" ["Stretch"] "Number of columns to cover") + '("xleftarrow" ["Below"] "Above") + '("xrightarrow" ["Below"] "Above") + '("overset" "Above symbol" "Symbol") + '("underset" "Below symbol" "Symbol") + '("overunderset" "Above symbol" "Below symbol" "Symbol") + '("dfrac" 2) + '("tfrac" 2) + '("binom" 2) + '("dbinom" 2) + '("tbinom" 2) + '("genfrac" "Left delimiter" "Right delimiter" "Thickness" + "Mathstyle" 2) + '("cfrac" ["position (l or r)"] 2) + '("smash" ["where (t or b)"] t) + '("sideset" "Left" "Right") + '("tag" "(Tag)") + '("tag*" "Tag") + '("displaybreak" ["Weight (0..4)"]) + '("allowdisplaybreaks" ["Weight (1..4)"]) + '("substack" t) + '("leftroot" "Push root index left by") + '("uproot" "Push root index upward by") + '("boxed" t) + '("mspace" t) + '("mod" t) + '("pmod" t) + '("pod" t) + '("overleftrightarrow" t) + '("underleftarrow" t) + '("underrightarrow" t) + '("underleftrightarrow" t) + '("dddot" t) + '("ddddot" t) + "bmod" "notag" + "dots" "dotsb" "dotsc" "dotsi" "dotsm" "dotso" "nobreakdash" + '("lvert" TeX-arg-insert-right-brace-maybe) + '("lVert" TeX-arg-insert-right-brace-maybe) + "rvert" "rVert" + "iint" "iiint" "iiiint" "idotsint") + + (setq LaTeX-item-list + (append '(("split" . LaTeX-item-equation) + ("multline" . LaTeX-item-equation) + ("multline*" . LaTeX-item-equation) + ("gather" . LaTeX-item-equation) + ("gather*" . LaTeX-item-equation) + ("gathered" . LaTeX-item-equation) + ("align" . LaTeX-item-equation) + ("align*" . LaTeX-item-equation) + ("aligned" . LaTeX-item-equation) + ("alignat" . LaTeX-item-equation-alignat) + ("alignat*" . LaTeX-item-equation-alignat) + ("xalignat" . LaTeX-item-equation-alignat) + ("xalignat*" . LaTeX-item-equation-alignat) + ("xxalignat" . LaTeX-item-equation-alignat) + ("alignedat" . LaTeX-item-equation-alignat) + ("flalign" . LaTeX-item-equation) + ("flalign*" . LaTeX-item-equation) + ("matrix" . LaTeX-item-equation) + ("pmatrix" . LaTeX-item-equation) + ("bmatrix" . LaTeX-item-equation) + ("Bmatrix" . LaTeX-item-equation) + ("vmatrix" . LaTeX-item-equation) + ("Vmatrix" . LaTeX-item-equation) + ("smallmatrix" . LaTeX-item-equation) + ("subarray" . LaTeX-item-equation) + ("cases" . LaTeX-item-equation)) + LaTeX-item-list)) + + ;; When `LaTeX-amsmath-label' is nil, use value of LaTeX-equation-label: + (unless LaTeX-amsmath-label + (setq LaTeX-amsmath-label LaTeX-equation-label)) + + (setq LaTeX-label-alist + ;; Append amsmath environments to `LaTeX-label-alist', in order not to + ;; override possible custome values. + (append LaTeX-label-alist + '(("align" . LaTeX-amsmath-label) + ("alignat" . LaTeX-amsmath-label) + ("xalignat" . LaTeX-amsmath-label) + ("multline" . LaTeX-amsmath-label) + ("flalign" . LaTeX-amsmath-label) + ("gather" . LaTeX-amsmath-label)))) + + (set (make-local-variable 'TeX-braces-association) + (append '(("\\lvert" . "\\rvert") + ("\\lVert" . "\\rVert")) + TeX-braces-association)) + (set (make-local-variable 'TeX-left-right-braces) + (append '(("\\lvert") ("\\rvert") ("\\lVert") ("\\rVert")) + TeX-left-right-braces)) + + ;; amsmath includes amstext, amsbsy, & amsopn. + ;; So we run their hooks, too. + (TeX-run-style-hooks "amstext" "amsbsy" "amsopn") + + ;; RefTeX support: Tell RefTeX about amsmath environments. + (when (fboundp 'reftex-add-to-label-alist) + (reftex-add-to-label-alist '(AMSTeX))) + + ;; Add \eqref to `reftex-ref-style-alist' and associate it to `e' + (when (and (boundp 'reftex-ref-style-alist) + ;; check if Emacs is already equipped with this + (not (assoc "AMSmath" reftex-ref-style-alist))) + ;; Append it to a local version in order to avoid a clash with + ;; user settings + (add-to-list (make-local-variable 'reftex-ref-style-alist) + '("AMSmath" "amsmath" (("\\eqref" ?e))) + t)) + + ;; Activate `AMSmath' when `LaTeX-reftex-ref-style-auto-activate' + ;; is non-nil + (and LaTeX-reftex-ref-style-auto-activate + (fboundp 'reftex-ref-style-activate) + (reftex-ref-style-activate "AMSmath")) + + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("boxed" "{")) + 'math-command))) + TeX-dialect) + +(defun LaTeX-amsmath-env-alignat (env) + "Insert ENV with column number specifications. +Insert suitable number of ampersands also if possible." + (let ((ncols (TeX-read-string "Number of columns: "))) + (LaTeX-insert-environment env (concat TeX-grop ncols TeX-grcl)) + (LaTeX-item-equation-alignat t))) + +(defun LaTeX-amsmath-env-alignedat (env) + "Insert ENV with position and column number specifications. +Insert suitable number of ampersands also if possible." + (let ((where (TeX-read-string "(Optional) Vertical position (t or b): ")) + (ncols (TeX-read-string "Number of columns: "))) + (unless (string= where "") + (setq where (concat LaTeX-optop where LaTeX-optcl))) + (LaTeX-insert-environment env (concat where TeX-grop ncols TeX-grcl)) + (LaTeX-item-equation-alignat t))) + +(defun LaTeX-item-equation (&optional suppress) + "Insert contents to terminate a line in multi-line equations environment. +Put line break macro on the last line. If the current environment +wants \\label, insert it also. + +If SUPPRESS is non-nil, do not insert line break macro." + (unless suppress + (end-of-line 0) + (just-one-space) + (TeX-insert-macro "\\") + (forward-line 1) + (indent-according-to-mode)) + (let ((env (LaTeX-current-environment))) + (when (and (assoc env LaTeX-label-alist) + (LaTeX-label env 'environment)) + (LaTeX-newline) + (indent-according-to-mode)))) + +(defun LaTeX-item-equation-alignat (&optional suppress) + "Insert contents to terminate a line in multi-line equations environment. +Put line break macro on the last line. Next, if the current +environment wants \\label, insert it also. And insert suitable number +of ampersands if possible. + +If SUPPRESS is non-nil, do not insert line break macro." + (LaTeX-item-equation suppress) + (LaTeX-insert-ampersands + (concat "\\(?:" + (regexp-quote LaTeX-optop) "[tb]" (regexp-quote LaTeX-optcl) + "\\)?") + #'LaTeX-amsmath-alignat-number-of-ampersands)) + +(defun LaTeX-amsmath-alignat-number-of-ampersands (start end) + "Return the number of ampersands to insert. +The number is 2N-1 where N is the number taken from the text between +START and END." + (let ((num (string-to-number (buffer-substring-no-properties start end)))) + (if (integerp num) (+ num num -1)))) + +(defvar LaTeX-amsmath-package-options '("intlimits" "nointlimits" + "sumlimits" "nosumlimits" + "namelimits" "nonamelimits" + "leqno" "reqno" "centertags" + "tbtags" "cmex10" "fleqn" "?" + "alignedleftspaceyes" + "alignedleftspaceno" + "alignedleftspaceyesifneg") + "Package options for the amsmath package.") + +;;; amsmath.el ends here. diff --git a/elpa/auctex-13.1.3/style/amsmath.elc b/elpa/auctex-13.1.3/style/amsmath.elc Binary files differnew file mode 100644 index 0000000..5179dd0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsmath.elc diff --git a/elpa/auctex-13.1.3/style/amsopn.el b/elpa/auctex-13.1.3/style/amsopn.el new file mode 100644 index 0000000..10572bd --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsopn.el @@ -0,0 +1,56 @@ +;;; amsopn.el --- AUCTeX style for the `amsnopn.sty' AMS-LaTeX package -*- lexical-binding: t; -*- + +;; Copyright (C) 1997, 2002, 2005, 2013, 2020 Free Software Foundation, Inc. + +;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl> +;; Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; 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 `amsnopn.sty' + +(require 'tex) +(require 'latex) + +;;; Code: + +(TeX-add-style-hook + "amsopn" + (lambda () + (TeX-add-symbols + '("DeclareMathOperator" (TeX-arg-define-macro "Math Operator: \\") + "Expansion text for the math operator") + '("DeclareMathOperator*" (TeX-arg-define-macro "Math Operator: \\") + "Expansion text for the math operator") + '("operatorname" t) + '("operatorname*" t)) + + (add-to-list 'LaTeX-auto-regexp-list + '("\\\\DeclareMathOperator\\*?{?\\\\\\([A-Za-z0-9]+\\)}?" + 1 TeX-auto-symbol))) + TeX-dialect + ) + +(defvar LaTeX-amsopn-package-options '("namelimits" "nonamelimits") + "Package options for the amsopn package.") + +;;; amsopn.el ends here. diff --git a/elpa/auctex-13.1.3/style/amsopn.elc b/elpa/auctex-13.1.3/style/amsopn.elc Binary files differnew file mode 100644 index 0000000..51efbfc --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsopn.elc diff --git a/elpa/auctex-13.1.3/style/amssymb.el b/elpa/auctex-13.1.3/style/amssymb.el new file mode 100644 index 0000000..5fdb82c --- /dev/null +++ b/elpa/auctex-13.1.3/style/amssymb.el @@ -0,0 +1,253 @@ +;;; amssymb.el --- AUCTeX style for `amssymb.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2012, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; 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 `amssymb.sty'. + +;; The commands were just taken out of the \DeclareMathSymbol from +;; amssymb.sty in the order specified there, i.e., \mathord, \mathbin, +;; \mathrel + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "amssymb" + (lambda () + (TeX-run-style-hooks "amsfonts") + (TeX-add-symbols + "boxdot" + "boxplus" + "boxtimes" + "square" + "blacksquare" + "centerdot" + "lozenge" + "blacklozenge" + "circlearrowright" + "circlearrowleft" + "leftrightharpoons" + "boxminus" + "Vdash" + "Vvdash" + "vDash" + "twoheadrightarrow" + "twoheadleftarrow" + "leftleftarrows" + "rightrightarrows" + "upuparrows" + "downdownarrows" + "upharpoonright" + "downharpoonright" + "upharpoonleft" + "downharpoonleft" + "rightarrowtail" + "leftarrowtail" + "leftrightarrows" + "rightleftarrows" + "Lsh" + "Rsh" + "rightsquigarrow" + "leftrightsquigarrow" + "looparrowleft" + "looparrowright" + "circeq" + "succsim" + "gtrsim" + "gtrapprox" + "multimap" + "therefore" + "because" + "doteqdot" + "triangleq" + "precsim" + "lesssim" + "lessapprox" + "eqslantless" + "eqslantgtr" + "curlyeqprec" + "curlyeqsucc" + "preccurlyeq" + "leqq" + "leqslant" + "lessgtr" + "backprime" + "risingdotseq" + "fallingdotseq" + "succcurlyeq" + "geqq" + "geqslant" + "gtrless" + "vartriangleright" + "vartriangleleft" + "trianglerighteq" + "trianglelefteq" + "bigstar" + "between" + "blacktriangledown" + "blacktriangleright" + "blacktriangleleft" + "vartriangle" + "blacktriangle" + "triangledown" + "eqcirc" + "lesseqgtr" + "gtreqless" + "lesseqqgtr" + "gtreqqless" + "Rrightarrow" + "Lleftarrow" + "veebar" + "barwedge" + "doublebarwedge" + "measuredangle" + "sphericalangle" + "varpropto" + "smallsmile" + "smallfrown" + "Subset" + "Supset" + "Cup" + "Cap" + "curlywedge" + "curlyvee" + "leftthreetimes" + "rightthreetimes" + "subseteqq" + "supseteqq" + "bumpeq" + "Bumpeq" + "lll" + "ggg" + "circledS" + "pitchfork" + "dotplus" + "backsim" + "backsimeq" + "complement" + "intercal" + "circledcirc" + "circledast" + "circleddash" + "lvertneqq" + "gvertneqq" + "nleq" + "ngeq" + "nless" + "ngtr" + "nprec" + "nsucc" + "lneqq" + "gneqq" + "nleqslant" + "ngeqslant" + "lneq" + "gneq" + "npreceq" + "nsucceq" + "precnsim" + "succnsim" + "lnsim" + "gnsim" + "nleqq" + "ngeqq" + "precneqq" + "succneqq" + "precnapprox" + "succnapprox" + "lnapprox" + "gnapprox" + "nsim" + "ncong" + "diagup" + "diagdown" + "varsubsetneq" + "varsupsetneq" + "nsubseteqq" + "nsupseteqq" + "subsetneqq" + "supsetneqq" + "varsubsetneqq" + "varsupsetneqq" + "subsetneq" + "supsetneq" + "nsubseteq" + "nsupseteq" + "nparallel" + "nmid" + "nshortmid" + "nshortparallel" + "nvdash" + "nVdash" + "nvDash" + "nVDash" + "ntrianglerighteq" + "ntrianglelefteq" + "ntriangleleft" + "ntriangleright" + "nleftarrow" + "nrightarrow" + "nLeftarrow" + "nRightarrow" + "nLeftrightarrow" + "nleftrightarrow" + "divideontimes" + "varnothing" + "nexists" + "Finv" + "Game" + "eth" + "eqsim" + "beth" + "gimel" + "daleth" + "lessdot" + "gtrdot" + "ltimes" + "rtimes" + "shortmid" + "shortparallel" + "smallsetminus" + "thicksim" + "thickapprox" + "approxeq" + "succapprox" + "precapprox" + "curvearrowleft" + "curvearrowright" + "digamma" + "varkappa" + "Bbbk" + "hslash" + "backepsilon")) + TeX-dialect) + +(defvar LaTeX-amssymb-package-options '("psamsfonts") + "Package options for the amssymb package.") + +;;; amssymb.el ends here. diff --git a/elpa/auctex-13.1.3/style/amssymb.elc b/elpa/auctex-13.1.3/style/amssymb.elc Binary files differnew file mode 100644 index 0000000..255a692 --- /dev/null +++ b/elpa/auctex-13.1.3/style/amssymb.elc diff --git a/elpa/auctex-13.1.3/style/amstex.el b/elpa/auctex-13.1.3/style/amstex.el new file mode 100644 index 0000000..7588935 --- /dev/null +++ b/elpa/auctex-13.1.3/style/amstex.el @@ -0,0 +1,63 @@ +;;; amstex.el --- AMS-LaTeX support. -*- lexical-binding: t; -*- + +;; Copyright (C) 2004, 2005, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; 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 is only needed when using AMS-LaTeX 1.1 and LaTeX 2.09. +;; In later versions of LaTeX and AMS-LaTeX this file is never used, +;; because there is no longer a class or package name amstex. +;; +;; As far as AUCTeX is concerned, the old amstex style is fairly +;; similar to the new amsmath package. So we will just run that hook +;; here. +;; +;; amsmath.el should not be loaded, if an AMS-TeX (in contrast to +;; AMS-LaTeX) file is opened. The commands defined in amsmath.el +;; mostly have no meaning in this case and errors about unknown +;; variables or functions may occur due to latex.el possibly not being +;; loaded. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "amstex" + (lambda () + (unless (memq major-mode '(plain-tex-mode ams-tex-mode)) + (TeX-run-style-hooks "amsmath"))) + TeX-dialect) + +(defvar LaTeX-amstex-package-options '("noamsfonts" "psamsfonts" + "intlimits" "nointlimits" + "sumlimits" "nosumlimits" + "namelimits" "nonamelimits" + "leqno" "reqno" "centertags" + "tbtags" "fleqn" "righttag" + "ctagsplt" "intlim" "nosumlim" + "nonamelm") + "Package options for the amstex package.") + +;;; amstex.el ends here. diff --git a/elpa/auctex-13.1.3/style/amstex.elc b/elpa/auctex-13.1.3/style/amstex.elc Binary files differnew file mode 100644 index 0000000..9470a94 --- /dev/null +++ b/elpa/auctex-13.1.3/style/amstex.elc diff --git a/elpa/auctex-13.1.3/style/amstext.el b/elpa/auctex-13.1.3/style/amstext.el new file mode 100644 index 0000000..96f1dd1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/amstext.el @@ -0,0 +1,20 @@ +;;; amstext.el --- Style hook for the AMS-LaTeX amstext package. -*- lexical-binding: t; -*- +;;; +;;; AUTHOR: Carsten Dominik <dominik@strw.leidenuniv.nl> + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "amstext" + (lambda () + (TeX-add-symbols + '("text" t))) + TeX-dialect) + +(defvar LaTeX-amstext-package-options nil + "Package options for the amstext package.") + +;;; amstext.el ends here. diff --git a/elpa/auctex-13.1.3/style/amstext.elc b/elpa/auctex-13.1.3/style/amstext.elc Binary files differnew file mode 100644 index 0000000..c829e67 --- /dev/null +++ b/elpa/auctex-13.1.3/style/amstext.elc diff --git a/elpa/auctex-13.1.3/style/amsthm.el b/elpa/auctex-13.1.3/style/amsthm.el new file mode 100644 index 0000000..3ea8176 --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsthm.el @@ -0,0 +1,201 @@ +;;; amsthm.el --- Style hook for the AMS-LaTeX amsthm package. -*- lexical-binding: t; -*- + +;; Copyright (C) 1997, 2013--2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl> +;; Maintainer: auctex-devel@gnu.org + +;; 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: + +;; The style provides the function `LaTeX-amsthm-env-label' which +;; enables new defined environments with "\newtheoreom" to interact +;; with AUCTeX and RefTeX mechanisms for inserting labels. Check +;; docstring of `LaTeX-amsthm-env-label' for instructions. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-amsthm-package-options nil + "Package options for the amsthm package.") + +(defvar LaTeX-amsthm-fontdecl + '(;; family + "rmfamily" "sffamily" "ttfamily" + ;; series + "mdseries" "bfseries" + ;; shape + "upshape" "itshape" "slshape" "scshape" + ;; size + "tiny" "scriptsize" "footnotesize" + "small" "normalsize" "large" + "Large" "LARGE" "huge" "Huge" + ;; reset macro + "normalfont") + "List of font declaration commands for \"\\newtheoremstyle\".") + +(defun LaTeX-arg-amsthm-fontdecl (optional &optional prompt) + "Prompt for font declaration commands in \"\\newtheoremstyle\". +If OPTIONAL is non-nil, insert the resulting value as an optional +argument. Use PROMPT as the prompt string." + (let* ((crm-separator (regexp-quote TeX-esc)) + (fontdecl (mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt optional prompt "Font: \\" t) + LaTeX-amsthm-fontdecl) + TeX-esc))) + (TeX-argument-insert fontdecl + optional + (when (and fontdecl (not (string= fontdecl ""))) + TeX-esc)))) + +(defun LaTeX-amsthm-env-label (environment) + "Insert ENVIRONMENT, query for an optional argument and prompt +for label. AUCTeX users should add ENVIRONMENT to +`LaTeX-label-alist' via customize or in init-file with: + + (add-to-list \\='LaTeX-label-alist \\='(\"lemma\" . \"lem:\")) + +RefTeX users should customize or add ENVIRONMENT to +`LaTeX-label-alist' and `reftex-label-alist', for example + + (add-to-list \\='LaTeX-label-alist \\='(\"lemma\" . \"lem:\")) + (add-to-list \\='reftex-label-alist + \\='(\"lemma\" ?m \"lem:\" \"~\\ref{%s}\" + nil (\"Lemma\" \"lemma\") nil))" + (let ((opthead (TeX-read-string + (TeX-argument-prompt t nil "Heading")))) + (LaTeX-insert-environment environment + (when (and opthead + (not (string= opthead ""))) + (format "[%s]" opthead)))) + (when (LaTeX-label environment 'environment) + (LaTeX-newline) + (indent-according-to-mode))) + +;; Setup parsing for \newtheorem +(TeX-auto-add-type "amsthm-newtheorem" "LaTeX") + +;; Setup parsing for \newtheoremstyle +(TeX-auto-add-type "amsthm-newtheoremstyle" "LaTeX") + +(defun LaTeX-amsthm-auto-prepare () + "Clear `LaTeX-auto-amsthm-newtheorem' and +`LaTeX-auto-amsthm-newtheoremstyle' before parsing." + (setq LaTeX-auto-amsthm-newtheorem nil) + (setq LaTeX-auto-amsthm-newtheoremstyle nil)) + +(defun LaTeX-amsthm-auto-cleanup () + "Move parsed results from `LaTeX-auto-amsthm-newtheorem' and +make them available as new environments." + (dolist (newthm (mapcar #'car (LaTeX-amsthm-newtheorem-list))) + (LaTeX-add-environments (list newthm #'LaTeX-amsthm-env-label)))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-amsthm-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-amsthm-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "amsthm" + (lambda () + ;; Add the pre-defined styles: + (LaTeX-add-amsthm-newtheoremstyles "definition" + "plain" + "remark") + + (LaTeX-add-environments + '("proof" LaTeX-amsthm-env-label)) + + (TeX-add-symbols + ;; Overrule the defintion in `latex.el': + '("newtheorem" + (TeX-arg-eval + (lambda () + (let ((nthm (TeX-read-string + (TeX-argument-prompt nil nil "Environment")))) + (LaTeX-add-amsthm-newtheorems nthm) + (LaTeX-add-environments (list nthm #'LaTeX-amsthm-env-label)) + (format "%s" nthm)))) + [ TeX-arg-environment "Numbered like" ] + t [ (TeX-arg-eval progn (if (eq (save-excursion + (backward-char 2) + (preceding-char)) ?\]) + () + (TeX-arg-counter t "Within counter")) + "") ]) + + '("newtheorem*" + (TeX-arg-eval + (lambda () + (let ((nthm (TeX-read-string + (TeX-argument-prompt nil nil "Environment"))) + (heading (TeX-read-string + (TeX-argument-prompt nil nil "Heading")))) + (LaTeX-add-amsthm-newtheorems nthm) + (LaTeX-add-environments (list nthm #'LaTeX-amsthm-env-label)) + (insert (concat TeX-grop nthm TeX-grcl)) + (format "%s" heading))))) + + '("theoremstyle" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Style") + (LaTeX-amsthm-newtheoremstyle-list))) + "qedhere" + "swapnumbers" + + '("newtheoremstyle" + (TeX-arg-eval + (lambda () + (let ((nthmstyle (TeX-read-string + (TeX-argument-prompt nil nil "Style name")))) + (LaTeX-add-amsthm-newtheoremstyles nthmstyle) + (format "%s" nthmstyle)))) + (TeX-arg-length "Space above") + (TeX-arg-length "Space below") + (LaTeX-arg-amsthm-fontdecl "Body font: \\") + "Indent amount" + (LaTeX-arg-amsthm-fontdecl "Theorem head font: \\") + "Punctuation after head" + (TeX-arg-length "Space after head") + "Theorem head spec")) + + (TeX-auto-add-regexp + `(,(concat "\\\\newtheorem\\*?{\\(" TeX-token-char "+\\)}") + 1 LaTeX-auto-amsthm-newtheorem)) + (TeX-auto-add-regexp + `(,(concat "\\\\newtheoremstyle{\\(" TeX-token-char "+\\)}") + 1 LaTeX-auto-amsthm-newtheoremstyle)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("newtheorem" "*{[{[") + ("theoremstyle" "{") + ("newtheoremstyle" "{{{{{{{{{")) + 'function))) + TeX-dialect) + +;;; amsthm.el ends here diff --git a/elpa/auctex-13.1.3/style/amsthm.elc b/elpa/auctex-13.1.3/style/amsthm.elc Binary files differnew file mode 100644 index 0000000..be4b50f --- /dev/null +++ b/elpa/auctex-13.1.3/style/amsthm.elc diff --git a/elpa/auctex-13.1.3/style/appendix.el b/elpa/auctex-13.1.3/style/appendix.el new file mode 100644 index 0000000..406aef5 --- /dev/null +++ b/elpa/auctex-13.1.3/style/appendix.el @@ -0,0 +1,79 @@ +;;; appendix.el --- AUCTeX style for `appendix.sty' (v1.2c) -*- lexical-binding: t; -*- + +;; Copyright (C) 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2020-10-10 +;; 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 `appendix.sty' version 1.2c from +;; 2020/02/08. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "appendix" + (lambda () + + (TeX-add-symbols + "appendixpage" + "addappheadtotoc" + "noappendicestocpagenum" + "appendicestocpagenum" + "appendixname" + "appendixtocname" + "appendixpagename" + + "appendixtocon" + "appendixtocoff" + "appendixpageon" + "appendixpageoff" + "appendixtitleon" + "appendixtitleoff" + "appendixtitletocon" + "appendixtitletocoff" + "appendixheaderon" + "appendixheaderoff" + "restoreapp" + + "setthesection" + "setthesubsection") + + (LaTeX-add-environments + '("appendices") + '("subappendices")) + + ;; Don't indent the content inside \(sub\)?appendices environments: + (unless (string-match "appendices" LaTeX-document-regexp) + (set (make-local-variable 'LaTeX-document-regexp) + (concat LaTeX-document-regexp "\\|\\(?:sub\\)?appendices")))) + TeX-dialect) + +(defvar LaTeX-appendix-package-options '("toc" "page" "title" + "titletoc" "header") + "Package options for the appendix package.") + +;;; appendix.el ends here diff --git a/elpa/auctex-13.1.3/style/appendix.elc b/elpa/auctex-13.1.3/style/appendix.elc Binary files differnew file mode 100644 index 0000000..85e2597 --- /dev/null +++ b/elpa/auctex-13.1.3/style/appendix.elc diff --git a/elpa/auctex-13.1.3/style/arabxetex.el b/elpa/auctex-13.1.3/style/arabxetex.el new file mode 100644 index 0000000..897b9cd --- /dev/null +++ b/elpa/auctex-13.1.3/style/arabxetex.el @@ -0,0 +1,121 @@ +;;; arabxetex.el --- AUCTeX style for `arabxetex.sty' (v1.2.1) -*- lexical-binding: t; -*- + +;; Copyright (C) 2017--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-08-12 +;; 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 `arabxetex.sty' (v1.2.1) from 2015/09/04. +;; `arabxetex.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "arabxetex" + (lambda () + + ;; Run the style hooks for packages required by arabxetex: + (TeX-run-style-hooks "amsmath" "fontspec" "bidi") + + ;; We need xelatex, so check for the engine here: + (TeX-check-engine-add-engines 'xetex) + + ;; New macros & environments: + (let ((langs '("arab" + "farsi" "persian" + "urdu" + "sindhi" + "pashto" + "ottoman" "turk" + "kurdisch" + "kashmiri" + "malay" "jawi" + "uighur"))) + ;; Add \text<language>[option]{...} + (mapc #'TeX-add-symbols + (mapcar + (lambda (symbol) + (list symbol + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Mode") + LaTeX-arabxetex-package-options ] + t)) + (mapcar (lambda (lang) (concat "text" lang)) langs))) + ;; + ;; Add \begin{<language>}[option] ... \end{<language>} + (mapc #'LaTeX-add-environments + (mapcar + (lambda (environment) + (list environment + #'LaTeX-env-args + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Mode") + LaTeX-arabxetex-package-options ])) + langs)) + ;; + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords (mapcar (lambda (lang) + (list (concat "text" lang) "[{")) + langs) + 'textual))) + + ;; Other macros: + (TeX-add-symbols + '("textLR" t) + '("aemph" t) + + ;; 3.3 Transliteration + '("SetTranslitConvention" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Mapping") + '("dmg" "loc"))) + '("SetTranslitStyle" "Style")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textLR" "{")) + 'textual) + (font-latex-add-keywords '(("aemph" "{")) + 'italic-command) + (font-latex-add-keywords '(("SetTranslitConvention" "{") + ("SetTranslitStyle" "{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-arabxetex-package-options + '("novoc" "voc" "fullvoc" "trans" "utf") + "Package options for the arabxetex package.") + +;;; arabxetex.el ends here diff --git a/elpa/auctex-13.1.3/style/arabxetex.elc b/elpa/auctex-13.1.3/style/arabxetex.elc Binary files differnew file mode 100644 index 0000000..28a4429 --- /dev/null +++ b/elpa/auctex-13.1.3/style/arabxetex.elc diff --git a/elpa/auctex-13.1.3/style/array.el b/elpa/auctex-13.1.3/style/array.el new file mode 100644 index 0000000..be7baf3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/array.el @@ -0,0 +1,111 @@ +;;; array.el --- AUCTeX style for `array.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2013-2021 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; 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 `array.sty' + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-auto-add-type "array-newcolumntype" "LaTeX") + +(defvar LaTeX-array-newcolumntype-regexp + '("\\\\newcolumntype{\\([^}]+\\)}" + 1 LaTeX-auto-array-newcolumntype) + "Matches the argument of `\\newcolumntype' from `array' +package.") + +(defun LaTeX-array-auto-prepare () + "Clear `LaTeX-auto-array-newcolumntype' before parsing." + (setq LaTeX-auto-array-newcolumntype nil)) + +(defun LaTeX-array-auto-cleanup () + "Move parsed column specification from +`LaTeX-auto-array-newcolumntype' to `LaTeX-array-column-letters'." + (when (LaTeX-array-newcolumntype-list) + (LaTeX-array-update-column-letters))) + +(defun LaTeX-array-update-column-letters () + "Update and uniquify the value of `LaTeX-array-column-letters' +and make it buffer local. " + (set (make-local-variable 'LaTeX-array-column-letters) + (mapconcat #'identity + (TeX-delete-duplicate-strings + (split-string + (concat LaTeX-array-column-letters + (mapconcat #'car (LaTeX-array-newcolumntype-list) "")) + "" t)) + ""))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-array-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-array-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "array" + (lambda () + + (TeX-auto-add-regexp LaTeX-array-newcolumntype-regexp) + + (TeX-add-symbols + '("newcolumntype" + (TeX-arg-eval + (lambda () + (let ((col (TeX-read-string "Column type: "))) + (LaTeX-add-array-newcolumntypes col) + (LaTeX-array-update-column-letters) + (format "%s" col)))) + [ "Number of arguments" ] t) + '("showcols" 0) + '("firsthline" 0) + '("lasthline" 0)) + + ;; `array.sty' adds a couple of new lengths. They're added here, rather than + ;; in the `TeX-add-symbols' block. + (LaTeX-add-lengths "extratabsurround" "extrarowheight") + + ;; `array.sty' adds some new column specification letters. + (set (make-local-variable 'LaTeX-array-column-letters) + (concat LaTeX-array-column-letters "m" "b" "w" "W")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("newcolumntype" "{[{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-array-package-options nil + "Package options for array.") + +;; array.el ends here diff --git a/elpa/auctex-13.1.3/style/array.elc b/elpa/auctex-13.1.3/style/array.elc Binary files differnew file mode 100644 index 0000000..1bb2031 --- /dev/null +++ b/elpa/auctex-13.1.3/style/array.elc diff --git a/elpa/auctex-13.1.3/style/article.el b/elpa/auctex-13.1.3/style/article.el new file mode 100644 index 0000000..1278ddb --- /dev/null +++ b/elpa/auctex-13.1.3/style/article.el @@ -0,0 +1,24 @@ +;;; article.el - Special code for article style. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-article-class-options + '("a4paper" "a5paper" "b5paper" "letterpaper" "legalpaper" "executivepaper" + "landscape" "10pt" "11pt" "12pt" "oneside" "twoside" "draft" "final" + "titlepage" "notitlepage" "onecolumn" "twocolumn" "leqno" "fleqn" "openbib") + "Package options for the article class.") + +(TeX-add-style-hook + "article" + (lambda () + (LaTeX-largest-level-set "section") + (LaTeX-add-counters "part" "section" "subsection" "subsubsection" "paragraph" + "subparagraph" "figure" "table") + (LaTeX-add-pagestyles "headings" "myheadings") + (LaTeX-add-environments "abstract")) + TeX-dialect) + +;;; article.el ends here diff --git a/elpa/auctex-13.1.3/style/article.elc b/elpa/auctex-13.1.3/style/article.elc Binary files differnew file mode 100644 index 0000000..1f4b621 --- /dev/null +++ b/elpa/auctex-13.1.3/style/article.elc diff --git a/elpa/auctex-13.1.3/style/attachfile.el b/elpa/auctex-13.1.3/style/attachfile.el new file mode 100644 index 0000000..c090b5a --- /dev/null +++ b/elpa/auctex-13.1.3/style/attachfile.el @@ -0,0 +1,127 @@ +;;; attachfile.el --- AUCTeX style for `attachfile.sty' (v1.6) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-04-11 +;; 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 `attachfile.sty' (v1.6) from 2015/04/04. +;; `attachfile.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-attachfile-key-val-options + '(("appearance" ("true" "false")) + ("author") + ("color") + ("created") + ("date") + ("description") + ("icon" ("Graph" "Paperclip" "PushPin" "Tag")) + ;; This can only be a small excerpt: + ("mimetype" + ("application/javascript" + "application/pdf" + "application/postscript" + "application/vnd.ms-excel" + "application/vnd.ms-powerpoint" + "application/zip" + "audio/mpeg" + "audio/ogg" + "image/jpeg" + "image/png" + "image/tiff" + "text/csv" + "text/plain" + "video/H264" + "video/mp4")) + ("modified") + ("print" ("true" "false")) + ("size") + ("subject") + ("timezone") + ("zoom" ("true" "false"))) + "Key=value options for attachfile macros.") + +(TeX-add-style-hook + "attachfile" + (lambda () + ;; Run style hook for packages loaded by attachfile; both packages + ;; are required for running LaTeX, but not necessary within AUCTeX + (TeX-run-style-hooks "hyperref" "color") + + (TeX-add-symbols + ;; \attachfile[<options>]{<filename>} + '("attachfile" + [TeX-arg-key-val LaTeX-attachfile-key-val-options] + (TeX-arg-eval + (lambda () + (let ((atfi (file-relative-name + (read-file-name "File to attach: ")))) + (format "%s" atfi))))) + + ;; \noattachfile[<options>] + '("noattachfile" + [TeX-arg-key-val LaTeX-attachfile-key-val-options] ) + + ;; \textattachfile[<options>]{<filename>}{<text>} + '("textattachfile" + [TeX-arg-key-val LaTeX-attachfile-key-val-options] + (TeX-arg-eval + (lambda () + (let ((atfi (file-relative-name + (read-file-name "File to attach: ")))) + (format "%s" atfi)))) + t) + + ;; \notextattachfile[<options>]{<text>} + '("notextattachfile" + [TeX-arg-key-val LaTeX-attachfile-key-val-options] t) + + ;; \attachfilesetup{<options>} + '("attachfilesetup" + (TeX-arg-key-val LaTeX-attachfile-key-val-options))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("attachfilesetup" "{") + ("attachfile" "[{") + ("noattachfile" "[") + ("textattachfile" "[{{") + ("notextattachfile" "[{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-attachfile-package-options nil + "Prompt for package options for the attachfile package.") + +;;; attachfile.el ends here diff --git a/elpa/auctex-13.1.3/style/attachfile.elc b/elpa/auctex-13.1.3/style/attachfile.elc Binary files differnew file mode 100644 index 0000000..5a334d9 --- /dev/null +++ b/elpa/auctex-13.1.3/style/attachfile.elc diff --git a/elpa/auctex-13.1.3/style/australian.el b/elpa/auctex-13.1.3/style/australian.el new file mode 100644 index 0000000..7d9d830 --- /dev/null +++ b/elpa/auctex-13.1.3/style/australian.el @@ -0,0 +1,42 @@ +;;; australian.el --- AUCTeX style for the `australian' babel option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2017, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-07-02 +;; 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: + +;; Set up AUCTeX for editing Australian text in connection with the +;; `australian' babel option. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "australian" + (lambda () + (TeX-run-style-hooks "english")) + TeX-dialect) + +;;; australian.el ends here diff --git a/elpa/auctex-13.1.3/style/australian.elc b/elpa/auctex-13.1.3/style/australian.elc Binary files differnew file mode 100644 index 0000000..9065a15 --- /dev/null +++ b/elpa/auctex-13.1.3/style/australian.elc diff --git a/elpa/auctex-13.1.3/style/austrian.el b/elpa/auctex-13.1.3/style/austrian.el new file mode 100644 index 0000000..98305fd --- /dev/null +++ b/elpa/auctex-13.1.3/style/austrian.el @@ -0,0 +1,42 @@ +;;; austrian.el --- AUCTeX style for the `austrian' babel option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2009, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2009-12-28 +;; 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: + +;; Set up AUCTeX for editing Austrian text in connection with the +;; `austrian' babel option. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "austrian" + (lambda () + (TeX-run-style-hooks "german")) + TeX-dialect) + +;;; austrian.el ends here diff --git a/elpa/auctex-13.1.3/style/austrian.elc b/elpa/auctex-13.1.3/style/austrian.elc Binary files differnew file mode 100644 index 0000000..c53804b --- /dev/null +++ b/elpa/auctex-13.1.3/style/austrian.elc diff --git a/elpa/auctex-13.1.3/style/babel.el b/elpa/auctex-13.1.3/style/babel.el new file mode 100644 index 0000000..a7d6747 --- /dev/null +++ b/elpa/auctex-13.1.3/style/babel.el @@ -0,0 +1,436 @@ +;;; babel.el --- AUCTeX style for `babel.sty' version 3.31. -*- lexical-binding: t; -*- + +;; Copyright (C) 2005-2022 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@iwi.uni-sb.de> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2005-05-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 `babel.sty' version 3.31 from 2019/05/04. + +;;; Code: + +(require 'tex) +(require 'latex) + +(eval-when-compile + (require 'cl-lib)) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-babel-language-list + '("afrikaans" + "azerbaijani" + "bahasa" "indonesian" "indon" "bahasai" "bahasam" "malay" "meyalu" + "basque" + "breton" + "bulgarian" + "catalan" + "croatian" + "czech" + "danish" + "dutch" + "english" "USenglish" "american" "UKenglish" "british" "canadian" + "australian" "newzealand" + "esperanto" + "estonian" + "finnish" + "french" "francais" "canadien" "acadian" + "galician" + "austrian" "german" "germanb" "ngerman" "naustrian" + "greek" "polutonikogreek" + "hebrew" + "icelandic" + "interlingua" + "irish" + "italian" + "latin" + "lowersorbian" + "samin" + "norsk" "nynorsk" + "polish" + "portuges" "portuguese" "brazilian" "brazil" + "romanian" + "russian" + "scottish" + "spanish" + "slovak" + "slovene" + "swedish" + "serbian" + "turkish" + "ukrainian" + "uppersorbian" + "welsh" + ;; Extra languages mentioned in the `babel' manual. + "albanian" "hindi" "thai" "thaicjk" "latvian" "turkmen" "hungarian" "magyar" + "mongolian" "romansh" "lithuanian" "spanglish" "vietnamese" "japanese" + "pinyin" "arabinc" "farsi" "ibygreek" "bgreek" "serbianic" "frenchle" + "ethiop" "friulan") + "List of languages supported by the babel LaTeX package.") + +(defvar LaTeX-babel-babelprovide-key-val-options + `(("import") + ("captions") + ("hyphenrules" ,(append '("+") LaTeX-babel-language-list)) + ("main") + ("script") + ("language") + ("mapfont") + ("intraspace") + ("intrapenalty")) + "Key=value options for `\\babelprovide' macro from `babel' package.") + +(defun LaTeX-babel-active-languages () + "Return a list of languages used in the document." + (let (main-language active-languages) + ;; Loop over options provided to class and `babel' package at load time. + (dolist (elt (append + ;; In most cases there is only one element in the alist, if + ;; there is more than one element, the first one should + ;; contain the class options of the current buffer. So we can + ;; take the car of `LaTeX-provided-class-options'. + (cdr (car LaTeX-provided-class-options)) + (cdr (assoc "babel" LaTeX-provided-package-options)))) + (setq elt (split-string elt "=")) + (if (equal (car elt) "main") + ;; Starting from version 3.9 of `babel' package, languages can be set + ;; with the following syntax: + ;; \usepackage[latin.medieval,main=danish,spanish.notilde]{babel} + ;; with `danish' being the default language. When the default + ;; language is set with the `main' option, we record it and append to + ;; the list at the end. + (setq main-language (car (cdr elt))) + ;; Get rid of the modifiers (`medieval' and `notilde' in the above + ;; example). + (setq elt (car (split-string (car elt) "\\."))) + (if (member elt LaTeX-babel-language-list) + ;; Append element to `active-languages' to respect loading order. + ;; `babel' package uses as default language the last loaded one, + ;; except if it is set with the `main' option. + (cl-pushnew elt active-languages :test #'equal)))) + (if main-language + (cl-pushnew main-language active-languages :test #'equal)) + (nreverse active-languages))) + +;; Setup for \babeltags: Note that the macro is \babeltags, we use +;; the version without `s' in order to reduce the hassle with AUCTeX +;; auto-generating the plural form: +(TeX-auto-add-type "babel-babeltag" "LaTeX") + +(defvar LaTeX-babel-babeltags-regexp + '("\\\\babeltags{\\([^}]+\\)}" 1 LaTeX-auto-babel-babeltag) + "Matches the argument of `\\babeltags' from `babel' package.") + +(defun LaTeX-babel-cleanup-babeltags () + "Parse defined babel tags and add them to AUCTeX." + ;; Check if we parsed something at all + (when (LaTeX-babel-babeltag-list) + (let (results tag tags cmds) + ;; Clean up the parsed results from characters we don't want; + ;; also remove possible comment lines + (setq results + (replace-regexp-in-string + "%.*\\'\\|[ \n\r\t]" "" + (mapconcat #'car (LaTeX-babel-babeltag-list) ","))) + ;; Look if \babeltags was issued once with multiple entries or + ;; more than once in the document: + (if (string-match-p "," results) + (progn + (dolist (elt (split-string results "," t)) + (setq tag (car (split-string elt "=" t))) + (push tag tags) + (push (list (concat "text" tag) t) cmds) + (push (list tag -1) cmds))) + ;; One \babeltags with one entry only + (setq tag (car (split-string results "=" t))) + (push tag tags) + (push (list (concat "text" tag) t) cmds) + (push (list tag -1) cmds)) + (mapc #'TeX-add-symbols cmds) + (mapc #'LaTeX-add-environments tags) + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords (mapcar (lambda (x) + (list (concat "text" x) "{")) + tags) + 'textual) + (font-latex-add-keywords (mapcar (lambda (x) + (list x "")) + tags) + 'type-declaration))))) + +;; Setup for \babelfont: +(TeX-auto-add-type "babel-babelfont" "LaTeX") + +(defvar LaTeX-babel-babelfont-regexp + '("\\\\babelfont\\(?:\\[[^]]*\\]\\)?[ \t\n\r%]*{\\([^}]+\\)}" + 1 LaTeX-auto-babel-babelfont) + "Matches the <font-family> argument of `\\babelfont' from `babel' package.") + +(defun LaTeX-babel-cleanup-babelfont () + "Parse defined font-families and add them to AUCTeX." + (when (LaTeX-babel-babelfont-list) + (dolist (elt (mapcar #'car (LaTeX-babel-babelfont-list))) + ;; Don't do anything for standard font-families: + (unless (member elt '("rm" "sf" "tt")) + ;; Define \<font>family, \<font>default and \text<font>: + (let ((fam (concat elt "family")) + (def (concat elt "default")) + (mac (concat "text" elt))) + (apply #'TeX-add-symbols + `((,fam -1) + (,def -1) + (,mac t))) + ;; Cater for fontification: + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,fam "") + (,def "")) + 'type-declaration) + (font-latex-add-keywords `((,mac "{")) + 'type-command))))))) + +(defun LaTeX-babel-auto-prepare () + "Clear `LaTeX-auto-babel-babel*' before parsing." + (setq LaTeX-auto-babel-babeltag nil + LaTeX-auto-babel-babelfont nil)) + +(defun LaTeX-babel-auto-cleanup () + "Process parsed elements." + (LaTeX-babel-cleanup-babeltags) + (LaTeX-babel-cleanup-babelfont)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-babel-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-babel-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun TeX-arg-babel-lang (optional &optional prompt) + "Prompt for a language with completion and insert it as an argument." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional prompt "Language") + (LaTeX-babel-active-languages)) + optional)) + +(defun LaTeX-env-babel-lang (env) + "Prompt for a language and insert it as an argument of ENV." + (LaTeX-insert-environment + env (format "{%s}" (completing-read "Language: " + (LaTeX-babel-active-languages))))) + +(defun LaTeX-babel-load-languages () + "Load style files of babel active languages." + ;; Run style hooks for every active language in loading order, so + ;; `TeX-quote-language' will be correctly set. + (mapc #'TeX-run-style-hooks (LaTeX-babel-active-languages))) + +(TeX-add-style-hook + "babel" + (lambda () + (LaTeX-babel-load-languages) + (add-hook 'LaTeX-after-usepackage-hook #'LaTeX-babel-load-languages nil t) + + ;; Add babel to the parser. + (TeX-auto-add-regexp LaTeX-babel-babeltags-regexp) + (TeX-auto-add-regexp LaTeX-babel-babelfont-regexp) + + ;; New symbols + (TeX-add-symbols + + ;; 1.7 Basic language selectors + '("selectlanguage" TeX-arg-babel-lang) + '("foreignlanguage" TeX-arg-babel-lang t) + + ;; 1.9 More on selection + '("babeltags" t) + '("babelensure" (TeX-arg-key-val + (("include") ("exclude") + ("fontenc" (;; 128+ glyph encodings (text) + "OT1" "OT2" "OT3" "OT4" "OT6" + ;; 256 glyph encodings (text) + "T1" "T2A" "T2B" "T2C" "T3" "T4" "T5" + ;; 256 glyph encodings (text extended) + "X2" + ;; Other encodings + "LY1" "LV1" "LGR")))) + TeX-arg-babel-lang) + ;; 1.10 Shorthands + '("shorthandon" "Shorthands list") + '("shorthandoff" "Shorthands list") + '("shorthandoff*" "Shorthands list") + '("useshorthands" "Character") + '("useshorthands*" "Character") + '("defineshorthand" + [TeX-arg-eval mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt t nil "Language(s)") + (LaTeX-babel-active-languages)) + ","] + t nil) + '("languageshorthands" TeX-arg-babel-lang) + '("babelshorthand" "Short hand") + '("ifbabelshorthand" "Character" t nil) + '("aliasshorthand" "Original" "Alias") + + ;; 1.12 The base option + '("AfterBabelLanguage" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Language") + LaTeX-babel-language-list) + t) + + ;; 1.14 Selecting fonts + '("babelfont" + [TeX-arg-eval mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt t nil "Language(s)") + LaTeX-babel-language-list) + ","] + (TeX-arg-eval let ((fontfam (completing-read + (TeX-argument-prompt nil nil "font family") + '("rm" "sf" "tt")))) + ;; Run `TeX-check-engine-add-engines' and then + ;; load `fontspec.el' if not already loaded and + ;; make sure the key-vals are up to date. + (unless (member "fontspec" (TeX-style-list)) + (TeX-check-engine-add-engines 'luatex 'xetex) + (TeX-run-style-hooks "fontspec") + (LaTeX-fontspec-auto-cleanup)) + (LaTeX-add-babel-babelfonts fontfam) + (LaTeX-babel-cleanup-babelfont) + (format "%s" fontfam)) + [TeX-arg-key-val (LaTeX-fontspec-font-features)] + LaTeX-fontspec-arg-font) + + ;; 1.16 Creating a language + '("babelprovide" + [TeX-arg-key-val LaTeX-babel-babelprovide-key-val-options] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Language") + LaTeX-babel-language-list)) + + ;; 1.19 Accessing language info + '("languagename" 0) + '("iflanguage" TeX-arg-babel-lang t nil) + + ;; 1.20 Hyphenation and line breaking + '("babelhyphen" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Type/Text") + '("soft" "hard" "repeat" "nobreak" "empty"))) + '("babelhyphen*" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Type/Text") + '("soft" "hard" "repeat" "nobreak" "empty"))) + + '("babelhyphenation" + [TeX-arg-eval mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt nil nil "Language(s)") + LaTeX-babel-language-list) + ","] + t) + + ;; 1.23 Selecting scripts + '("ensureascii" "Text") + + ;; 1.25 Language attributes + '("languageattribute" TeX-arg-babel-lang t)) + + ;; Don't increase indentation at various \if* macros: + (let ((exceptions '("ifbabelshorthand" + "iflanguage"))) + (dolist (elt exceptions) + (add-to-list 'LaTeX-indent-begin-exceptions-list elt t)) + (LaTeX-indent-commands-regexp-make)) + + ;; New environments: 1.8 Auxiliary language selectors + (LaTeX-add-environments + '("otherlanguage" LaTeX-env-babel-lang) + '("otherlanguage*" LaTeX-env-babel-lang) + '("hyphenrules" LaTeX-env-babel-lang)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("selectlanguage" "{") + ("foreignlanguage" "{{") + ("babeltags" "{") + ("babelensure" "{{") + ("shorthandon" "{") + ("shorthandoff" "*{") + ("useshorthands" "*{") + ("languageshorthands" "{") + ("babelshorthand" "{") + ("AfterBabelLanguage" "{") + ("babelfont" "[{[{") + ("babelprovide" "[{") + ("languagename" "") + ("iflanguage" "{{{") + ("babelhyphen" "*{") + ("babelhyphenation" "[{") + ("ensureascii" "{")) + 'function) + (font-latex-add-keywords '(("defineshorthand" "[{{") + ("aliasshorthand" "{{") + ("languageattribute" "{{")) + 'variable))) + TeX-dialect) + +(defun LaTeX-babel-package-options () + "Prompt for package options for the babel package." + (TeX-read-key-val + t + (append + '(("KeepShorthandsActive") + ("activeacute") + ("activegrave") + ("shorthands" ("off")) + ("safe" ("none" "ref" "bib")) + ("math" ("active" "normal")) + ("config") + ("main" LaTeX-babel-language-list) + ("headfoot" LaTeX-babel-language-list) + ("noconfigs") + ("nocase") + ("silent") + ("showlanguages") + ("nocase") + ("silent") + ("strings" ("generic" "unicode" "encoded" + "OT1" "OT2" "OT3" "OT4" "OT6" + "T1" "T2A" "T2B" "T2C" "T3" "T4" "T5" + "X2" "LY1" "LV1" "LGR")) + ("hyphenmap" ("off" "first" "select" "other" "other*")) + ("bidi" ("default" "basic" "basic-r" "bidi-l" "bidi-r")) + ("layout" ("sectioning" "counters" "lists" "contents" "footnotes" + "captions" "columns" "graphics" "extras")) + ("base")) + (mapcar #'list LaTeX-babel-language-list)))) + +;;; babel.el ends here diff --git a/elpa/auctex-13.1.3/style/babel.elc b/elpa/auctex-13.1.3/style/babel.elc Binary files differnew file mode 100644 index 0000000..27cebe0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/babel.elc diff --git a/elpa/auctex-13.1.3/style/backref.el b/elpa/auctex-13.1.3/style/backref.el new file mode 100644 index 0000000..a7a6ef1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/backref.el @@ -0,0 +1,94 @@ +;;; backref.el --- AUCTeX style for `backref.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-02-06 +;; 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 Street, Fifth Floor, Boston, +;; MA 02110-1301 USA. + +;;; Commentary: + +;; This file adds support for `backref.sty' v1.41 form 2021-02-04. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "backref" + (lambda () + + (TeX-add-symbols + '("backrefsetup" + (TeX-arg-key-val (("verbose" ("true" "false")) + ("enable" ("true" "false")) + ("disable" ("true" "false"))))) + "backrefparscanfalse" + "backrefparscantrue" + "backrefprint" + "backref" + "backrefalt" + "backrefsep" + "backreftwosep" + "backreflastsep" + "backrefentrycount") + + ;; This is a hack: We want to have the 2 macros + ;; \backrefparscanfalse and \backrefparscantrue indented like + ;; \bibitem, hence we add them to a local version of + ;; `LaTeX-item-regexp': + (unless (string-match-p "backrefparscan" LaTeX-item-regexp) + (setq-local LaTeX-item-regexp + (concat LaTeX-item-regexp + "\\|" "backrefparscan\\(false\\|true\\)\\b"))) + + ;; Only add "backrefprint" here, "backrefparscan*" will be added + ;; via `LaTeX-item-regexp' when `LaTeX-set-paragraph-start' is + ;; called: + (LaTeX-paragraph-commands-add-locally '("backrefprint")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("backrefsetup" "{") + ("backrefparscanfalse" "") + ("backrefparscantrue" "") + ("backrefprint" "")) + 'function))) + TeX-dialect) + +(defvar LaTeX-backref-package-options + '("ref" "pageref" "hyperref" "hyperpageref" + "enable" "disable" "verbose" + "english" "american" "australian" "british" "canadian" + "newzealand" "UKenglish" "USenglish" + "german" "ngerman" "austrian" "naustrian" + "french" "acadian" "canadien" "frenchb" "francais" + "spanish" "brazil" "brazilian" "afrikaans") + "Package options for the backref package.") + +;;; backref.el ends here diff --git a/elpa/auctex-13.1.3/style/backref.elc b/elpa/auctex-13.1.3/style/backref.elc Binary files differnew file mode 100644 index 0000000..fe57272 --- /dev/null +++ b/elpa/auctex-13.1.3/style/backref.elc diff --git a/elpa/auctex-13.1.3/style/baskervaldx.el b/elpa/auctex-13.1.3/style/baskervaldx.el new file mode 100644 index 0000000..a4cba48 --- /dev/null +++ b/elpa/auctex-13.1.3/style/baskervaldx.el @@ -0,0 +1,88 @@ +;;; baskervaldx.el --- AUCTeX style for `baskervaldx.sty' (v1.07) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-11-18 +;; 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 `baskervaldx.sty' (v1.07) from 2015/04/06. +;; `baskervaldx.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "baskervaldx" + (lambda () + + ;; Run style hook for various packages loaded by baskervaldx + (TeX-run-style-hooks "textcomp" "fontaxes") + + ;; New symbols + (TeX-add-symbols + + ;; Only preamble commands + '("useosf" 0) + + ;; Text commands + '("lfstyle" -1) ; lf declaration + '("tlfstyle" -1) ; tlf declaration + '("osfstyle" -1) ; osf declaration + '("tosfstyle" -1) ; tosf declaration + '("sufigures" -1) ; superior figures declaration + '("textlf" t) ; proportional lining figures + '("texttlf" t) ; tabular lining figures + '("textosf" t) ; proportional oldstyle figures + '("texttosf" t) ; tabular oldstyle figures + '("textsu" t)) ; superior figures + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textlf" "{") + ("texttlf" "{") + ("textosf" "{") + ("texttosf" "{") + ("textsu" "{")) + 'type-command) + (font-latex-add-keywords '(("lfstyle" "") + ("tlfstyle" "") + ("osfstyle" "") + ("tosfstyle" "") + ("sufigures" "")) + 'type-declaration))) + TeX-dialect) + +(defvar LaTeX-baskervaldx-package-options + '("lining" "lf" "oldstyle" "osf" "tabular" "proportional" "p" + "scale" "scaled" "sups" "swash") + "Package options for the baskervaldx package.") + +;;; baskervaldx.el ends here diff --git a/elpa/auctex-13.1.3/style/baskervaldx.elc b/elpa/auctex-13.1.3/style/baskervaldx.elc Binary files differnew file mode 100644 index 0000000..8cb2457 --- /dev/null +++ b/elpa/auctex-13.1.3/style/baskervaldx.elc diff --git a/elpa/auctex-13.1.3/style/beamer.el b/elpa/auctex-13.1.3/style/beamer.el new file mode 100644 index 0000000..589a26a --- /dev/null +++ b/elpa/auctex-13.1.3/style/beamer.el @@ -0,0 +1,381 @@ +;;; beamer.el --- AUCTeX style for the latex-beamer class -*- lexical-binding: t; -*- + +;; Copyright (C) 2003-2021 Free Software Foundation, Inc. + +;; Author: Thomas Baumann <thomas.baumann@ch.tum.de> +;; Created: 2003-12-20 +;; 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 the latex-beamer class. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defun LaTeX-beamer-after-insert-env (env start _end) + "Do beamer-specific stuff after the insertion of an environment." + ;; Add `fragile' as an optional argument to the frame environment if + ;; a verbatim environment is inserted. + (when (and (TeX-member env (LaTeX-verbatim-environments) #'string-equal) + (save-excursion + (goto-char start) + (string-equal (LaTeX-current-environment) "frame"))) + (save-excursion + (when (re-search-backward "\\\\begin[ \t]*{frame}" nil t) + (let ((end-of-begin (match-end 0))) + (goto-char end-of-begin) + (while (forward-comment 1)) + (if (eq (char-after) (string-to-char LaTeX-optop)) + (progn + (forward-char) + (insert "fragile") + (unless (looking-at (concat "[ \t]*" LaTeX-optcl)) + (insert ","))) + (goto-char end-of-begin) + (insert "[fragile]"))))))) + +(defvar LaTeX-beamer-frametitle-history nil + "History of frame titles in beamer.") + +(TeX-add-style-hook + "beamer" + (lambda () + (add-hook 'LaTeX-after-insert-env-hook #'LaTeX-beamer-after-insert-env nil t) + + (TeX-run-style-hooks "amsmath" "amssymb" "amsthm" "color" "geometry" + "hyperref" "inputenc" "translator" "xcolor") + + (unless LaTeX-beamer-section-labels-flag + (make-local-variable 'LaTeX-section-hook) + (setq LaTeX-section-hook + '(LaTeX-section-heading + LaTeX-section-title + LaTeX-section-section))) + + (setq LaTeX-item-list + (append '(("itemize" . LaTeX-item-beamer) + ("enumerate" . LaTeX-item-beamer)) + LaTeX-item-list)) + + (setq LaTeX-default-document-environment "frame") + + (LaTeX-paragraph-commands-add-locally "frametitle") + + (TeX-add-symbols + '("alert" [ TeX-arg-beamer-overlay-spec ] 1) + '("alt" [ TeX-arg-beamer-overlay-spec ] 2) + '("beamerbutton" 1) + '("beamergotobutton" 1) + '("beamerreturnbutton" 1) + '("beamerskipbutton" 1) + '("frame" TeX-arg-beamer-frametitle) + '("frametitle" + (TeX-arg-eval TeX-read-string "Title: " nil 'LaTeX-beamer-frametitle-history)) + '("hyperlink" [ TeX-arg-beamer-overlay-spec ] 2) + '("hyperlinkslideprev" [ TeX-arg-beamer-overlay-spec ] 1) + '("hyperlinkslidenext" [ TeX-arg-beamer-overlay-spec ] 1) + '("hyperlinkframestart" [ TeX-arg-beamer-overlay-spec ] 1) + '("hyperlinkframeend" [ TeX-arg-beamer-overlay-spec ] 1) + '("hyperlinkframestartnext" [ TeX-arg-beamer-overlay-spec ] 1) + '("hyperlinkframeendprev" [ TeX-arg-beamer-overlay-spec ] 1) + '("hyperlinkpresentationstart" [ TeX-arg-beamer-overlay-spec ] 1) + '("hyperlinkpresentationend" [ TeX-arg-beamer-overlay-spec ] 1) + '("hyperlinkappendixstart" [ TeX-arg-beamer-overlay-spec ] 1) + '("hyperlinkappendixend" [ TeX-arg-beamer-overlay-spec ] 1) + '("hyperlinkdocumentstart" [ TeX-arg-beamer-overlay-spec ] 1) + '("hyperlinkdocumentend" [ TeX-arg-beamer-overlay-spec ] 1) + '("hypertarget" [ TeX-arg-beamer-overlay-spec ] 2) + '("institute" 1) + '("invisible" [ TeX-arg-beamer-overlay-spec ] 1) + '("label" [ TeX-arg-beamer-overlay-spec ] 1) + '("logo" 1) + '("note" TeX-arg-beamer-note 1) + '("only" [ TeX-arg-beamer-overlay-spec ] 1) + '("onslide" [ TeX-arg-beamer-overlay-spec ]) + '("partpage") + '("pause" ["Slide number"]) + '("structure" [ TeX-arg-beamer-overlay-spec ] 1) + '("temporal" [ TeX-arg-beamer-overlay-spec ] 3) + '("titlepage") + '("titlegraphic" 1) + '("uncover" [ TeX-arg-beamer-overlay-spec ] 1) + '("usetheme" LaTeX-arg-beamer-theme) + '("useinnertheme" LaTeX-arg-beamer-inner-theme) + '("useoutertheme" LaTeX-arg-beamer-outer-theme) + '("usecolortheme" LaTeX-arg-beamer-color-theme) + '("usefonttheme" LaTeX-arg-beamer-font-theme) + '("usetheme" LaTeX-arg-beamer-theme) + '("visible" [ TeX-arg-beamer-overlay-spec ] 1)) + + (LaTeX-add-environments + '("actionenv") + '("alertblock" 1) + '("beamerboxesrounded" 1) + '("block" (lambda (env &rest ignore) + (LaTeX-insert-environment + env (format "{%s}" (TeX-read-string "Title: "))))) + '("column" "Width") + "columns" + "columnsonlytextwidth" + '("exampleblock" 1) + '("frame" (lambda (env &rest ignore) + (let ((title (TeX-read-string "(Optional) Title: " nil + 'LaTeX-beamer-frametitle-history))) + (LaTeX-insert-environment env) + (unless (zerop (length title)) + (save-excursion + (LaTeX-find-matching-begin) + (end-of-line) + (LaTeX-newline) + ;; Indent the next macro insertion and don't + ;; rely on the fill-function to do it: + (indent-according-to-mode) + (insert (format "\\frametitle{%s}" title)) + ;; This works because \frametitle is a + ;; paragraph command. + (when auto-fill-function + (backward-char) + (LaTeX-fill-paragraph))))))) + '("onlyenv" (lambda (env &rest ignore) + (LaTeX-insert-environment + env + (let ((overlay (TeX-read-string "(Optional) Overlay: "))) + (unless (zerop (length overlay)) + (format "<%s>" overlay)))))) + '("overlayarea" "Area width" "Area height") + '("overprint" (lambda (env &rest ignore) + (LaTeX-insert-environment + env + (let ((width (TeX-read-string "(Optional) Area width: "))) + (unless (zerop (length width)) + (format "[%s]" width)))))) + "semiverbatim") + + (LaTeX-largest-level-set "section") + (LaTeX-add-counters "lecture" "part" "section" "subsection" "subsubsection" + "subsectionslide" "framenumber" "figure" "table" + "beamerpauses") + (LaTeX-add-pagestyles "navigation") + (add-to-list (make-local-variable 'LaTeX-indent-environment-list) + '("semiverbatim" current-indentation) t) + (add-to-list 'LaTeX-verbatim-environments-local "semiverbatim") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("title" "[{") + ("subtitle" "[{") + ("author" "[{") + ("date" "[{") + ("frametitle" "<[{")) 'slide-title))) + TeX-dialect) + +(defun TeX-arg-beamer-overlay-spec (optional &optional prompt) + "Prompt for overlay specification. +If OPTIONAL is non-nil, insert the specification only if +non-empty and enclosed in \"<>\". PROMPT replaces the standard +one." + (let ((TeX-arg-opening-brace "<") + (TeX-arg-closing-brace ">")) + (TeX-argument-insert + (TeX-read-string + (TeX-argument-prompt optional prompt "Overlay")) + optional) + (indent-according-to-mode))) + +(defun TeX-arg-beamer-frametitle (_optional &optional _prompt) + "Prompt for the frametitle." + (let ((title (TeX-read-string "Title: " nil 'LaTeX-beamer-frametitle-history))) + (if (not (zerop (length title))) + (insert TeX-grop TeX-esc "frametitle" TeX-grop + title TeX-grcl TeX-grcl) + (insert TeX-grop TeX-grcl)))) + +(defun LaTeX-item-beamer () + "Insert a new item with an optional overlay argument. You +can turn off the prompt for the overlay argument by setting +`LaTeX-beamer-item-overlay-flag' to nil. Calling the function +with a prefix argument prompts for the overlay specification +unconditionally." + (if (listp current-prefix-arg) + (setq current-prefix-arg (car current-prefix-arg)) + current-prefix-arg) + (TeX-insert-macro "item") + (delete-horizontal-space) + (if (or current-prefix-arg LaTeX-beamer-item-overlay-flag) + (TeX-arg-beamer-overlay-spec 0)) + (insert " ") + (indent-according-to-mode)) + +(defun TeX-arg-beamer-note (_optional &optional _prompt) + "Prompt for overlay specification and optional argument." + (let ((overlay (TeX-read-string "(Optional) Overlay: ")) + (options (TeX-read-string "(Optional) Options: "))) + (unless (zerop (length overlay)) + (insert "<" overlay ">")) + (unless (zerop (length options)) + (insert "[" options "]")) + (indent-according-to-mode))) + +(defun LaTeX-beamer-search-themes (&optional regexp extensions length) + "Search for beamer themes matching REGEXP with EXTENSIONS. +The function removes the first LENGTH characters and the +extension of the file and returns a list of strings. LENGTH may +also be a string. Then the length of the string is used." + (let* ((match (or regexp "^beamertheme[A-Z]")) + (exts (or extensions '("tex" "sty"))) + (chars (cond ((integerp length) + length) + ((stringp length) + (string-width length)) + ;; Try some DWIM magic... + ((and (not length) + (string-match "beamer[A-Za-z0-9]*theme" match)) + (- (match-end 0) (match-beginning 0))) + (t (error "Invalid length: `%s'" length))))) + ;; (message "match=`%s' chars=`%s'" match chars) + (TeX-delete-duplicate-strings + (delete nil + (mapcar + (lambda (file) + (let ((case-fold-search nil)) + (and (numberp (string-match match file)) + (substring file chars)))) + (TeX-search-files nil exts t t)))))) + +(defun LaTeX-arg-beamer-theme (&rest _ignore) + "Prompt for beamer theme with completion." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt nil nil "Theme") + (mapcar #'list + (cond ((eq LaTeX-beamer-themes 'local) + (set (make-local-variable 'LaTeX-beamer-themes) + (LaTeX-beamer-search-themes))) + ((functionp LaTeX-beamer-themes) + (funcall LaTeX-beamer-themes)) + ((listp LaTeX-beamer-themes) + LaTeX-beamer-themes) + (t (error + "`LaTeX-beamer-themes' should be a list: `%s'" + LaTeX-beamer-themes)))) + nil nil nil) + t)) + +(defun LaTeX-arg-beamer-inner-theme (&rest _ignore) + "Prompt for beamer inner theme with completion." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt nil nil "Theme") + (mapcar #'list + (cond ((eq LaTeX-beamer-inner-themes 'local) + (set (make-local-variable 'LaTeX-beamer-inner-themes) + (LaTeX-beamer-search-themes "^beamerinnertheme"))) + ((functionp LaTeX-beamer-inner-themes) + (funcall LaTeX-beamer-inner-themes)) + ((listp LaTeX-beamer-inner-themes) + LaTeX-beamer-inner-themes) + (t (error + "`LaTeX-beamer-inner-themes' should be a list: `%s'" + LaTeX-beamer-inner-themes)))) + nil nil nil) + t)) + +(defun LaTeX-arg-beamer-outer-theme (&rest _ignore) + "Prompt for beamer outer theme with completion." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt nil nil "Theme") + (mapcar #'list + (cond ((eq LaTeX-beamer-outer-themes 'local) + (set (make-local-variable 'LaTeX-beamer-outer-themes) + (LaTeX-beamer-search-themes "^beameroutertheme"))) + ((functionp LaTeX-beamer-outer-themes) + (funcall LaTeX-beamer-outer-themes)) + ((listp LaTeX-beamer-outer-themes) + LaTeX-beamer-outer-themes) + (t (error + "`LaTeX-beamer-outer-themes' should be a list: `%s'" + LaTeX-beamer-outer-themes)))) + nil nil nil) + t)) + +(defun LaTeX-arg-beamer-color-theme (&rest _ignore) + "Prompt for beamer color theme with completion." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt nil nil "Theme") + (mapcar #'list + (cond ((eq LaTeX-beamer-color-themes 'local) + (set (make-local-variable 'LaTeX-beamer-color-themes) + (LaTeX-beamer-search-themes "^beamercolortheme"))) + ((functionp LaTeX-beamer-color-themes) + (funcall LaTeX-beamer-color-themes)) + ((listp LaTeX-beamer-color-themes) + LaTeX-beamer-color-themes) + (t (error + "`LaTeX-beamer-color-themes' should be a list: `%s'" + LaTeX-beamer-color-themes)))) + nil nil nil) + t)) + +(defun LaTeX-arg-beamer-font-theme (&rest _ignore) + "Prompt for beamer font theme with completion." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt nil nil "Theme") + (mapcar #'list + (cond ((eq LaTeX-beamer-font-themes 'local) + (set (make-local-variable 'LaTeX-beamer-font-themes) + (LaTeX-beamer-search-themes "^beamerfonttheme"))) + ((functionp LaTeX-beamer-font-themes) + (funcall LaTeX-beamer-font-themes)) + ((listp LaTeX-beamer-font-themes) + LaTeX-beamer-font-themes) + (t (error + "`LaTeX-beamer-font-themes' should be a list: `%s'" + LaTeX-beamer-font-themes)))) + nil nil nil) + t)) + +(defun LaTeX-beamer-class-options () + "Read the beamer class options from the user." + (TeX-load-style "hyperref") + (TeX-read-key-val t '(("usepdftitle" ("false")) ("envcountsect") + ("notheorems") ("noamsthm") ("compress") ("t") ("c") + ("leqno") ("fleqn") ("handout") ("trans") ("pdftex") + ("nativepdf") ("pdfmark") ("dvips") ("dviwindo") + ("dvipsone") ("vtex") ("ps2pdf") ("ignorenonframetext") + ("noamssymb") ("bigger") ("smaller") ("8pt") ("9pt") + ("10pt") ("11pt") ("12pt") ("14pt") ("17pt") ("20pt") + ("draft") ("CJK") ("cjk") ("pgf") + ("hyperref" LaTeX-hyperref-package-options-list) + ("color") ("xcolor") ("ucs") ("utf8x") ("utf8") + ("aspectratio" ("1610" "169" "149" "54" "43" "32"))))) + +;;; beamer.el ends here diff --git a/elpa/auctex-13.1.3/style/beamer.elc b/elpa/auctex-13.1.3/style/beamer.elc Binary files differnew file mode 100644 index 0000000..1a78455 --- /dev/null +++ b/elpa/auctex-13.1.3/style/beamer.elc diff --git a/elpa/auctex-13.1.3/style/beamerarticle.el b/elpa/auctex-13.1.3/style/beamerarticle.el new file mode 100644 index 0000000..136947a --- /dev/null +++ b/elpa/auctex-13.1.3/style/beamerarticle.el @@ -0,0 +1,35 @@ +;;; beamerarticle.el --- AUCTeX style for the latex-beamerarticle class -*- lexical-binding: t; -*- + +;; Copyright (C) 2019, 2020 Free Software Foundation, Inc. + +;; 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: + +;; Triggers the beamer style when using the beamerarticle style. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "beamerarticle" + (lambda () + (TeX-run-style-hooks "beamer"))) diff --git a/elpa/auctex-13.1.3/style/beamerarticle.elc b/elpa/auctex-13.1.3/style/beamerarticle.elc Binary files differnew file mode 100644 index 0000000..114687f --- /dev/null +++ b/elpa/auctex-13.1.3/style/beamerarticle.elc diff --git a/elpa/auctex-13.1.3/style/beamerswitch.el b/elpa/auctex-13.1.3/style/beamerswitch.el new file mode 100644 index 0000000..d565523 --- /dev/null +++ b/elpa/auctex-13.1.3/style/beamerswitch.el @@ -0,0 +1,35 @@ +;;; beamerswitch.el --- AUCTeX style for the latex-beamerswitch class -*- lexical-binding: t; -*- + +;; Copyright (C) 2019, 2020 Free Software Foundation, Inc. + +;; 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: + +;; Triggers the beamer style when using the beamerswitch style. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "beamerswitch" + (lambda () + (TeX-run-style-hooks "beamer"))) diff --git a/elpa/auctex-13.1.3/style/beamerswitch.elc b/elpa/auctex-13.1.3/style/beamerswitch.elc Binary files differnew file mode 100644 index 0000000..023a2e1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/beamerswitch.elc diff --git a/elpa/auctex-13.1.3/style/biblatex.el b/elpa/auctex-13.1.3/style/biblatex.el new file mode 100644 index 0000000..43115be --- /dev/null +++ b/elpa/auctex-13.1.3/style/biblatex.el @@ -0,0 +1,645 @@ +;;; biblatex.el --- AUCTeX style for `biblatex.sty' version 2.8a. -*- lexical-binding: t; -*- + +;; Copyright (C) 2012-2021 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2012-11-14 +;; 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 `biblatex.sty' version 2.8a. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar reftex-cite-format-builtin) + +(defvar LaTeX-biblatex-entrytype + '(;; Regular Types + "article" "book" "mvbook" "inbook" "bookinbook" "suppbook" "booklet" + "collection" "mvcollection" "incollection" "suppcollection" "manual" "misc" + "online" "patent" "periodical" "suppperiodical" "proceedings" + "mvproceedings" "inproceedings" "reference" "mvreference" "inreference" + "report" "set" "thesis" "unpublished" "xdata" "customa" "customb" "customc" + "customd" "custome" "customf" + ;; Type Aliases + "conference" "electronic" "masterthesis" "phdthesis" "techreport" "www" + ;; Unsupported Types + "artwork" "audio" "bibnote" "commentary" "image" "jurisdiction" + "legislation" "legal" "letter" "movie" "music" "performance" "review" + "software" "standard" "video") + "List of biblatex entry types.") + +(defvar LaTeX-biblatex-executebibliographyoptions-options + '(;; General + ("sorting" ("nty" "nyt" "nyvt" "anyt" "anyvt" "ynt" "ydnt" "none" "debug")) + ("sortcase" ("true" "false")) + ("sortupper" ("true" "false")) + ("sortlocale") + ("sortlos" ("bib" "los")) + ("related" ("true" "false")) + ("sortcites" ("true" "false")) + ("maxnames") + ("minnames") + ("maxbibnames") + ("minbibnames") + ("maxcitenames") + ("mincitenames") + ("maxitems") + ("minitems") + ("autocite" ("plain" "inline" "footnote" "superscript")) + ("autopunct" ("true" "false")) + ("language" (append LaTeX-biblatex-language-list + '("autobib" "autocite" "auto"))) + ("clearlang" ("true" "false")) + ("autolang" ("none" "hyphen" "other" "other*" "langname")) + ("block" ("none" "space" "par" "nbpar" "ragged")) + ("notetype" ("foot+end" "footonly" "endonly")) + ("hyperref" ("true" "false" "auto")) + ("backref" ("true" "false")) + ("backrefstyle" ("none" "three" "two" "two+" "three+" "all+")) + ("backrefsetstyle" ("setonly" "memonly" "setormem" "setandmem" "memandset" + "setplusmem")) + ("indexing" ("true" "false" "cite" "bib")) + ("loadfiles" ("true" "false")) + ("refsection" ("none" "part" "chapter" "section" "subsection")) + ("refsegment" ("none" "part" "chapter" "section" "subsection")) + ("citereset" ("none" "part" "chapter" "section" "subsection")) + ("abbreviate" ("true" "false")) + ("date" ("short" "long" "terse" "comp" "iso8601")) + ("datelabel" ("year" "short" "long" "terse" "comp" "iso8601")) + ("origdate" ("short" "long" "terse" "comp" "iso8601")) + ("eventdate" ("short" "long" "terse" "comp" "iso8601")) + ("urldate" ("short" "long" "terse" "comp" "iso8601")) + ("alldates" ("short" "long" "terse" "comp" "iso8601")) + ("datezeros" ("true" "false")) + ("dateabbrev" ("true" "false")) + ("defernumbers" ("true" "false")) + ("punctfont" ("true" "false")) + ("arxiv" ("abs" "ps" "pdf" "format")) + ("texencoding" ("auto")) + ("bibencoding" ("auto")) + ("safeinputenc" ("true" "false")) + ("bibwarn" ("true" "false")) + ("mincrossrefs") + ;; Style-specific + ("isbn" ("true" "false")) + ("url" ("true" "false")) + ("doi" ("true" "false")) + ("eprint" ("true" "false")) + ;; Internal + ("pagetracker" ("true" "false" "page" "spread")) + ("citecounter" ("true" "false" "context")) + ("citetracker" ("true" "false" "context" "strict" "constrict")) + ("ibidtracker" ("true" "false" "context" "strict" "constrict")) + ("opcittracker" ("true" "false" "context" "strict" "constrict")) + ("loccittracker" ("true" "false" "context" "strict" "constrict")) + ("idemtracker" ("true" "false" "context" "strict" "constrict")) + ("parentracker" ("true" "false")) + ("maxparens") + ("firstinits" ("true" "false")) + ("sortfirstinits" ("true" "false")) + ("terseinits" ("true" "false")) + ("labelalpha" ("true" "false")) + ("maxalphanames") + ("minalphanames") + ("labelnumber" ("true" "false")) + ("labeltitle" ("true" "false")) + ("labeltitleyear" ("true" "false")) + ("labeldate" ("true" "false")) + ("singletitle" ("true" "false")) + ("uniquename" ("true" "false" "init" "full" "allinit" "allfull" "mininit" + "minfull")) + ("uniquelist" ("true" "false" "minyear"))) + "Key=value options for ExecuteBibliographyOptions macro of the biblatex package.") + +;; See table 2 of Biblatex reference manual. +(defvar LaTeX-biblatex-language-list + '("catalan" "croatian" "czech" "danish" "dutch" "american" "british" + "canadian" "australian" "newzealand" "finnish" "french" "german" "austrian" + "ngernam" "naustrian" "greek" "italian" "norwegian" "polish" "brazilian" + "portuguese" "russian" "spanish" "swedish") + "List of languages supported by biblatex packages.") + +(defvar LaTeX-biblatex-addbibresource-options + '(("label") + ("location" ("local" "remote")) + ("type" ("file")) + ("datatype" ("bibtex" "ris" "zoterordfxml" "endnotexml"))) + "Key=value options for addbibresource macro of the biblatex package.") + +(defun LaTeX-arg-addbibresource (optional &optional prompt) + "Prompt for a BibLaTeX database file. +If OPTIONAL is non-nil, insert the resulting value as an optional +argument, otherwise as a mandatory one. Use PROMPT as the prompt +string." + (let (files inputs database) + (if LaTeX-using-Biber + (setq files 'TeX-Biber-global-files + inputs 'biberinputs) + (setq files 'BibTeX-global-files + inputs 'bibinputs)) + (setq files 'TeX-Biber-global-files + inputs 'biberinputs) + (message "Searching for BibLaTeX files...") + (or (symbol-value files) + (set files (mapcar #'list (TeX-search-files-by-type + 'biberinputs 'global t nil)))) + (message "Searching for BibLaTeX files...done") + (setq database (completing-read + (TeX-argument-prompt optional prompt "BibLaTeX files") + (append (mapcar #'list (TeX-search-files-by-type + inputs 'local t nil)) + (symbol-value files)))) + (LaTeX-add-bibliographies database) + ;; Run style file associated to the bibliography database file in order to + ;; immediately fill `LaTeX-bibitem-list'. We need to strip the extension + ;; because AUCTeX style files don't use it. + (TeX-run-style-hooks (file-name-sans-extension database)) + (TeX-argument-insert database optional))) + +;; Support for multicite commands, see § 3.7.3 of Biblatex reference manual. +(defun LaTeX-arg-biblatex-cites (optional &optional prompt) + "Prompt for citations with completion until input is empty. +Prompt also for optional prenotes and postnotes. If OPTIONAL is +non-nil, insert the citation key as an optional argument, +otherwise as a mandatory one. Use PROMPT as the prompt string +for citation keys." + ;; Prompt for global prenote and postnote. + (and TeX-arg-cite-note-p (not current-prefix-arg) + (let ((TeX-arg-opening-brace "(") + (TeX-arg-closing-brace ")") + (prenote (TeX-read-string + (TeX-argument-prompt t nil "Global prenote")))) + (TeX-argument-insert prenote t) + ;; If the prenote is empty the postnote is optional, otherwise it's + ;; mandatory. + (TeX-argument-insert + (TeX-read-string (TeX-argument-prompt t nil "Global postnote")) + (equal prenote "")))) + (let ((items t) (noinsert nil)) + (while items + ;; Prompt for prenote and postnote of the current keys. + (and TeX-arg-cite-note-p (not current-prefix-arg) + (let ((TeX-arg-opening-brace "[") + (TeX-arg-closing-brace "]") + (prenote (TeX-read-string + (TeX-argument-prompt t nil "Prenote")))) + (TeX-argument-insert prenote t) + ;; If the prenote is empty the postnote is optional, otherwise it's + ;; mandatory. + (TeX-argument-insert + (TeX-read-string (TeX-argument-prompt t nil "Postnote")) + (equal prenote "")))) + (setq items (if (and (fboundp 'reftex-citation) + (fboundp 'reftex-plug-flag) + (reftex-plug-flag 3)) + ;; Use RefTeX when enabled. + (reftex-citation t) + ;; Multiple citation keys in each argument are allowed. + (TeX-completing-read-multiple + (TeX-argument-prompt optional prompt "Key(s)") + (LaTeX-bibitem-list)))) + (apply #'LaTeX-add-bibitems items) + ;; If input is empty, insert an empty group only the first time, when + ;; `noinsert' flag is nil. + (unless (and (not items) noinsert) + (TeX-argument-insert (mapconcat #'identity items ",") optional)) + (setq noinsert t)))) + +(defun LaTeX-arg-biblatex-natbib-notes (optional) + "Prompt for two note arguments of a natbib compat citation command." + (when TeX-arg-cite-note-p + (let ((pre (TeX-read-string + (TeX-argument-prompt optional nil "Prenote"))) + (post (TeX-read-string + (TeX-argument-prompt optional nil "Postnote")))) + (TeX-argument-insert pre optional) + (TeX-argument-insert post optional) + ;; pre is given, post is empty: Make sure that we insert an + ;; extra pair of `[]', otherwise pre becomes post + (when (and pre (not (string= pre "")) + (string= post "")) + (insert LaTeX-optop LaTeX-optcl))))) + +(TeX-add-style-hook + "biblatex" + (lambda () + ;; Biblatex uses as default backend biber, run it unless biblatex `backend' + ;; option value is one of `bibtex', `bibtex8', `bibtexu'. Autodetection of + ;; the backend can be overridden by setting `LaTeX-biblatex-use-Biber' as a + ;; local variable. + (setq LaTeX-using-Biber + (if (local-variable-p 'LaTeX-biblatex-use-Biber (current-buffer)) + LaTeX-biblatex-use-Biber + (not (or (LaTeX-provided-package-options-member + "biblatex" "backend=bibtex") + (LaTeX-provided-package-options-member + "biblatex" "backend=bibtex8") + (LaTeX-provided-package-options-member + "biblatex" "backend=bibtexu"))))) + + (TeX-run-style-hooks + "keyval" + "kvoptions" + "logreq" + "ifthen" + "url") + (TeX-add-symbols + ;;; Global Customization + ;; Setting Package Options + '("ExecuteBibliographyOptions" + [TeX-arg-eval mapconcat #'identity + (TeX-completing-read-multiple + "Entry type: " LaTeX-biblatex-entrytype) ","] + (TeX-arg-key-val LaTeX-biblatex-executebibliographyoptions-options)) + ;;; Bibliography Commands + ;; Resources + '("addbibresource" [TeX-arg-key-val LaTeX-biblatex-addbibresource-options] + LaTeX-arg-addbibresource) + '("addglobalbib" [TeX-arg-key-val LaTeX-biblatex-addbibresource-options] + LaTeX-arg-addbibresource) + '("addsectionbib" [TeX-arg-key-val LaTeX-biblatex-addbibresource-options] + LaTeX-arg-addbibresource) + ;; The Bibliography + '("printbibliography" + [TeX-arg-key-val (("env") ("heading") ("title") ("prenote") ("postnote") + ("section") ("segment") ("sorting") ("type") ("nottype") + ("subtype") ("notsubtype") ("keyword") ("notkeyword") + ("categoy") ("notcategory") ("filter") ("check") + ("prefixnumbers") ("resetnumbers" ("true" "false")) + ("omitnumbers" ("true" "false")))]) + '("bibbysection" + [TeX-arg-key-val (("env") ("heading") ("prenote") ("postnote"))]) + '("bibbysegment" + [TeX-arg-key-val (("env") ("heading") ("prenote") ("postnote"))]) + '("bibbycategory" + [TeX-arg-key-val (("env") ("prenote") ("postnote") ("section"))]) + '("printbibheading" + [TeX-arg-key-val (("heading") ("title"))]) + ;; The List of Shorthands + '("printshorthands" + [TeX-arg-key-val (("env") ("heading") ("title") ("prenote") ("postnote") + ("section") ("segment") ("sorting") ("type") ("nottype") + ("subtype") ("notsubtype") ("keyword") ("notkeyword") + ("categoy") ("notcategory") ("filter") ("check"))]) + ;; Bibliography Sections + '("newrefsection" ["Resources"]) + "endrefsection" + ;; Bibliography Segments + "newrefsegment" + "endrefsegment" + ;; Bibliography Categories + '("DeclareBibliographyCategory" "Category") + '("addtocategory" "Category" TeX-arg-cite) + ;; Bibliography Headings and Environments + '("defbibenvironment" "Name" 3) + '("defbibheading" "Name" ["Title"] t) + ;; Bibliography Notes + '("defbibnote" "Name" "Text") + ;; Bibliography Filters and Checks + '("defbibfilter" "Name" t) + '("defbibcheck" "Name" t) + ;; Dynamic Entry Sets + '("defbibentryset" "Set" + (TeX-arg-eval mapconcat #'identity (TeX-completing-read-multiple + "Keys: " (LaTeX-bibitem-list)) ",")) + ;;; Citation Commands + '("cite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("Cite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("parencite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("Parencite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("footcite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("footcitetext" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + ;; Style-specific Commands + '("textcite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("Textcite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("smartcite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("Smartcite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("cite*" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("parencite*" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("supercite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + ;; Qualified Citation Lists + '("cites" LaTeX-arg-biblatex-cites) + '("Cites" LaTeX-arg-biblatex-cites) + '("parencites" LaTeX-arg-biblatex-cites) + '("Parencites" LaTeX-arg-biblatex-cites) + '("footcites" LaTeX-arg-biblatex-cites) + '("footcitetexts" LaTeX-arg-biblatex-cites) + '("smartcites" LaTeX-arg-biblatex-cites) + '("Smartcites" LaTeX-arg-biblatex-cites) + '("textcites" LaTeX-arg-biblatex-cites) + '("Textcites" LaTeX-arg-biblatex-cites) + '("supercites" LaTeX-arg-biblatex-cites) + ;; Style-independent Commands + '("autocite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("Autocite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("autocite*" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("Autocite*" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("autocites" LaTeX-arg-biblatex-cites) + '("Autocites" LaTeX-arg-biblatex-cites) + ;; Text Commands + '("citeauthor" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("Citeauthor" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("citeauthor*" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("Citeauthor*" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("citetitle" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("citetitle*" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("citeyear" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("citeyear*" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("citedate" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("citedate*" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("citeurl" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("parentext" "Text") + '("brackettext" "Text") + ;; Special Commands + '("fullcite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("footfullcite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("volcite" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"]) ()) "Volume" + (TeX-arg-conditional TeX-arg-cite-note-p (["Page"]) ()) TeX-arg-cite) + '("Volcite" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"]) ()) "Volume" + (TeX-arg-conditional TeX-arg-cite-note-p (["Page"]) ()) TeX-arg-cite) + '("Pvolcite" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"]) ()) "Volume" + (TeX-arg-conditional TeX-arg-cite-note-p (["Page"]) ()) TeX-arg-cite) + '("Pvolcite" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"]) ()) "Volume" + (TeX-arg-conditional TeX-arg-cite-note-p (["Page"]) ()) TeX-arg-cite) + '("fvolcite" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"]) ()) "Volume" + (TeX-arg-conditional TeX-arg-cite-note-p (["Page"]) ()) TeX-arg-cite) + '("ftolcite" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"]) ()) "Volume" + (TeX-arg-conditional TeX-arg-cite-note-p (["Page"]) ()) TeX-arg-cite) + '("svolcite" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"]) ()) "Volume" + (TeX-arg-conditional TeX-arg-cite-note-p (["Page"]) ()) TeX-arg-cite) + '("Svolcite" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"]) ()) "Volume" + (TeX-arg-conditional TeX-arg-cite-note-p (["Page"]) ()) TeX-arg-cite) + '("tvolcite" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"]) ()) "Volume" + (TeX-arg-conditional TeX-arg-cite-note-p (["Page"]) ()) TeX-arg-cite) + '("Tvolcite" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"]) ()) "Volume" + (TeX-arg-conditional TeX-arg-cite-note-p (["Page"]) ()) TeX-arg-cite) + '("avolcite" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"]) ()) "Volume" + (TeX-arg-conditional TeX-arg-cite-note-p (["Page"]) ()) TeX-arg-cite) + '("Avolcite" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"]) ()) "Volume" + (TeX-arg-conditional TeX-arg-cite-note-p (["Page"]) ()) TeX-arg-cite) + '("notecite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("Notecite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("pnotecite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("Pnotecite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + '("fnotecite" (TeX-arg-conditional TeX-arg-cite-note-p + (["Prenote"] ["Postnote"]) ()) TeX-arg-cite) + ;; Low-level Commands + '("citename" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"] ["Postnote"]) ()) + TeX-arg-cite (TeX-arg-conditional TeX-arg-cite-note-p (["Format"]) ()) + "Name list") + '("citelist" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"] ["Postnote"]) ()) + TeX-arg-cite (TeX-arg-conditional TeX-arg-cite-note-p (["Format"]) ()) + "Literal list") + '("citefield" + (TeX-arg-conditional TeX-arg-cite-note-p (["Prenote"] ["Postnote"]) ()) + TeX-arg-cite (TeX-arg-conditional TeX-arg-cite-note-p (["Format"]) ()) + "Field") + ;; Miscellaneous Commands + "citereset" + "citereset*" + "mancite" + "pno" + "ppno" + "nopp" + "psq" + "psqq" + '("RN" "Integer") + '("Rn" "Integer") + ;; Localization Commands + '("DefineBibliographyStrings" + (TeX-arg-eval completing-read "Language: " LaTeX-biblatex-language-list) t) + '("DefineBibliographyExtras" + (TeX-arg-eval completing-read "Language: " LaTeX-biblatex-language-list) t) + '("UndefineBibliographyExtras" + (TeX-arg-eval completing-read "Language: " LaTeX-biblatex-language-list) t) + '("DefineHyphenationExceptions" + (TeX-arg-eval completing-read "Language: " LaTeX-biblatex-language-list) t) + "NewBibliographyString") + + ;; § 3.8.9 natbib Compatibility Commands + (when (or (LaTeX-provided-package-options-member "biblatex" "natbib") + (LaTeX-provided-package-options-member "biblatex" "natbib=true")) + (let ((cmds '(("citet" . 1) ("citet*" . 1) + ("Citet" . 1) ("Citet*" . 1) + ("citep" . 2) ("citep*" . 2) + ("Citep" . 2) ("Citep*" . 2) + ("citealt" . 1) ("citealt*" . 1) + ("Citealt" . 1) ("Citealt*" . 1) + ("citealp" . 2) ("citealp*" . 2) + ("Citealp" . 2) ("Citealp*" . 2)))) + ;; Taken from natbib.el: + (apply + #'TeX-add-symbols + (mapcar + (lambda (cmd) + (cond + ((= (cdr cmd) 1) + ;; Just one optional argument, the post note + (list + (car cmd) + '(TeX-arg-conditional TeX-arg-cite-note-p (["Postnote"]) nil) + #'TeX-arg-cite)) + ((= (cdr cmd) 2) + ;; Pre and post notes + (list + (car cmd) + '(TeX-arg-conditional TeX-arg-cite-note-p + ([LaTeX-arg-biblatex-natbib-notes]) + nil) + #'TeX-arg-cite)))) + cmds)) + + ;; Fontification for compat macros does not go into `font-latex.el': + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("citet" "*[[{") + ("Citet" "*[[{") + ("citep" "*[[{") + ("Citep" "*[[{") + ("citealt" "*[[{") + ("Citealt" "*[[{") + ("citealp" "*[[{") + ("Citealp" "*[[{")) + 'biblatex)))) + + (LaTeX-add-environments + ;;; Bibliography commands + ;; Bibliography Sections + '("refsection" ["Resources"]) + ;; Bibliography Segments + "refsegment") + + ;; Declaring expert macros and environments. Criterion: all macros and + ;; environments to fine tune the bibliography, probably they will be used + ;; only by expert users. + (TeX-declare-expert-macros + "biblatex" + "ExecuteBibliographyOptions" "printshorthands" "newrefsection" + "endrefsection" "newrefsegment" "endrefsegment" + "DeclareBibliographyCategory" "addtocategory" "defbibenvironment" + "defbibheading" "defbibnote" "defbibfilter" "defbibcheck" "defbibentryset" + "citereset" "citereset*" "mancite" "pno" "ppno" "nopp" "psq" "psqq" "RN" + "Rn" "DefineBibliographyStrings" "DefineBibliographyExtras" + "UndefineBibliographyExtras" "DefineHyphenationExceptions" + "NewBibliographyString") + (LaTeX-declare-expert-environments + "biblatex" + "refsection" "refsegment") + + ;; Tell RefTeX: If package option `natbib' is given, activate that + ;; format, otherwise stick with `biblatex': + (when (and LaTeX-reftex-cite-format-auto-activate + (fboundp 'reftex-set-cite-format)) + (if (or (LaTeX-provided-package-options-member "biblatex" "natbib") + (LaTeX-provided-package-options-member "biblatex" "natbib=true")) + (reftex-set-cite-format 'natbib) + ;; The entry `biblatex' is defined in + ;; `reftex-cite-format-builtin' in reftex-vars.el which will be + ;; part of Emacs >= 25.3. So check here if we find an entry, + ;; otherwise do it manually for older Emacsen. + (if (assoc 'biblatex reftex-cite-format-builtin) + (reftex-set-cite-format 'biblatex) + (reftex-set-cite-format + '((?\C-m . "\\cite[][]{%l}") + (?C . "\\cite*[][]{%l}") + (?t . "\\textcite[][]{%l}") + (?T . "\\textcite*[][]{%l}") + (?p . "\\parencite[][]{%l}") + (?P . "\\parencite*[][]{%l}") + (?f . "\\footcite[][]{%l}") + (?s . "\\smartcite[][]{%l}") + (?u . "\\autocite[][]{%l}") + (?U . "\\autocite*[][]{%l}") + (?a . "\\citeauthor{%l}") + (?A . "\\citeauthor*{%l}") + (?i . "\\citetitle{%l}") + (?I . "\\citetitle*{%l}") + (?y . "\\citeyear{%l}") + (?Y . "\\citeyear*{%l}") + (?n . "\\nocite{%l}"))))))) + TeX-dialect) + +(defvar LaTeX-biblatex-package-options-list + (append + ;;; Preamble Options + LaTeX-biblatex-executebibliographyoptions-options + '(;;; Load-time Options + ("backend" ("biber" "bibtex" "bibtexu" "bibtex8")) + ("style" BibLaTeX-global-style-files) + ("bibstyle" BibLaTeX-global-style-files) + ("citestyle" BibLaTeX-global-style-files) + ("natbib" ("true" "false")) + ("mcite" ("true" "false")) + ;;; Entry Options + ;; Preamble/Type/Entry Options + ("useauthor" ("true" "false")) + ("useeditor" ("true" "false")) + ("usetranslator" ("true" "false")) + ("useprefix" ("true" "false")) + ("indexing" ("true" "false" "cite" "bib")) + ;; Type/Entry Options are not available globally. + ;; Legacy Options (deprecated) + ("openbib"))) + "Package options for the biblatex package.") + +(defun LaTeX-biblatex-package-options nil + "Prompt for package options for the biblatex package." + (unless BibLaTeX-global-style-files + (if (if (eq TeX-arg-input-file-search 'ask) + (not (y-or-n-p "Find BibLaTeX style yourself? ")) + TeX-arg-input-file-search) + ;; ...then, search for BibLaTeX styles. + (progn + (message "Searching for BibLaTeX styles...") + (setq BibLaTeX-global-style-files + (TeX-search-files-by-type 'bbxinputs 'global t t)) + (message "Searching for BibLaTeX styles...done")) + ;; ...else, use for completion only standard BibLaTeX styles (see §3.3 of + ;; Biblatex reference manual). + (setq BibLaTeX-global-style-files + '("numeric" "numeric-comp" "numeric-verb" "alphabetic" + "alphabetic-verb" "authoryear" "authoryear-comp" "authoryear-ibid" + "authoryear-icomp" "authortitle" "authortitle-comp" + "authortitle-ibid" "authortitle-icomp" "authortitle-terse" + "authortitle-tcomp" "authortitle-ticomp" "verbose" "verbose-ibid" + "verbose-note" "verbose-inote" "verbose-trad1" "verbose-trad2" + "verbose-trad3" "reading" "draft" "debug")))) + (TeX-read-key-val t LaTeX-biblatex-package-options-list)) + +;;; biblatex.el ends here diff --git a/elpa/auctex-13.1.3/style/biblatex.elc b/elpa/auctex-13.1.3/style/biblatex.elc Binary files differnew file mode 100644 index 0000000..4b0bb19 --- /dev/null +++ b/elpa/auctex-13.1.3/style/biblatex.elc diff --git a/elpa/auctex-13.1.3/style/bicaption.el b/elpa/auctex-13.1.3/style/bicaption.el new file mode 100644 index 0000000..245b454 --- /dev/null +++ b/elpa/auctex-13.1.3/style/bicaption.el @@ -0,0 +1,206 @@ +;;; bicaption.el --- AUCTeX style for `bicaption.sty' (v1.1-158) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016--2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-11-11 +;; 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 `bicaption.sty' (v1.1-158) from +;; 2016/03/27. `bicaption.sty' is part of TeXLive. + +;; If things do not work or when in doubt, press `C-c C-n'. Comments +;; for improvement are welcome. + +;;; Code: + +;; Needed for compiling `LaTeX-check-insert-macro-default-style': +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function LaTeX-babel-active-languages "babel" ()) +(declare-function LaTeX-polyglossia-active-languages "polyglossia" ()) + +(defvar LaTeX-caption-supported-float-types) +(defvar LaTeX-caption-key-val-options) + +(defvar LaTeX-bicaption-key-val-options + '(("bi-lang" ("first" "second" "both")) + ("bi-singlelinecheck" ("false" "no" "off" "0" "true" "yes" "on" "1")) + ("bi-slc" ("false" "no" "off" "0" "true" "yes" "on" "1")) + ("bi-swap" ("false" "no" "off" "0" "true" "yes" "on" "1")) + ("listtype+")) + "Key=value options for bicaption macros.") + +(defun LaTeX-arg-bicaption-bicaption (optional &optional prompt star cap-box label-inside) + "Query for the arguments of \"\\bicaption\" incl. a label and insert them. +PROMPT replaces the standard one. If STAR is non-nil, then do +not query for a \\label and short captions, insert only captions. +If CAP-BOX is non-nil, also query and include optional arguments +for the box command. If LABEL-INSIDE is non-nil, insert \\label +inside the first mandatory argument, otherwise after all +arguments." + ;; \bicaption [<list entry #1>]{<heading #1>}[<list entry #2>]{<heading #2>} + ;; \bicaptionbox[<list entry #1>]{<heading #1>}[<list entry #2>]{<heading #2>} + ;; [<width>][<inner-pos>]{<contents>} + (let* (;; \bisubcaption needs an environment, "minipage" will be + ;; popular. If so, check next higher environment to find out + ;; where we are + (currenv (if (string= (LaTeX-current-environment) "minipage") + (LaTeX-current-environment 2) + (LaTeX-current-environment))) + (captionI (TeX-read-string + (TeX-argument-prompt + optional (when prompt + (concat "1. " prompt "bicaption")) + "1. bicaption"))) + (short-captionI + (when (and (not star) + (>= (length captionI) LaTeX-short-caption-prompt-length)) + (TeX-read-string + (TeX-argument-prompt t (when prompt + (concat "Short 1. " prompt "bicaption")) + "Short 1. bicaption")))) + (captionII (TeX-read-string + (TeX-argument-prompt + optional (when prompt + (concat "2. " prompt "bicaption")) + "2. bicaption"))) + (short-captionII + (when (and (not star) + (>= (length captionII) LaTeX-short-caption-prompt-length)) + (TeX-read-string + (TeX-argument-prompt t (when prompt + (concat "Short 2. " prompt "bicaption")) + "Short 2. bicaption"))))) + (indent-according-to-mode) + ;; Insert short & regular 1. caption + (when (and short-captionI (not (string= short-captionI ""))) + (insert LaTeX-optop short-captionI LaTeX-optcl)) + (insert TeX-grop captionI) + ;; For \bi(sub)?captionbox, the label must be inserted here + (when (and label-inside (not star)) + (LaTeX-label currenv 'environment)) + (insert TeX-grcl) + (when auto-fill-function (LaTeX-fill-paragraph)) + (LaTeX-newline) + (indent-according-to-mode) + ;; Insert short & regular 2. caption + (when (and short-captionII (not (string= short-captionII ""))) + (insert LaTeX-optop short-captionII LaTeX-optcl)) + (insert TeX-grop captionII TeX-grcl) + ;; Insert width & pos in case of captionbox macros: + (when cap-box + (let* ((TeX-arg-opening-brace "[") + (TeX-arg-closing-brace "]") + (TeX-last-optional-rejected nil) + (width (LaTeX-check-insert-macro-default-style + (completing-read (TeX-argument-prompt t nil "Width") + (mapcar (lambda (elt) (concat TeX-esc (car elt))) + (LaTeX-length-list))))) + (TeX-last-optional-rejected (or (not width) + (and width (string= width "")))) + (inpos (LaTeX-check-insert-macro-default-style + (if (and width (not (string-equal width ""))) + (completing-read (TeX-argument-prompt t nil "Inner position") + '("c" "l" "r" "s")) + "")))) + (and width (TeX-argument-insert width t)) + (and inpos (TeX-argument-insert inpos t)))) + (when auto-fill-function (LaTeX-fill-paragraph)) + ;; Insert label -- a new line is inserted only if label is there: + (when (and (not label-inside) (not star) + (save-excursion (LaTeX-label currenv 'environment))) + (LaTeX-newline) + (indent-according-to-mode) + (end-of-line)))) + +(defun LaTeX-arg-bicaption-captionsetup (optional) + "Query for 2 arguments for \"\\captionsetup\" with bicaption.sty loaded. +When OPTIONAL is non-nil, include both as optional arguments in +square brackets." + (let* ((flttype (completing-read (TeX-argument-prompt optional nil "Float type") + LaTeX-caption-supported-float-types)) + (biflt (if (and (not (or (string= flttype "bi") + (string= flttype "bi-first") + (string= flttype "bi-second"))) + flttype (not (string= flttype ""))) + (completing-read (TeX-argument-prompt optional nil "Bicaption type") + '("bi" "bi-first" "bi-second")) + ""))) + (TeX-argument-insert flttype optional) + (TeX-argument-insert biflt optional))) + +(TeX-add-style-hook + "bicaption" + (lambda () + + ;; Load caption.el: + (TeX-run-style-hooks "caption") + + ;; Macros + (TeX-add-symbols + '("bicaption" (LaTeX-arg-bicaption-bicaption)) + '("bicaption*" (LaTeX-arg-bicaption-bicaption nil t)) + '("bicaptionbox" (LaTeX-arg-bicaption-bicaption nil nil t t) t) + '("bicaptionbox*" (LaTeX-arg-bicaption-bicaption nil t t) t) + '("bisubcaption" (LaTeX-arg-bicaption-bicaption "sub-")) + '("bisubcaption*" (LaTeX-arg-bicaption-bicaption "sub-" t)) + '("bisubcaptionbox" (LaTeX-arg-bicaption-bicaption "sub-" nil t t) t) + '("bisubcaptionbox*" (LaTeX-arg-bicaption-bicaption "sub-" t t t) t)) + + ;; \bi(sub)?caption(box)? macros should get their own lines + (LaTeX-paragraph-commands-add-locally '("bicaption" "bicaptionbox" + "bisubcaption" "bisubcaptionbox")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("bicaption" "*[{[{") + ("bicaptionbox" "*[{[{[[") + ("bisubcaption" "*[{[{") + ("bisubcaptionbox" "*[{[{[[")) + 'textual))) + TeX-dialect) + +(defun LaTeX-bicaption-package-options () + "Prompt for package options for the bicaption package." + (TeX-load-style "caption") + (TeX-read-key-val t + (append + `(,(list "language" + (cond ((and (member "babel" (TeX-style-list)) + (LaTeX-babel-active-languages)) + (butlast (LaTeX-babel-active-languages))) + ((and (member "polyglossia" (TeX-style-list)) + (LaTeX-polyglossia-active-languages)) + (butlast (LaTeX-babel-active-languages))) + (t nil)))) + LaTeX-bicaption-key-val-options + LaTeX-caption-key-val-options))) + +;;; bicaption.el ends here diff --git a/elpa/auctex-13.1.3/style/bicaption.elc b/elpa/auctex-13.1.3/style/bicaption.elc Binary files differnew file mode 100644 index 0000000..5a1f665 --- /dev/null +++ b/elpa/auctex-13.1.3/style/bicaption.elc diff --git a/elpa/auctex-13.1.3/style/bidi.el b/elpa/auctex-13.1.3/style/bidi.el new file mode 100644 index 0000000..1b17d60 --- /dev/null +++ b/elpa/auctex-13.1.3/style/bidi.el @@ -0,0 +1,196 @@ +;;; bidi.el --- AUCTeX style for the (XeLaTeX) bidi package -*- lexical-binding: t; -*- + +;; Copyright (C) 2016--2021 Free Software Foundation, Inc. + +;; Author: Uwe Brauer <oub@mat.ucm.es> +;; Created: 2016-03-06 +;; 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 the bidi package version 31.7 + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-bidi-package-options + '("RTLdocument" "rldocument" "extrafootnotefeatures") + "Package options for the bidi package.") + +(defun LaTeX-env-bidi-bib (environment) + "Insert bidi-ENVIRONMENT and a bibitem." + (LaTeX-insert-environment environment) + (end-of-line 0) + (delete-char 1) + (delete-horizontal-space) + (LaTeX-insert-item)) + +(TeX-add-style-hook + "bidi" + (lambda () + + ;; bidi.sty requires xelatex, so set the engine + (TeX-check-engine-add-engines 'xetex) + + ;; 1.4 Turning TeX--XeT features on and off + (TeX-add-symbols + '("TeXXeTOn" 0) + '("TeXXeTOff" 0)) + + ;; 1.5 Options of The Package: These macros rely on package option + ;; "extrafootnotefeatures". So check for it first + (when (LaTeX-provided-package-options-member "bidi" "extrafootnotefeatures") + (TeX-add-symbols + '("normalfootnotes" 0) + '("twocolumnfootnotes" 0) + '("threecolumnfootnotes" 0) + '("fourcolumnfootnotes" 0) + '("fivecolumnfootnotes" 0) + '("sixcolumnfootnotes" 0) + '("sevencolumnfootnotes" 0) + '("eightcolumnfootnotes" 0) + '("ninecolumnfootnotes" 0) + '("tencolumnfootnotes" 0) + '("RTLcolumnfootnotes" 0) + '("LTRcolumnfootnotes" 0) + '("paragraphfootnotes" 0) + '("setLTRparagraphfootnotes" 0) + '("setRTLparagraphfootnotes" 0))) + + (TeX-add-symbols + ;; 1.6 Paragraph Switching Commands + '("setLTR" 0) + '("setRTL" 0) + '("setLR" 0) + '("setRL" 0) + '("unsetRL" 0) + '("unsetRTL" 0) + '("unsetLTR" 0) + + ;; 1.8 Typesetting Short LTR and RTL Texts + '("LR" 1) + '("LRE" 1) + '("RLE" 1) + '("RL" 1) + + ;; 1.9 Footnotes + '("LTRfootnote" + (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil) + t) + '("RTLfootnote" + (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil) + t) + '("setfootnoteRL" 0) + '("setfootnoteLR" 0) + '("unsetfootnoteRL" 0) + '("LTRthanks" 1) + '("RTLthanks" 1) + '("LTRfootnotetext" + (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil) + t) + '("RTLfootnotetext" + (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil) + t) + + ;; 1.9.1 Footnote Rule + '("autofootnoterule" 0) + '("rightfootnoterule" 0) + '("leftfootnoterule" 0) + '("LRfootnoterule" 0) + '("textwidthfootnoterule" 0) + '("SplitFootnoteRule" 0) + '("debugfootnotedirection" 0) + + ;; 1.10 Two Column Typesetting + '("RTLdblcol" 0) + '("LTRdblcol" 0) + + ;; 1.11 RTL cases + '("RTLcases" t) + + ;; 1.12 Typesetting Logos + '("XeTeX" 0) + '("XeLaTeX" 0) + + ;; 1.13 Separation Mark + '("SepMark" "Mark") + + ;; 1.20 \setLTRbibitems, \setRTLbibitems, and \setdefaultbibitems + ;; commands + '("setLTRbibitems" 0) + '("setRTLbibitems" 0) + '("setdefaultbibitems" 0) + + ;; 1.21 Typesetting margin par + '("setRTLmarginpar" 0) + '("setLTRmarginpar" 0) + '("setdefaultmarginpar" 0) + '("LTRmarginpar" [ "Left margin text" ] "Text") + '("RTLmarginpar" [ "Left margin text" ] "Text")) + + (LaTeX-add-environments + ;; 1.7 Pargraph Switching Environments + "LTR" + "RTL" + + ;; 1.18 LTRitems and RTLitems Environments + '("RTLitems" LaTeX-env-item) + '("LTRitems" LaTeX-env-item) + + ;; 1.19 LTRbibitems and RTLbibitems Environments + '("LTRbibitems" LaTeX-env-bidi-bib) + '("RTLbibitems" LaTeX-env-bidi-bib)) + + ;; Append "LTRbibitems" & "RTLbibitems" to `LaTeX-item-list': + (make-local-variable 'LaTeX-item-list) + (dolist (env '("LTRbibitems" "RTLbibitems")) + (add-to-list 'LaTeX-item-list `(,env . LaTeX-item-bib) t)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("LR" "{") + ("LRE" "{") + ("RLE" "{") + ("RL" "{") + ("LTRthanks" "{") + ("RTLthanks" "{")) + 'textual) + (font-latex-add-keywords '(("LTRfootnote" "[{") + ("RTLfootnote" "[{") + ("LTRfootnotetext" "[{") + ("RTLfootnotetext" "[{") + ("LTRmarginpar" "[{") + ("RTLmarginpar" "[{")) + 'reference) + (font-latex-add-keywords '(("XeTeX" "") + ("XeLaTeX" "") + ("SepMark" "{")) + 'function))) + TeX-dialect) + +;;; bidi.el ends here diff --git a/elpa/auctex-13.1.3/style/bidi.elc b/elpa/auctex-13.1.3/style/bidi.elc Binary files differnew file mode 100644 index 0000000..36c3eb1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/bidi.elc diff --git a/elpa/auctex-13.1.3/style/bidibeamer.el b/elpa/auctex-13.1.3/style/bidibeamer.el new file mode 100644 index 0000000..f6d2e3a --- /dev/null +++ b/elpa/auctex-13.1.3/style/bidibeamer.el @@ -0,0 +1,42 @@ +;;; bidibeamer.el --- AUCTeX style for the bidibeamer class -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2020 Free Software Foundation + +;; Author: Tassilo Horn <tsdh@gnu.org> +;; Created: 2015-03-08 +;; 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 the bidibeamer class which offers the same +;; functionality and interface as latex-beamer, so we simply call the style +;; hook of the latter. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "bidibeamer" + (lambda () + (TeX-run-style-hooks "beamer")) + TeX-dialect) + +;;; bidibeamer.el ends here diff --git a/elpa/auctex-13.1.3/style/bidibeamer.elc b/elpa/auctex-13.1.3/style/bidibeamer.elc Binary files differnew file mode 100644 index 0000000..9b703c4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/bidibeamer.elc diff --git a/elpa/auctex-13.1.3/style/bigdelim.el b/elpa/auctex-13.1.3/style/bigdelim.el new file mode 100644 index 0000000..cb54da7 --- /dev/null +++ b/elpa/auctex-13.1.3/style/bigdelim.el @@ -0,0 +1,101 @@ +;;; bigdelim.el --- AUCTeX style for `bigdelim.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2011--2021 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2011-01-24 +;; 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 `bigdelim.sty', v2.6 from 2021/01/02. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defun TeX-arg-bigdelim-brace (optional side &optional prompt) + "Prompt for a single brace, and do not insert the matching one. +If OPTIONAL is non-nil, include the argument only if not empty. +SIDE is one of the symbols `left' or `right'. PROMPT replaces the +standard one." + (let* ((brace (completing-read + (TeX-argument-prompt optional prompt "Brace") + (if (eq side 'left) + '("(" "[" "{" "\\langle" "|" "\\|" "\\lceil" "\\lfloor") + '(")" "]" "}" "\\rangle" "|" "\\|" "\\rceil" "\\rfloor")))) + (TeX-arg-opening-brace (if (member (substring brace 0 1) + `("{" "}" ,TeX-esc)) + "" + TeX-grop)) + (TeX-arg-closing-brace (if (string= TeX-arg-opening-brace TeX-grop) + TeX-grcl + ""))) + (TeX-argument-insert brace optional (when (member brace '("{" "}")) + TeX-esc)))) + +(TeX-add-style-hook + "bigdelim" + (lambda () + + (TeX-run-style-hooks "multirow") + + (TeX-add-symbols + '("ldelim" + (TeX-arg-bigdelim-brace left) + "Number of rows for multirow" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Width in multirow") + (append + '("*") + (mapcar (lambda (x) + (concat TeX-esc (car x))) + (LaTeX-length-list)))) + [ "Text in multirow" ]) + '("rdelim" + (TeX-arg-bigdelim-brace right) + "Number of rows for multirow" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Width in multirow") + (append + '("*") + (mapcar (lambda (x) + (concat TeX-esc (car x))) + (LaTeX-length-list)))) + [ "Text in multirow" ])) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("ldelim" "|{\\{{[") + ("rdelim" "|{\\{{[")) + 'function))) + TeX-dialect) + +(defvar LaTeX-bigdelim-package-options nil + "Package options for the bigdelim package.") + +;;; bigdelim.el ends here diff --git a/elpa/auctex-13.1.3/style/bigdelim.elc b/elpa/auctex-13.1.3/style/bigdelim.elc Binary files differnew file mode 100644 index 0000000..80d2509 --- /dev/null +++ b/elpa/auctex-13.1.3/style/bigdelim.elc diff --git a/elpa/auctex-13.1.3/style/bigstrut.el b/elpa/auctex-13.1.3/style/bigstrut.el new file mode 100644 index 0000000..8324da3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/bigstrut.el @@ -0,0 +1,68 @@ +;;; bigstrut.el --- AUCTeX style for `bigstrut.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2012, 2014--2021 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; 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 `bigstrut.sty', v2.6 from 2021/01/02. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "bigstrut" + (lambda () + (TeX-add-symbols + '("bigstrut" [ TeX-arg-bigstrut ])) + + (LaTeX-add-lengths "bigstrutjot") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("bigstrut" "[")) + 'function))) + TeX-dialect) + +(defun TeX-arg-bigstrut (optional &optional prompt) + "Prompt for the optional argument in \\bigstrut. +If OPTIONAL is non-nil, insert the argument in brackets. PROMPT +replaces the standard one." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt + optional prompt "Strut to top (t) or bottom (b)") + '("t" "b")) + optional)) + +(defvar LaTeX-bigstrut-package-options nil + "Package options for the bigstrut package.") + +;;; bigstrut.el ends here diff --git a/elpa/auctex-13.1.3/style/bigstrut.elc b/elpa/auctex-13.1.3/style/bigstrut.elc Binary files differnew file mode 100644 index 0000000..41ddb59 --- /dev/null +++ b/elpa/auctex-13.1.3/style/bigstrut.elc diff --git a/elpa/auctex-13.1.3/style/bm.el b/elpa/auctex-13.1.3/style/bm.el new file mode 100644 index 0000000..7b9cd11 --- /dev/null +++ b/elpa/auctex-13.1.3/style/bm.el @@ -0,0 +1,62 @@ +;;; bm.el --- AUCTeX style for `bm.sty'. -*- lexical-binding: t; -*- + +;; Copyright (C) 2012, 2018, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <giordano.mose@libero.it> +;; 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 `bm.sty'. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook "bm" + (lambda () + (TeX-add-symbols + '("bm" 1) + '("hm" 1) + '("DeclareBoldMathCommand" [ "Math version" ] TeX-arg-define-macro "Math expression") + '("bmdefine" TeX-arg-define-macro "Math expression") + '("hmdefine" TeX-arg-define-macro "Math expression")) + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("bm" "{") + ("hm" "{")) + 'bold-command) + (font-latex-add-keywords '(("DeclareBoldMathCommand" "[|{\\{") + ("bmdefine" "|{\\{") + ("hmdefine" "|{\\{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-bm-package-options nil + "Package options for the bm package.") + +;; bm.el ends here diff --git a/elpa/auctex-13.1.3/style/bm.elc b/elpa/auctex-13.1.3/style/bm.elc Binary files differnew file mode 100644 index 0000000..92cfc41 --- /dev/null +++ b/elpa/auctex-13.1.3/style/bm.elc diff --git a/elpa/auctex-13.1.3/style/book.el b/elpa/auctex-13.1.3/style/book.el new file mode 100644 index 0000000..4a23d25 --- /dev/null +++ b/elpa/auctex-13.1.3/style/book.el @@ -0,0 +1,24 @@ +;;; book.el - Special code for book style. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-book-class-options + '("a4paper" "a5paper" "b5paper" "letterpaper" "legalpaper" "executivepaper" + "landscape" "10pt" "11pt" "12pt" "oneside" "twoside" "draft" "final" + "titlepage" "notitlepage" "openright" "openany" "onecolumn" "twocolumn" + "leqno" "fleqn" "openbib") + "Package options for the book class.") + +(TeX-add-style-hook + "book" + (lambda () + (LaTeX-largest-level-set "part") + (LaTeX-add-counters "part" "chapter" "section" "subsection" "subsubsection" + "paragraph" "subparagraph" "figure" "table") + (LaTeX-add-pagestyles "headings" "myheadings")) + TeX-dialect) + +;;; book.el ends here diff --git a/elpa/auctex-13.1.3/style/book.elc b/elpa/auctex-13.1.3/style/book.elc Binary files differnew file mode 100644 index 0000000..011a385 --- /dev/null +++ b/elpa/auctex-13.1.3/style/book.elc diff --git a/elpa/auctex-13.1.3/style/booktabs.el b/elpa/auctex-13.1.3/style/booktabs.el new file mode 100644 index 0000000..79571ea --- /dev/null +++ b/elpa/auctex-13.1.3/style/booktabs.el @@ -0,0 +1,86 @@ +;;; booktabs.el -- AUCTeX style for booktabs.sty -*- lexical-binding: t; -*- + +;; Copyright (C) 2003, 2004, 2013, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@iwi.uni-sb.de> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2003-10-21 +;; 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 `booktabs.sty'. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defun LaTeX-booktabs-arg-paren (optional prompt) + "Prompt for a value and use parentheses when it is inserted. +If OPTIONAL is non-nil the parameter is labeled as optional. +PROMPT is the value of the prompt to be shown." + (let ((TeX-arg-opening-brace "(") + (TeX-arg-closing-brace ")")) + (TeX-parse-argument optional prompt))) + +(TeX-add-style-hook + "booktabs" + (lambda () + ;; Do not append an empty group to toprule, midrule, and bottomrule macros, + ;; otherwise one gets a wrong spacing in the table. + (setq TeX-insert-braces-alist (append TeX-insert-braces-alist + '(("toprule" . nil) + ("midrule" . nil) + ("bottomrule" . nil)))) + ;; New symbols + (TeX-add-symbols + '("toprule" [ "Thickness" ]) + '("midrule" [ "Thickness" ]) + '("bottomrule" [ "Thickness" ]) + ;; The `ignore' resets `TeX-last-optional-rejected' to nil so that the trim + ;; argument is prompted also when the thickness is skipped. + '("cmidrule" [ "Thickness" ] (ignore) [ LaTeX-booktabs-arg-paren "Trim" ] + "Column(s)") + '("addlinespace" [ "Height" ]) + '("morecmidrules") + '("specialrule" "Thickness" "Space above" "Space below")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("toprule" "[") + ("midrule" "[") + ("bottomrule" "[") + ("cmidrule" "[({") + ("addlinespace" "[") + ("morecmidrules" "") + ("specialrule" "{{{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-booktabs-package-options nil + "Package options for the booktabs package.") + +;;; booktabs.el ends here diff --git a/elpa/auctex-13.1.3/style/booktabs.elc b/elpa/auctex-13.1.3/style/booktabs.elc Binary files differnew file mode 100644 index 0000000..84a75c9 --- /dev/null +++ b/elpa/auctex-13.1.3/style/booktabs.elc diff --git a/elpa/auctex-13.1.3/style/brazil.el b/elpa/auctex-13.1.3/style/brazil.el new file mode 100644 index 0000000..353e771 --- /dev/null +++ b/elpa/auctex-13.1.3/style/brazil.el @@ -0,0 +1,37 @@ +;;; brazil.el --- Setup AUCTeX for editing Brazilian text. -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-05-02 +;; 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. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "brazil" + (lambda () + (TeX-run-style-hooks "brazilian")) + TeX-dialect) + +;;; brazil.el ends here diff --git a/elpa/auctex-13.1.3/style/brazil.elc b/elpa/auctex-13.1.3/style/brazil.elc Binary files differnew file mode 100644 index 0000000..74d94bd --- /dev/null +++ b/elpa/auctex-13.1.3/style/brazil.elc diff --git a/elpa/auctex-13.1.3/style/brazilian.el b/elpa/auctex-13.1.3/style/brazilian.el new file mode 100644 index 0000000..c1ae802 --- /dev/null +++ b/elpa/auctex-13.1.3/style/brazilian.el @@ -0,0 +1,77 @@ +;;; brazilian.el --- Setup AUCTeX for editing Brazilian text. -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-05-02 +;; 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: + +;; Cater for some specialities of Brazilian and Portuguese languages +;; provided by babel package, e.g. special quote and hyphen strings or +;; `"' which is an active character. + +;; Thanks to Gustavo Barros <gusbrs.2016@gmail.com> for requesting +;; this feature and reviewing the code. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-quotes + "font-latex" + (quotes)) + +(declare-function font-latex-add-to-syntax-alist + "font-latex" + (list)) + +(defvar LaTeX-brazilian-mode-syntax-table + (copy-syntax-table LaTeX-mode-syntax-table) + "Syntax table used in LaTeX mode when using `brazilian' language.") + +(modify-syntax-entry ?\" "w" LaTeX-brazilian-mode-syntax-table) + +(TeX-add-style-hook + "brazilian" + (lambda () + (set-syntax-table LaTeX-brazilian-mode-syntax-table) + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language nil)) + (setq LaTeX-babel-hyphen-language "brazilian") + (TeX-add-symbols + "ord" + "ro" + "orda" + "ra") + ;; Fontification + (when (and (eq TeX-install-font-lock 'font-latex-setup) + (featurep 'font-latex)) + (font-latex-add-quotes '("\"<" "\">" french)) + ;; Prevent "| from leading to color bleed. + (font-latex-add-to-syntax-alist (list (cons ?\" "\\")))) + (run-hooks 'TeX-language-pt-br-hook)) + TeX-dialect) + +;;; brazilian.el ends here diff --git a/elpa/auctex-13.1.3/style/brazilian.elc b/elpa/auctex-13.1.3/style/brazilian.elc Binary files differnew file mode 100644 index 0000000..9112924 --- /dev/null +++ b/elpa/auctex-13.1.3/style/brazilian.elc diff --git a/elpa/auctex-13.1.3/style/breqn.el b/elpa/auctex-13.1.3/style/breqn.el new file mode 100644 index 0000000..0352055 --- /dev/null +++ b/elpa/auctex-13.1.3/style/breqn.el @@ -0,0 +1,141 @@ +;;; breqn.el --- AUCTeX style for `breqn.sty' (v0.98j) -*- lexical-binding: t; -*- + +;; Copyright (C) 2017--2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-01-06 +;; 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 `breqn.sty' (v0.98j) from 2020/04/19. +;; `breqn.sty' is part of TeXLive. + +;; In breqn documentation, there is the following statement: +;; +;; 9 Various environment options +;; +;; Use of the normal \label command instead of the label option +;; works, I think, most of the time (untested). +;; +;; To be on the safe side, a label should be written in the optional +;; argument of an environment as value to the `label' key, e.g.: +;; +;; \begin{dmath}[label={eq:42}] +;; ... +;; \end{dmath} +;; +;; This style achieves this requirement by using the function +;; `LaTeX-env-label-as-keyval'. + +;;; Code: + +(require 'latex) + +(defvar LaTeX-breqn-key-val-options + '(("style" ("\\tiny" "\\scriptsize" "\\footnotesize" "\\small" + "\\normalsize" "\\large" "\\Large" "\\LARGE" + "\\huge" "\\Huge")) + ("number") + ("indentstep") + ("compact") + ("spread") + ("frame") + ("framesep") + ("breakdepth")) + "Key=value options for breqn environments. +The keys \"label\" and \"labelprefix\" are omitted.") + +(defvar LaTeX-breqn-key-val-label-regexp + `(,(concat + "\\\\begin{" + (regexp-opt '("dmath" "dseries" "dgroup" "darray")) + "}" + (LaTeX-extract-key-value-label)) + 1 LaTeX-auto-label) + "Matches the label inside an optional argument after \\begin{<breqn-env's>}.") + +(defun LaTeX-breqn-env (env) + "Insert ENV from breqn package incl. optional key=val argument. +Keys offered for key=val query depend on ENV. \"label\" and +\"labelprefix\" are omitted." + (let ((keyvals + (TeX-read-key-val t + (cond ((or (string= env "dgroup") + (string= env "dgroup*")) + (append '(("noalign") ("brace")) + LaTeX-breqn-key-val-options)) + ((or (string= env "darray") + (string= env "darray*")) + (append '(("noalign") ("brace") ("cols" ("{}"))) + LaTeX-breqn-key-val-options)) + (t LaTeX-breqn-key-val-options))))) + (LaTeX-insert-environment env (when (and keyvals + (not (string= keyvals ""))) + (concat LaTeX-optop keyvals LaTeX-optcl))) + (LaTeX-env-label-as-keyval nil nil keyvals env))) + +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "breqn" + (lambda () + + ;; Add breqn to parser: + (TeX-auto-add-regexp LaTeX-breqn-key-val-label-regexp) + + ;; Tell AUCTeX that we want to prefix the labels with `LaTeX-equation-label': + (let ((envs '("dmath" "dseries" "dgroup" "darray"))) + (dolist (env envs) + (add-to-list 'LaTeX-label-alist `(,env . LaTeX-equation-label) t))) + + ;; For RefTeX, we must distinguish between equation and eqnarray-like: + ;; breqn env == equivalent -- starred + ;; dmath == equation -- dmath* == unnumbered + ;; dseries == equation -- dseries* == unnumbered + ;; dgroup == align -- dgroup* == unnumbered + ;; darray == eqnarray -- darray* == unnumbered + (when (fboundp 'reftex-add-label-environments) + (dolist (env '("dmath" "dseries" "dgroup")) + (reftex-add-label-environments `((,env ?e nil nil t)))) + (reftex-add-label-environments '(("darray" ?e nil nil eqnarray-like)))) + + (LaTeX-add-environments + '("dmath" LaTeX-breqn-env) + '("dmath*" LaTeX-breqn-env) + '("dseries" LaTeX-breqn-env) + '("dseries*" LaTeX-breqn-env) + '("dgroup" LaTeX-breqn-env) + '("dgroup*" LaTeX-breqn-env) + '("darray" LaTeX-breqn-env) + '("darray*" LaTeX-breqn-env) + '("dsuspend")) + + (TeX-add-symbols + '("condition" [ "Punctuation mark (default ,)" ] t) + '("condition*" [ "Punctuation mark (default ,)" ] t) + '("hiderel" t))) + TeX-dialect) + +(defvar LaTeX-breqn-package-options nil + "Package options for the breqn package.") + +;;; breqn.el ends here diff --git a/elpa/auctex-13.1.3/style/breqn.elc b/elpa/auctex-13.1.3/style/breqn.elc Binary files differnew file mode 100644 index 0000000..3ce5fbb --- /dev/null +++ b/elpa/auctex-13.1.3/style/breqn.elc diff --git a/elpa/auctex-13.1.3/style/bulgarian.el b/elpa/auctex-13.1.3/style/bulgarian.el new file mode 100644 index 0000000..d571a5f --- /dev/null +++ b/elpa/auctex-13.1.3/style/bulgarian.el @@ -0,0 +1,63 @@ +;;; bulgarian.el --- AUCTeX style for the `bulgarian' babel option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2008, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2008-06-28 +;; 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: + +;; Set up AUCTeX for editing Bulgarian text in connection with the +;; `bulgarian' babel option. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-quotes + "font-latex" + (quotes)) + +(defvar LaTeX-bulgarian-mode-syntax-table + (copy-syntax-table LaTeX-mode-syntax-table) + "Syntax table used in LaTeX mode when using `bulgarian.sty'.") + +(modify-syntax-entry ?\" "w" LaTeX-bulgarian-mode-syntax-table) + +(TeX-add-style-hook + "bulgarian" + (lambda () + (set-syntax-table LaTeX-bulgarian-mode-syntax-table) + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language + `("bulgarian" "\"`" "\"'" ,TeX-quote-after-quote))) + (setq LaTeX-babel-hyphen-language "bulgarian") + ;; Fontification of quotation marks. + (when (fboundp 'font-latex-add-quotes) + (font-latex-add-quotes '("\"`" "\"'")) + (font-latex-add-quotes '("\"<" "\">" french))) + (run-hooks 'TeX-language-bg-hook)) + TeX-dialect) + +;;; bulgarian.el ends here diff --git a/elpa/auctex-13.1.3/style/bulgarian.elc b/elpa/auctex-13.1.3/style/bulgarian.elc Binary files differnew file mode 100644 index 0000000..3203318 --- /dev/null +++ b/elpa/auctex-13.1.3/style/bulgarian.elc diff --git a/elpa/auctex-13.1.3/style/canadian.el b/elpa/auctex-13.1.3/style/canadian.el new file mode 100644 index 0000000..9066fc2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/canadian.el @@ -0,0 +1,42 @@ +;;; canadian.el --- AUCTeX style for the `canadian' babel option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2017, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-07-02 +;; 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: + +;; Set up AUCTeX for editing Canadian text in connection with the +;; `canadian' babel option. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "canadian" + (lambda () + (TeX-run-style-hooks "english")) + TeX-dialect) + +;;; canadian.el ends here diff --git a/elpa/auctex-13.1.3/style/canadian.elc b/elpa/auctex-13.1.3/style/canadian.elc Binary files differnew file mode 100644 index 0000000..6f7d6db --- /dev/null +++ b/elpa/auctex-13.1.3/style/canadian.elc diff --git a/elpa/auctex-13.1.3/style/cancel.el b/elpa/auctex-13.1.3/style/cancel.el new file mode 100644 index 0000000..765fe68 --- /dev/null +++ b/elpa/auctex-13.1.3/style/cancel.el @@ -0,0 +1,63 @@ +;;; cancel.el --- AUCTeX style for `cancel.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-11-24 +;; 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 Street, Fifth Floor, Boston, +;; MA 02110-1301 USA. + +;;; Commentary: + +;; This file adds support for `cancel.sty' v2.2 form 2013-04-12. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "cancel" + (lambda () + (TeX-add-symbols + '("cancel" "Expression") + '("bcancel" "Expression") + '("xcancel" "Expression") + '("cancelto" "Value" "Expression") + "CancelColor") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("cancel" "|{\\") + ("bcancel" "|{\\") + ("xcancel" "|{\\")) + 'textual))) + TeX-dialect) + +(defvar LaTeX-cancel-package-options + '("thicklines" "samesize" "smaller" "Smaller") + "Package options for the cancel package.") + +;;; cancel.el ends here diff --git a/elpa/auctex-13.1.3/style/cancel.elc b/elpa/auctex-13.1.3/style/cancel.elc Binary files differnew file mode 100644 index 0000000..33e0dd9 --- /dev/null +++ b/elpa/auctex-13.1.3/style/cancel.elc diff --git a/elpa/auctex-13.1.3/style/captcont.el b/elpa/auctex-13.1.3/style/captcont.el new file mode 100644 index 0000000..5bf1ba1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/captcont.el @@ -0,0 +1,54 @@ +;; captcont.el --- AUCTeX style file for captcont.sty -*- lexical-binding: t; -*- + +;; Copyright (C) 2003, 2005, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Reiner Steib <Reiner.Steib@gmx.de> +;; Maintainer: auctex-devel@gnu.org +;; 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: + +;; AUCTeX style file for captcont.sty + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "captcont" + (lambda () + (TeX-add-symbols + '("captcont" [ "list entry" ] "Caption") + '("captcont*" [ "list entry" ] "Caption")) + ;; Fontification + (when (featurep 'font-latex) + (font-latex-add-keywords '(("captcont" "*[{")) 'textual))) + TeX-dialect) + +(defvar LaTeX-captcont-package-options '("figbotcap" "figtopcap" "tabbotcap" + "tabtopcap") + "Package options for the captcont package.") + +;;; captcont.el ends here diff --git a/elpa/auctex-13.1.3/style/captcont.elc b/elpa/auctex-13.1.3/style/captcont.elc Binary files differnew file mode 100644 index 0000000..144f812 --- /dev/null +++ b/elpa/auctex-13.1.3/style/captcont.elc diff --git a/elpa/auctex-13.1.3/style/caption.el b/elpa/auctex-13.1.3/style/caption.el new file mode 100644 index 0000000..134157a --- /dev/null +++ b/elpa/auctex-13.1.3/style/caption.el @@ -0,0 +1,491 @@ +;;; caption.el --- AUCTeX style for `caption.sty' (v3.4a) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-02-21 +;; 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 `caption.sty' (v3.4a) from 2019/10/18. +;; `caption.sty' is part of TeXLive. + +;; If things do not work or when in doubt, press `C-c C-n'. Comments +;; for improvement are welcome. + +;;; Code: + +(eval-when-compile + (require 'cl-lib)) + +;; Needed for compiling `LaTeX-check-insert-macro-default-style': +(require 'latex) + +;; Needed for auto-parsing: +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function LaTeX-babel-active-languages "babel" ()) +(declare-function LaTeX-polyglossia-active-languages "polyglossia" ()) +(declare-function LaTeX-newfloat-DeclareFloatingEnvironment-list + "newfloat" ()) + +(defvar LaTeX-bicaption-key-val-options) +(defvar LaTeX-subcaption-key-val-options) + +(defvar LaTeX-caption-key-val-options + '(("aboveskip") + ("belowskip") + ("font" ("scriptsize" "footnotesize" "small" "normalsize" "large" + "Large" "normalfont" "up" "it" "sl" "sc" "md" "bf" "rm" + "sf" "tt" "singlespacing" "onehalfspacing" "doublespacing" + "stretch" "normalcolor" "color" "normal")) + ("font+" ("scriptsize" "footnotesize" "small" "normalsize" "large" + "Large" "normalfont" "up" "it" "sl" "sc" "md" "bf" "rm" + "sf" "tt" "singlespacing" "onehalfspacing" "doublespacing" + "stretch" "normalcolor" "color" "normal")) + ("format" ("plain" "hang")) + ("hangindent") + ("hypcap" ("false" "no" "off" "0" "true" "yes" "on" "1")) + ("hypcapspace") + ("indention") + ("justification" ("justified" "centering" "centerlast" "centerfirst" + "raggedright" "RaggedRight" "raggedleft")) + ("labelfont" ("scriptsize" "footnotesize" "small" "normalsize" "large" + "Large" "normalfont" "up" "it" "sl" "sc" "md" "bf" "rm" + "sf" "tt" "singlespacing" "onehalfspacing" "doublespacing" + "stretch" "normalcolor" "color" "normal")) + ("labelfont+" ("scriptsize" "footnotesize" "small" "normalsize" "large" + "Large" "normalfont" "up" "it" "sl" "sc" "md" "bf" "rm" + "sf" "tt" "singlespacing" "onehalfspacing" "doublespacing" + "stretch" "normalcolor" "color" "normal")) + ("labelformat" ("default" "empty" "simple" "brace" "parens" + "autodot" "unnumbered")) + ("labelsep" ("none" "colon" "period" "space" "quad" "newline" "endash")) + ("list" ("false" "no" "off" "0" "true" "yes" "on" "1")) + ("listformat" ("empty" "simple" "paren" "subsimple" "subparens")) + ("margin") + ("margin*") + ("maxmargin") + ("minmargin") + ("name") + ("oneside") + ("parindent") + ("parskip") + ("position" ("top" "above" "bottom" "below" "auto")) + ("singlelinecheck" ("false" "no" "off" "0" "true" "yes" "on" "1")) + ("slc" ("false" "no" "off" "0" "true" "yes" "on" "1")) + ("skip") + ("strut" ("false" "no" "off" "0" "true" "yes" "on" "1")) + ("style" ("base" "default")) + ("textfont" ("scriptsize" "footnotesize" "small" "normalsize" "large" + "Large" "normalfont" "up" "it" "sl" "sc" "md" "bf" "rm" + "sf" "tt" "singlespacing" "onehalfspacing" "doublespacing" + "stretch" "normalcolor" "color" "normal")) + ("textfont+" ("scriptsize" "footnotesize" "small" "normalsize" "large" + "Large" "normalfont" "up" "it" "sl" "sc" "md" "bf" "rm" + "sf" "tt" "singlespacing" "onehalfspacing" "doublespacing" + "stretch" "normalcolor" "color" "normal")) + ("textformat" ("empty" "simple" "period")) + ("twoside") + ("type" ("figure" "table")) + ("type*" ("figure" "table")) + ("width")) + "Key=value options for caption macros.") + +(defun LaTeX-caption-key-val-options () + "Return an updated list of key=vals from caption package. +The key=val list will also contain elements from subcaption +package if loaded." + ;; Update the style list once so we don't run this function more + ;; than once: + (TeX-style-list) + (append + ;; Check if `subcaption.el' is loaded: + (when (member "subcaption" TeX-active-styles) + ;; If loaded, update also the entry for `subrefformat' when + ;; processing the `labelformat'. `subrefformat' keys takes the + ;; same values as `labelformat'. We have to check if we have an + ;; entry for `\DeclareCaptionLabelFormat', otherwise there is no + ;; need to run this procedure: + (if (and (LaTeX-caption-DeclareCaption-list) + (string-match + "\\\\DeclareCaptionLabelFormat" + (mapconcat #'identity + (mapcar #'car + (LaTeX-caption-DeclareCaption-list)) + "|"))) + (progn + (let (result) + (dolist (keyvals (LaTeX-caption-DeclareCaption-list) result) + (when (string-equal (nth 1 keyvals) "LabelFormat") + (let* ((key "subrefformat") + (val (nth 2 keyvals)) + (vals-predefined + (cadr (assoc key + LaTeX-subcaption-key-val-options))) + (vals-parsed + (cadr (assoc key result)))) + (cl-pushnew (list key (TeX-delete-duplicate-strings + (append vals-predefined + vals-parsed + (list val)))) + result :test #'equal)))))) + LaTeX-subcaption-key-val-options)) + ;; Check if `bicaption.el' is loaded: + (when (member "bicaption" TeX-active-styles) + (append + (cond ((and (member "babel" TeX-active-styles) + (LaTeX-babel-active-languages)) + `(,(list "language" + (butlast (LaTeX-babel-active-languages))))) + ((and (member "polyglossia" TeX-active-styles) + (LaTeX-polyglossia-active-languages)) + `(,(list "language" + (butlast (LaTeX-polyglossia-active-languages))))) + (t nil)) + LaTeX-bicaption-key-val-options)) + ;; Support for environments defined with `newfloat.sty': These + ;; environments are added to `type' and `type*' keys: + (when (and (member "newfloat" TeX-active-styles) + (LaTeX-newfloat-DeclareFloatingEnvironment-list)) + (let (result) + (dolist (key '("type" "type*") result) + (let ((val (mapcar #'car + (LaTeX-newfloat-DeclareFloatingEnvironment-list))) + (vals-predefined + (cadr (assoc key LaTeX-caption-key-val-options)))) + (cl-pushnew (list key (TeX-delete-duplicate-strings + (append vals-predefined + val))) + result :test #'equal))))) + ;; Update to standard key-vals from `caption.el': + (when (LaTeX-caption-DeclareCaption-list) + (let (result) + (dolist (keyvals (LaTeX-caption-DeclareCaption-list) result) + (let* ((key (if (string-equal (nth 1 keyvals) "LabelSeparator") + (downcase (substring (nth 1 keyvals) 0 8)) + (downcase (nth 1 keyvals)))) + (val (nth 2 keyvals)) + (vals-predefined + (cadr (assoc key LaTeX-caption-key-val-options))) + (vals-parsed (cadr (assoc key result)))) + ;; For `\DeclareCaptionOption', only add the value + ;; (remember: key=^^^^^^, val="defined key") + (if (string-equal key "option") + (cl-pushnew (list val) result :test #'equal) + (cl-pushnew (list key (TeX-delete-duplicate-strings + (append vals-predefined + vals-parsed + (list val)))) + result :test #'equal)))))) + LaTeX-caption-key-val-options)) + +(defvar LaTeX-caption-supported-float-types + '("figure" "table" "ContinuedFloat" ; Standard caption.sty + "sub" "subtable" "subfigure" ; subcaption.sty + "bi" "bi-first" "bi-second" ; bicaption.sty + "ruled" "boxed" ; float.sty + "floatingfigure" "floatingtable" ; floatflt.sty + "lstlisting" ; listings.sty + "longtable" ; longtable.sty + "figwindow" "tabwindow" ; picinpar.sty + "parpic" ; picins.sty + "SCfigure" "SCtable" ; sidecap.sty + "supertabular" "xtabular" ; supertabular.sty & xtab.sty + "threeparttable" "measuredfigure" ; threeparttable.sty + "wrapfigure" "wraptable") ; wrapfigure.sty + "List of float types supported by `caption.sty'. +These types are provided by other LaTeX packages.") + +;; Setup for various \DeclareCaption's: +(TeX-auto-add-type "caption-DeclareCaption" "LaTeX") + +;; The 2. argument to `DeclareCaption[A-Za-z]' contains (La)TeX code. +;; We deliberately ignore that argument in our regex since it is not +;; needed for this style and would pollute the auto generated +;; `docname.el' file. +(defvar LaTeX-caption-DeclareCaption-regexp + `(,(concat "\\\\DeclareCaption\\(Font\\|Format\\|Justification" + "\\|LabelFormat\\|LabelSeparator\\|ListFormat" + "\\|Option\\|Style\\|TextFormat\\)" + "\\*?" + "[ \t\n\r%]*" + "{\\([^}]+\\)}") + (0 1 2) LaTeX-auto-caption-DeclareCaption) + "Matches the arguments of different `\\DeclareCaption*' from `caption.sty'.") + +(defun LaTeX-caption-auto-prepare () + "Clear `LaTeX-auto-caption-DeclareCaption' before parsing." + (setq LaTeX-auto-caption-DeclareCaption nil)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-caption-auto-prepare t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +;; In `LaTeX-caption-DeclareCaption-regexp', we match (0 1 2). When +;; adding a new `Name', we need something unique for `0'-match until +;; the next `C-c C-n'. We mimic that regex-match bei concat'ing the +;; elements. It will vanish upon next `C-c C-n'. +(defun LaTeX-arg-caption-DeclareCaption (optional format) + "Insert various `\\DeclareCaptionFORMAT' commands. +If OPTIONAL, insert argument in square brackets. FORMAT is the +suffix of the LaTeX macro." + (let ((name (TeX-read-string "Name: "))) + (LaTeX-add-caption-DeclareCaptions + (list (concat "\\DeclareCaption" format "{" name "}") + format name)) + (TeX-argument-insert name optional))) + +;; Support for an undocumented feature of caption.sty: +;; `\captionbox' sets the width of the caption equal to the width of +;; the contents (a feature provided e.g. by `threeparttable.sty'). +;; The starred version typesets the caption without label and without +;; entry to the list of figures or tables. + +;; The first mandatory argument {<heading>} contains the caption text +;; and the label. We used to use `TeX-insert-macro' to do the job +;; (Thanks to M. Giordano for his valuable comments on this!), but now +;; moved to `LaTeX-label'. + +;; Syntax: +;; \captionbox[<list entry>]{<heading>}[<width>][<inner-pos>]{<contents>} +;; \captionbox*{<heading>}[<width>][<inner-pos>]{<contents>} + +(defun LaTeX-arg-caption-captionbox (optional &optional star) + "Query for the arguments of \"\\captionbox\" incl. a label and insert them. +If OPTIONAL is non-nil, indicate it while reading the caption. +If STAR is non-nil, then do not query for a \\label and a short +caption, insert only a caption." + (let* ((currenv (LaTeX-current-environment)) + (caption (TeX-read-string + (TeX-argument-prompt optional nil "Caption"))) + (short-caption + (when (and (not star) + (>= (length caption) LaTeX-short-caption-prompt-length)) + (TeX-read-string + (TeX-argument-prompt t nil "Short caption"))))) + (indent-according-to-mode) + (when (and short-caption (not (string= short-caption ""))) + (insert LaTeX-optop short-caption LaTeX-optcl)) + (insert TeX-grop caption) + (unless star (LaTeX-label currenv 'environment)) + (insert TeX-grcl)) + (let* ((TeX-arg-opening-brace "[") + (TeX-arg-closing-brace "]") + (TeX-last-optional-rejected nil) + (width (LaTeX-check-insert-macro-default-style + (completing-read (TeX-argument-prompt t nil "Width") + (mapcar (lambda (elt) (concat TeX-esc (car elt))) + (LaTeX-length-list))))) + (TeX-last-optional-rejected (or (not width) + (and width (string= width "")))) + (inpos (LaTeX-check-insert-macro-default-style + (if (and width (not (string-equal width ""))) + (completing-read (TeX-argument-prompt t nil "Inner position") + '("c" "l" "r" "s")) + "")))) + (and width (TeX-argument-insert width t)) + (and inpos (TeX-argument-insert inpos t))) + ;; Fill the paragraph before inserting {}. We can use + ;; `LaTeX-fill-paragraph' without messing up the code since + ;; \caption starts a new paragraph with AUCTeX + ;; (cf. `paragraph-start'). + (when auto-fill-function (LaTeX-fill-paragraph))) + +(defun LaTeX-arg-caption-captionof (optional &optional star) + "Query for the arguments of \"\\captionof\" macro and insert them. +If OPTIONAL is non-nil, insert the arguments in brackets. If +STAR is non-nil, do not query for a short-caption and a label." + (let* ((envtype (completing-read (TeX-argument-prompt optional nil "Float type") + LaTeX-caption-supported-float-types)) + (figtypes '("figure" "subfigure" "floatingfigure" + "figwindow" "SCfigure" "measuredfigure" "wrapfigure")) + (tabtypes '("table" "subtable" "floatingtable" "tabwindow" "SCtable" + "supertabular" "xtabular" "threeparttable" "wraptable")) + (caption (TeX-read-string + (TeX-argument-prompt optional nil "Caption"))) + (short-caption + (when (and (not star) + (>= (length caption) LaTeX-short-caption-prompt-length)) + (TeX-read-string + (TeX-argument-prompt t nil "Short caption"))))) + (indent-according-to-mode) + (TeX-argument-insert envtype optional) + (when (and short-caption (not (string= short-caption ""))) + (insert LaTeX-optop short-caption LaTeX-optcl)) + (TeX-argument-insert caption optional) + (when auto-fill-function (LaTeX-fill-paragraph)) + (when (and (not star) + ;; Check if `envtype' is a figure or a table, also + ;; consult `LaTeX-label-alist' for additions from user + ;; or newfloat.el, then run `LaTeX-label' w/ + ;; 'environment arg, otherwise w/o. + (save-excursion + (if (or (member envtype figtypes) + (member envtype tabtypes) + (assoc envtype LaTeX-label-alist)) + (LaTeX-label (cond ((member envtype figtypes) + "figure") + ((member envtype tabtypes) + "table") + (t envtype)) + 'environment) + (LaTeX-label envtype)))) + (LaTeX-newline) + (indent-according-to-mode) + (end-of-line)))) + +(TeX-add-style-hook + "caption" + (lambda () + + ;; Add caption to the parser. + (TeX-auto-add-regexp LaTeX-caption-DeclareCaption-regexp) + + ;; Caption commands: + (TeX-add-symbols + '("caption*" t) + + '("captionlistentry" + [TeX-arg-eval completing-read (TeX-argument-prompt t nil "Float type") + LaTeX-caption-supported-float-types] + t) + + '("captionof" LaTeX-arg-caption-captionof) + + '("captionof*" (LaTeX-arg-caption-captionof t)) + + '("captionsetup" + (TeX-arg-conditional (member "bicaption" (TeX-style-list)) + ([LaTeX-arg-bicaption-captionsetup]) + ([TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Float type") + LaTeX-caption-supported-float-types])) + (TeX-arg-key-val (LaTeX-caption-key-val-options))) + + '("captionsetup*" + (TeX-arg-conditional (member "bicaption" (TeX-style-list)) + ([LaTeX-arg-bicaption-captionsetup]) + ([TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Float type") + LaTeX-caption-supported-float-types])) + (TeX-arg-key-val (LaTeX-caption-key-val-options))) + + '("clearcaptionsetup" + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Single key") + (LaTeX-caption-key-val-options)] + (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Float type") + LaTeX-caption-supported-float-types)) + + '("clearcaptionsetup*" + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Single key") + (LaTeX-caption-key-val-options)] + (TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Float type") + LaTeX-caption-supported-float-types)) + + '("captionbox" (LaTeX-arg-caption-captionbox) t) + + '("captionbox*" (LaTeX-arg-caption-captionbox t) t) + + '("continuedfloat" 0) + '("continuedfloat*" 0) + + '("DeclareCaptionFont" + (LaTeX-arg-caption-DeclareCaption "Font") t) + + '("DeclareCaptionFormat" + (LaTeX-arg-caption-DeclareCaption "Format") t) + + '("DeclareCaptionFormat*" + (LaTeX-arg-caption-DeclareCaption "Format") t) + + '("DeclareCaptionJustification" + (LaTeX-arg-caption-DeclareCaption "Justification") t) + + '("DeclareCaptionLabelFormat" + (LaTeX-arg-caption-DeclareCaption "LabelFormat") t) + + '("DeclareCaptionLabelSeparator" + (LaTeX-arg-caption-DeclareCaption "LabelSeparator") t) + + '("DeclareCaptionLabelSeparator*" + (LaTeX-arg-caption-DeclareCaption "LabelSeparator") t) + + '("DeclareCaptionListFormat" + (LaTeX-arg-caption-DeclareCaption "ListFormat") t) + + '("DeclareCaptionOption" + (LaTeX-arg-caption-DeclareCaption "Option") t) + + '("DeclareCaptionStyle" + (LaTeX-arg-caption-DeclareCaption "Style") + [TeX-arg-key-val (LaTeX-caption-key-val-options) "Additional options"] + (TeX-arg-key-val (LaTeX-caption-key-val-options) "Options")) + + '("DeclareCaptionTextFormat" + (LaTeX-arg-caption-DeclareCaption "TextFormat") t) + + '("bothIfFirst" 2) + + '("bothIfSecond" 2)) + + ;; \caption(box|of) macros should get their own lines + (LaTeX-paragraph-commands-add-locally '("captionbox" "captionof")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("caption" "*[{") + ("captionlistentry" "[{") + ("captionof" "*{[{") + ("captionbox" "*[{[[")) + 'textual) + (font-latex-add-keywords '(("captionsetup" "*[[{") + ("clearcaptionsetup" "*[{") + ("continuedfloat" "") + ("DeclareCaptionFont" "{{") + ("DeclareCaptionFormat" "*{{") + ("DeclareCaptionJustification" "{{") + ("DeclareCaptionLabelFormat" "{{") + ("DeclareCaptionLabelSeparator" "*{{") + ("DeclareCaptionListFormat" "{{") + ("DeclareCaptionOption" "{{") + ("DeclareCaptionStyle" "{[{") + ("DeclareCaptionTextFormat" "{{")) + 'function)) ) + TeX-dialect) + +(defun LaTeX-caption-package-options () + "Prompt for package options for the caption package." + (TeX-read-key-val t + (append '(("compatibility" ("true" "false"))) + '(("figureposition" ("top" "above" "bottom" "below"))) + '(("tableposition" ("top" "above" "bottom" "below"))) + LaTeX-caption-key-val-options))) + +;;; caption.el ends here diff --git a/elpa/auctex-13.1.3/style/caption.elc b/elpa/auctex-13.1.3/style/caption.elc Binary files differnew file mode 100644 index 0000000..9bb293d --- /dev/null +++ b/elpa/auctex-13.1.3/style/caption.elc diff --git a/elpa/auctex-13.1.3/style/changelog.el b/elpa/auctex-13.1.3/style/changelog.el new file mode 100644 index 0000000..a4ebb43 --- /dev/null +++ b/elpa/auctex-13.1.3/style/changelog.el @@ -0,0 +1,163 @@ +;;; changelog.el --- AUCTeX style for `changelog.sty' (v2.0.0) -*- lexical-binding: t; -*- + +;; Copyright (C) 2019, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2019-05-05 +;; 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 `changelog.sty' (v2.0.0). +;; `changelog.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(defvar reftex-label-alist) + +(defvar LaTeX-changelog-env-key-val-options + '(("section" ("true" "false")) + ("title")) + "Key=value options for changelog environment. +The keys sectioncmd and label are added in the function +`LaTeX-env-changelog'.") + +(defvar LaTeX-changelog-version-env-key-val-options + '(("version") + ("v") + ("author") + ("date") + ("yanked" ("true" "false")) + ("simple" ("true" "false")) + ("short" ("true" "false"))) + "key=value options for version environment.") + +(defun LaTeX-env-changelog (environment) + "Insert ENVIRONMENT, ask for optional argument and insert a label." + (let* ((seccmds (mapcar #'car LaTeX-section-list)) + ;; Collect the key=vals acc. to environment & documentclass + (opts (TeX-read-key-val + t + (if (string= environment "changelog") + (append + `(("sectioncmd" + ,(if (< (LaTeX-largest-level) 2) + (append + (mapcar (lambda (cmd) (concat TeX-esc cmd)) + seccmds) + (mapcar (lambda (cmd) (concat TeX-esc cmd "*")) + seccmds)) + (append + (mapcar (lambda (cmd) (concat TeX-esc cmd)) + (remove "chapter" seccmds)) + (mapcar (lambda (cmd) (concat TeX-esc cmd "*")) + (remove "chapter" seccmds)))))) + LaTeX-changelog-env-key-val-options + LaTeX-changelog-version-env-key-val-options) + LaTeX-changelog-version-env-key-val-options))) + ;; Extract the chosen sectioning command + (sec (progn + (string-match "sectioncmd=\\\\\\([a-z]+\\)\\(\\*?\\)" opts) + (match-string-no-properties 1 opts))) + ;; Temp. re-bind `LaTeX-label-alist' and pick the label + ;; prefix from `LaTeX-section-label' + (LaTeX-label-alist + (when (and (string= environment "changelog") + (match-string 2 opts) + (not (string= (match-string 2 opts) "*"))) + `(,(cons environment + (cdr (assoc sec LaTeX-section-label)))))) + ;; Temp. re-bind `reftex-label-alist' as well and make + ;; `reftex-label' DTRT: + (reftex-label-alist + (when (and (boundp 'reftex-label-alist) + LaTeX-label-alist + (string= environment "changelog")) + `((,environment ?s ,(cdr (assoc sec LaTeX-section-label)) nil t))))) + (LaTeX-insert-environment + environment + (when (and opts (not (string= opts ""))) + (concat LaTeX-optop opts LaTeX-optcl))) + ;; Add a label into the opt. argument + (when (string= environment "changelog") + (LaTeX-env-label-as-keyval nil "sectioncmd" nil environment)) + ;; Add an \item in version environment + (when (string= environment "version") + (TeX-insert-macro "item") + (indent-according-to-mode)))) + +(TeX-add-style-hook + "changelog" + (lambda () + + (LaTeX-add-environments + '("changelog" LaTeX-env-changelog) + '("version" LaTeX-env-changelog)) + + (TeX-add-symbols + '("added" 0) + '("changed" 0) + '("deprecated" 0) + '("removed" 0) + '("fixed" 0) + '("security" 0) + `("shortversion" (TeX-arg-key-val + ,(append + '(("changes")) + LaTeX-changelog-version-env-key-val-options)))) + + ;; Tell RefTeX that the optional arg of changelog env. can contain a label: + (when (and (boundp 'reftex-label-regexps) + (fboundp 'reftex-compile-variables) + (not (string-match "\\bchangelog\\b" + (mapconcat #'identity + reftex-label-regexps + "|")))) + (add-to-list (make-local-variable 'reftex-label-regexps) + (concat "\\\\begin{changelog}" + (LaTeX-extract-key-value-label nil 1)) + t) + (reftex-compile-variables)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("added" "") + ("changed" "") + ("deprecated" "") + ("removed" "") + ("fixed" "") + ("security" "") + ("shortversion" "{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-changelog-package-options nil + "Package options for the changelog package.") + +;;; changelog.el ends here diff --git a/elpa/auctex-13.1.3/style/changelog.elc b/elpa/auctex-13.1.3/style/changelog.elc Binary files differnew file mode 100644 index 0000000..5d1f273 --- /dev/null +++ b/elpa/auctex-13.1.3/style/changelog.elc diff --git a/elpa/auctex-13.1.3/style/changes.el b/elpa/auctex-13.1.3/style/changes.el new file mode 100644 index 0000000..9c3bff5 --- /dev/null +++ b/elpa/auctex-13.1.3/style/changes.el @@ -0,0 +1,242 @@ +;;; changes.el --- AUCTeX style for `changes.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-01-31 +;; 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 Street, Fifth Floor, Boston, +;; MA 02110-1301 USA. + +;;; Commentary: + +;; This file adds support for `changes.sty' v4.0.0. from 2021/01/28. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(defvar LaTeX-xcolor-base-colors) +(defvar LaTeX-truncate-package-options) +(defvar LaTeX-ulem-package-options) +(defvar LaTeX-xcolor-package-options) + +(TeX-auto-add-type "changes-definechangesauthor" "LaTeX") + +(defvar LaTeX-changes-definechangesauthor-regexp + `(,(concat "\\\\definechangesauthor" + "[ \t\n\r%]*" + "\\(?:\\[[^]]*\\]\\)?" + "[ \t\n\r%]*" + "{\\([^}]+\\)}") + 1 LaTeX-auto-changes-definechangesauthor) + "Matches the id defined by \\definechangesauthor.") + +(defun LaTeX-changes-auto-prepare () + "Reset `LaTeX-auto-changes-definechangesauthor'." + (setq LaTeX-auto-changes-definechangesauthor nil)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-changes-auto-prepare t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun LaTeX-arg-changes-definechangesauthor (optional) + "Prompt for the arguments of \\definechangesauthor macro. +While reading the first optional argument, remove space from +`crm-local-completion-map' and `minibuffer-local-completion-map'. +Insert the argument in brackets if OPTIONAL is non-nil." + (let* ((crm-local-completion-map + (remove (assoc 32 crm-local-completion-map) + crm-local-completion-map)) + (minibuffer-local-completion-map + (remove (assoc 32 minibuffer-local-completion-map) + minibuffer-local-completion-map)) + (TeX-last-optional-rejected nil) + (keyval (LaTeX-check-insert-macro-default-style + (TeX-read-key-val + t + `(("name") + ("color" + ,(cond + ((and (member "xcolor" (TeX-style-list)) + (fboundp 'LaTeX-xcolor-definecolor-list)) + (mapcar #'car (LaTeX-xcolor-definecolor-list))) + ((and (member "color" (TeX-style-list)) + (fboundp 'LaTeX-color-definecolor-list)) + (mapcar #'car (LaTeX-color-definecolor-list))) + (t nil))))))) + (TeX-arg-opening-brace LaTeX-optop) + (TeX-arg-closing-brace LaTeX-optcl)) + (when keyval (TeX-argument-insert keyval t))) + (let ((id (TeX-read-string + (TeX-argument-prompt optional nil "Author ID")))) + (LaTeX-add-changes-definechangesauthors id) + (TeX-argument-insert id optional))) + +(defun LaTeX-arg-changes-markup (optional) + "Prompt for the argument of various markup commands. +Remove space from `crm-local-completion-map' and +`minibuffer-local-completion-map' while reading user input. +Insert the argument in brackets if OPTIONAL is non-nil." + (let* ((crm-local-completion-map + (remove (assoc 32 crm-local-completion-map) + crm-local-completion-map)) + (minibuffer-local-completion-map + (remove (assoc 32 minibuffer-local-completion-map) + minibuffer-local-completion-map)) + (keyval (TeX-read-key-val + optional + `(("id" ,(mapcar #'car + (LaTeX-changes-definechangesauthor-list))) + ("comment"))))) + (TeX-argument-insert keyval optional))) + +(TeX-add-style-hook + "changes" + (lambda () + + ;; Add changes to the parser + (TeX-auto-add-regexp LaTeX-changes-definechangesauthor-regexp) + + ;; Run AUCTeX style hooks based on given package options: This is + ;; more complicated since we're only looking after "ulem" or + ;; "xcolor" and don't really care about the given options to them: + (when (assoc "changes" LaTeX-provided-package-options) + (dolist (pkg '("ulem" "xcolor")) + (let ((opts (cdr (assoc "changes" + LaTeX-provided-package-options)))) + (when (string-match (concat "\\<" pkg "\\>") + (mapconcat #'identity opts "|")) + (TeX-run-style-hooks pkg))))) + + ;; truncate.sty is always loaded: + (TeX-run-style-hooks "truncate") + + (TeX-add-symbols + ;; 4.2 Change management + '("added" [ LaTeX-arg-changes-markup ] 1) + '("deleted" [ LaTeX-arg-changes-markup ] 1) + '("replaced" [ LaTeX-arg-changes-markup ] 2) + + ;; 4.3 Highlighting and Comments + '("highlight" [ LaTeX-arg-changes-markup ] 1) + '("comment" + [TeX-arg-eval + TeX-read-key-val t `(("id" + ,(mapcar #'car + (LaTeX-changes-definechangesauthor-list))))] + 1) + + ;; 4.4 Overview of changes + '("listofchanges" + [TeX-arg-key-val (("style" ("list" "summary" "compactsummary")) + ("title") + ("show" ("all" "added" "deleted" + "replaced" "highlight" "comment")))]) + + ;; 4.5 Author management \definechangesauthor + '("definechangesauthor" LaTeX-arg-changes-definechangesauthor) + + ;; 4.6 Adaption of the output: + '("setaddedmarkup" "Definition") + '("setdeletedmarkup" "Definition") + '("sethighlightmarkup" "Definition") + '("setcommentmarkup" "Definition") + '("setauthormarkup" "Definition") + '("setauthormarkupposition" + (TeX-arg-eval completing-read + (TeX-argument-prompt optional nil "Position") + '("left" "right"))) + '("setauthormarktext" + (TeX-arg-eval completing-read + (TeX-argument-prompt optional nil "Markup") + '("id" "name"))) + '("settruncatewidth" (TeX-arg-length "Width")) + '("setsummarywidth" (TeX-arg-length "Width")) + '("setsummarytowidth" "Text") + '("setlocextension" "Extension") + '("setsocextension" "Extension")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("definechangesauthor" "[{") + ("setaddedmarkup" "{") + ("setdeletedmarkup" "{") + ("sethighlightmarkup" "{") + ("setcommentmarkup" "{") + ("setauthormarkup" "{") + ("setauthormarkupposition" "{") + ("setauthormarktext" "{") + ("settruncatewidth" "{") + ("setsummarywidth" "{") + ("setsummarytowidth" "{") + ("setlocextension" "{") + ("setsocextension" "{")) + 'function) + (font-latex-add-keywords '(("added" "[{") + ("deleted" "[{") + ("replaced" "[{{") + ("highlight" "[{") + ("comment" "[{")) + 'textual) + (font-latex-add-keywords '(("listofchanges" "[")) + 'reference))) + TeX-dialect) + +(defun LaTeX-changes-package-options () + "Prompt for package options for the changes package." + (TeX-load-style "xcolor") + (TeX-load-style "truncate") + (TeX-load-style "ulem") + (TeX-read-key-val + t + (append + `(("defaultcolor" + ,(if (and (fboundp 'LaTeX-xcolor-definecolor-list) + (LaTeX-xcolor-definecolor-list)) + (mapcar #'car (LaTeX-xcolor-definecolor-list)) + LaTeX-xcolor-base-colors))) + `(("draft") + ("final") + ("commandnameprefix" ("none" "ifneeded" "always")) + ("markup" ("default" "underlined" "bfit" "nocolor")) + ("addedmarkup" ("colored" "uline" "uuline" "uwave" + "dashuline" "dotuline" + "bf" "it" "sl" "em")) + ("deletedmarkup" ("sout" "xout" "colored" + "uline" "uuline" "uwave" + "dashuline" "dotuline" + "bf" "it" "sl" "em")) + ("highlightmarkup" ("background" "uuline" "uwave")) + ("commentmarkup" ("todo" "margin" "footnote" "uwave")) + ("authormarkup" ("superscript" "subscript" "brackets" + "footnote" "none")) + ("authormarkupposition" ("right" "left")) + ("authormarkuptext" ("id" "name")) + ("todonotes") + ("truncate" ,LaTeX-truncate-package-options) + ("ulem" ,LaTeX-ulem-package-options) + ("xcolor" ,LaTeX-xcolor-package-options))))) + +;;; changes.el ends here diff --git a/elpa/auctex-13.1.3/style/changes.elc b/elpa/auctex-13.1.3/style/changes.elc Binary files differnew file mode 100644 index 0000000..bf2e8d3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/changes.elc diff --git a/elpa/auctex-13.1.3/style/cleveref.el b/elpa/auctex-13.1.3/style/cleveref.el new file mode 100644 index 0000000..373dcd8 --- /dev/null +++ b/elpa/auctex-13.1.3/style/cleveref.el @@ -0,0 +1,205 @@ +;;; cleveref.el --- AUCTeX style for `cleveref.sty' (v0.21.4) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014--2020 Free Software Foundation, Inc. + +;; Author: Matthew Leach <matthew@mattleach.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 13/10/2014 + +;; 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 `cleveref.sty' (v0.21.4), dated +;; 2018/03/27. + +;;; Code + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defun TeX-arg-cleveref-multiple-labels (optional &optional prompt) + "Prompt for a series of labels completing with known labels. +If OPTIONAL is non-nil, insert the resulting value as an optional +argument, otherwise as a mandatory one. Use PROMPT as the prompt +string." + (if (and (fboundp 'reftex-arg-label) + (fboundp 'reftex-plug-flag) + (reftex-plug-flag 2)) + ;; Use RefTeX when enabled + (TeX-arg-ref optional) + ;; Use AUCTeX interface + (let* ((labels (TeX-completing-read-multiple + (TeX-argument-prompt optional prompt "Keys") + (LaTeX-label-list))) + (labels-string (mapconcat #'identity labels ","))) + (TeX-argument-insert labels-string optional)))) + +(defun TeX-arg-cleveref-crossref-type (optional &optional prompt) + "Insert the cross-reference type for macros of cleveref package. +If OPTIONAL is non-nil, insert the resulting value in brackets. +Use PROMPT as the prompt string." + (let* ((type (mapcar #'list + '("appendix" "subappendix" "subsubappendix" + "subsubsubappendix" "subfigure" "subtable" + "subequation"))) + (types (append (LaTeX-counter-list) type))) + (TeX-argument-insert + (completing-read (TeX-argument-prompt optional prompt "Type") types) + optional))) + +(defvar LaTeX-cleveref-label-regexp + '("\\\\label\\[[^]]*\\]{\\([^\n\r%\\{}]+\\)}" 1 LaTeX-auto-label) + "Regexp matching a \\label incl. an optional argument.") + +(TeX-add-style-hook + "cleveref" + (lambda () + + (TeX-add-symbols + ;; 4 Typesetting Cross-References + '("cref" TeX-arg-cleveref-multiple-labels) + '("Cref" TeX-arg-cleveref-multiple-labels) + '("crefrange" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)")) + '("Crefrange" (TeX-arg-ref "key (first)") (TeX-arg-ref "Key (last)")) + '("cref*" TeX-arg-cleveref-multiple-labels) + '("Cref*" TeX-arg-cleveref-multiple-labels) + '("crefrange*" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)")) + '("Crefrange*" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)")) + '("cpageref" TeX-arg-cleveref-multiple-labels) + '("Cpageref" TeX-arg-cleveref-multiple-labels) + '("cpagerefrange" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)")) + '("Cpagerefrange" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)")) + '("namecref" TeX-arg-ref) + '("nameCref" TeX-arg-ref) + '("lcnamecref" TeX-arg-ref) + '("namecrefs" TeX-arg-ref) + '("nameCrefs" TeX-arg-ref) + '("lcnamecrefs" TeX-arg-ref) + '("labelcref" TeX-arg-cleveref-multiple-labels) + '("labelcpageref" TeX-arg-cleveref-multiple-labels) + ;; 6 Overriding the Cross-Reference Type + '("crefalias" TeX-arg-counter "Type") + '("label" [ TeX-arg-cleveref-crossref-type ] TeX-arg-define-label) + + ;; 8.1.1 Global Customisation + '("crefdefaultlabelformat" t) + + ;; 8.1.2 Customising Individual Cross-Reference Types + '("crefname" TeX-arg-cleveref-crossref-type + "Singular name" "Plural name") + '("Crefname" TeX-arg-cleveref-crossref-type + "Singular name" "Plural name") + '("creflabelformat" TeX-arg-cleveref-crossref-type t) + '("crefrangelabelformat" TeX-arg-cleveref-crossref-type t) + + ;; 8.2.1 Single Cross-References + '("crefformat" TeX-arg-cleveref-crossref-type t) + '("Crefformat" TeX-arg-cleveref-crossref-type t) + + ;; 8.2.2 Reference Ranges + '("crefrangeformat" TeX-arg-cleveref-crossref-type t) + '("Crefrangeformat" TeX-arg-cleveref-crossref-type t) + + ;; 8.2.3 Multiple Cross-References + '("crefmultiformat" TeX-arg-cleveref-crossref-type 4) + '("Crefmultiformat" TeX-arg-cleveref-crossref-type 4) + '("crefrangemultiformat" TeX-arg-cleveref-crossref-type 4) + '("Crefrangemultiformat" TeX-arg-cleveref-crossref-type 4)) + + ;; These macros aren't used particularly often during the course of + ;; normal referencing. + (TeX-declare-expert-macros + "cleveref" + "namecref" "nameCref" "lcnamecref" "namecrefs" "nameCrefs" + "lcnamecrefs" "labelcref" "labelcpageref" + "crefdefaultlabelformat" + "crefname" "Crefname" "creflabelformat" "crefrangelabelformat" + "crefformat" "Crefformat" + "crefrangeformat" "Crefrangeformat" + "crefmultiformat" "Crefmultiformat" + "crefrangemultiformat" "Crefrangemultiformat") + + ;; Add \label[type]{label} to AUCTeX parser + (TeX-auto-add-regexp LaTeX-cleveref-label-regexp) + + ;; Tell RefTeX. Check if `reftex-label-regexps' is bound and use a + ;; local version of it. Check if the regexp is already added in + ;; order not to run `reftex-compile-variables' every time the style + ;; hook runs + (when (and (boundp 'reftex-label-regexps) + (fboundp 'reftex-compile-variables)) + (let ((regexp "\\\\label\\[[^]]*\\]{\\(?1:[^\n\r%\\{}]+\\)}")) + (unless (member regexp reftex-label-regexps) + (add-to-list (make-local-variable 'reftex-label-regexps) + regexp t) + (reftex-compile-variables)))) + + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("cref" "*{") + ("Cref" "*{") + ("crefrange" "*{{") + ("Crefrange" "*{{") + ("cpageref" "{") + ("Cpageref" "{") + ("cpagerefrange" "{{") + ("Cpagerefrange" "{{") + ("namecref" "{") + ("nameCref" "{") + ("lcnamecref" "{") + ("namecrefs" "{") + ("nameCrefs" "{") + ("lcnamecrefs" "{") + ("labelcref" "{") + ("labelcpageref" "{") + ("label" "[{")) + 'reference) + (font-latex-add-keywords '(("crefalias" "{{") + ("crefname" "{{{") + ("Crefname" "{{{") + ("creflabelformat" "{{") + ("crefrangelabelformat" "{{") + ("crefdefaultlabelformat" "{") + ("crefformat" "{{") + ("Crefformat" "{{") + ("crefrangeformat" "{{") + ("Crefrangeformat" "{{") + ("crefmultiformat" "{{{{{") + ("Crefmultiformat" "{{{{{") + ("crefrangemultiformat" "{{{{{") + ("Crefrangemultiformat" "{{{{{")) + 'function)) + + ;; Activate RefTeX reference style. + (and LaTeX-reftex-ref-style-auto-activate + (fboundp 'reftex-ref-style-activate) + (reftex-ref-style-activate "Cleveref"))) + TeX-dialect) + +(defvar LaTeX-cleveref-package-options + '("capitalise" "nameinlink" "noabbrev" "poorman") + "Package options for the cleveref package.") + +;;; cleveref.el ends here. diff --git a/elpa/auctex-13.1.3/style/cleveref.elc b/elpa/auctex-13.1.3/style/cleveref.elc Binary files differnew file mode 100644 index 0000000..02a53df --- /dev/null +++ b/elpa/auctex-13.1.3/style/cleveref.elc diff --git a/elpa/auctex-13.1.3/style/color.el b/elpa/auctex-13.1.3/style/color.el new file mode 100644 index 0000000..a98b01b --- /dev/null +++ b/elpa/auctex-13.1.3/style/color.el @@ -0,0 +1,317 @@ +;;; color.el --- AUCTeX style for `color.sty' (v1.3d) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015--2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-01-16 +;; 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 `color.sty' (v1.3d) from 2022/01/06. +;; `color.sty' is part of TeXLive. + +;; Many thanks to Tassilo Horn for his percetive comments on +;; implementation of this style and testing. + +;;; Code: + +;; Needed for compiling `LaTeX-check-insert-macro-default-style': +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-color-colour-models + '("cmyk" "gray" "named" "rgb") + "List of color models provided by `color.sty'.") + +(defvar LaTeX-color-dvipsnames-colors + '("Apricot" "Aquamarine" "Bittersweet" "Black" + "Blue" "BlueGreen" "BlueViolet" "BrickRed" + "Brown" "BurntOrange" "CadetBlue" "CarnationPink" + "Cerulean" "CornflowerBlue" "Cyan" "Dandelion" + "DarkOrchid" "Emerald" "ForestGreen" "Fuchsia" + "Goldenrod" "Gray" "Green" "GreenYellow" + "JungleGreen" "Lavender" "LimeGreen" "Magenta" + "Mahogany" "Maroon" "Melon" "MidnightBlue" + "Mulberry" "NavyBlue" "OliveGreen" "Orange" + "OrangeRed" "Orchid" "Peach" "Periwinkle" + "PineGreen" "Plum" "ProcessBlue" "Purple" + "RawSienna" "Red" "RedOrange" "RedViolet" + "Rhodamine" "RoyalBlue" "RoyalPurple" "RubineRed" + "Salmon" "SeaGreen" "Sepia" "SkyBlue" + "SpringGreen" "Tan" "TealBlue" "Thistle" + "Turquoise" "Violet" "VioletRed" "White" + "WildStrawberry" "Yellow" "YellowGreen" "YellowOrange") + "List of colors defined by package option `dvipsnames' from `color.sty'.") + +;; Needed for auto-parsing. +(require 'tex) + +;; Plug \definecolor into the parser +(TeX-auto-add-type "color-definecolor" "LaTeX") + +(defvar LaTeX-color-definecolor-regexp + '("\\\\definecolor{\\([^}]+\\)}" 1 LaTeX-auto-color-definecolor) + "Matches the argument of \\definecolor from color package.") + +(defun LaTeX-color-auto-prepare () + "Clear `LaTeX-auto-color-definecolor' before parsing." + (setq LaTeX-auto-color-definecolor nil)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-color-auto-prepare t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun TeX-arg-color-definecolor (optional &optional prompt) + "Insert arguments of `\\definecolor' from `color.sty'." + ;; \definecolor{<name>}{<model>}{<color spec>} + ;; Ask for <name>, add to our list and insert it + (let ((colorname (TeX-read-string "Color name: "))) + (LaTeX-add-color-definecolors colorname) + (TeX-argument-insert colorname optional)) + ;; Ask and insert <model> + (let ((model (completing-read + (TeX-argument-prompt optional prompt "Color model") + (if (not (or (LaTeX-provided-package-options-member "color" "dvips") + (LaTeX-provided-package-options-member "color" "dvipsnames"))) + (remove "named" LaTeX-color-colour-models) + LaTeX-color-colour-models)))) + (TeX-argument-insert model optional) + ;; Depending on <model>, ask for <color spec> and insert it + (cond (;; <cmyk> model + (string-equal model "cmyk") + (let ((cyan (TeX-read-string "Value Cyan (between 0,1): ")) + (magenta (TeX-read-string "Value Magenta (between 0,1): ")) + (yellow (TeX-read-string "Value Yellow (between 0,1): ")) + (black (TeX-read-string "Value Black (between 0,1): "))) + (TeX-argument-insert + (concat cyan "," magenta "," yellow "," black) optional))) + ;; <rgb> model + ((string-equal model "rgb") + (let ((red (TeX-read-string "Value Red (between 0,1): ")) + (green (TeX-read-string "Value Green (between 0,1): ")) + (blue (TeX-read-string "Value Blue (between 0,1): "))) + (TeX-argument-insert + (concat red "," green "," blue) optional))) + ;; <gray> model + ((string-equal model "gray") + (let ((grayness (TeX-read-string "Value Gray (between 0,1): "))) + (TeX-argument-insert grayness optional))) + ;; <named> model takes the dvipsnames + ((string-equal model "named") + (let ((color (completing-read "Named Color: " + LaTeX-color-dvipsnames-colors))) + (TeX-argument-insert color optional)))))) + +(defun TeX-arg-color (optional &optional prompt) + "Insert arguments of various color commands from `color.sty'." + ;; \color{<name>} or \color[<model>]{<color spec>} First, ask for + ;; <model>. This happens depending on the values of + ;; `TeX-insert-macro-default-style' and if `current-prefix-arg'. + ;; `named' is removed here from completion if package option is not + ;; given. + (let* ((TeX-last-optional-rejected nil) + (model (LaTeX-check-insert-macro-default-style + (completing-read + (TeX-argument-prompt t prompt "Color model") + (if (not (or (LaTeX-provided-package-options-member "color" "dvips") + (LaTeX-provided-package-options-member "color" "dvipsnames"))) + (remove "named" LaTeX-color-colour-models) + LaTeX-color-colour-models))))) + ;; If <model> is non-nil because of 'mandatory-args-only and not + ;; an empty string, then insert it + (if (and model (not (string-equal model ""))) + (progn + (insert (concat LaTeX-optop model LaTeX-optcl)) + (cond (;; <cmyk> model + (string-equal model "cmyk") + (let ((cyan (TeX-read-string "Value Cyan (between 0,1): ")) + (magenta (TeX-read-string "Value Magenta (between 0,1): ")) + (yellow (TeX-read-string "Value Yellow (between 0,1): ")) + (black (TeX-read-string "Value Black (between 0,1): "))) + (TeX-argument-insert + (concat cyan "," magenta "," yellow "," black) optional))) + ;; <rgb> model + ((string-equal model "rgb") + (let ((red (TeX-read-string "Value Red (between 0,1): ")) + (green (TeX-read-string "Value Green (between 0,1): ")) + (blue (TeX-read-string "Value Blue (between 0,1): "))) + (TeX-argument-insert + (concat red "," green "," blue) optional))) + ;; <gray> model + ((string-equal model "gray") + (let ((grayness (TeX-read-string "Value Gray (between 0,1): "))) + (TeX-argument-insert grayness optional))) + ;; <named> model; allowed are dvipsnames. + ((string-equal model "named") + (let ((color (completing-read "Named Color: " + LaTeX-color-dvipsnames-colors))) + (TeX-argument-insert color optional))))) + ;; if empty, ask for <name> with completion + (let ((color (completing-read + (TeX-argument-prompt optional prompt "Color name") + (LaTeX-color-definecolor-list)))) + (TeX-argument-insert color optional))))) + +(defun TeX-arg-color-fcolorbox (optional &optional prompt) + "Insert arguments of `\\fcolorbox' from `color.sty'. " + ;; \fcolorbox{<frame color name>}{<box color name>}{<text>} or + ;; \fcolorbox[<model>]{<frame color spec>}{<box color spec>}{<text>} + ;; First, ask for <model> depending on + ;; `TeX-insert-macro-default-style' and `current-prefix-arg'. + ;; Remove `named' if necessary. + (let* ((TeX-last-optional-rejected nil) + (model (LaTeX-check-insert-macro-default-style + (completing-read + (TeX-argument-prompt t prompt "Color model") + (if (not (or (LaTeX-provided-package-options-member "color" "dvips") + (LaTeX-provided-package-options-member "color" "dvipsnames"))) + (remove "named" LaTeX-color-colour-models) + LaTeX-color-colour-models))))) + ;; If <model> is non-nil because of 'mandatory-args-only and not + ;; an empty string, then insert [<model>] and cater for 2 + ;; mandatory args. + (if (and model (not (string-equal model ""))) + (progn + (insert (concat LaTeX-optop model LaTeX-optcl)) + (cond (;; <cmyk> model + (string-equal model "cmyk") + (let ((cyan (TeX-read-string "Frame value Cyan (between 0,1): ")) + (magenta (TeX-read-string "Frame value Magenta (between 0,1): ")) + (yellow (TeX-read-string "Frame value Yellow (between 0,1): ")) + (black (TeX-read-string "Frame value Black (between 0,1): "))) + (TeX-argument-insert + (concat cyan "," magenta "," yellow "," black) optional)) + (let ((cyan (TeX-read-string "Box value Cyan (between 0,1): ")) + (magenta (TeX-read-string "Box value Magenta (between 0,1): ")) + (yellow (TeX-read-string "Box value Yellow (between 0,1): ")) + (black (TeX-read-string "Box value Black (between 0,1): "))) + (TeX-argument-insert + (concat cyan "," magenta "," yellow "," black) optional))) + ;; <rgb> model + ((string-equal model "rgb") + (let ((red (TeX-read-string "Frame value Red (between 0,1): ")) + (green (TeX-read-string "Frame value Green (between 0,1): ")) + (blue (TeX-read-string "Frame value Blue (between 0,1): "))) + (TeX-argument-insert + (concat red "," green "," blue) optional)) + (let ((red (TeX-read-string "Box value Red (between 0,1): ")) + (green (TeX-read-string "Box value Green (between 0,1): ")) + (blue (TeX-read-string "box value Blue (between 0,1): "))) + (TeX-argument-insert + (concat red "," green "," blue) optional))) + ;; <gray> model + ((string-equal model "gray") + (let ((grayness (TeX-read-string "Frame value Gray (between 0,1): "))) + (TeX-argument-insert grayness optional)) + (let ((grayness (TeX-read-string "Box value Gray (between 0,1): "))) + (TeX-argument-insert grayness optional))) + ;; <named> model; allowed are dvipsnames. + ((string-equal model "named") + (let ((color (completing-read "Frame named Color: " + LaTeX-color-dvipsnames-colors))) + (TeX-argument-insert color optional)) + (let ((color (completing-read "Box named Color: " + LaTeX-color-dvipsnames-colors))) + (TeX-argument-insert color optional))))) + ;; if empty, ask for {<frame color spce>}{<box color name>} with completion + (let ((frame-color (completing-read + (TeX-argument-prompt optional prompt "Frame color name") + (LaTeX-color-definecolor-list))) + (box-color (completing-read + (TeX-argument-prompt optional prompt "Box color name") + (LaTeX-color-definecolor-list)))) + (TeX-argument-insert frame-color optional) + (TeX-argument-insert box-color optional))))) + +(TeX-add-style-hook + "color" + (lambda () + ;; Add color to the parser. + (TeX-auto-add-regexp LaTeX-color-definecolor-regexp) + + ;; Add list of colors which are always available. + (LaTeX-add-color-definecolors + "black" "blue" "cyan" "green" "magenta" "red" "white" "yellow") + + ;; Add dvips colors in conjunction with `usenames'. + (when (and (LaTeX-provided-package-options-member "color" "usenames") + (or (LaTeX-provided-package-options-member "color" "dvips") + (LaTeX-provided-package-options-member "color" "dvipsnames"))) + (apply #'LaTeX-add-color-definecolors LaTeX-color-dvipsnames-colors)) + + (unless (member "xcolor" (TeX-style-list)) + (TeX-add-symbols + ;; \definecolor{<name>}{<model>}{<color spec>} + '("definecolor" TeX-arg-color-definecolor) + + ;; \color{<name>} or \color[<model>]{<color spec>} + '("color" TeX-arg-color) + + ;; \textcolor{<name>}{<text>} or + ;; \textcolor[<model>]{<color spec>}{<text>} + '("textcolor" TeX-arg-color "Text") + + ;; \mathcolor{<name>}{<math>} or + ;; \mathcolor[<model>]{<color spec>}{<math>} + '("mathcolor" TeX-arg-color "Math") + + ;; \pagecolor{<name>} or + ;; \pagecolor[<model>]{<color spec>} + '("pagecolor" TeX-arg-color) + + ;; \nopagecolor + '("nopagecolor" 0) + + ;; \colorbox{<name>}{<text>} or + ;; \colorbox[<model>]{<color spec>}{<text>} + '("colorbox" TeX-arg-color "Text") + + ;; \fcolorbox{<frame color name>}{<box color name>}{<text>} or + ;; \fcolorbox[<model>]{<frame color spec>}{<box color spec>}{<text>} + '("fcolorbox" TeX-arg-color-fcolorbox "Text")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("color" "[{") + ("pagecolor" "[{")) + 'type-declaration) + (font-latex-add-keywords '(("textcolor" "[{{") + ("colorbox" "[{{" ) + ("fcolorbox" "[{{{")) + 'type-command) + (font-latex-add-keywords '(("definecolor" "{{{")) + 'function)))) + TeX-dialect) + +(defvar LaTeX-color-package-options + '("debugshow" "dvipdf" "dvipdfm" "dvipdfmx" "dvips" "dvipsnames" + "dvipsone" "dvisvgm" "dviwin" "dviwindo" "emtex" "luatex" + "monochrome" "nodvipsnames" "nosetpagesize" "oztex" "pctex32" + "pctexhp" "pctexps" "pctexwin" "pdftex" "setpagesize" "tcidvi" + "textures" "truetex" "usenames" "vtex" "xdvi" "xetex") + "Package options for the color package.") + +;;; color.el ends here diff --git a/elpa/auctex-13.1.3/style/color.elc b/elpa/auctex-13.1.3/style/color.elc Binary files differnew file mode 100644 index 0000000..c7f4633 --- /dev/null +++ b/elpa/auctex-13.1.3/style/color.elc diff --git a/elpa/auctex-13.1.3/style/colortbl.el b/elpa/auctex-13.1.3/style/colortbl.el new file mode 100644 index 0000000..7bbab91 --- /dev/null +++ b/elpa/auctex-13.1.3/style/colortbl.el @@ -0,0 +1,100 @@ +;;; colortbl.el --- AUCTeX style for `colortbl.sty' (v1.0a) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2016, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-03-22 +;; 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 `colortbl.sty' (v1.0a) from 2012/02/13. +;; `colortbl.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "colortbl" + (lambda () + + ;; array.el is always loaded: + (TeX-run-style-hooks "array") + + ;; Load color.el only if xcolor.el is not already loaded. This is + ;; mainly for the option `table' from xcolor.sty which loads + ;; colortbl.sty, but we don't want to load color.el. + (unless (member "xcolor" (TeX-style-list)) + (TeX-run-style-hooks "color")) + + (TeX-add-symbols + ;; `TeX-arg-color' is provided by color.el, + ;; `TeX-arg-xcolor' is provided by xcolor.el. + '("columncolor" (TeX-arg-conditional (member "xcolor" (TeX-style-list)) + (TeX-arg-xcolor) + (TeX-arg-color)) + [ TeX-arg-length "Left overhang" ] [ TeX-arg-length "Right overhang" ] ) + + '("rowcolor" (TeX-arg-conditional (member "xcolor" (TeX-style-list)) + (TeX-arg-xcolor) + (TeX-arg-color)) + [ TeX-arg-length "Left overhang" ] [ TeX-arg-length "Right overhang" ] ) + + '("cellcolor" (TeX-arg-conditional (member "xcolor" (TeX-style-list)) + (TeX-arg-xcolor) + (TeX-arg-color)) + [ TeX-arg-length "Left overhang" ] [ TeX-arg-length "Right overhang" ] ) + + '("arrayrulecolor" (TeX-arg-conditional (member "xcolor" (TeX-style-list)) + (TeX-arg-xcolor) + (TeX-arg-color))) + + '("doublerulesepcolor" (TeX-arg-conditional (member "xcolor" (TeX-style-list)) + (TeX-arg-xcolor) + (TeX-arg-color)))) + + (LaTeX-add-lengths "minrowclearance") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("columncolor" "[{[[") + ("rowcolor" "[{[[") + ("cellcolor" "[{[[") + ("arrayrulecolor" "[{") + ("doublerulesepcolor" "[{")) + 'function))) + TeX-dialect) + +;; colortbl.sty has one option `debugshow'. I ignore that since it +;; would only take more time during insertation in a buffer and I +;; presume that not many users use it anyway. +(defvar LaTeX-colortbl-package-options nil + "Package option for the colortbl package.") + +;;; colortbl.el ends here diff --git a/elpa/auctex-13.1.3/style/colortbl.elc b/elpa/auctex-13.1.3/style/colortbl.elc Binary files differnew file mode 100644 index 0000000..6a91a98 --- /dev/null +++ b/elpa/auctex-13.1.3/style/colortbl.elc diff --git a/elpa/auctex-13.1.3/style/commath.el b/elpa/auctex-13.1.3/style/commath.el new file mode 100644 index 0000000..5c2b491 --- /dev/null +++ b/elpa/auctex-13.1.3/style/commath.el @@ -0,0 +1,109 @@ +;;; commath.el --- AUCTeX style for `commath.sty' (v0.3) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-07-31 +;; 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 `commath.sty' (v0.3) from 2006/07/18. +;; `commath.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "commath" + (lambda () + + ;; Only load amsmath.el, ifthen.el is not necessary + (TeX-run-style-hooks "amsmath") + + (TeX-add-symbols + '("dif" 0) + '("Dif" 0) + '("od" [ "Order of differentiation" ] "Function" "Variable") + '("tod" [ "Order of differentiation" ] "Function" "Variable") + '("dod" [ "Order of differentiation" ] "Function" "Variable") + '("pd" [ "Order of differentiation" ] "Function" "Variable") + '("tpd" [ "Order of differentiation" ] "Function" "Variable") + '("dpd" [ "Order of differentiation" ] "Function" "Variable") + '("md" 6) + '("tmd" 6) + '("dmd" 6) + '("del" [ "Size argument (0..4)" ] "Argument") + '("cbr" [ "Size argument (0..4)" ] "Argument") + '("set" [ "Size argument (0..4)" ] "Argument") + '("sbr" [ "Size argument (0..4)" ] "Argument") + '("intoo" [ "Size argument (0..4)" ] "Argument") + '("intcc" [ "Size argument (0..4)" ] "Argument") + '("intoc" [ "Size argument (0..4)" ] "Argument") + '("intco" [ "Size argument (0..4)" ] "Argument") + '("eval" [ "Size argument (0..4)" ] t) + '("sVert" [ "Size argument (0..4)" ]) + '("envert" [ "Size argument (0..4)" ] "Argument") + '("abs" [ "Size argument (0..4)" ] "Argument") + '("enVert" [ "Size argument (0..4)" ] "Argument") + '("norm" [ "Size argument (0..4)" ] "Argument") + '("fullfunction" 5) + + ;; Referencing macros + '("thmref" TeX-arg-ref) + '("exref" TeX-arg-ref) + '("defnref" TeX-arg-ref) + '("secref" TeX-arg-ref) + '("lemref" TeX-arg-ref) + '("propref" TeX-arg-ref) + '("remref" TeX-arg-ref) + '("figref" TeX-arg-ref) + '("colref" TeX-arg-ref) + '("appref" TeX-arg-ref) + '("assref" TeX-arg-ref)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("thmref" "{") + ("exref" "{") + ("defnref" "{") + ("secref" "{") + ("lemref" "{") + ("propref" "{") + ("remref" "{") + ("figref" "{") + ("colref" "{") + ("appref" "{") + ("assref" "{")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-commath-package-options nil + "Package options for the commath package.") + +;;; commath.el ends here diff --git a/elpa/auctex-13.1.3/style/commath.elc b/elpa/auctex-13.1.3/style/commath.elc Binary files differnew file mode 100644 index 0000000..cb7bbb0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/commath.elc diff --git a/elpa/auctex-13.1.3/style/comment.el b/elpa/auctex-13.1.3/style/comment.el new file mode 100644 index 0000000..8d0c90c --- /dev/null +++ b/elpa/auctex-13.1.3/style/comment.el @@ -0,0 +1,168 @@ +;;; comment.el --- AUCTeX style for `comment.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2007, 2018--2021 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2007-03-18 +;; 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 Street, Fifth Floor, Boston, +;; MA 02110-1301 USA. + +;;; Commentary: + +;; This file adds support for `comment.sty'. + +;;; Code: + +(require 'tex) +(require 'tex-style) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(declare-function font-latex-set-syntactic-keywords + "font-latex") +(defvar font-latex-syntactic-keywords-extra) + +;; Prepare for parsing: +(TeX-auto-add-type "comment-incl-excl" "LaTeX") + +(defvar LaTeX-comment-include-exclude-regexp + '("\\\\\\(include\\|exclude\\|special\\)comment[ \t\n\r%]*{\\([^}]+\\)}" + (2 1) LaTeX-auto-comment-incl-excl) + "Matches the name of environments defined by comment macros.") + +(defun LaTeX-comment-auto-prepare () + "Reset the value of `LaTeX-auto-comment-incl-excl'." + (setq LaTeX-auto-comment-incl-excl nil)) + +(defun LaTeX-comment-auto-cleanup () + "Process parsed elements for comment package." + (dolist (elt (LaTeX-comment-incl-excl-list)) + (let ((env (car elt)) + (type (cadr elt))) + ;; Make the environment available for completion + (LaTeX-add-environments env) + ;; Fontification + (when (and (boundp 'font-latex-syntactic-keywords-extra) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; For syntactic fontification. + (if (string= type "exclude") + ;; Argument of \excludecomment: + (progn + (add-to-list 'font-latex-syntactic-keywords-extra + ;; \begin is supposed to start at the + ;; beginning of a line. + `(,(format "^\\\\begin *{%s}.*\\(\n\\)" + env) + (1 "!" t))) + (add-to-list 'font-latex-syntactic-keywords-extra + ;; \end is supposed to start at the + ;; beginning of a line. + `(,(format "^\\(\\\\\\)end *{%s}" + env) + (1 "!" t)))) + ;; Delete the entry from + ;; `font-latex-syntactic-keywords-extra' if argument of + ;; \includecomment or \specialcomment: + (setq font-latex-syntactic-keywords-extra + (delete `(,(format "^\\\\begin *{%s}.*\\(\n\\)" + env) + (1 "!" t)) + font-latex-syntactic-keywords-extra)) + (setq font-latex-syntactic-keywords-extra + (delete `(,(format "^\\(\\\\\\)end *{%s}" + env) + (1 "!" t)) + font-latex-syntactic-keywords-extra)))))) + ;; Recalculate the fontification rules once at the end: + (when (and (LaTeX-comment-incl-excl-list) + (fboundp 'font-latex-set-syntactic-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-set-syntactic-keywords))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-comment-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-comment-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "comment" + (lambda () + + ;; Add comment to the parser. + (TeX-auto-add-regexp LaTeX-comment-include-exclude-regexp) + + ;; New symbols + (TeX-add-symbols + '("includecomment" + (TeX-arg-eval let ((env (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-comment-incl-excls `(,env "include")) + (LaTeX-comment-auto-cleanup) + (format "%s" env))) + + '("excludecomment" + (TeX-arg-eval let ((env (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-comment-incl-excls `(,env "exclude")) + (LaTeX-comment-auto-cleanup) + (format "%s" env))) + + '("specialcomment" + (TeX-arg-eval let ((env (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-comment-incl-excls `(,env "special")) + (LaTeX-comment-auto-cleanup) + (format "%s" env)) + "Before commands" "After commands") + + '("processcomment" "Name" "Each-line commands" + "Before commands" "After commands")) + + ;; New environments + (mapc #'LaTeX-add-environments LaTeX-comment-env-list) + + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; For syntactic fontification. + (add-to-list 'font-latex-syntactic-keywords-extra + ;; \begin is supposed to start at the beginning of a line. + `(,(format "^\\\\begin *{%s}.*\\(\n\\)" + (regexp-opt LaTeX-comment-env-list)) + (1 "!" t))) + (add-to-list 'font-latex-syntactic-keywords-extra + ;; \end is supposed to start at the beginning of a line. + `(,(format "^\\(\\\\\\)end *{%s}" + (regexp-opt LaTeX-comment-env-list)) + (1 "!" t))) + (font-latex-add-keywords '(("includecomment" "{") + ("excludecomment" "{") + ("specialcomment" "{{{") + ("processcomment" "{{{{")) + 'variable) + ;; Tell font-lock about the update. + (font-latex-set-syntactic-keywords))) + TeX-dialect) + +(defvar LaTeX-comment-package-options nil + "Package options for the comment package.") + +;;; comment.el ends here diff --git a/elpa/auctex-13.1.3/style/comment.elc b/elpa/auctex-13.1.3/style/comment.elc Binary files differnew file mode 100644 index 0000000..c3c4ff5 --- /dev/null +++ b/elpa/auctex-13.1.3/style/comment.elc diff --git a/elpa/auctex-13.1.3/style/csquotes.el b/elpa/auctex-13.1.3/style/csquotes.el new file mode 100644 index 0000000..d5714a3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/csquotes.el @@ -0,0 +1,404 @@ +;;; csquotes.el --- AUCTeX style for `csquotes.sty' (v5.2j) -*- lexical-binding: t; -*- + +;; Copyright (C) 2004--2022 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2004-11-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 `csquotes.sty', version 5.2j from +;; 2019/12/06. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defun LaTeX-csquotes-read-language (optional &optional prompt) + "Read and return a language for csquotes macros. +If OPTIONAL is non-nil, indicate it in minibuffer while reading +user input. PROMPT replaces the standard one \"Language\". This +function checks if the functions `LaTeX-babel-active-languages' +or `LaTeX-polyglossia-active-languages' are bound and use them to +retrieve the active languages. If none available, user is +requested to enter a language." + (cond ((and (fboundp 'LaTeX-babel-active-languages) + (LaTeX-babel-active-languages)) + (completing-read + (TeX-argument-prompt optional prompt "Language") + (LaTeX-babel-active-languages))) + ((and (fboundp 'LaTeX-polyglossia-active-languages) + (LaTeX-polyglossia-active-languages)) + (completing-read + (TeX-argument-prompt optional prompt "Language") + (LaTeX-polyglossia-active-languages))) + (t + (TeX-read-string + (TeX-argument-prompt optional prompt "Language"))))) + +(defun LaTeX-arg-csquotes-language (optional &optional prompt) + "Insert a language for csquotes macros. +If OPTIONAL is non-nil, insert the language in square brackets. +PROMPT replaces the standard one \"Language\"." + (TeX-argument-insert + (LaTeX-csquotes-read-language optional prompt) + optional)) + +(TeX-add-style-hook + "csquotes" + (lambda () + (let ((quote-style-variant-list '(("american") ("brazilian") + ("british") ("german") + ("guillemets") ("guillemets*") + ("mexican") ("portuguese") + ("quotes") ("quotes*") + ("spanish") ("swiss"))) + (quote-style-name-list '(("austrian") ("croatian") ("czech") + ("danish") ("dutch") ("english") + ("finnish") ("french") ("german") + ("greek") ("italian") ("norwegian") + ("portuguese") ("russian") ("serbian") + ("spanish") ("swedish")))) + ;; New symbols + (TeX-add-symbols + + ;; 3.1 Quoting Regular Text + '("enquote" 1) + '("enquote*" 1) + + ;; 3.2 Quoting Text in a Foreign Language + '("foreignquote" LaTeX-arg-csquotes-language 1) + '("foreignquote*" LaTeX-arg-csquotes-language 1) + '("hyphenquote" LaTeX-arg-csquotes-language 1) + '("hyphenquote*" LaTeX-arg-csquotes-language 1) + + ;; 3.3 Formal Quoting of Regular Text + '("textquote" ["Citation"] ["Punctuation"] t) + '("textquote*" ["Citation"] ["Punctuation"] t) + + ;; 3.4 Formal Quoting of Text in a Foreign Language + '("foreigntextquote" + LaTeX-arg-csquotes-language ["Citation"] ["Punctuation"] t) + '("foreigntextquote*" + LaTeX-arg-csquotes-language ["Citation"] ["Punctuation"] t) + '("hyphentextquote" + LaTeX-arg-csquotes-language ["Citation"] ["Punctuation"] t) + '("hyphentextquote*" + LaTeX-arg-csquotes-language ["Citation"] ["Punctuation"] t) + + ;; 3.5 Block Quoting of Regular Text + '("blockquote" ["Citation"] ["Punctuation"] t) + + ;; 3.6 Block Quoting of Text in a Foreign Language + '("foreignblockquote" + LaTeX-arg-csquotes-language ["Citation"] ["Punctuation"] t) + '("hyphenblockquote" + LaTeX-arg-csquotes-language ["Citation"] ["Punctuation"] t) + '("hybridblockquote" + LaTeX-arg-csquotes-language ["Citation"] ["Punctuation"] t) + + ;; 3.7 Selecting Quote Styles + `("setquotestyle" + [ (TeX-arg-eval completing-read "Quote style variant: " + ',quote-style-variant-list) ] + (TeX-arg-eval completing-read "Quote style name or alias: " + ',quote-style-name-list)) + "setquotestyle*" + + ;; 4.1 Quoting Regular Text + '("MakeInnerQuote" "Character") + '("MakeOuterQuote" "Character") + '("MakeAutoQuote" "Opening quotation mark" "Closing quotation mark") + '("MakeAutoQuote*" "Opening quotation mark" "Closing quotation mark") + + ;; 4.2 Quoting Text in a Foreign Language + '("MakeForeignQuote" LaTeX-arg-csquotes-language + "Opening quotation mark" "Closing quotation mark") + '("MakeForeignQuote*" LaTeX-arg-csquotes-language + "Opening quotation mark" "Closing quotation mark") + + '("MakeHyphenQuote" LaTeX-arg-csquotes-language + "Opening quotation mark" "Closing quotation mark") + '("MakeHyphenQuote" LaTeX-arg-csquotes-language + "Opening quotation mark" "Closing quotation mark") + + ;; 4.3 Block Quoting of Regular Text + '("MakeBlockQuote" "Opening quotation mark" "Delimiter for citation" + "Closing quotation mark") + + ;; 4.4 Block Quoting of Text in a Foreign Language + '("MakeForeignBlockQuote" LaTeX-arg-csquotes-language + "Opening quotation mark" "Delimiter for citation" "Closing quotation mark") + '("MakeHyphenBlockQuote" LaTeX-arg-csquotes-language + "Opening quotation mark" "Delimiter for citation" "Closing quotation mark") + '("MakeHybridBlockQuote" LaTeX-arg-csquotes-language + "Opening quotation mark" "Delimiter for citation" "Closing quotation mark") + + ;; 4.5 Controlling Active Quotes + "EnableQuotes" + "DisableQuotes" + "VerbatimQuotes" + "DeleteQuotes" + + ;; 5.1 Formal Quoting of Regular Text + '("textcquote" ["Pre-note"] ["Post-note"] "Key" ["Punctuation"] t) + '("textcquote*" ["Pre-note"] ["Post-note"] "Key" ["Punctuation"] t) + + ;; 5.2 Formal Quoting of Text in a Foreign Language + '("foreigntextcquote" LaTeX-arg-csquotes-language + ["Pre-note"] ["Post-note"] "Key" ["Punctuation"] t) + '("foreigntextcquote*" LaTeX-arg-csquotes-language + ["Pre-note"] ["Post-note"] "Key" ["Punctuation"] t) + '("hyphentextcquote" LaTeX-arg-csquotes-language + ["Pre-note"] ["Post-note"] "Key" ["Punctuation"] t) + '("hyphentextcquote*" LaTeX-arg-csquotes-language + ["Pre-note"] ["Post-note"] "Key" ["Punctuation"] t) + + ;; 5.3 Block Quoting of Regular Text + '("blockcquote" ["Pre-note"] ["Post-note"] "Key" ["Punctuation"] t) + + ;; 5.4 Block Quoting of Text in a Foreign Language + '("foreignblockcquote" LaTeX-arg-csquotes-language + ["Pre-note"] ["Post-note"] "Key" ["Punctuation"] t) + '("hyphenblockcquote" LaTeX-arg-csquotes-language + ["Pre-note"] ["Post-note"] "Key" ["Punctuation"] t) + '("hybridblockcquote" LaTeX-arg-csquotes-language + ["Pre-note"] ["Post-note"] "Key" ["Punctuation"] t) + + ;; 7 Auxiliary Commands + '("textelp" 1) + '("textelp*" 1) + '("textins" 1) + '("textins*" 1) + '("textdel" 1) + + ;; 8.1 Defining Quote Styles + `("DeclareQuoteStyle" + [ (TeX-arg-eval completing-read "Quote style variant: " + ',quote-style-variant-list) ] + (TeX-arg-eval completing-read "Quote style name: " + ',quote-style-name-list) + ["Outer quote initialization"] ["Inner quote initialization"] + "Opening outer quotation mark" ["Middle outer quotation mark"] + "Closing outer quotation mark" ["Kerning between adjoining marks"] + "Opening inner quotation mark" ["Middle inner quotation mark"] + "Closing inner quotation mark") + `("DeclareQuoteAlias" + [ (TeX-arg-eval completing-read "Quote style variant: " + ',quote-style-variant-list) ] + (TeX-arg-eval completing-read "Quote style name: " + ',quote-style-name-list) + "Alias name") + '("DeclareQuoteOption" 1) + '("ExecuteQuoteOptions" 1) + '("DeclarePlainStyle" "Opening outer quotation mark" + "Closing outer quotation mark" "Opening inner quotation mark" + "Closing inner quotation mark") + '("SetBlockThreshold" "Number of lines") + '("SetBlockEnvironment" "Environment") + '("SetCiteCommand" "Command") + + ;; 8.7 Hooks for Quotations and Citations + "mkcitation" + "mkccitation" + "mktextquote" + "mkblockquote" + "mkbegdispquote" + "mkenddispquote" + + ;; 8.8 Additional Tests in Quotation Hooks + '("ifpunctmark" "Character" 2) + '("ifpunct" 2) + '("ifterm" 2) + '("iftextpunctmark" 4) + '("iftextpunct" 3) + '("iftextterm" 3) + '("ifblockquote" 2) + '("ifblank" 3) + "unspace" + + ;; 8.9 Configuring Punctuation Look-Ahead + '("DeclareAutoPunct" "Characters")) + + ;; Don't increase indentation at various \if* macros: + (let ((exceptions '("ifpunctmark" + "ifpunct" + "ifterm" + "iftextpunctmark" + "iftextpunct" + "iftextterm" + "ifblockquote" + "ifblank"))) + (dolist (elt exceptions) + (add-to-list 'LaTeX-indent-begin-exceptions-list elt t)) + (LaTeX-indent-commands-regexp-make)) + + ;; New environments + (LaTeX-add-environments + + ;; 6.1 Basic Display Environments + '("displayquote" LaTeX-env-args + ["Citation"] ["Punctuation"]) + + '("foreigndisplayquote" LaTeX-env-args + LaTeX-arg-csquotes-language ["Citation"] ["Punctuation"]) + + '("hyphendisplayquote" LaTeX-env-args + LaTeX-arg-csquotes-language ["Citation"] ["Punctuation"]) + + ;; 6.2 Integrated Display Environments + '("displaycquote" LaTeX-env-args + ["Pre-note"] ["Post-note"] "Key" ["Punctuation"]) + + '("foreigndisplaycquote" LaTeX-env-args + LaTeX-arg-csquotes-language["Pre-note"] ["Post-note"] "Key" ["Punctuation"]) + + '("hyphendisplaycquote" LaTeX-env-args + LaTeX-arg-csquotes-language["Pre-note"] ["Post-note"] "Key" ["Punctuation"])) + + ;; Quotation marks + (when (and (> (length LaTeX-csquotes-open-quote) 0) + (> (length LaTeX-csquotes-close-quote) 0)) + (setq TeX-quote-language + `(override ,LaTeX-csquotes-open-quote ,LaTeX-csquotes-close-quote + ,LaTeX-csquotes-quote-after-quote))) + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("EnableQuotes" "") + ("DisableQuotes" "") + ("VerbatimQuotes" "") + ("DeleteQuotes" "")) + 'function) + (font-latex-add-keywords '(("enquote" "*{") + ("foreignquote" "*{{") + ("hyphenquote" "*{{") + ("textquote" "*[[{") + ("foreigntextquote" "*{[[{") + ("hyphentextquote" "*{[[{") + ("blockquote" "[[{") + ("foreignblockquote" "{[[{") + ("hyphenblockquote" "{[[{") + ("hybridblockquote" "{[[{") + ("textcquote" "*[[{[{") + ("foreigntextcquote" "*{[[{[{") + ("hyphentextcquote" "*{[[{[{") + ("blockcquote" "[[{[{") + ("foreignblockcquote" "{[[{[{") + ("hyphenblockcquote" "{[[{[{") + ("hybridblockcquote" "{[[{[{")) + 'textual) + (font-latex-add-keywords '(("setquotestyle" "[{") + ("MakeOuterQuote" "{") + ("MakeInnerQuote" "{") + ("MakeAutoQuote" "*{{") + ("MakeForeignQuote" "*{{{") + ("MakeHyphenQuote" "*{{{") + ("MakeBlockQuote" "{{{") + ("MakeForeignBlockQuote" "{{{{") + ("MakeHyphenBlockQuote" "{{{{") + ("DeclareQuoteStyle" "[{[[{[{[{[{") + ("DeclareQuoteAlias" "[{{") + ("DeclareQuoteOption" "{") + ("DeclarePlainStyle" "{{{{") + ("SetBlockThreshold" "{") + ("SetBlockEnvironment" "{") + ("SetCiteCommand" "{")) + 'variable)))) + TeX-dialect) + +(defun LaTeX-csquotes-package-options () + "Prompt for package options for the csquotes package." + (TeX-read-key-val t '(("strict" ("true" "false")) + ("style" ("american" + "australian" + "austrian" + "brazil" + "brazilian" + "british" + "canadian" + "croatian" + "czech" + "danish" + "dutch" + "english" + "finnish" + "french" + "german" + "greek" + "italian" + "mexican" + "naustrian" + "newzealand" + "ngerman" + "norsk" + "norwegian" + "nswissgerman" + "nynorsk" + "portuges" + "portuguese" + "russian" + "serbian" + "spanish" + "swedish" + "swiss" + "swissgerman" + "UKenglish" + "USenglish")) + ("autostyle" ("true" "false" "try" "once" "tryonce")) + ("austrian" ("quotes" "guillemets")) + ("croatian" ("quotes" "guillemets" "guillemets*")) + ("czech" ("quotes" "guillemets")) + ("danish" ("quotes" "guillemets" "topquotes")) + ("english" ("american" "british")) + ("estonian") + ("french" ("quotes" "quotes*" "guillemets" "guillemets*")) + ("galician" ("quotes" "guillemets")) + ("german" ("quotes" "guillemets" "swiss")) + ("hungarian") + ("italian" ("guillemets" "quotes")) + ("latvian") + ("norwegian" ("guillemets" "quotes")) + ("polish" ("guillemets" "guillemets*")) + ("portuguese" ("portuguese" "brazilian")) + ("serbian" ("quotes" "guillemets" "german")) + ("spanish" ("spanish" "mexican")) + ("swedish" ("quotes" "guillemets" "guillemets*")) + ("maxlevel") + ("autopunct" ("true" "false")) + ("threshold") + ("thresholdtype" ("lines" "words")) + ("parthreshold" ("true" "false")) + ("splitcomp" ("true" "false")) + ("csdisplay" ("true" "false")) + ("debug" ("true" "false")) + ;; "babel" key is deprecated, replaced by "autostyle": + ;; ("babel" ("true" "false" "try" "once" "tryonce")) + ("version" ("4.4" "3.6" "3.0"))))) + +;;; csquotes.el ends here diff --git a/elpa/auctex-13.1.3/style/csquotes.elc b/elpa/auctex-13.1.3/style/csquotes.elc Binary files differnew file mode 100644 index 0000000..44f40a2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/csquotes.elc diff --git a/elpa/auctex-13.1.3/style/currvita.el b/elpa/auctex-13.1.3/style/currvita.el new file mode 100644 index 0000000..f1f27a3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/currvita.el @@ -0,0 +1,98 @@ +;;; currvita.el --- AUCTeX style for `currvita.sty' (v0.9i) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-01-05 +;; 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 `currvita.sty' (v0.9i) from 1999/09/13. +;; `currvita.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; This is a modified version of `LaTeX-env-item'. +(defun LaTeX-currvita-env-with-label (env) + "Insert ENV, a mandatory label and the first item." + (LaTeX-insert-environment + env + (let ((heading (TeX-read-string "Heading of list: "))) + (format "{%s}" heading))) + (if (TeX-active-mark) + (progn + (LaTeX-find-matching-begin) + (end-of-line 1)) + (end-of-line 0)) + (delete-char 1) + (when (looking-at (concat "^[ \t]+$\\|" + "^[ \t]*" TeX-comment-start-regexp "+[ \t]*$")) + (delete-region (point) (line-end-position))) + (delete-horizontal-space) + ;; Deactivate the mark here in order to prevent `TeX-parse-macro' + ;; from swapping point and mark and the \item ending up right after + ;; \begin{...}. + (deactivate-mark) + (LaTeX-insert-item) + ;; The inserted \item may have outdented the first line to the + ;; right. Fill it, if appropriate. + (when (and auto-fill-function + (not (looking-at "$")) + (not (assoc env LaTeX-indent-environment-list)) + (> (- (line-end-position) (line-beginning-position)) + (current-fill-column))) + (LaTeX-fill-paragraph nil))) + + +(TeX-add-style-hook + "currvita" + (lambda () + + ;; env's defined by currvita.sty + (LaTeX-add-environments + '("cv" "Heading of CV") + '("cvlist" LaTeX-currvita-env-with-label)) + + ;; Add "cvlist" to the list of environments which have an optional + ;; argument for each item + (add-to-list 'LaTeX-item-list '("cvlist" . LaTeX-item-argument)) + + ;; General commands: "\date" is already provided by AUCTeX + (TeX-add-symbols + '("cvplace" t) + "cvheadingfont" + "cvlistheadingfont" + "cvlabelfont" + "cvbibname") + + ;; Add new lengths defined by currvita.sty + (LaTeX-add-lengths "cvlabelwidth" "cvlabelskip" "cvlabelsep")) + TeX-dialect) + +(defvar LaTeX-currvita-package-options + '("LabelsAligned" "TextAligned" "openbib" "ManyBibs" "NoDate") + "Package options for the currvita package.") + +;;; currvita.el ends here diff --git a/elpa/auctex-13.1.3/style/currvita.elc b/elpa/auctex-13.1.3/style/currvita.elc Binary files differnew file mode 100644 index 0000000..bf9cdf7 --- /dev/null +++ b/elpa/auctex-13.1.3/style/currvita.elc diff --git a/elpa/auctex-13.1.3/style/cuted.el b/elpa/auctex-13.1.3/style/cuted.el new file mode 100644 index 0000000..cb769fc --- /dev/null +++ b/elpa/auctex-13.1.3/style/cuted.el @@ -0,0 +1,73 @@ +;;; cuted.el --- AUCTeX style for `cuted.sty' (v2.0) -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-12-11 +;; 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 `cuted.sty' (v2.0) from 2021/10/04. +;; `cuted.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "cuted" + (lambda () + + ;; Add the only environment provided by the package: + (LaTeX-add-environments "strip") + + ;; This is a glue, in LaTeX set with \setlength: + (LaTeX-add-lengths "stripsep") + + ;; New symbols + (TeX-add-symbols + '("preCutedStrip" t) + '("postCutedStrip" t) + '("oldcolsbreak" t)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("preCutedStrip" "{") + ("postCutedStrip" "{") + ("oldcolsbreak" "{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-cuted-package-options + '("spread" "nospread" "shrink" "noshrink" + "lspread" "nolspread" "lshrink" "nolshrink" + "rspread" "norspread" "rshrink" "norshrink" + "debug" "nodebug") + "Package options for the cuted package.") + +;;; cuted.el ends here diff --git a/elpa/auctex-13.1.3/style/cuted.elc b/elpa/auctex-13.1.3/style/cuted.elc Binary files differnew file mode 100644 index 0000000..4109ea2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/cuted.elc diff --git a/elpa/auctex-13.1.3/style/czech.el b/elpa/auctex-13.1.3/style/czech.el new file mode 100644 index 0000000..d000fe6 --- /dev/null +++ b/elpa/auctex-13.1.3/style/czech.el @@ -0,0 +1,11 @@ +;;; czech.el --- Setup AUCTeX for editing Czech text. -*- lexical-binding: t; -*- + +(require 'tex) + +(TeX-add-style-hook + "czech" + (lambda () + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language `("czech" "\\uv{" "}" ,TeX-quote-after-quote))) + (run-hooks 'TeX-language-cz-hook)) + TeX-dialect) diff --git a/elpa/auctex-13.1.3/style/czech.elc b/elpa/auctex-13.1.3/style/czech.elc Binary files differnew file mode 100644 index 0000000..e7c66de --- /dev/null +++ b/elpa/auctex-13.1.3/style/czech.elc diff --git a/elpa/auctex-13.1.3/style/danish.el b/elpa/auctex-13.1.3/style/danish.el new file mode 100644 index 0000000..a582e9e --- /dev/null +++ b/elpa/auctex-13.1.3/style/danish.el @@ -0,0 +1,26 @@ +;;; danish.el --- Setup AUCTeX for editing Danish text. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-quotes + "font-latex" + (quotes)) + +(TeX-add-style-hook + "danish" + (lambda () + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language `("danish" "\"`" "\"'" ,TeX-quote-after-quote))) + (setq LaTeX-babel-hyphen-language "danish") + ;; Fontification of quotation marks. + (when (fboundp 'font-latex-add-quotes) + (font-latex-add-quotes '("\"`" "\"'")) + (font-latex-add-quotes '("\">" "\"<" german))) + (run-hooks 'TeX-language-dk-hook)) + TeX-dialect) + +;;; danish.el ends here diff --git a/elpa/auctex-13.1.3/style/danish.elc b/elpa/auctex-13.1.3/style/danish.elc Binary files differnew file mode 100644 index 0000000..ba556f4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/danish.elc diff --git a/elpa/auctex-13.1.3/style/dashundergaps.el b/elpa/auctex-13.1.3/style/dashundergaps.el new file mode 100644 index 0000000..cb58760 --- /dev/null +++ b/elpa/auctex-13.1.3/style/dashundergaps.el @@ -0,0 +1,106 @@ +;;; dashundergaps.el --- AUCTeX style for `dashundergaps.sty' (v2.0d) -*- lexical-binding: t; -*- + +;; Copyright (C) 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2018-11-24 +;; 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 `dashundergaps.sty' v2.0d from +;; 2018/11/18. `dashundergaps.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-dashundergaps-key-val-options + `(;; 2.1.1 Gap modes + ("teacher-mode" ("true" "false")) + ("gap-mode" ("true" "false")) + ("teachermode" ("true" "false")) + ;; 2.1.2 Gap formatting + ("gap-format" ("underline" "double-underline" + "dash" "dot" "wave" "blank")) + ("gap-format-adjust" ("true" "false")) + ("teacher-gap-format" ("underline" "double-underline" + "dash" "dot" "wave" "blank")) + ("gap-font" ,(mapcar (lambda (x) + (concat TeX-esc x)) + '("rmfamily" "sffamily" "ttfamily" "mdseries" "bfseries" + "upshape" "itshape" "slshape" "scshape" + "tiny" "scriptsize" "footnotesize" + "small" "normalsize" "large" + "Large" "LARGE" "huge" "Huge" "normalfont"))) + ("dash") + ("dot") + ;; 2.1.3 Gap numbers + ("gap-numbers" ("true" "false")) + ("gap-number-format") + ("numbers") + ("display-total-gaps" ("true" "false")) + ("displaynbgaps") + ;; 2.1.4 Gap widening + ("gap-widen" ("true" "false")) + ("gap-extend-minimum" ,(mapcar (lambda (x) + (concat TeX-esc x)) + (mapcar #'car (LaTeX-length-list)))) + ("gap-extend-percent") + ("widen")) + "Key=value options for dashundergaps macro.") + +(TeX-add-style-hook + "dashundergaps" + (lambda () + + ;; 2 The user interface + (TeX-add-symbols + '("gap" [ TeX-arg-key-val LaTeX-dashundergaps-key-val-options ] t) + '("gap*" [ TeX-arg-key-val LaTeX-dashundergaps-key-val-options ] t) + + '("TeacherModeOn" 0) + '("TeacherModeOff" 0) + + '("dashundergapssetup" + (TeX-arg-key-val LaTeX-dashundergaps-key-val-options))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("gap" "*[{")) + 'textual) + (font-latex-add-keywords '(("dashundergapssetup" "{") + ("TeacherModeOn" "") + ("TeacherModeOff" "")) + 'function))) + TeX-dialect) + +(defvar LaTeX-dashundergaps-package-options nil + "Package options for the dashundergaps package.") + +;;; dashundergaps.el ends here diff --git a/elpa/auctex-13.1.3/style/dashundergaps.elc b/elpa/auctex-13.1.3/style/dashundergaps.elc Binary files differnew file mode 100644 index 0000000..a4901d8 --- /dev/null +++ b/elpa/auctex-13.1.3/style/dashundergaps.elc diff --git a/elpa/auctex-13.1.3/style/dcolumn.el b/elpa/auctex-13.1.3/style/dcolumn.el new file mode 100644 index 0000000..8151f59 --- /dev/null +++ b/elpa/auctex-13.1.3/style/dcolumn.el @@ -0,0 +1,51 @@ +;;; dcolumn.el --- AUCTeX style for `dcolumn.sty' (v1.06) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-12-18 +;; 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 `dcolumn.sty' (v1.06) from 2014/10/28. +;; `dcolumn.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "dcolumn" + (lambda () + + ;; `dcolumn.sty' adds one new column specification letter: + (set (make-local-variable 'LaTeX-array-column-letters) + (concat LaTeX-array-column-letters "D")) + + ;; Also run style hook for `array': + (TeX-run-style-hooks "array")) + TeX-dialect) + +(defvar LaTeX-dcolumn-package-options nil + "Package options for the dcolumn package.") + +;;; dcolumn.el ends here diff --git a/elpa/auctex-13.1.3/style/dcolumn.elc b/elpa/auctex-13.1.3/style/dcolumn.elc Binary files differnew file mode 100644 index 0000000..ff4b805 --- /dev/null +++ b/elpa/auctex-13.1.3/style/dcolumn.elc diff --git a/elpa/auctex-13.1.3/style/dinbrief.el b/elpa/auctex-13.1.3/style/dinbrief.el new file mode 100644 index 0000000..fe8a5e9 --- /dev/null +++ b/elpa/auctex-13.1.3/style/dinbrief.el @@ -0,0 +1,283 @@ +;;; dinbrief.el --- Special code for LaTeX-Style dinbrief. -*- lexical-binding: t; -*- + +;; Copyright (C) 1994-2021 Free Software Foundation, Inc. + +;; Author: Werner Fink <werner@suse.de> +;; Maintainer: auctex-devel@gnu.org +;; 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: + +;; LaTeX Class: dinbrief.cls + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "dinbrief" + (lambda () + (add-hook 'LaTeX-document-style-hook + #'LaTeX-dinbrief-style) + (LaTeX-add-environments + '("letter" LaTeX-dinbrief-env-recipient) + "dinquote") + (TeX-add-symbols + '("address" "Absender") + '("postremark" "Postvermerk") + '("date" "Datum") + '("subject" "Betreff") + '("handling" "Behandlungsvermerk") + '("cc" "Verteiler") + '("place" "Heutiger Ort") + "makelabels" + "nowindowrules" + "windowrules" + "nowindowtics" + "windowtics" + "disabledraftstandard" + "enabledraftstandard" + "centeraddress" + "normaladdress" + '("encl" "Anlagen: ") + '("backaddress" "Retouradresse") + '("signature" "Unterschrift") + '("opening" "Anrede") + '("closing" "Schluss"))) + TeX-dialect) + +(defmacro LaTeX-dinbrief-insert (&rest args) + "Insert text ignoring active markers." + `(progn (if mark-active (deactivate-mark)) + (insert ,@args))) + +(defun LaTeX-dinbrief-style () + "Insert some useful packages for writing german letters." + ;; COMPATIBILITY for EMACS<26 + (let ((func (if (fboundp 'indent-relative-first-indent-point) + #'indent-relative-first-indent-point + ;; Stay away from using #' to avoid compiler warning. + 'indent-relative-maybe))) + (save-excursion + (goto-char (point-min)) ; insert before \begin{document} + (if (re-search-forward ".begin.document." (point-max) t) + (beginning-of-line 1)) + (open-line 2) + (funcall func) + (LaTeX-dinbrief-insert TeX-esc "usepackage" + LaTeX-optop "latin1,utf8" LaTeX-optcl + TeX-grop "inputenc" TeX-grcl) + (newline-and-indent) + (LaTeX-dinbrief-insert TeX-esc "usepackage" + LaTeX-optop "T1" LaTeX-optcl + TeX-grop "fontenc" TeX-grcl) + (funcall func) + (LaTeX-dinbrief-insert TeX-esc "usepackage" + TeX-grop "ngerman" TeX-grcl)) + (TeX-run-style-hooks "inputenc" "fontenc" "ngerman"))) + +(defun LaTeX-dinbrief-env-recipient (environment) + "Insert ENVIRONMENT and prompt for recipient and address." + (let ((sender (LaTeX-dinbrief-sender)) + (recipient (TeX-read-string "Empfänger: ")) + (address (LaTeX-dinbrief-recipient)) + (date (TeX-read-string "Datum: " (LaTeX-dinbrief-today))) + (postremark (TeX-read-string "Postvermerk: ")) + (fenster (TeX-read-string "Fenster (ja/nein): ")) + (vermerk (TeX-read-string "Behandlungsvermerk: ")) + (verteil (TeX-read-string "Verteiler: ")) + (betreff (TeX-read-string "Betreff: ")) + (opening (TeX-read-string "Anrede: ")) + (closing (TeX-read-string "Schluss: ")) + (signature (TeX-read-string "Unterschrift: ")) + (anlage (TeX-read-string "Anlagen: ")) + ;; COMPATIBILITY for EMACS<26 + (func (if (fboundp 'indent-relative-first-indent-point) + #'indent-relative-first-indent-point + ;; Stay away from using #' to avoid compiler warning. + 'indent-relative-maybe))) + (if (string= fenster "ja") + (progn + (LaTeX-dinbrief-insert TeX-esc "enabledraftstandard") + (newline-and-indent) + (LaTeX-dinbrief-insert TeX-esc "centeraddress") + (newline-and-indent) + (LaTeX-dinbrief-insert TeX-esc "nowindowrules") + (newline-and-indent) + (LaTeX-dinbrief-insert TeX-esc "windowtics") + (newline-and-indent) + (let ((retouradr (TeX-read-string "Retouradresse: " sender))) + (newline-and-indent) + (if (not (zerop (length retouradr))) + (progn + (if mark-active (deactivate-mark)) + (LaTeX-dinbrief-insert TeX-esc "backaddress" TeX-grop retouradr TeX-grcl) + (newline-and-indent))))) + (LaTeX-dinbrief-insert TeX-esc "enabledraftstandard") + (newline-and-indent) + (LaTeX-dinbrief-insert TeX-esc "centeraddress") + (newline-and-indent) + (LaTeX-dinbrief-insert TeX-esc "nowindowrules") + (newline-and-indent) + (LaTeX-dinbrief-insert TeX-esc "windowtics")) + (newline-and-indent) + (if (not (zerop (length signature))) + (progn + (LaTeX-dinbrief-insert TeX-esc "signature" TeX-grop signature TeX-grcl) + (newline-and-indent))) + (if (not (zerop (length date))) + (progn + (LaTeX-dinbrief-insert TeX-esc "date" TeX-grop date TeX-grcl) + (newline-and-indent))) + (newline-and-indent) + + (let ((indentation (current-column))) + (LaTeX-insert-environment + environment + (concat TeX-grop recipient + (if (not (zerop (length address))) + (concat + (if (not (zerop (length recipient))) + (concat " " TeX-esc TeX-esc " ")) + address)) + TeX-grcl)) + (save-excursion ; Fix indentation of address + (if (search-backward TeX-grcl nil 'move) + (let ((addr-end (point-marker))) + (if (search-backward TeX-grop nil 'move) + (let ((addr-column (current-column))) + (while (search-forward + (concat TeX-esc TeX-esc) + (marker-position addr-end) 'move) + (progn + (newline) + (indent-to addr-column))))) + (set-marker addr-end nil)))) + (LaTeX-dinbrief-insert "\n") + (indent-to indentation)) + (if (not (zerop (length postremark))) + (progn + (LaTeX-dinbrief-insert TeX-esc "postremark" TeX-grop postremark TeX-grcl) + (newline-and-indent))) + (if (not (zerop (length betreff))) + (progn + (LaTeX-dinbrief-insert TeX-esc "subject" TeX-grop) + (LaTeX-dinbrief-insert betreff TeX-grcl) + (newline-and-indent))) + (if (not (zerop (length vermerk))) + (progn + (LaTeX-dinbrief-insert TeX-esc "handling" TeX-grop vermerk TeX-grcl) + (newline-and-indent))) + (if (not (zerop (length verteil))) + (progn + (LaTeX-dinbrief-insert TeX-esc "cc" TeX-grop verteil TeX-grcl) + (newline-and-indent))) + (if (not (zerop (length anlage))) + (progn + (LaTeX-dinbrief-insert TeX-esc "encl" TeX-grop anlage TeX-grcl) + (newline-and-indent))) + (LaTeX-dinbrief-insert TeX-esc "opening" + TeX-grop + (if (zerop (length opening)) + (concat TeX-esc " ") + opening) + TeX-grcl "\n") + + (funcall func) + (save-excursion + (LaTeX-dinbrief-insert "\n" TeX-esc "closing" + TeX-grop + (if (zerop (length closing)) + (concat TeX-esc " ") + closing) + TeX-grcl "\n") + (funcall func)))) + +(defun LaTeX-dinbrief-sender () + "Read and write the senders address." + (interactive) + (let ((name (TeX-read-string "Absender: " (user-full-name))) + (str (TeX-read-string "Meine Strasse: ")) + (ort (TeX-read-string "Mein Wohnort: "))) + (if (not (zerop (length name))) + (progn + (goto-char (point-min)) ; insert before \end{document} + (if (re-search-forward ".end.document." (point-max) t) + (beginning-of-line 1)) + (forward-line -1) + (LaTeX-dinbrief-insert TeX-esc "address" TeX-grop name) + (if (not (zerop (length str))) + (progn + (LaTeX-dinbrief-insert " " TeX-esc TeX-esc) + (newline-and-indent) + (LaTeX-dinbrief-insert str))) + (if (not (zerop (length ort))) + (progn + (LaTeX-dinbrief-insert " " TeX-esc "par") + (newline-and-indent) + (LaTeX-dinbrief-insert ort))) + (LaTeX-dinbrief-insert TeX-grcl) + (newline-and-indent) + (concat name ", " str ", " ort))))) + +(defun LaTeX-dinbrief-recipient () + "Read and return the recipient address." + (interactive) + (let ((str (TeX-read-string "Wohnhaft in Strasse: ")) + (ort (TeX-read-string "Aus der Ortschaft: "))) + (if (not (zerop (length str))) + (if (not (zerop (length ort))) + (concat str " " TeX-esc TeX-esc " " ort) + str) + (if (not (zerop (length ort))) + ort)))) + +(defun LaTeX-dinbrief-today () + "Return a string representing todays date according to flavor." + (interactive) + (let ((ctime-string (current-time-string)) + (month-alist '(("Jan" . "Januar") + ("Feb" . "Februar") + ("Mar" . "M\\\"arz") + ("Apr" . "April") + ("May" . "Mai") + ("Jun" . "Juni") + ("Jul" . "Juli") + ("Aug" . "August") + ("Sep" . "September") + ("Oct" . "Oktober") + ("Nov" . "November") + ("Dec" . "Dezember")))) + (string-match + "^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)" + ctime-string) + (let ((year (substring ctime-string (match-beginning 3) (match-end 3))) + (month (substring ctime-string (match-beginning 1) (match-end 1))) + (day (substring ctime-string (match-beginning 2) (match-end 2))) + (place (TeX-read-string "Heutiger Ort: "))) + (if (assoc month month-alist) + (progn + (setq month (cdr (assoc month month-alist))) + (if (> 2 (length day)) + (setq day (concat "0" day))))) + (format "%s, den %s. %s %s" place day month year)))) + +;;; dinbrief.el ends here diff --git a/elpa/auctex-13.1.3/style/dinbrief.elc b/elpa/auctex-13.1.3/style/dinbrief.elc Binary files differnew file mode 100644 index 0000000..a058396 --- /dev/null +++ b/elpa/auctex-13.1.3/style/dinbrief.elc diff --git a/elpa/auctex-13.1.3/style/dk-bib.el b/elpa/auctex-13.1.3/style/dk-bib.el new file mode 100644 index 0000000..18db014 --- /dev/null +++ b/elpa/auctex-13.1.3/style/dk-bib.el @@ -0,0 +1,62 @@ +;;; dk-bib.el --- AUCTeX style for `dk-bib.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2005-2021 Free Software Foundation, Inc. + +;; Author: Arne Jørgensen <arne@arnested.dk> +;; 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 Street, Fifth Floor, Boston, +;; MA 02110-1301, USA. + +;;; Commentary: + +;; Prompt for package option for dk-bib.sty. + +;;; Code: + +(require 'tex) + +(defun LaTeX-dk-bib-package-options nil + "Prompt for package options for the dk-bib package." + (let ((options + (mapconcat #'identity + (TeX-completing-read-multiple + "Options: " + '(("isbn") ("issn") ("url") ("annote") + ("printing") ("apalike") ("fixcitedash=false") + ("ordinals2word") ("ordinaldepth="))) + ",")) + (depth -1)) + (when (string-match "\\(ordinaldepth=\\)\\([^0-9]\\|$\\)" options) + (while (or (< depth 0) + (> depth 20)) + (setq depth (read-number "Ordinal depth: ")) + (when (or (< depth 0) + (> depth 20)) + (message "Ordinal depth must be between 0 and 20") + (sit-for 1))) + (setq options (concat + (substring options 0 (match-end 1)) + (number-to-string depth) + (substring options (match-end 1))))) + options)) + +;; Local Variables: +;; coding: utf-8 +;; End: + +;;; dk-bib.el ends here diff --git a/elpa/auctex-13.1.3/style/dk-bib.elc b/elpa/auctex-13.1.3/style/dk-bib.elc Binary files differnew file mode 100644 index 0000000..d28b9c0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/dk-bib.elc diff --git a/elpa/auctex-13.1.3/style/dk.el b/elpa/auctex-13.1.3/style/dk.el new file mode 100644 index 0000000..2d7d783 --- /dev/null +++ b/elpa/auctex-13.1.3/style/dk.el @@ -0,0 +1,13 @@ +;;; dk.el - Setup AUCTeX for editing Danish text. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "dk" + (lambda () + (run-hooks 'TeX-language-dk-hook)) + TeX-dialect) + +;;; dk.el ends here diff --git a/elpa/auctex-13.1.3/style/dk.elc b/elpa/auctex-13.1.3/style/dk.elc Binary files differnew file mode 100644 index 0000000..945ebc3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/dk.elc diff --git a/elpa/auctex-13.1.3/style/doc.el b/elpa/auctex-13.1.3/style/doc.el new file mode 100644 index 0000000..63c6580 --- /dev/null +++ b/elpa/auctex-13.1.3/style/doc.el @@ -0,0 +1,466 @@ +;;; doc.el --- AUCTeX style for `doc.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2004-2022 Free Software Foundation, Inc. + +;; Author: Frank Küster <frank@kuesterei.ch> +;; Maintainer: auctex-devel@gnu.org +;; 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 `doc.sty' (v3.0h) dated 2022/06/01. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(declare-function font-latex-add-to-syntax-alist + "font-latex" + (list)) + +(defun LaTeX-env-doc-no-comment (environment) + "Insert ENVIRONMENT and make sure there is no commented empty line inside." + (LaTeX-insert-environment environment) + (unless (TeX-active-mark) + (when (save-excursion + (beginning-of-line) + (looking-at (concat "[ \t]+$\\|[ \t]*" + TeX-comment-start-regexp "+[ \t]*$"))) + (delete-region (line-beginning-position) (line-end-position)) + (indent-according-to-mode)))) + +(defun LaTeX-env-doc-commented (environment) + "Insert ENVIRONMENT and make sure all parts are in comments. +This functions search for the begin and the end of the inserted +environment and makes sure those parts are in comments. The same +applies also to the point inside after the insertion." + (LaTeX-insert-environment + environment + (if (string= environment "macro") + ;; For 'macro' environment, elements will start with a + ;; backslash, so we insert them initially: + (progn + (let ((opt (mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt t nil "Suppress option") + '("noindex" "noprint")) + ",")) + (mac (TeX-read-string + (TeX-argument-prompt nil nil "Macro(s)") + TeX-esc))) + (concat (when (and opt (not (string= opt ""))) + (format "[%s]" opt)) + (format "{%s}" mac)))) + ;; For other environments, we don't know about the elements, + ;; so do nothing. For 'environment', we adjust the prompt in + ;; minibuffer. + (let ((opt (mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt t nil "Suppress option") + '("noindex" "noprint")) + ",")) + (env (TeX-read-string + (TeX-argument-prompt nil nil + (if (string= environment "environment") + "Environment(s)" + "Element(s)"))))) + (concat + (when (and opt (not (string= opt ""))) + (format "[%s]" opt)) + (format "{%s}" env))))) + ;; Now make sure everything is commented: + (let ((p (point-marker)) + (active-mark (and (TeX-active-mark) + (not (eq (mark) (point))))) + (func (lambda () + (if (TeX-in-line-comment) + (indent-according-to-mode) + (delete-horizontal-space) + (beginning-of-line) + (insert "%") + (indent-according-to-mode))))) + ;; Go to the start of the env we have inserted: + (search-backward (concat "\\begin" TeX-grop environment TeX-grcl) + (if active-mark nil (line-beginning-position 0)) + t) + ;; If the line is not commented, insert % + (funcall func) + (goto-char p) + ;; Do the same for the end of the environment + (search-forward (concat "\\end" TeX-grop environment TeX-grcl) + (if active-mark nil (line-end-position 2)) + t) + (goto-char (match-beginning 0)) + (funcall func) + ;; Finally for where we started and clean up only when region was + ;; not active: + (goto-char p) + (unless active-mark (funcall func)) + (set-marker p nil))) + +(defun LaTeX-doc-after-insert-macrocode (env start end) + "Make sure the macrocode environment is properly formatted after insertion." + (when (TeX-member env '("macrocode" "macrocode*") + #'string-equal) + (save-excursion + (goto-char end) + (skip-chars-backward " \t") + (when (bolp) + (insert "%") + (indent-according-to-mode)) + (goto-char start) + (skip-chars-backward " \t") + (when (bolp) + (insert "%") + (indent-according-to-mode))))) + +(defvar LaTeX-doc-newdocelement-key-val-options + '(("macrolike" ("true" "false")) + ("envlike" ("true" "false")) + ("toplevel" ("true" "false")) + ("notoplevel" ("true" "false")) + ("idxtype") + ("printtype") + ("idxgroup") + ("noindex" ("true" "false")) + ("noprint" ("true" "false"))) + "Key=value options for '\\NewDocElement' macro.") + +;; Setup for \NewDocElement: + +(TeX-auto-add-type "doc-NewDocElement" "LaTeX") + +(defvar LaTeX-doc-NewDocElement-regexp + `(,(concat "^[ \t%]*" + "\\\\NewDocElement" + "[ \t\n\r%]*" + "\\(?:" + (LaTeX-extract-key-value-label 'none) + "\\)?" + "[ \t\n\r%]*" + "{\\([^}]+\\)}" + "[ \t\n\r%]*" + "{\\([^}]+\\)}") + (1 2) LaTeX-auto-doc-NewDocElement) + "Matches the arguments of '\\NewDocElement' from doc package. +AUCTeX parser doesn't look for text parts commented out. +Therefore, the regexp in this variable explicitly looks for a +percent sign at the beginning of a line before +'\\NewDocElement'.") + +(defun LaTeX-doc-auto-prepare () + "Clear `LaTeX-auto-doc-NewDocElement' before parsing." + (setq LaTeX-auto-doc-NewDocElement nil)) + +(defun LaTeX-doc-auto-cleanup () + "Process elements defined with '\\NewDocElement'." + (when (LaTeX-doc-NewDocElement-list) + ;; Make sure `docTeX-indent-inner-fixed' is local: + (make-local-variable 'docTeX-indent-inner-fixed) + + ;; \NewDocElement[<options>]{<element-name>}{<env-name>} defines: + ;; 1. \Describe<element-name>[<options>]{<element>} + ;; 2. \begin{<env-name>}[<options>]{<element>} + ;; 3. \PrintDescribe<element-name>{<element>} + ;; 4. \Print<element-name>Name + (let (macs) + (dolist (elt (LaTeX-doc-NewDocElement-list)) + (let ((eltname (car elt)) + (envname (cadr elt))) + (TeX-add-symbols + ;; Cater for \Describe<eltname>[options]{<elements query>} + `(,(concat "Describe" eltname) + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Suppress option") + '("noindex" "noprint")] + "Element") + + ;; Cater for \PrintDescribe<eltname>{<elements query>} + `(,(concat "PrintDescribe" eltname) "Element") + + ;; Cater for \Print<eltname>Name + (concat "Print" eltname "Name")) + + ;; Add the \Describe<element-name> to macs + (push (concat "Describe" eltname) macs) + + ;; Cater for \begin{<envname>}[options]{<elements query>} + (LaTeX-add-environments + `(,envname LaTeX-env-doc-commented)) + + ;; Make sure we have fixed inner indent for our environments: + (add-to-list 'docTeX-indent-inner-fixed + `(,(concat (regexp-quote TeX-esc) + "\\(begin\\|end\\)[ \t]*" + (regexp-quote TeX-grop) + envname + (regexp-quote TeX-grcl)) + 0 nil) + t) + ;; Add fontification: + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,(concat "Describe" eltname) "[|{\\" )) + 'variable)))) + + ;; Let \Describe<element-name> stay in their own lines: + (LaTeX-paragraph-commands-add-locally macs)))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-doc-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-doc-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "doc" + (lambda () + + ;; Add doc to the parser: + (TeX-auto-add-regexp LaTeX-doc-NewDocElement-regexp) + + (add-hook 'LaTeX-after-insert-env-hook #'LaTeX-doc-after-insert-macrocode + nil t) + + (LaTeX-add-environments + ;; 2.3 General conventions + '("macrocode" LaTeX-env-doc-no-comment) + '("macrocode*" LaTeX-env-doc-no-comment) + + ;; 2.5 Describing the definition of macros and environments + '("macro" LaTeX-env-doc-commented) + '("environment" LaTeX-env-doc-commented) + + '("theglossary" LaTeX-env-item)) + + (TeX-add-symbols + ;; 2.1 The driver file + '("DocInput" + (TeX-arg-eval + (lambda () + (let ((file (file-relative-name + (read-file-name + "File to input: " nil nil nil nil + (lambda (x) + (or (file-directory-p x) + (string-match "\\.\\(fdd\\|dtx\\)\\'" x)))) + (TeX-master-directory)))) + (format "%s" file))))) + + '("IndexInput" + (TeX-arg-eval + (lambda () + (let ((file (file-relative-name + (read-file-name + "File to input: " nil nil nil nil + (lambda (x) + (or (file-directory-p x) + (string-match "\\.\\(tex\\|ltx\\|fdd\\|dtx\\)\\'" x)))) + (TeX-master-directory)))) + (format "%s" file))))) + + ;; 2.2 Package options + '("SetupDoc" (TeX-arg-eval mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt nil nil "Options") + LaTeX-doc-package-options) + ",")) + + ;; 2.4 Describing the usage of macros and environments + '("DescribeMacro" + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Suppress option") + '("noindex" "noprint")] + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Macro") + TeX-esc))) + (format "%s" name))))) + '("DescribeEnv" + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Suppress option") + '("noindex" "noprint")] + "Environment") + + ;; 2.5 Describing the definition of macros and environments + "MacroFont" + + ;; 2.6 Formatting names in the margin + '("PrintDescribeMacro" "Element") + '("PrintDescribeEnv" "Element") + "PrintMacroName" + "PrintEnvName" + + ;; 2.7 Providing further documentation items + '("NewDocElement" + [TeX-arg-key-val LaTeX-doc-newdocelement-key-val-options] + "Element name" "Environment name") + + ;; 2.8 Displaying sample code verbatim + ;; "verbatim" environment and "verb" macro are provided by + ;; latex.el, so we don't add them here again. + + ;; 2.9 Using a special escape character + '("SpecialEscapechar" "Character") + + ;; 2.10 Cross-referencing all macros used + "DisableCrossrefs" + "EnableCrossrefs" + ;; We don't fontify the next macro since it is a one-liner anyway + '("DoNotIndex" t) + "CodelineIndex" + "PageIndex" + "theCodelineNo" + "CodelineNumbered" + + ;; 2.11 Producing the actual index entries + "actualchar" + "quotechar" + "encapchar" + "levelchar" + + "SpecialMainMacroIndex" + "SpecialMainEnvIndex" + "SpecialMacroIndex" + "SpecialEnvIndex" + "SpecialIndex" + "SpecialShortIndex" + "SortIndex" + "verbatimchar" + + "subitem" + "subsubitem" + "indexspace" + "efill" + "pfill" + + ;; 2.12 Setting the index entries: theindex environment is + ;; provided by latex.el. + "PrintIndex" + '("IndexPrologue" t) + "IndexParms" + "main" + "usage" + "code" + + ;; 2.13 Changing the default values of style parameters + "DocstyleParms" + + ;; 2.14 Short input of verbatim text pieces: These macros are + ;; provided by 'shortvrb.el' which is run later + + ;; 2.15 Additional bells and whistles + "Web" + "AmSTeX" + "BibTeX" + "SliTeX" + "PlainTeX" + '("meta" "Text") + "OnlyDescription" + '("StopEventually" t) + '("MaybeStop" t) + "Finale" + "AlsoImplementation" + "IndexInput" + '("changes" "version" TeX-arg-date t) + "generalname" + "RecordChanges" + "PrintChanges" + "GlossaryPrologue" + "GlossaryParms" + "bslash" + "MakePrivateLetters" + "DontCheckModules" + "CheckModules" + "Module" + '("AltMacroFont" t) + + ;; 5.1 makeindex bugs + "PercentIndex" + ;; 5.2 File transmission issues + '("CheckSum" t) + '("CharacterTable" t)) + + (TeX-run-style-hooks "shortvrb") + + (LaTeX-add-lengths "MacrocodeTopsep" "MacroTopsep" "MacroIndent" + "IndexMin" "GlossaryMin") + (LaTeX-add-counters "IndexColumns" "GlossaryColumns" "StandardModuleDepth") + + ;; Macros which should be on their own line: + (LaTeX-paragraph-commands-add-locally '("DescribeEnv" + "DescribeMacro" + "changes")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("SetupDoc" "{") + ("NewDocElement" "[{{") + ("RenewDocElement" "[{{") + ("SpecialEscapechar" "{") + ("DisableCrossrefs" "") + ("EnableCrossrefs" "") + ("CodelineIndex" "") + ("PageIndex" "") + ("CodelineNumbered" "") + ("PrintIndex" "") + ("IndexPrologue" "") + ("AmSTeX" "") + ("BibTeX" "") + ("SliTeX" "") + ("PlainTeX" "") + ("OnlyDescription" "") + ("StopEventually" "") + ("MaybeStop" "") + ("Finale" "") + ("AlsoImplementation" "") + ("changes" "{{{") + ("PrintChanges" "") + ("RecordChanges" "")) + 'function) + (font-latex-add-keywords '(("DescribeMacro" "[|{\\") + ("DescribeEnv" "[{")) + 'variable) + (font-latex-add-keywords '(("meta" "{")) + 'textual) + (font-latex-add-keywords '(("DocInput" "{") + ("DocInclude" "{" ) + ("IndexInput" "{")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-doc-package-options + '("hyperref" "nohyperref" + "multicol" "nomulticol" + "debugshow" + "noindex" "noprint" + "reportchangedates") + "Package options for the doc package.") + +;; Local Variables: +;; coding: utf-8 +;; End: + +;;; doc.el ends here diff --git a/elpa/auctex-13.1.3/style/doc.elc b/elpa/auctex-13.1.3/style/doc.elc Binary files differnew file mode 100644 index 0000000..6ce6b04 --- /dev/null +++ b/elpa/auctex-13.1.3/style/doc.elc diff --git a/elpa/auctex-13.1.3/style/dutch.el b/elpa/auctex-13.1.3/style/dutch.el new file mode 100644 index 0000000..47da9ca --- /dev/null +++ b/elpa/auctex-13.1.3/style/dutch.el @@ -0,0 +1,13 @@ +;;; dutch.el - Setup AUCTeX for editing Dutch text. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "dutch" + (lambda () + (run-hooks 'TeX-language-nl-hook)) + TeX-dialect) + +;;; dutch.el ends here diff --git a/elpa/auctex-13.1.3/style/dutch.elc b/elpa/auctex-13.1.3/style/dutch.elc Binary files differnew file mode 100644 index 0000000..8ccc47e --- /dev/null +++ b/elpa/auctex-13.1.3/style/dutch.elc diff --git a/elpa/auctex-13.1.3/style/emp.el b/elpa/auctex-13.1.3/style/emp.el new file mode 100644 index 0000000..ad2bc27 --- /dev/null +++ b/elpa/auctex-13.1.3/style/emp.el @@ -0,0 +1,85 @@ +;;; emp.el --- AUCTeX support for emp.sty -*- lexical-binding: t; -*- + +;; Copyright (C) 2004, 2005, 2014, 2020 Free Software Foundation, Inc. + +;; Author: Yvon Henel aka TeXnicien de surface <Yvon.Henel@wanadoo.fr> +;; Maintainer: auctex-devel@gnu.org +;; Keywords: tex + +;; 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. + +;; version 1.0 2004-03-04 + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "emp" + (lambda () + (TeX-add-symbols "empuse" "empTeX" "empaddtoTeX" + "emprelude" "empaddtoprelude" "unitlength") + (LaTeX-add-environments + '("empfile" LaTeX-env-empfile) + '("emp" LaTeX-env-emp-gen) + '("empdef" LaTeX-env-emp-gen) + '("empgraph" LaTeX-env-emp-gen) + '("empcmds"))) + TeX-dialect) + +(defun LaTeX-env-emp-gen (environment-name) + "Ask for file, width and length. Insert environment-name environment +Used for emp, empdef, and empgraph environments." + (let ((emp-fig-name (TeX-read-string "figure name: " "")) + (emp-fig-width (TeX-read-string "figure width: " "1" )) + (emp-fig-height (TeX-read-string "figure height: " "1" )) + ;;; emp.sty demands a width and a height for each of the + ;;; emp, empdef, and empgraph environments + ;;; we give them 1 by default + ;;; not necessarily the best thing to do? + LaTeX-emp-fig-name) + (if (not (zerop (length emp-fig-name))) + (progn + (setq LaTeX-emp-fig-name (concat LaTeX-optop emp-fig-name LaTeX-optcl)) + (LaTeX-insert-environment environment-name LaTeX-emp-fig-name)) + (LaTeX-insert-environment environment-name)) + (forward-line -1) + (end-of-line) + (insert "(" emp-fig-width "," emp-fig-height ")") + (forward-line 1) + (indent-according-to-mode))) + +(defun LaTeX-env-empfile (_optional) + "Ask for file. Insert empfile environment." + (let ((empfile (TeX-read-string "empfile: " "")) + LaTeX-emp-file-name mpost-emp-file-name) + (if (not (zerop (length empfile))) + (progn + (setq LaTeX-emp-file-name (concat LaTeX-optop empfile LaTeX-optcl)) + (setq mpost-emp-file-name (concat empfile ".mp")) + (LaTeX-insert-environment "empfile" LaTeX-emp-file-name)) + (setq mpost-emp-file-name "\\jobname") + (LaTeX-insert-environment "empfile")) + (if LaTeX-write18-enabled-p + (progn + (forward-line 1) + (end-of-line) + (newline-and-indent) + (insert "\\immediate\\write18{mpost -tex=latex " mpost-emp-file-name TeX-grcl) + (forward-line -2))))) + +;;; emp.el ends here diff --git a/elpa/auctex-13.1.3/style/emp.elc b/elpa/auctex-13.1.3/style/emp.elc Binary files differnew file mode 100644 index 0000000..ac57073 --- /dev/null +++ b/elpa/auctex-13.1.3/style/emp.elc diff --git a/elpa/auctex-13.1.3/style/empheq.el b/elpa/auctex-13.1.3/style/empheq.el new file mode 100644 index 0000000..b9f32b1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/empheq.el @@ -0,0 +1,485 @@ +;;; empheq.el --- AUCTeX style for `empheq.sty' (v2.14) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016-2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-08-07 +;; 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 `empheq.sty' (v2.14) from 2014/08/04. +;; `empheq.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) +(eval-when-compile + (require 'cl-lib)) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function LaTeX-item-equation-alignat + "amsmath" (&optional suppress)) + +(defvar LaTeX-mathtools-package-options) + +(defvar LaTeX-empheq-key-val-options + `(("box") + ("innerbox") + ("left" ,(mapcar + (lambda (x) + (concat TeX-esc x)) + '("empheqlbrace" + "empheqlbrack" + "empheqlangle" + "empheqlparen" + "empheqlvert" + "empheqlVert" + "empheqlfloor" + "empheqlceil" + "empheqbiglbrace" + "empheqbiglbrack" + "empheqbiglangle" + "empheqbiglparen" + "empheqbiglvert" + "empheqbiglVert" + "empheqbiglfloor" + "empheqbiglceil"))) + ("right" ,(mapcar + (lambda (x) + (concat TeX-esc x)) + '("empheqrbrace" + "empheqrbrack" + "empheqrangle" + "empheqrparen" + "empheqrvert" + "empheqrVert" + "empheqrfloor" + "empheqrceil" + "empheqbigrbrace" + "empheqbigrbrack" + "empheqbigrangle" + "empheqbigrparen" + "empheqbigrvert" + "empheqbigrVert" + "empheqbigrfloor" + "empheqbigrceil"))) + ("outerbox") + ("marginbox")) + "Key=value options for environments from empheq.sty.") + +(defvar LaTeX-empheq-supported-amsmath-envs + '("equation" "equation*" + "align" "align*" + "gather" "gather*" + "flalign" "flalign*" + "alignat" "alignat*" + "multline" "multline*") + "List of amsmath environments supported by empheq package.") + +(defvar LaTeX-empheq-package-options + '("overload" "overload2" "ntheorem" "newmultline" "oldmultline") + "Package options for the empheq package.") +(TeX-load-style "mathtools") +;; Add elements from `LaTeX-mathtools-package-options' only once +;; and not every time the style hook runs +(dolist (elt LaTeX-mathtools-package-options) + (add-to-list 'LaTeX-empheq-package-options elt)) + +;; Setup for \Declare(Left|Right)Delimiter: + +(TeX-auto-add-type "empheq-declaredelimiter" "LaTeX") + +(defvar LaTeX-empheq-declaredelimiter-regexp + `(,(concat "\\\\Declare\\(Left\\|Right\\)Delimiter" + "[ \t\n\r%]*" + "\\(?:\\[[^]]*\\]\\)?" + "[ \t\n\r%]*" + "{" + (regexp-quote TeX-esc) + "\\([^}]+\\)}") + (2 1) LaTeX-auto-empheq-declaredelimiter) + "Matches the argument of \\Declare(Left|Right)Delimiter from empheq package.") + +(defun LaTeX-empheq-auto-prepare () + "Clear `LaTeX-auto-empheq-declaredelimiter' before parsing." + (setq LaTeX-auto-empheq-declaredelimiter nil)) + +(defun LaTeX-empheq-auto-cleanup () + "Process parsed delimiters." + (dolist (delim (mapcar #'car (LaTeX-empheq-declaredelimiter-list))) + (TeX-add-symbols (concat "empheq" delim) + (concat "empheqbig" delim)))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-empheq-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-empheq-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun LaTeX-empheq-key-val-options () + "Return an updated list of key=vals from empheq package. +This function retrieves values of user defined left and right +delimiters and prepends them to variable +`LaTeX-empheq-key-val-options'." + (append + (when (LaTeX-empheq-declaredelimiter-list) + (let ((lvals (copy-sequence + (cadr (assoc "left" LaTeX-empheq-key-val-options)))) + (rvals (copy-sequence + (cadr (assoc "right" LaTeX-empheq-key-val-options))))) + (dolist (delims (LaTeX-empheq-declaredelimiter-list)) + (let ((delim (car delims)) + (where (cadr delims))) + (if (string= where "Left") + (progn + (cl-pushnew (concat TeX-esc "empheq" delim) lvals :test #'equal) + (cl-pushnew (concat TeX-esc "empheqbig" delim) lvals :test #'equal)) + (cl-pushnew (concat TeX-esc "empheq" delim) rvals :test #'equal) + (cl-pushnew (concat TeX-esc "empheqbig" delim) rvals :test #'equal)))) + `(("left" ,lvals) + ("right" ,rvals)))) + LaTeX-empheq-key-val-options)) + +(defun LaTeX-empheq-env (env) + "Query for a supported amsmath environment and insert it accordingly. +ENV is the name of environment passed to the function in the style hook." + (let* ((keyvals (TeX-read-key-val t (LaTeX-empheq-key-val-options))) + (amsenv (completing-read + (TeX-argument-prompt nil nil "amsmath environment") + LaTeX-empheq-supported-amsmath-envs)) + (ncols (when (or (string= amsenv "alignat") + (string= amsenv "alignat*")) + (TeX-read-string + (TeX-argument-prompt nil nil "Number of columns")))) + num) + (LaTeX-insert-environment + env + (concat + (when (and keyvals (not (string= keyvals ""))) + (concat LaTeX-optop keyvals LaTeX-optcl)) + TeX-grop + (if (and ncols (not (string= ncols ""))) + (concat amsenv "=" ncols) + amsenv) + TeX-grcl)) + (when (and (assoc amsenv LaTeX-label-alist) + (LaTeX-label amsenv 'environment)) + (LaTeX-newline) + (indent-according-to-mode)) + (when (and ncols (not (string= ncols ""))) + (setq num (string-to-number ncols)) + (save-excursion + (insert (make-string (+ num num -1) ?&)))))) + +(defun LaTeX-empheq-env-overload (env &optional _ignore) + "Insert amsmath ENV's when option overload is given to empheq package. +This function combines the capabilities of `LaTeX-env-label' and +`LaTeX-amsmath-env-alignat'. It overwrites the definitions of +`amsmath.el'." + (if (or (string= env "alignat") + (string= env "alignat*")) + (let ((ncols (TeX-read-string + (TeX-argument-prompt nil nil "Number of columns"))) + (keyvals (TeX-read-key-val t + (LaTeX-empheq-key-val-options) + "empheq options (k=v)"))) + (LaTeX-insert-environment env + (concat TeX-grop ncols TeX-grcl + (when (and keyvals + (not (string= keyvals ""))) + (concat LaTeX-optop + keyvals + LaTeX-optcl)))) + (LaTeX-item-equation-alignat t)) + (let ((keyvals + (TeX-read-key-val t + (LaTeX-empheq-key-val-options) + "empheq options (k=v)"))) + (LaTeX-insert-environment env + (when (and keyvals + (not (string= keyvals ""))) + (concat LaTeX-optop + keyvals + LaTeX-optcl))) + (when (and (assoc env LaTeX-label-alist) + (LaTeX-label env 'environment)) + (LaTeX-newline) + (indent-according-to-mode))))) + +(defun LaTeX-empheq-item-equation () + "Insert contents to terminate a line in multi-line equations environment. +Put line break macro on the last line. Next, if the current +environment wants \\label, insert it also. And insert suitable +number of ampersands if possible." + (let ((env (LaTeX-current-environment)) + amsenv ncols match) + (save-excursion + (LaTeX-find-matching-begin) + (re-search-forward (concat (regexp-quote TeX-esc) + "begin" TeX-grop env TeX-grcl)) + (when (looking-at "[ \t\n\r%]*\\[") + (forward-sexp)) + (re-search-forward "[ \t\n\r%]*{\\([^}]+\\)}") + (setq match (replace-regexp-in-string "[ \t\n\r%]" "" + (match-string-no-properties 1))) + (if (string-match "=" match) + (progn + (setq amsenv (car (split-string match "="))) + (setq ncols (string-to-number (cadr (split-string match "="))))) + (setq amsenv match))) + ;; Do not ask for "\\" if in "equation" or "equation*" since these + ;; are single line equations only + (if (or (string= amsenv "equation") + (string= amsenv "equation*")) + ;; Nullify the effect of `M-RET' + (progn + (message "This environment does not support multi-line equations") + (end-of-line 0) + (kill-line 1)) + (progn + (end-of-line 0) + (just-one-space) + (TeX-insert-macro "\\") + (forward-line 1) + (indent-according-to-mode))) + ;; Add a new label only if not in "equation" + (when (and (not (string= amsenv "equation")) + (assoc amsenv LaTeX-label-alist) + (LaTeX-label amsenv 'environment)) + (LaTeX-newline) + (indent-according-to-mode)) + (when ncols + (save-excursion + (insert (make-string (+ ncols ncols -1) ?&)))))) + +(TeX-add-style-hook + "empheq" + (lambda () + + ;; Add empheq to parser + (TeX-auto-add-regexp LaTeX-empheq-declaredelimiter-regexp) + + ;; Load amsmath.el and mathtools.el + (TeX-run-style-hooks "amsmath" "mathtools") + + (LaTeX-add-environments + '("empheq" LaTeX-empheq-env)) + + ;; Add "empheq" to `LaTeX-item-list' and run + ;; `LaTeX-empheq-item-equation' when `M-RET' is invoked + (add-to-list 'LaTeX-item-list '("empheq" . LaTeX-empheq-item-equation) t) + + ;; Reftex support: Use `reftex-add-label-environments' + (when (fboundp 'reftex-add-label-environments) + (reftex-add-label-environments '(("empheq" ?e nil nil t)))) + + (TeX-add-symbols + '("empheqset" (TeX-arg-key-val (LaTeX-empheq-key-val-options))) + + ;; 1.4 Special delimiters + ;; Normal + '("empheqlbrace" TeX-arg-insert-right-brace-maybe) + '("empheqrbrace") + '("empheqlbrack" TeX-arg-insert-right-brace-maybe) + '("empheqrbrack") + '("empheqlangle" TeX-arg-insert-right-brace-maybe) + '("empheqrangle") + '("empheqlparen" TeX-arg-insert-right-brace-maybe) + '("empheqrparen") + '("empheqlvert" TeX-arg-insert-right-brace-maybe) + '("empheqrvert") + '("empheqlVert" TeX-arg-insert-right-brace-maybe) + '("empheqrVert") + '("empheqlfloor" TeX-arg-insert-right-brace-maybe) + '("empheqrfloor") + '("empheqlceil" TeX-arg-insert-right-brace-maybe) + '("empheqrceil") + ;; Bigger + '("empheqbiglbrace" TeX-arg-insert-right-brace-maybe) + '("empheqbigrbrace") + '("empheqbiglbrack" TeX-arg-insert-right-brace-maybe) + '("empheqbigrbrack") + '("empheqbiglangle" TeX-arg-insert-right-brace-maybe) + '("empheqbigrangle") + '("empheqbiglparen" TeX-arg-insert-right-brace-maybe) + '("empheqbigrparen") + '("empheqbiglvert" TeX-arg-insert-right-brace-maybe) + '("empheqbigrvert") + '("empheqbiglVert" TeX-arg-insert-right-brace-maybe) + '("empheqbigrVert") + '("empheqbiglfloor" TeX-arg-insert-right-brace-maybe) + '("empheqbigrfloor") + '("empheqbiglceil" TeX-arg-insert-right-brace-maybe) + '("empheqbigrceil")) + + ;; Append delimiters to `TeX-braces-association' + (make-local-variable 'TeX-braces-association) + (let ((delimiters '(("\\empheqlbrace" . "\\empheqrbrace") + ("\\empheqlbrack" . "\\empheqrbrack") + ("\\empheqlangle" . "\\empheqrangle") + ("\\empheqlparen" . "\\empheqrparen") + ("\\empheqlvert" . "\\empheqrvert") + ("\\empheqlVert" . "\\empheqrVert") + ("\\empheqlfloor" . "\\empheqrfloor") + ("\\empheqlceil" . "\\empheqrceil") + ("\\empheqbiglbrace" . "\\empheqbigrbrace") + ("\\empheqbiglbrack" . "\\empheqbigrbrack") + ("\\empheqbiglangle" . "\\empheqbigrangle") + ("\\empheqbiglparen" . "\\empheqbigrparen") + ("\\empheqbiglvert" . "\\empheqbigrvert") + ("\\empheqbiglVert" . "\\empheqbigrVert") + ("\\empheqbiglfloor" . "\\empheqbigrfloor") + ("\\empheqbiglceil" . "\\empheqbigrceil")))) + (dolist (elt delimiters) + (add-to-list 'TeX-braces-association elt t))) + + ;; 2.2.1 Using multline + (when (LaTeX-provided-package-options-member "empheq" "oldmultline") + (LaTeX-add-environments + '("MTmultlined" LaTeX-mathtools-env-multlined))) + + ;; 2.2.2 The overload option + ;; I simplify it and ignore the additional feature overload2: + (when (or (LaTeX-provided-package-options-member "empheq" "overload") + (LaTeX-provided-package-options-member "empheq" "overload2")) + (LaTeX-add-environments + '("align" LaTeX-empheq-env-overload) + '("alignat" LaTeX-empheq-env-overload) + '("equation" LaTeX-empheq-env-overload) + '("flalign" LaTeX-empheq-env-overload) + '("gather" LaTeX-empheq-env-overload) + '("multline" LaTeX-empheq-env-overload) + '("align*" LaTeX-env-args [TeX-arg-key-val (LaTeX-empheq-key-val-options)]) + '("alignat*" LaTeX-empheq-env-overload) + '("equation*" LaTeX-env-args [TeX-arg-key-val (LaTeX-empheq-key-val-options)]) + '("flalign*" LaTeX-env-args [TeX-arg-key-val (LaTeX-empheq-key-val-options)]) + '("gather*" LaTeX-env-args [TeX-arg-key-val (LaTeX-empheq-key-val-options)]) + '("multline*" LaTeX-env-args [TeX-arg-key-val (LaTeX-empheq-key-val-options)]) + + ;; Original definitions are stored prefixed with "AmS" + '("AmSalign" LaTeX-env-label) + '("AmSalignat" LaTeX-amsmath-env-alignat) + '("AmSequation" LaTeX-env-label) + '("AmSflalign" LaTeX-env-label) + '("AmSgather" LaTeX-env-label) + '("AmSmultline" LaTeX-env-label) + '("AmSalign*") + '("AmSalignat*" LaTeX-amsmath-env-alignat) + '("AmSequation*") + '("AmSflalign*") + '("AmSgather*") + '("AmSmultline*")) + + ;; Append original definitions to `LaTeX-label-alist' + (let ((envs '("AmSalign" + "AmSalignat" + "AmSequation" + "AmSflalign" + "AmSgather" + "AmSmultline"))) + (dolist (env envs) + (add-to-list 'LaTeX-label-alist `(,env . LaTeX-amsmath-label) t))) + + ;; RefTeX support: Add original definitions with `reftex-add-label-environments' + (when (fboundp 'reftex-add-label-environments) + (let ((envs '(("AmSalign" ?e nil nil eqnarray-like) + ("AmSequation" ?e nil nil t) + ("AmSgather" ?e nil nil eqnarray-like) + ("AmSmultline" ?e nil nil t) + ("AmSflalign" ?e nil nil eqnarray-like) + ("AmSalignat" ?e nil nil alignat-like)))) + (dolist (env envs) + (reftex-add-label-environments `(,env))))) + + ;; Append original definitions to `LaTeX-item-list'; functions + ;; are provided by amsmath.el + (let ((envs '(("AmSalign" . LaTeX-item-equation) + ("AmSalign*" . LaTeX-item-equation) + ("AmSflalign" . LaTeX-item-equation) + ("AmSalignat" . LaTeX-item-equation-alignat) + ("AmSalignat*" . LaTeX-item-equation-alignat) + ("AmSflalign*" . LaTeX-item-equation) + ("AmSgather" . LaTeX-item-equation) + ("AmSgather*" . LaTeX-item-equation) + ("AmSmultline" . LaTeX-item-equation) + ("AmSmultline*" . LaTeX-item-equation)))) + (dolist (env envs) + (add-to-list 'LaTeX-item-list env t))) + + ;; Ispell skip lists: + (TeX-ispell-skip-setcdr + `(,(cons (concat "\\(AmS\\(?:align\\(?:\\*\\|at\\*?\\)?\\|" + "equation\\*?\\|flalign\\*?\\|gather\\*?\\|multline\\*?\\)\\)") + (concat "\\\\end{" + "\\(AmS\\(?:align\\(?:\\*\\|at\\*?\\)?\\|" + "equation\\*?\\|flalign\\*?\\|gather\\*?\\|multline\\*?\\)\\)}"))))) + + ;; 3.2 Support for ntheorem + (LaTeX-add-lengths "mintagvsep") + + ;; 4.1 Creating your own delimiters + (TeX-add-symbols + '("DeclareLeftDelimiter" + [ "Space adjustment" ] + (TeX-arg-eval + (lambda () + (let ((delim (TeX-read-string (concat "Delimiter: " TeX-esc)))) + (TeX-add-symbols (concat "empheq" delim) + (concat "empheqbig" delim)) + (LaTeX-add-empheq-declaredelimiters `(,delim "Left")) + (concat TeX-esc delim))))) + + '("DeclareRightDelimiter" + [ "Space adjustment" ] + (TeX-arg-eval + (lambda () + (let ((delim (TeX-read-string (concat "Delimiter: " TeX-esc)))) + (TeX-add-symbols (concat "empheq" delim) + (concat "empheqbig" delim)) + (LaTeX-add-empheq-declaredelimiters `(,delim "Right")) + (concat TeX-esc delim)))))) + + ;; 4.2 Fine-tuning of delimiters + (LaTeX-add-lengths "EmphEqdelimitershortfall") + (LaTeX-add-counters "EmphEqdelimiterfactor") + + (TeX-add-symbols + ;; 4.3 Scaling material yourself + '("EmphEqdisplayheight" 0) + '("EmphEqdisplaydepth" 0) + ;; 6.1 New empheq-like environments + '("EmphEqMainEnv" 0) + '("endEmphEqMainEnv" 0)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("empheqset" "{") + ("DeclareLeftDelimiter" "[{") + ("DeclareRightDelimiter" "[{")) + 'function))) + TeX-dialect) + +;;; empheq.el ends here diff --git a/elpa/auctex-13.1.3/style/empheq.elc b/elpa/auctex-13.1.3/style/empheq.elc Binary files differnew file mode 100644 index 0000000..2bd8dd2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/empheq.elc diff --git a/elpa/auctex-13.1.3/style/english.el b/elpa/auctex-13.1.3/style/english.el new file mode 100644 index 0000000..f8477bb --- /dev/null +++ b/elpa/auctex-13.1.3/style/english.el @@ -0,0 +1,15 @@ +;;; english.el --- Setup AUCTeX for editing English text. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "english" + (lambda () + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language nil)) + (run-hooks 'TeX-language-en-hook)) + TeX-dialect) + +;;; english.el ends here diff --git a/elpa/auctex-13.1.3/style/english.elc b/elpa/auctex-13.1.3/style/english.elc Binary files differnew file mode 100644 index 0000000..01ad626 --- /dev/null +++ b/elpa/auctex-13.1.3/style/english.elc diff --git a/elpa/auctex-13.1.3/style/enumitem.el b/elpa/auctex-13.1.3/style/enumitem.el new file mode 100644 index 0000000..d8ad056 --- /dev/null +++ b/elpa/auctex-13.1.3/style/enumitem.el @@ -0,0 +1,525 @@ +;;; enumitem.el --- AUCTeX style for `enumitem.sty' (v3.9) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-10-20 +;; 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 `enumitem.sty' (v3.9) from 2019/06/20. +;; `enumitem.sty' is part of TeXLive. + +;; Tassilo Horn's `minted.el' was a major source of inspiration for +;; this style, many thanks to him (also for patiently answering my +;; many other questions, incl. the stupid ones.) + +;; If things do not work or when in doubt, press `C-c C-n'. Comments +;; for improvement are welcome. + +;;; Code: + +(require 'tex) +(require 'latex) +(eval-when-compile + (require 'cl-lib)) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-enumitem-key-val-options + `(;; 3.1 Label and cross references format + ("label" ("\\alph*" "\\Alph*" "\\arabic*" + "\\roman*" "\\Roman*" "\\value*")) + ("label*" ("\\alph*" "\\Alph*" "\\arabic*" + "\\roman*" "\\Roman*" "\\value*")) + ("ref" ("\\alph*" "\\Alph*" "\\arabic*" + "\\roman*" "\\Roman*" "\\value*")) + ("font" ,(mapcar (lambda (mac) + (concat TeX-esc mac)) + '(;; family + "rmfamily" "sffamily" "ttfamily" + ;; series + "mdseries" "bfseries" + ;; shape + "upshape" "itshape" "slshape" "scshape" + ;; size + "tiny" "scriptsize" "footnotesize" + "small" "normalsize" "large" + "Large" "LARGE" "huge" "Huge" + ;; reset macro + "normalfont"))) + ("format" ,(mapcar (lambda (mac) + (concat TeX-esc mac)) + '(;; family + "rmfamily" "sffamily" "ttfamily" + ;; series + "mdseries" "bfseries" + ;; shape + "upshape" "itshape" "slshape" "scshape" + ;; size + "tiny" "scriptsize" "footnotesize" + "small" "normalsize" "large" + "Large" "LARGE" "huge" "Huge" + ;; reset macro + "normalfont"))) + ("align" ("left" "right" "parleft")) + ;; 3.2 Horizontal spacing of labels + ("labelindent" ("*" "!")) + ("left") + ("leftmargin" ("*" "!")) + ("itemindent" ("*" "!")) + ("labelsep" ("*" "!")) + ("labelwidth" ("*" "!")) + ("widest") + ("widest*") + ("labelsep*") + ("labelindent*") + ("rightmargin") + ;; Vertical Spacing + ("topsep") + ("partopsep") + ("parsep") + ("itemsep") + ;; 3.3 Numbering, stopping, and resuming + ("start") + ("resume") + ("resume*") + ;; 3.4 Series + ("series") + ;; 3.5 Penalties + ("beginpenalty") + ("midpenalty") + ("endpenalty") + ;; 3.6 Injecting code + ("before") + ("before*") + ("after") + ("after*") + ("first") + ("first*") + ;; 3.7 Description styles + ("style" ("standard" "unboxed" "nextline" "sameline" "multiline")) + ;; 3.8 Compact lists + ("noitemsep") + ("nosep") + ;; 3.9 Wide lists + ("wide") + ;; 4 Inline lists + ("itemjoin") + ("itemjoin*") + ("afterlabel") + ("mode" ("boxed" "unboxed"))) + "Key=value options for enumitem macros and environments.") + +(defun LaTeX-enumitem-key-val-options () + "Return an updated list of key=vals from enumitem package." + (append + ;; New keys are valueless, so take them as is: + (when (LaTeX-enumitem-SetEnumitemKey-list) + (LaTeX-enumitem-SetEnumitemKey-list)) + ;; New values defined available keys: We have to collect predefined + ;; values (if any) from `LaTeX-enumitem-key-val-options' (stored in + ;; `vals-predefined') and user-defined values (stored in + ;; `vals-parsed') which were parsed and added to `result' in the + ;; previous run of `dolist' and then combine them as value to a + ;; key. + (when (LaTeX-enumitem-SetEnumitemValue-list) + (let (result) + (dolist (keyvals (LaTeX-enumitem-SetEnumitemValue-list) result) + (let* ((key (nth 1 keyvals)) + (val (nth 2 keyvals)) + (vals-predefined + (cadr (assoc key LaTeX-enumitem-key-val-options))) + (vals-parsed (cadr (assoc key result)))) + ;; Remove entry in `result' if there is one for the `key': + (when (assoc key result) + (setq result (assq-delete-all (car (assoc key result)) + result))) + ;; Add the entry to `result'; also remove any duplicates + (cl-pushnew (list key (TeX-delete-duplicate-strings + (append vals-parsed + vals-predefined + (list val)))) + result :test #'equal))))) + ;; New values to `align' key: We collect the predefined ones from + ;; `LaTeX-enumitem-key-val-options' in `vals-predefined' and + ;; prepend them to newly parsed ones: + (when (LaTeX-enumitem-SetLabelAlign-list) + (let* ((key "align") + (vals (mapcar #'car (LaTeX-enumitem-SetLabelAlign-list))) + (vals-predefined (cadr + (assoc key LaTeX-enumitem-key-val-options)))) + `(("align" ,(TeX-delete-duplicate-strings + (append vals-predefined vals)))))) + ;; Predefined key=vals: + LaTeX-enumitem-key-val-options)) + +;; Setup for \newlist: + +(TeX-auto-add-type "enumitem-newlist" "LaTeX") + +(defvar LaTeX-enumitem-newlist-regexp + '("\\\\newlist{\\([^}]+\\)}{\\([^}]+\\)}" + (1 2) LaTeX-auto-enumitem-newlist) + "Matches the arguments of `\\newlist' from `enumitem' package.") + +;; Setup for \SetLabelAlign: + +(TeX-auto-add-type "enumitem-SetLabelAlign" "LaTeX") + +(defvar LaTeX-enumitem-SetLabelAlign-regexp + '("\\\\SetLabelAlign{\\([^}]+\\)}" + 1 LaTeX-auto-enumitem-SetLabelAlign) + "Matches the argument of `\\SetLabelAlign' from `enumitem' package.") + +;; Setup for \SetEnumitemKey: + +(TeX-auto-add-type "enumitem-SetEnumitemKey" "LaTeX") + +(defvar LaTeX-enumitem-SetEnumitemKey-regexp + '("\\\\SetEnumitemKey{\\([^}]+\\)}" + 1 LaTeX-auto-enumitem-SetEnumitemKey) + "Matches the arguments of `\\SetEnumitemKey' from `enumitem' package.") + +;; Setup for \SetEnumitemValue: + +(TeX-auto-add-type "enumitem-SetEnumitemValue" "LaTeX") + +;; Upon Tassilo's recommendation, we include also `0' so that we can +;; use the function `LaTeX-enumitem-SetEnumitemValue-list' while we +;; make sure that `TeX-auto-list-information' doesn't remove multiple +;; defined values to a specific key. For this reason, we also ignore +;; the 3. argument to the `\SetEnumitemValue' macro (i.e., a third +;; {\\([^}]+\\)} in regex) so that we don't pollute the generated +;; `docname.el' with unnecessary (La)TeX code. +(defvar LaTeX-enumitem-SetEnumitemValue-regexp + '("\\\\SetEnumitemValue{\\([^}]+\\)}{\\([^}]+\\)}" + (0 1 2) LaTeX-auto-enumitem-SetEnumitemValue) + "Matches the arguments of `\\SetEnumitemValue' from `enumitem' package.") + +;; Plug them into the machinery. +(defun LaTeX-enumitem-auto-prepare () + "Clear various `LaTeX-enumitem-*' before parsing." + (setq LaTeX-auto-enumitem-newlist nil + LaTeX-auto-enumitem-SetLabelAlign nil + LaTeX-auto-enumitem-SetEnumitemKey nil + LaTeX-auto-enumitem-SetEnumitemValue nil)) + +(defun LaTeX-enumitem-auto-cleanup () + "Move parsing results into right places for further usage." + ;; \newlist{<name>}{<type>}{<max-depth>} + ;; env=<name>, type=<type>, ignored=<max-depth> + (dolist (env-type (LaTeX-enumitem-newlist-list)) + (let* ((env (car env-type)) + (type (cadr env-type))) + (LaTeX-add-environments (list env 'LaTeX-enumitem-env-with-opts)) + ;; Tell AUCTeX about parsed description like environments. + (when (or (string-equal type "description") + (string-equal type "description*")) + (add-to-list 'LaTeX-item-list `(,env . LaTeX-item-argument))) + ;; Add new env's to `ispell-tex-skip-alist': skip the opt. arg: + (TeX-ispell-skip-setcdr `((,env ispell-tex-arg-end 0)))))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-enumitem-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-enumitem-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun LaTeX-enumitem-env-with-opts (env) + "Insert ENV provided by `enumitem' package." + (LaTeX-insert-environment + env + (let ((opts (TeX-read-key-val t (LaTeX-enumitem-key-val-options)))) + (when (and opts (not (string-equal opts ""))) + (format "[%s]" opts)))) + (if (TeX-active-mark) + (progn + (LaTeX-find-matching-begin) + (end-of-line 1)) + (end-of-line 0)) + (delete-char 1) + (when (looking-at (concat "^[ \t]+$\\|" + "^[ \t]*" TeX-comment-start-regexp "+[ \t]*$")) + (delete-region (point) (line-end-position))) + (delete-horizontal-space) + ;; Deactivate the mark here in order to prevent `TeX-parse-macro' + ;; from swapping point and mark and the \item ending up right after + ;; \begin{...}. + (deactivate-mark) + (LaTeX-insert-item) + ;; The inserted \item may have outdented the first line to the + ;; right. Fill it, if appropriate. + (when (and auto-fill-function + (not (looking-at "$")) + (not (assoc env LaTeX-indent-environment-list)) + (> (- (line-end-position) (line-beginning-position)) + (current-fill-column))) + (LaTeX-fill-paragraph nil))) + +(defun LaTeX-arg-enumitem-SetLabelAlign (optional) + "Ask and insert a new type (value) for the \"align\" key. +Insert value in brackets if OPTIONAL is non-nil." + (let ((val (TeX-read-string "Alignment: "))) + (TeX-argument-insert val optional) + (LaTeX-add-enumitem-SetLabelAligns val))) + +(defun LaTeX-arg-enumitem-SetEnumitemKey (optional) + "Ask and insert a new key and its replacement. +Insert key and value in brackets if OPTIONAL is non-nil." + (let ((key (TeX-read-string "New Key: ")) + (replace (TeX-read-key-val optional + (LaTeX-enumitem-key-val-options) + "Replacement"))) + (TeX-argument-insert key optional) + (TeX-argument-insert replace optional) + (LaTeX-add-enumitem-SetEnumitemKeys key))) + +;; In `LaTeX-enumitem-SetEnumitemValue-regexp', we match (0 1 2). +;; When adding a new `key=val', we need something unique for `0'-match +;; until the next `C-c C-n'. We mimic that regex-match bei concat'ing +;; the elements and pass the result to +;; `LaTeX-add-enumitem-SetEnumitemValues'. It will vanish upon next +;; invocation of `C-c C-n'. +(defun LaTeX-arg-enumitem-SetEnumitemValue (optional) + "Ask and insert for a new value added to an existing key. +Insert key and value in brackets if OPTIONAL is non-nil." + (let ((key (completing-read "Key: " LaTeX-enumitem-key-val-options)) + (val (TeX-read-string "String value: "))) + (TeX-argument-insert key optional) + (TeX-argument-insert val optional) + (LaTeX-add-enumitem-SetEnumitemValues + (list (concat "\\SetEnumitemValue{" key "}{" val "}") + key val)))) + +(defun LaTeX-arg-enumitem-setlist (_optional) + "Insert the arguments of `\\setlist' macro from `enumitem' package. +This function inserts three arguments. The first optional +argument is only available when the package option `sizes' is +provided. OPTIONAL is ignored." + ;; First opt. argument: + (when (LaTeX-provided-package-options-member "enumitem" "sizes") + (let* ((TeX-arg-opening-brace "<") + (TeX-arg-closing-brace ">") + (sizes '("script" "tiny" "footnote" "small" "normal" + "large" "Large" "LARGE" "huge" "Huge")) + (size (completing-read + (TeX-argument-prompt t nil "Size") + (append + (mapcar (lambda (x) (concat "-" x)) sizes) + (mapcar (lambda (x) (concat x "-")) sizes) + sizes)))) + (TeX-argument-insert size t))) + ;; Second opt. argument: + (TeX-argument-insert + (mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt t nil "Environment(s), level(s)") + (append + (when (LaTeX-provided-package-options-member + "enumitem" "includedisplayed") + '("trivlist")) + (mapcar #'car (LaTeX-enumitem-newlist-list)) + '("1" "2" "3" "4"))) + ",") + t) + ;; Mandatory argument: + (TeX-argument-insert + (TeX-read-key-val nil (LaTeX-enumitem-key-val-options)) + nil)) + +(TeX-add-style-hook + "enumitem" + (lambda () + + ;; Add enumitem to the parser. + (TeX-auto-add-regexp LaTeX-enumitem-newlist-regexp) + (TeX-auto-add-regexp LaTeX-enumitem-SetEnumitemKey-regexp) + (TeX-auto-add-regexp LaTeX-enumitem-SetEnumitemValue-regexp) + (TeX-auto-add-regexp LaTeX-enumitem-SetLabelAlign-regexp) + + ;; Add the standard environments: + (LaTeX-add-enumitem-newlists '("itemize" "itemize") + '("enumerate" "enumerate") + '("description" "description")) + + ;; Add the starred versions with the 'inline' package option: + (when (LaTeX-provided-package-options-member "enumitem" "inline") + (LaTeX-add-enumitem-newlists '("itemize*" "itemize*") + '("enumerate*" "enumerate*") + '("description*" "description*"))) + + ;; Standard env's take key-val as optional argument. + (LaTeX-add-environments + '("itemize" LaTeX-enumitem-env-with-opts) + '("enumerate" LaTeX-enumitem-env-with-opts) + '("description" LaTeX-enumitem-env-with-opts)) + + ;; Make inline env's available with package option "inline" + (when (LaTeX-provided-package-options-member "enumitem" "inline") + (LaTeX-add-environments + '("itemize*" LaTeX-enumitem-env-with-opts) + '("enumerate*" LaTeX-enumitem-env-with-opts) + '("description*" LaTeX-enumitem-env-with-opts)) + (add-to-list 'LaTeX-item-list '("description*" . LaTeX-item-argument))) + + (TeX-add-symbols + ;; 6 Size dependent settings + '("SetEnumitemSize" 2) + + ;; 7 Cloning the basic lists + ;; The easy way would be: + ;; '("newlist" + ;; "Name" (TeX-arg-eval + ;; completing-read "Type: " + ;; '(("itemize") ("enumerate") ("description") + ;; ("itemize*") ("enumerate*") ("description*"))) + ;; "Max-depth") + ;; But we go the extra mile to improve the user experience and add + ;; the arguments directly to appropriate lists. + ;; \newlist{<name>}{<type>}{<max-depth>} + '("newlist" + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string "Name: ")) + (type (completing-read + "Type: " + (mapcar #'cadr (LaTeX-enumitem-newlist-list)))) + (depth (TeX-read-string "Max-depth: "))) + (when (or (string-equal type "description") + (string-equal type "description*")) + (add-to-list 'LaTeX-item-list `(,name . LaTeX-item-argument))) + (LaTeX-add-environments `(,name LaTeX-enumitem-env-with-opts)) + (LaTeX-add-enumitem-newlists (list name type)) + (TeX-ispell-skip-setcdr `((,name ispell-tex-arg-end 0))) + (TeX-argument-insert name nil) + (TeX-argument-insert type nil) + (format "%s" depth))))) + + ;; \renewlist{<name>}{<type>}{<max-depth>} + '("renewlist" + (TeX-arg-eval completing-read "Name: " + (mapcar #'car (LaTeX-enumitem-newlist-list))) + (TeX-arg-eval completing-read "Type: " + (mapcar #'cadr (LaTeX-enumitem-newlist-list))) + "Max-depth") + + ;; \setlist<size>[<names,levels>]{<key-vals>} + '("setlist" LaTeX-arg-enumitem-setlist) + + ;; \setlist*[<names,levels>]{<key-vals>} + '("setlist*" + [TeX-arg-eval mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt t nil "Environment(s), level(s)") + (append + (when (LaTeX-provided-package-options-member "enumitem" + "includedisplayed") + '("trivlist")) + (mapcar #'car (LaTeX-enumitem-newlist-list)) + '("1" "2" "3" "4"))) + ","] + (TeX-arg-key-val (LaTeX-enumitem-key-val-options))) ) + + ;; General commands: + (TeX-add-symbols + + ;; Ask for an Integer and insert it. + '("setlistdepth" "Integer") + + ;; Just add the braces and let the user do the rest. + '("AddEnumerateCounter" 3) + '("AddEnumerateCounter*" 3) + + ;; "\restartlist" only works for lists defined with "resume" key. + ;; We will not extract that information and leave that to users. + ;; For completion, extract enumerated environments from + ;; `LaTeX-enumitem-newlist-list' and add "enumerate" to them. + '("restartlist" + (TeX-arg-eval + (lambda () + (let ((enums '("enumerate"))) + (when (LaTeX-provided-package-options-member "enumitem" "inline") + (cl-pushnew "enumerate*" enums :test #'equal)) + (dolist (env-type (LaTeX-enumitem-newlist-list)) + (let ((env (car env-type)) + (type (cadr env-type))) + (when (or (string-equal type "enumerate") + (string-equal type "enumerate*")) + (cl-pushnew env enums :test #'equal)))) + (completing-read "List name: " enums))))) + + ;; "Align" is added as new value to "align" key in key-val list. + '("SetLabelAlign" LaTeX-arg-enumitem-SetLabelAlign t) + + ;; "Key" will be parsed and added to key-val list. + '("SetEnumitemKey" LaTeX-arg-enumitem-SetEnumitemKey) + + ;; "Key" and "Value" are added to our key-val list. + '("SetEnumitemValue" LaTeX-arg-enumitem-SetEnumitemValue "Replacement") + + ;; v3.6 has a macro for visual debugging. + '("DrawEnumitemLabel" 0)) + + ;; Setting enumerate short label + (when (LaTeX-provided-package-options-member "enumitem" "shortlabels") + (TeX-add-symbols + '("SetEnumerateShortLabel" + (TeX-arg-eval completing-read "Key: " + '("A" "a" "I" "i" "1")) + "Replacement"))) + + ;; Add \labelindent to list of known lengths: + (LaTeX-add-lengths "labelindent") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("newlist" "{{{") + ("renewlist" "{{{") + ("SetEnumitemSize" "{{") + ("AddEnumerateCounter" "*{{{") + ("SetLabelAlign" "{{") + ("SetEnumitemKey" "{{" ) + ("SetEnumitemValue" "{{{")) + 'function) + ;; Cater for additional optionals arg <size> based on package + ;; option 'sizes': + (font-latex-add-keywords + (if (LaTeX-provided-package-options-member "enumitem" "sizes") + '(("setlist" "*<[{")) + '(("setlist" "*[{"))) + 'function) + + (font-latex-add-keywords '(("restartlist" "{" ) + ("setlistdepth" "{" ) + ("SetEnumerateShortLabel" "{{")) + 'variable))) + TeX-dialect) + +(defvar LaTeX-enumitem-package-options + '("inline" "shortlabels" "loadonly" "sizes" + "ignoredisplayed" "includedisplayed") + "Package options for the enumitem package.") + +;;; enumitem.el ends here diff --git a/elpa/auctex-13.1.3/style/enumitem.elc b/elpa/auctex-13.1.3/style/enumitem.elc Binary files differnew file mode 100644 index 0000000..e1a3b31 --- /dev/null +++ b/elpa/auctex-13.1.3/style/enumitem.elc diff --git a/elpa/auctex-13.1.3/style/environ.el b/elpa/auctex-13.1.3/style/environ.el new file mode 100644 index 0000000..3a17f50 --- /dev/null +++ b/elpa/auctex-13.1.3/style/environ.el @@ -0,0 +1,143 @@ +;;; environ.el --- AUCTeX style for `environ.sty' version v0.3 -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2016, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-07-04 +;; 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 `environ.sty' version v0.3 from +;; 2014/05/04. `environ.sty' is part of TeXLive. + +;; Name of new env's defined with `\NewEnviron' are automatically +;; added to list of known env's, e.g.: +;; +;; \NewEnviron{test}{<macro code>} +;; +;; `test' will be in completion list upon `C-c C-e'. + +;; More sophisticated definions must go through AUCTeX's parser, e.g.: +;; +;; \NewEnviron{test}[2][]{<macro code>} +;; +;; After a definition like this, you have to invoke `C-c C-n' to get +;; the correct completion. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-auto-environ-NewEnviron nil + "Temporary for parsing the arguments of `\\NewEnviron' +from `environ' package.") + +(defvar LaTeX-environ-NewEnviron-regexp + `(,(concat "\\\\\\(?:Ren\\|N\\)ewEnviron" + "[ \t\n\r]*{\\([A-Za-z0-9]+\\)}%?" + "[ \t\n\r]*\\[?\\([0-9]?\\)\\]?%?" + "[ \t\n\r]*\\(\\[\\)?") + (1 2 3) LaTeX-auto-environ-NewEnviron) + "Matches the argument of `\\NewEnviron' and `\\RenewEnviron' +from `environ.sty'.") + +(defun LaTeX-environ-auto-prepare () + "Clear temporary variable from `environ.sty' before parsing." + (setq LaTeX-auto-environ-NewEnviron nil)) + +(defun LaTeX-environ-auto-cleanup () + "Process the parsed results of `\\NewEnviron'." + (dolist (env-args LaTeX-auto-environ-NewEnviron) + (let ((env (car env-args)) + (args (cadr env-args)) + (opt (nth 2 env-args))) + (cond (;; opt. 1st argument and mandatory argument(s) + (and args (not (string-equal args "")) + opt (not (string-equal opt ""))) + (add-to-list 'LaTeX-auto-environment + (list env 'LaTeX-env-args (vector "argument") + (1- (string-to-number args))))) + (;; mandatory argument(s) only + (and args (not (string-equal args "")) + (string-equal opt "")) + (add-to-list 'LaTeX-auto-environment + (list env (string-to-number args)))) + (t ; No args + (add-to-list 'LaTeX-auto-environment (list env))))))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-environ-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-environ-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun TeX-arg-environ-final-code (_optional) + "Query for the presence of optional `final code' as argument to +`\\NewEnviron' and insert the appropriate brackets." + (let ((fincode (y-or-n-p "With optional final code? "))) + (when fincode + (insert "[]")))) + +(TeX-add-style-hook + "environ" + (lambda () + + ;; Add it to the parser + (TeX-auto-add-regexp LaTeX-environ-NewEnviron-regexp) + + (TeX-add-symbols + + ;; \NewEnviron{<name>}[<No.args>][<Opt.arg.>]{<Macro code>}[<Final code>] + '("NewEnviron" + (TeX-arg-define-environment "Environment") + [ "Number of arguments" ] [ "argument" ] t TeX-arg-environ-final-code) + + '("RenewEnviron" + (TeX-arg-environment "Environment") + [ "Number of arguments" ] [ "argument" ] t TeX-arg-environ-final-code) + + ;; Insert a pair of braces and we're done + '("environfinalcode" t) + + ;; Pre-defined + '("BODY") + + ;; Define another macro instead of \BODY + '("environbodyname" TeX-arg-define-macro)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("NewEnviron" "{[[{[") + ("RenewEnviron" "{[[{[") + ("environbodyname" "|{\\")) + 'function))) + TeX-dialect) + +(defvar LaTeX-environ-package-options nil + "Package options for the environ package.") + +;;; environ.el ends here diff --git a/elpa/auctex-13.1.3/style/environ.elc b/elpa/auctex-13.1.3/style/environ.elc Binary files differnew file mode 100644 index 0000000..5595ed2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/environ.elc diff --git a/elpa/auctex-13.1.3/style/epigraph.el b/elpa/auctex-13.1.3/style/epigraph.el new file mode 100644 index 0000000..14b276f --- /dev/null +++ b/elpa/auctex-13.1.3/style/epigraph.el @@ -0,0 +1,106 @@ +;;; epigraph.el --- AUCTeX style for `epigraph.sty' v1.5c -*- lexical-binding: t; -*- + +;; Copyright (C) 2012, 2017, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2012-02-11 +;; 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 `epigraph.sty' v1.5c from 2009/09/02. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "epigraph" + (lambda () + (TeX-add-symbols + ;; 2.1 The epigraph command + '("epigraph" 2) + ;; 2.2 The epigraphs environment + '("qitem" 2) + ;; 2.3 General + "textflush" + "epigraphflush" + "sourceflush" + "epigraphsize" + ;; 2.4 Epigraphs before chapter headings + '("epigraphhead" [ "Distance (a number)" ] t) + '("dropchapter" TeX-arg-length) + "undodrop" + ;; \cleartoevenpage takes an optional argument. Don't query for + ;; it, just insert the macro and leave the rest to the user + '("cleartoevenpage" 0)) + + ;; 2.2 The epigraphs environment + (LaTeX-add-environments + '("epigraphs" LaTeX-env-item)) + + ;; The value of these lengths can be changed with \setlength + (LaTeX-add-lengths "epigraphwidth" "epigraphrule" + "beforeepigraphskip" + "afterepigraphskip") + + ;; Append epigraphs to `LaTeX-item-list': + (add-to-list 'LaTeX-item-list + '("epigraphs" . LaTeX-epigraph-qitem) t) + + ;; Append qitem to `LaTeX-item-regexp': + (unless (string-match "qitem" LaTeX-item-regexp) + (set (make-local-variable 'LaTeX-item-regexp) + (concat + LaTeX-item-regexp + "\\|" + "qitem\\b")) + (LaTeX-set-paragraph-start)) + + ;; Fontification: + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("epigraph" "{{") + ("qitem" "{{") + ("epigraphhead" "[{")) + 'textual) + (font-latex-add-keywords '(("dropchapter" "{") + ("undodrop" "")) + 'variable) + (font-latex-add-keywords '("cleartoevenpage") + 'warning))) + TeX-dialect) + +(defvar LaTeX-epigraph-package-options nil + "Package options for the epigraph package.") + +;; adapted from latex.el:`LaTeX-item-bib' +(defun LaTeX-epigraph-qitem () + "Insert a new qitem for use in the epigraphs environment." + (TeX-insert-macro "qitem")) + +;;; epigraph.el ends here diff --git a/elpa/auctex-13.1.3/style/epigraph.elc b/elpa/auctex-13.1.3/style/epigraph.elc Binary files differnew file mode 100644 index 0000000..6520dfc --- /dev/null +++ b/elpa/auctex-13.1.3/style/epigraph.elc diff --git a/elpa/auctex-13.1.3/style/epsf.el b/elpa/auctex-13.1.3/style/epsf.el new file mode 100644 index 0000000..bfe6279 --- /dev/null +++ b/elpa/auctex-13.1.3/style/epsf.el @@ -0,0 +1,40 @@ +;;; epsf.el - Support for the epsf style option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013-2014, 2020 Free Software Foundation, Inc. + +;; Contributed by Marc Gemis <makke@wins.uia.ac.be> + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "epsf" + (lambda () + (TeX-add-symbols + '("epsfsize" TeX-arg-epsfsize) + '("epsffile" TeX-arg-file) + '("epsfbox" TeX-arg-file) + "epsflly" "epsfury" "testit" "epsfgetlitbb" + "epsfnormal" "epsfgetbb" "other" "epsfsetgraph" + "PsFragSpecialArgs" "epsfaux" "testit" "epsfgrab" + "epsfllx" "epsflly" "epsfury" "epsfverbosetrue")) + TeX-dialect) + +(defun TeX-arg-epsfsize (_optional &optional _prompt _definition) + "Create a line that print epsf figures at a certain percentage" + (interactive) + (let ((scale (TeX-read-string "Scale in percent (default 75): "))) + (setq scale (if (zerop (length scale)) "75" scale)) + (save-excursion + ; append #1#{scale#1} + (insert "#1#2" TeX-grop "0." scale "#1" TeX-grcl) + ; insert \def before \epsfsize + (beginning-of-line 1) + (newline) + (insert TeX-esc "def") + (forward-line -1) + (insert "% From now on print figures at " scale "% of original size")) + (end-of-line))) + +;;; epsf.el ends here diff --git a/elpa/auctex-13.1.3/style/epsf.elc b/elpa/auctex-13.1.3/style/epsf.elc Binary files differnew file mode 100644 index 0000000..6fa86f2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/epsf.elc diff --git a/elpa/auctex-13.1.3/style/erewhon.el b/elpa/auctex-13.1.3/style/erewhon.el new file mode 100644 index 0000000..c438214 --- /dev/null +++ b/elpa/auctex-13.1.3/style/erewhon.el @@ -0,0 +1,98 @@ +;;; erewhon.el --- AUCTeX style for `erewhon.sty' (v1.04) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-11-18 +;; 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 `erewhon.sty' (v1.04) from 2015/04/07. +;; `erewhon.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "erewhon" + (lambda () + + ;; Run style hook for various packages loaded by erewhon + (TeX-run-style-hooks "textcomp" "fontaxes") + + ;; New symbols + (TeX-add-symbols + + ;; Only preamble commands + '("useosf" 0) + '("useproportional" 0) + + ;; Text commands + '("lfstyle" -1) ; lf declaration + '("tlfstyle" -1) ; tlf declaration + '("osfstyle" -1) ; osf declaration + '("tosfstyle" -1) ; tosf declaration + '("sufigures" -1) ; superior figures declaration + '("textlf" t) ; proportional lining figures + '("texttlf" t) ; tabular lining figures + '("textosf" t) ; proportional oldstyle figures + '("texttosf" t) ; tabular oldstyle figures + '("textsu" t) ; superior figures + '("textin" t) ; inferior figures + '("textnu" t) ; numerator figures + '("textde" t) ; denominator figures + '("textfrac" "Numerator" "Denominator")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textlf" "{") + ("texttlf" "{") + ("textosf" "{") + ("texttosf" "{") + ("textsu" "{") + ("textin" "{") + ("textnu" "{") + ("textde" "{")) + 'type-command) + (font-latex-add-keywords '(("lfstyle" "") + ("tlfstyle" "") + ("osfstyle" "") + ("tosfstyle" "") + ("sufigures" "")) + 'type-declaration) + (font-latex-add-keywords '(("textfrac" "{{")) + 'textual))) + TeX-dialect) + +(defvar LaTeX-erewhon-package-options + '("lining" "lf" "oldstyle" "osf" "tabular" "p" "proportional" + "scale" "scaled" "scosf" "space" "sups") + "Package options for the erewhon package.") + +;;; erewhon.el ends here diff --git a/elpa/auctex-13.1.3/style/erewhon.elc b/elpa/auctex-13.1.3/style/erewhon.elc Binary files differnew file mode 100644 index 0000000..5901ad8 --- /dev/null +++ b/elpa/auctex-13.1.3/style/erewhon.elc diff --git a/elpa/auctex-13.1.3/style/eso-pic.el b/elpa/auctex-13.1.3/style/eso-pic.el new file mode 100644 index 0000000..2ee93d0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/eso-pic.el @@ -0,0 +1,90 @@ +;;; eso-pic.el --- AUCTeX style for `eso-pic.sty' (v3.0a) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2020, 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-10-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 `eso-pic.sty' (v3.0a) from 2020/10/14. +;; `eso-pic.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "eso-pic" + (lambda () + + (TeX-add-symbols + ;; Basic commands + '("AddToShipoutPictureBG" t) + '("AddToShipoutPictureBG*" t) + '("AddToShipoutPictureFG" t) + '("AddToShipoutPictureFG*" t) + '("ClearShipoutPictureBG" 0) + '("ClearShipoutPictureFG" 0) + + ;; Helper macros + '("AtPageUpperLeft" t) + '("AtPageLowerLeft" t) + '("AtPageCenter" t) + '("AtTextUpperLeft" t) + '("AtTextLowerLeft" t) + '("AtTextCenter" t) + '("AtStockUpperLeft" t) + '("AtStockLowerLeft" t) + '("AtStockCenter" t) + + ;; Aux. commands + '("LenToUnit" t) + '("gridSetup" + [ "Grid unit name" ] "Grid unit" "Label factor" + "Grid delta" "Grid Delta" "Gap")) + + ;; Declare expert macro + (TeX-declare-expert-macros + "eso-pic" + "gridSetup" "LenToUnit")) + TeX-dialect) + +(defvar LaTeX-eso-pic-package-options-list + '(("pscoord" ("true" "false")) + ("texcoord" ("true" "false")) + ("grid" ("true" "false")) + ("gridBG" ("true" "false")) + ("gridunit" ("mm" "in" "bp" "pt")) + ("gridcolor") + ("subgridcolor") + ("subgridstyle" ("solid" "dotted")) + ("colorgrid" ("true" "false")) + ("dvips" ("true" "false"))) + "Package options for the eso-pic package.") + +(defun LaTeX-eso-pic-package-options nil + "Prompt for package options for the eso-pic package." + (TeX-read-key-val t LaTeX-eso-pic-package-options-list)) + +;;; eso-pic.el ends here diff --git a/elpa/auctex-13.1.3/style/eso-pic.elc b/elpa/auctex-13.1.3/style/eso-pic.elc Binary files differnew file mode 100644 index 0000000..82c935d --- /dev/null +++ b/elpa/auctex-13.1.3/style/eso-pic.elc diff --git a/elpa/auctex-13.1.3/style/etoolbox.el b/elpa/auctex-13.1.3/style/etoolbox.el new file mode 100644 index 0000000..42af6a4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/etoolbox.el @@ -0,0 +1,376 @@ +;;; etoolbox.el --- AUCTeX style for `etoolbox.sty' v2.5k -*- lexical-binding: t; -*- + +;; Copyright (C) 2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Created: 2022-03-19 +;; 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 `etoolbox.sty' v2.5k from 2020/10/05. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defun LaTeX-arg-etoolbox-csname (optional &optional prompt) + "Query and insert the name of a TeX control sequence. +If OPTIONAL is non-nil, then insert it in square brackets. +PROMPT replaces the standard one." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional prompt "Control sequence") + (TeX-symbol-list)) + optional)) + +(defun LaTeX-arg-etoolbox-macro-free (optional &optional prompt) + "Query and insert a macro not surrounded by braces. +If OPTIONAL is non-nil, insert the macro only when given by the +user." + (let ((TeX-arg-opening-brace "") + (TeX-arg-closing-brace "") + (macro (completing-read + (TeX-argument-prompt optional prompt + (concat "Macro: " TeX-esc) + t) + (TeX-symbol-list)))) + (TeX-argument-insert macro optional TeX-esc))) + +(TeX-add-style-hook + "etoolbox" + (lambda () + + (TeX-add-symbols + + ;; 2.1 Definitions + '("newrobustcmd" TeX-arg-define-macro [ TeX-arg-define-macro-arguments ] t) + '("newrobustcmd*" TeX-arg-define-macro [ TeX-arg-define-macro-arguments ] t) + '("renewrobustcmd" TeX-arg-macro [ TeX-arg-define-macro-arguments ] t) + '("renewrobustcmd*" TeX-arg-macro [ TeX-arg-define-macro-arguments ] t) + '("providerobustcmd" TeX-arg-define-macro [ TeX-arg-define-macro-arguments ] t) + '("providerobustcmd*" TeX-arg-define-macro [ TeX-arg-define-macro-arguments ] t) + + ;; 2.2 Patching + '("robustify" TeX-arg-macro) + + ;; 2.3 Protection + '("protecting" t) + + ;; 2.4 Length and Counter Assignments + '("defcounter" TeX-arg-counter t) + '("deflength" TeX-arg-length t) + + ;; 2.5 Additional Document Hooks + '("AfterPreamble" t) + '("AtEndPreamble" t) + '("AfterEndPreamble" t) + '("AfterEndDocument" t) + + ;; 2.6 Environment Hooks + '("AtBeginEnvironment" TeX-arg-environment t) + '("AtEndEnvironment" TeX-arg-environment t) + '("BeforeBeginEnvironment" TeX-arg-environment t) + '("AfterEndEnvironment" TeX-arg-environment t) + + ;; 3 Author Commands + ;; 3.1.1 Macro Definitions + '("csdef" LaTeX-arg-etoolbox-csname [TeX-arg-free "Arguments"] t) + '("csgdef" LaTeX-arg-etoolbox-csname [TeX-arg-free "Arguments"] t) + '("csedef" LaTeX-arg-etoolbox-csname [TeX-arg-free "Arguments"] t) + '("csxdef" LaTeX-arg-etoolbox-csname [TeX-arg-free "Arguments"] t) + '("protected@csedef" + LaTeX-arg-etoolbox-csname [TeX-arg-free "Arguments"] t) + '("protected@csxdef" + LaTeX-arg-etoolbox-csname [TeX-arg-free "Arguments"] t) + '("cslet" LaTeX-arg-etoolbox-csname TeX-arg-macro) + '("letcs" TeX-arg-macro LaTeX-arg-etoolbox-csname) + '("csletcs" LaTeX-arg-etoolbox-csname LaTeX-arg-etoolbox-csname) + '("csuse" LaTeX-arg-etoolbox-csname) + '("undef" LaTeX-arg-etoolbox-macro-free) + '("gundef" LaTeX-arg-etoolbox-macro-free) + '("csundef" LaTeX-arg-etoolbox-csname) + '("csgundef" LaTeX-arg-etoolbox-csname) + '("csmeaning" LaTeX-arg-etoolbox-csname) + '("csshow" LaTeX-arg-etoolbox-csname) + + ;; 3.1.2 Arithmetic Definitions + '("numdef" LaTeX-arg-etoolbox-macro-free "Integer expression") + '("numgdef" LaTeX-arg-etoolbox-macro-free "Integer expression") + '("csnumdef" LaTeX-arg-etoolbox-csname "Integer expression") + '("csnumgdef" LaTeX-arg-etoolbox-csname "Integer expression") + + '("dimdef" LaTeX-arg-etoolbox-macro-free "Dimension expression") + '("dimgdef" LaTeX-arg-etoolbox-macro-free "Dimension expression") + '("csdimdef" LaTeX-arg-etoolbox-csname "Dimension expression") + '("csdimgdef" LaTeX-arg-etoolbox-csname "Dimension expression") + + '("gluedef" LaTeX-arg-etoolbox-macro-free "Glue expression") + '("gluegdef" LaTeX-arg-etoolbox-macro-free "Glue expression") + '("csgluedef" LaTeX-arg-etoolbox-csname "Glue expression") + '("csgluegdef" LaTeX-arg-etoolbox-csname "Glue expression") + + '("mudef" LaTeX-arg-etoolbox-macro-free "Muglue expression") + '("mugdef" LaTeX-arg-etoolbox-macro-free "Muglue expression") + '("csmudef" LaTeX-arg-etoolbox-csname "Muglue expression") + '("csmugdef" LaTeX-arg-etoolbox-csname "Muglue expression") + + ;; 3.2 Expansion Control + '("expandonce" LaTeX-arg-etoolbox-macro-free) + '("csexpandonce" LaTeX-arg-etoolbox-csname) + + ;; 3.3.1 Appending to a Hook + '("appto" LaTeX-arg-etoolbox-macro-free t) + '("gappto" LaTeX-arg-etoolbox-macro-free t) + '("eappto" LaTeX-arg-etoolbox-macro-free t) + '("xappto" LaTeX-arg-etoolbox-macro-free t) + '("protected@eappto" LaTeX-arg-etoolbox-macro-free t) + '("protected@xappto" LaTeX-arg-etoolbox-macro-free t) + + '("csappto" LaTeX-arg-etoolbox-csname t) + '("csgappto" LaTeX-arg-etoolbox-csname t) + '("cseappto" LaTeX-arg-etoolbox-csname t) + '("csxappto" LaTeX-arg-etoolbox-csname t) + '("protected@cseappto" LaTeX-arg-etoolbox-csname t) + '("protected@csxappto" LaTeX-arg-etoolbox-csname t) + + ;; 3.3.2 Prepending to a Hook + '("preto" LaTeX-arg-etoolbox-macro-free t) + '("gpreto" LaTeX-arg-etoolbox-macro-free t) + '("epreto" LaTeX-arg-etoolbox-macro-free t) + '("xpreto" LaTeX-arg-etoolbox-macro-free t) + '("protected@epreto" LaTeX-arg-etoolbox-macro-free t) + '("protected@xpreto" LaTeX-arg-etoolbox-macro-free t) + + '("cspreto" LaTeX-arg-etoolbox-csname t) + '("csgpreto" LaTeX-arg-etoolbox-csname t) + '("csepreto" LaTeX-arg-etoolbox-csname t) + '("csxpreto" LaTeX-arg-etoolbox-csname t) + '("protected@csepreto" LaTeX-arg-etoolbox-csname t) + '("protected@csxpreto" LaTeX-arg-etoolbox-csname t) + + ;; 3.4 Patching + + '("patchcmd" ["Prefix"] TeX-arg-macro 4) + '("ifpatchable" TeX-arg-macro 3) + '("ifpatchable*" TeX-arg-macro 2) + '("apptocmd" TeX-arg-macro 3) + '("pretocmd" TeX-arg-macro 3) + "tracingpatches" + + ;; 3.5.1 TeX Flags + '("newbool" "Name") + '("providebool" "Name") + '("booltrue" "Name") + '("boolfalse" "Name") + '("setbool" "Name" (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Value") + '("true" "false"))) + '("ifbool" "Name" 2) + '("notbool" "Name" 2) + + ;; 3.5.2 LaTeX Flags + '("newtoggle" "Name") + '("providetoggle" "Name") + '("toggletrue" "Name") + '("togglefalse" "Name") + '("settoggle" "Name" (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Value") + '("true" "false"))) + '("iftoggle" "Name" 2) + '("nottoggle" "Name" 2) + + ;; 3.6.1 Macro Tests + '("ifdef" TeX-arg-macro 2) + '("ifcsdef" LaTeX-arg-etoolbox-csname 2) + '("ifundef" TeX-arg-macro 2) + '("ifcsundef" LaTeX-arg-etoolbox-csname 2) + '("ifdefmacro" TeX-arg-macro 2) + '("ifcsmacro" LaTeX-arg-etoolbox-csname 2) + '("ifdefparam" TeX-arg-macro 2) + '("ifcsparam" LaTeX-arg-etoolbox-csname 2) + '("ifdefprefix" TeX-arg-macro 2) + '("ifcsprefix" LaTeX-arg-etoolbox-csname 2) + '("ifdefprotected" TeX-arg-macro 2) + '("ifcsprotected" LaTeX-arg-etoolbox-csname 2) + '("ifdefltxprotected" TeX-arg-macro 2) + '("ifcsltxprotected" LaTeX-arg-etoolbox-csname 2) + '("ifdefempty" TeX-arg-macro 2) + '("ifcsempty" LaTeX-arg-etoolbox-csname 2) + '("ifdefvoid" TeX-arg-macro 2) + '("ifcsvoid" LaTeX-arg-etoolbox-csname 2) + '("ifdefequal" TeX-arg-macro TeX-arg-macro 2) + '("ifcsequal" LaTeX-arg-etoolbox-csname LaTeX-arg-etoolbox-csname 2) + '("ifdefstring" TeX-arg-macro 3) + '("ifcsstring" LaTeX-arg-etoolbox-csname 3) + '("ifdefstrequal" TeX-arg-macro TeX-arg-macro 2) + '("ifcsstrequal" LaTeX-arg-etoolbox-csname LaTeX-arg-etoolbox-csname 2) + + ;; 3.6.2 Counter and Length Tests + '("ifdefcounter" TeX-arg-macro 2) + '("ifcscounter" LaTeX-arg-etoolbox-csname 2) + '("ifltxcounter" TeX-arg-counter 2) + '("ifdeflength" TeX-arg-length 2) + '("ifcslength" (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Length") + (LaTeX-length-list)) + 2) + '("ifdefdimen" TeX-arg-macro 2) + '("ifcsdimen" "Control sequence" 2) + + ;; 3.6.3 String Tests + '("ifstrequal" 4) + '("ifstrempty" 3) + '("ifblank" 3) + '("notblank" 3) + + ;; 3.6.4 Arithmetic Tests + '("ifnumcomp" 5) + '("ifnumequal" 4) + '("ifnumgreater" 4) + '("ifnumless" 4) + '("ifnumodd" 3) + + '("ifdimcomp" 5) + '("ifdimequal" 4) + '("ifdimgreater" 4) + '("ifdimless" 4) + + ;; 3.6.5 Boolean Expressions + '("ifboolexpr" 3) + '("ifboolexpe" 3) + '("whileboolexpr" 2) + '("unlessboolexpr" 2) + + ;; 3.7 List Processing + ;; 3.7.1 User Input + '("DeclareListParser" TeX-arg-define-macro "Separator") + '("DeclareListParser*" TeX-arg-define-macro "Separator") + '("docsvlist" t) + '("forcsvlist" 2) + + ;; 3.7.2 Internal Lists + '("listadd" TeX-arg-macro t) + '("listdadd" TeX-arg-macro t) + '("listeadd" TeX-arg-macro t) + '("listxadd" TeX-arg-macro t) + + '("listcsadd" LaTeX-arg-etoolbox-csname t) + '("listcsgadd" LaTeX-arg-etoolbox-csname t) + '("listcseadd" LaTeX-arg-etoolbox-csname t) + '("listcsxadd" LaTeX-arg-etoolbox-csname t) + + '("listremove" TeX-arg-macro t) + '("listgremove" TeX-arg-macro t) + '("listcsremove" LaTeX-arg-etoolbox-csname t) + '("listcsgremove" LaTeX-arg-etoolbox-csname t) + + '("dolistlool" TeX-arg-macro) + '("dolistcslool" LaTeX-arg-etoolbox-csname) + + '("forlistloop" t TeX-arg-macro) + '("forlistcsloop" t LaTeX-arg-etoolbox-csname) + + '("ifinlist" t TeX-arg-macro nil nil) + '("xifinlist" t TeX-arg-macro nil nil) + + '("ifinlistcs" t LaTeX-arg-etoolbox-csname nil nil) + '("xifinlistcs" t LaTeX-arg-etoolbox-csname nil nil) + + ;; 3.8 Miscellaneous Tools + '("rmntonum" "Roman numeral") + '("ifrmnum" 3)) + + ;; Add the exceptions to `LaTeX-indent-begin-exceptions-list' and + ;; run `LaTeX-indent-commands-regexp-make': + (let ((exceptions '("ifpatchable" + "ifbool" + "iftoggle" + "ifdef" + "ifcsdef" + "ifundef" + "ifcsundef" + "ifdefmacro" + "ifcsmacro" + "ifdefparam" + "ifcsparam" + "ifdefprefix" + "ifcsprefix" + "ifdefprotected" + "ifcsprotected" + "ifdefltxprotected" + "ifcsltxprotected" + "ifdefempty" + "ifcsempty" + "ifdefvoid" + "ifcsvoid" + "ifdefequal" + "ifcsequal" + "ifdefstring" + "ifcsstring" + "ifdefstrequal" + "ifcsstrequal" + "ifdefcounter" + "ifcscounter" + "ifltxcounter" + "ifdeflength" + "ifcslength" + "ifdefdimen" + "ifcsdimen" + "ifstrequal" + "ifstrempty" + "ifblank" + "ifnumcomp" + "ifnumequal" + "ifnumgreater" + "ifnumless" + "ifnumodd" + "ifdimcomp" + "ifdimequal" + "ifdimgreater" + "ifdimless" + "ifboolexpr" + "ifboolexpe" + "ifinlist" + "ifinlistcs" + "ifrmnum"))) + (dolist (elt exceptions) + (add-to-list 'LaTeX-indent-begin-exceptions-list elt t)) + (LaTeX-indent-commands-regexp-make)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("newrobustcmd" "*|{\\[[{") + ("renewrobustcmd" "*|{\\[[{") + ("providerobustcmd" "*|{\\[[{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-etoolbox-package-options nil + "Package options for the etoolbox package.") + +;;; etoolbox.el ends here diff --git a/elpa/auctex-13.1.3/style/etoolbox.elc b/elpa/auctex-13.1.3/style/etoolbox.elc Binary files differnew file mode 100644 index 0000000..7f2e473 --- /dev/null +++ b/elpa/auctex-13.1.3/style/etoolbox.elc diff --git a/elpa/auctex-13.1.3/style/everysel.el b/elpa/auctex-13.1.3/style/everysel.el new file mode 100644 index 0000000..f500078 --- /dev/null +++ b/elpa/auctex-13.1.3/style/everysel.el @@ -0,0 +1,47 @@ +;;; everysel.el --- AUCTeX style for `everysel.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2012, 2015, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Created: 2012-12-25 +;; 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 `everysel.sty'. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "everysel" + (lambda () + (TeX-add-symbols + ;; adds a hook (the argument code) to be called after \\selectfont + '("EverySelectfont" 1) + ;; adds a hook to be called after the next \\selectfont + '("AtNextSelectfont" 1))) + TeX-dialect) + +(defvar LaTeX-everysel-package-options nil + "Package options for the everysel package.") + +;;; everysel.el ends here diff --git a/elpa/auctex-13.1.3/style/everysel.elc b/elpa/auctex-13.1.3/style/everysel.elc Binary files differnew file mode 100644 index 0000000..c1d6af5 --- /dev/null +++ b/elpa/auctex-13.1.3/style/everysel.elc diff --git a/elpa/auctex-13.1.3/style/exam.el b/elpa/auctex-13.1.3/style/exam.el new file mode 100644 index 0000000..370a923 --- /dev/null +++ b/elpa/auctex-13.1.3/style/exam.el @@ -0,0 +1,412 @@ +;;; exam.el --- AUCTeX style for the (LaTeX) exam class -*- lexical-binding: t; -*- + +;; Copyright (C) 2016--2022 Free Software Foundation, Inc. + +;; Author: Uwe Brauer <oub@mat.ucm.es> +;; Created: 2016-03-06 +;; 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 the exam class. + +;; Acknowledgements +;; Arash Esbati <arash@gnu.org> for a almost complete rewrite. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-article-class-options) + +(defvar LaTeX-exam-class-options + '("answers" "noanswers" "cancelspace" "nocancelspace" "addpoints") + "Class options for the exam class.") + +(TeX-load-style "article") +;; Add options from `LaTeX-article-class-options' only once: +(dolist (opt LaTeX-article-class-options) + (add-to-list 'LaTeX-exam-class-options opt)) + +(defun LaTeX-exam-insert-item () + "Insert a new item in the current environment from exam class. +Item inserted depends on the environment." + (let ((env (LaTeX-current-environment))) + (TeX-insert-macro + (cond ((string= env "questions") + "question") + ((string= env "parts") + "part") + ((string= env "subparts") + "subpart") + ((string= env "subsubparts") + "subsubpart") + ((member env '("choices" "oneparchoices" + "checkboxes" "oneparcheckboxes")) + "choice") + ;; Fallback + (t "item"))))) + +(defun LaTeX-exam-insert-label (_optional &optional name type) + "Indent the line and query/insert a label incl. the \"\\label\" macro. +Arguments NAME and TYPE are the same as for the function +`LaTeX-label'. OPTIONAL is ignored." + (indent-according-to-mode) + (let ((currenv (LaTeX-current-environment))) + (LaTeX-label (or name currenv) (or type 'environment)))) + +(TeX-add-style-hook + "exam" + (lambda () + (TeX-run-style-hooks "article") + ;; Make our label prefix available ... + (let ((envs '("questions"))) + (dolist (env envs) + ;; to AUCTeX + (add-to-list 'LaTeX-label-alist + (cons env 'LaTeX-exam-label)) + ;; to RefTeX with `reftex-add-label-environments' + (when (fboundp 'reftex-add-label-environments) + (reftex-add-label-environments + `((,env ,LaTeX-exam-reftex-quick-id-key ,LaTeX-exam-label + "~\\ref{%s}" nil + (regexp "[Qq]uestions?" "[Nn]umbers?"))))))) + (when (or (member "xcolor" (TeX-style-list)) + (member "color" (TeX-style-list))) + (TeX-add-symbols '("shadedsolutions" 0))) + + (LaTeX-add-environments + '("solution" [ "Height" ]) + '("select") + '("choices" LaTeX-env-item) + '("oneparchoices" LaTeX-env-item) + '("checkboxes" LaTeX-env-item) + '("oneparcheckboxes" LaTeX-env-item) + '("solutionorbox" [ "Height" ]) + '("solutionorlines" [ "Height" ]) + '("solutionordottedlines" [ "Height" ]) + '("solutionorgrid" [ "Height" ]) + '("questions" LaTeX-env-item) + '("parts" LaTeX-env-item) + '("subparts" LaTeX-env-item) + '("subsubparts" LaTeX-env-item)) + + ;; Tell AUCTeX about special environments: + (let ((envs '("questions" + "parts" "subparts" "subsubparts" + "choices" "oneparchoices" + "checkboxes" "oneparcheckboxes"))) + (dolist (env envs) + (add-to-list 'LaTeX-item-list + (cons env #'LaTeX-exam-insert-item) + t))) + + ;; Append us only once: + (unless (and (string-match "question" LaTeX-item-regexp) + (string-match "sub" LaTeX-item-regexp)) + (set (make-local-variable 'LaTeX-item-regexp) + (concat + LaTeX-item-regexp + "\\|" + "choice\\b" + "\\|" + "\\(titled\\)?question\\b" + "\\|" + "\\(sub\\)*part\\b")) + (LaTeX-set-paragraph-start)) + + (TeX-add-symbols + '("part" [ "Points" ] (TeX-arg-literal " ")) + '("subpart" [ "Points" ] (TeX-arg-literal " ")) + '("gradetable" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Orientation") + '("v" "h") ] + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Table index") + '("questions" "pages") ] ) + '("bonusgradetable" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Orientation") + '("v" "h") ] + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Table index") + '("questions" "pages") ] ) + '("bonuspointtable" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Orientation") + '("v" "h") ] + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Table index") + '("questions" "pages") ] ) + '("partialgradetable" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Orientation") + '("v" "h") ] + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Table index") + '("questions" "pages") ] ) + '("partialbonusgradetable" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Orientation") + '("v" "h") ] + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Table index") + '("questions" "pages") ] ) + '("partialbonuspointtable" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Orientation") + '("v" "h") ] + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Table index") + '("questions" "pages") ] ) + '("pointtable" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Orientation") + '("v" "h") ] + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Table index") + '("questions" "pages") ] ) + '("partialpointtable" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Orientation") + '("v" "h") ] + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Table index") + '("questions" "pages") ] ) + + '("subsubpart" [ "Points" ] (TeX-arg-literal " ")) + '("question" ["Points"] (TeX-arg-literal " ")) + '("bonusquestion" ["Points"] (TeX-arg-literal " ")) + '("extrafootheight" [ TeX-arg-length "Extra height 1. page footer" ] + (TeX-arg-length "Extra height footers")) + '("titledquestion" "Title" ["Points"] LaTeX-exam-insert-label (TeX-arg-literal " ")) + '("ContinuedQuestion" 0) + '("CorrectChoice" 0) + '("CorrectChoiceEmphasis" 1) + '("IncompleteQuestion" 0) + '("SolutionEmphasis" 1) + '("addpoints" 0) + '("addquestionobject" 0) + '("answerclearance" 1) + '("answerline" ["Points"] (TeX-arg-literal " ")) + '("begingradingrange" 1) + '("bhpgword" 1) + '("bhpword" 1) + '("bhqword" 1) + '("bhsword" 1) + '("bhtword" 1) + '("bonuspart" 0) + '("bonuspointformat" 0) + '("bonuspointname" 1) + '("bonuspointpoints" 2) + '("bonuspointsinrange" 0) + '("bonuspointsofquestion" 1) + '("bonuspointsonpage" 0) + '("bonusqformat" 1) + '("bonussubpart" 0) + '("bonussubsubpart" 0) + '("bonustitledquestion" "Title" ["Points"] LaTeX-exam-insert-label (TeX-arg-literal " ")) + '("bonustotalformat" 0) + '("boxedpoints" 0) + '("bracketedpoints" 0) + '("bvpgword" 1) + '("bvpword" 1) + '("bvqword" 1) + '("bvsword" 1) + '("bvtword" 1) + '("cancelspace" 0) + '("cellwidth" 1) + '("cfoot" 1) + '("chbpword" 1) + '("chead" 1) + '("checkboxchar" 1) + '("checkboxeshook" 0) + '("checkedchar" 1) + '("choice" (TeX-arg-literal " ")) + '("choicelabel" 0) + '("choiceshook" 0) + '("chpgword" 1) + '("chpword" 1) + '("chqword" 1) + '("chsword" 1) + '("chsword" 1) + '("correctchoice" 0) + '("correctchoiceemphasis" 1) + '("covercfoot" 3) + '("coverchead" 3) + '("coverextrafootheight" 3) + '("coverextraheadheight" 3) + '("coverfirstpagefooter" 3) + '("coverfirstpageheader" 3) + '("coverfooter" 3) + '("coverheader" 3) + '("coverlfoot" 3) + '("coverlhead" 3) + '("coverrfoot" 3) + '("coverrhead" 3) + '("coverrunningfooter" 3) + '("coverrunningheader" 3) + '("cvbpword" 1) + '("cvpgword" 1) + '("cvpword" 1) + '("cvqword" 1) + '("cvsword" 1) + '("cvtword" 1) + '("dottedlinefillheight" 1) + '("droppoints" 0) + '("droptotalbonuspoints" 0) + '("droptotalpoints" 0) + '("endgradingrange" 1) + '("extraheadheight" 1) + '("extrawidth" 1) + '("fillwithdottedlines" 1) + '("fillwithlines" 1) + '("firstpagefooter" 1) + '("firstpagefootrule" 0) + '("firstpageheader" 3) + '("firstpageheadrule" 0) + '("footer" 3) + '("footrule" 0) + '("framedsolutions" 0) + '("fullwidth" 1) + '("gradetablestretch" 0) + '("greeknum" 0) + '("half" 0) + '("hpgword" 1) + '("hpword" 1) + '("hqword" 1) + '("hsword" 1) + '("htword" 1) + '("ifcontinuation" 2) + '("ifincomplete" 2) + '("iflastpage" 2) + '("ifprintanswers" 0) + '("lfoot" 1) + '("lhead" 1) + '("linefillheight" 1) + '("linefillthickness" 1) + '("makeemptybox" 1) + '("marginbonuspointname" 1) + '("marginpointname" 1) + '("marginpointsep" 1) + '("marksnotpoints" 0) + '("noaddpoints" 0) + '("nobonusqformat" 1) + '("noboxedpoints" 0) + '("nobracketedpoints" 0) + '("nocancelspace" 0) + '("nomorequestions" 0) + '("nopointsinmargin" 0) + '("nopointsinrightmargin" 0) + '("noprintanswers" 0) + '("noqformat" 1) + '("numbonuspoints" 0) + '("numcoverpages" 0) + '("numpages" 0) + '("numparts" 0) + '("numpoints" 0) + '("numquestions" 0) + '("numsubparts" 0) + '("numsubsubparts" 0) + '("oddeven" 2) + '("partlabel" 0) + '("partopsep" 0) + '("partshook" 0) + '("pointname" 1) + '("pointpoints" 2) + '("pointsdroppedatright" 0) + '("pointsinmargin" 0) + '("pointsinrightmargin" 0) + '("pointsofquestion" 1) + '("pointsonpage" 1) + '("printanswers" 0) + '("printselectedfalse" 0) + '("printselectedtrue" 0) + '("qformat" 1) + '("questionlabel" 0) + '("questionshook" 0) + '("rfoot" 1) + '("rhead" 1) + '("rightpointsmargin" 0) + '("roman" 0) + '("romannumeral" 0) + '("runningfooter" 3) + '("runningfootrule" 0) + '("runningheader" 3) + '("runningheadrule" 0) + '("settabletotalbonuspoints" 1) + '("settabletotalpoints" 1) + '("shadedsolutions" 0) + '("solutiontitle" 0) + '("subpartlabel" 0) + '("subpartshook" 0) + '("subsubpartlabel" 0) + '("subsubpartshook" 0) + '("thechoice" 0) + '("themarginpoints" 0) + '("thepartno" 0) + '("thequestion" 0) + '("thequestiontitle" 0) + '("thesubpart" 0) + '("thesubsubpart" 0) + '("totalbonuspoints" 0) + '("totalformat" 0) + '("totalnumpages" 0) + '("totalpoints" 0) + '("unframedsolutions" 0) + '("uplevel" 1) + '("usehorizontalhalf" 0) + '("useslantedhalf" 0) + '("vpgword" 1) + '("vpword" 1) + '("vqword" 1) + '("vsword" 1) + '("vtword" 1) + '("thepoints" 0) + ;; ... more stuff here + ) + (LaTeX-add-lengths "answerlinelength" "answerskip") + + ;; Don't increase indentation at various \if* macros: + (let ((exceptions '("ifcontinuation" + "ifincomplete" + "iflastpage"))) + (dolist (elt exceptions) + (add-to-list 'LaTeX-indent-begin-exceptions-list elt t)) + (LaTeX-indent-commands-regexp-make)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("question" "[") + ("titledquestion" "{[") + ("subpart" "[") + ("subsubpart" "[")) + 'textual))) + TeX-dialect) + +;;; exam.el ends here diff --git a/elpa/auctex-13.1.3/style/exam.elc b/elpa/auctex-13.1.3/style/exam.elc Binary files differnew file mode 100644 index 0000000..44db4da --- /dev/null +++ b/elpa/auctex-13.1.3/style/exam.elc diff --git a/elpa/auctex-13.1.3/style/exercise.el b/elpa/auctex-13.1.3/style/exercise.el new file mode 100644 index 0000000..98ea7da --- /dev/null +++ b/elpa/auctex-13.1.3/style/exercise.el @@ -0,0 +1,66 @@ +;;; exercise.el --- AUCTeX style for `exercise.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2020 Free Software Foundation, Inc. + +;; Author: Nicolas Richard <theonewiththeevillook@yahoo.fr> +;; Created: 2014-03-17 +;; 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 `exercise.sty'. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "exercise" + (lambda () + (LaTeX-add-environments + '("Exercise") + '("Exercise*") + '("Answer") + '("ExerciseList") + ) + (TeX-add-symbols + '("Exercise") + '("Exercise*") + '("Answer") + '("ExePart") + '("ExePart*") + '("Question") + '("subQuestion") + '("ExeText") + '("ExerciseSelect") + '("ExerciseStopSelect") + '("refAnswer") + '("marker") + '("DifficultyMarker") + '("listofexercises") + '("ListOfExerciseInToc") + '("ExerciseLevelInToc"))) + TeX-dialect) + +(defvar LaTeX-exercise-package-options '("noexercise" "noanswer" "exerciseonly" "answeronly" "nothing" "answerdelayed" "exercisedelayed" "lastexercise") + "Package options for the exercise package.") + +;;; exercise.el ends here diff --git a/elpa/auctex-13.1.3/style/exercise.elc b/elpa/auctex-13.1.3/style/exercise.elc Binary files differnew file mode 100644 index 0000000..fe9cf56 --- /dev/null +++ b/elpa/auctex-13.1.3/style/exercise.elc diff --git a/elpa/auctex-13.1.3/style/expl3.el b/elpa/auctex-13.1.3/style/expl3.el new file mode 100644 index 0000000..b0d5a38 --- /dev/null +++ b/elpa/auctex-13.1.3/style/expl3.el @@ -0,0 +1,63 @@ +;;; expl3.el --- AUCTeX style for `expl3.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2017-2020 Free Software Foundation, Inc. + +;; Author: Tassilo Horn <tsdh@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-02-22 +;; 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 `expl3.sty'. + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar font-latex-match-simple-include-list) + +(defvar LaTeX-expl3-syntax-table + (let ((st (copy-syntax-table LaTeX-mode-syntax-table))) + ;; Make _ and : symbol chars + (modify-syntax-entry ?\_ "_" st) + (modify-syntax-entry ?\: "_" st) + st)) + +(TeX-add-style-hook + "expl3" + (lambda () + (set-syntax-table LaTeX-expl3-syntax-table) + (when (and (eq TeX-install-font-lock 'font-latex-setup)) + ;; Fontify _ and : as part of macros. + (add-to-list 'font-latex-match-simple-include-list "_" t) + (add-to-list 'font-latex-match-simple-include-list ":" t))) + TeX-dialect) + +(defun LaTeX-expl3-package-options () + "Read the expl3 package options from the user." + (TeX-read-key-val t '(("check-declarations" ("true" "false")) + ("log-functions" ("true" "false")) + ("driver" ("auto" "latex2e" + "dvips" "dvipdfmx" + "pdfmode" "xdvipdfmx"))))) + +;;; expl3.el ends here diff --git a/elpa/auctex-13.1.3/style/expl3.elc b/elpa/auctex-13.1.3/style/expl3.elc Binary files differnew file mode 100644 index 0000000..0ffbb29 --- /dev/null +++ b/elpa/auctex-13.1.3/style/expl3.elc diff --git a/elpa/auctex-13.1.3/style/extramarks.el b/elpa/auctex-13.1.3/style/extramarks.el new file mode 100644 index 0000000..ecf619e --- /dev/null +++ b/elpa/auctex-13.1.3/style/extramarks.el @@ -0,0 +1,72 @@ +;;; extramarks.el --- AUCTeX style for `extramarks.sty' (v4.0) -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-01-12 +;; 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 `extramarks.sty' (v4.0) from 2021/01/04. +;; `extramarks.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "extramarks" + (lambda () + + ;; New symbols + (TeX-add-symbols + "firstleftmark" + "lastrightmark" + "firstrightmark" + "lastleftmark" + "firstleftxmark" + "firstrightxmark" + "topleftxmark" + "toprightxmark" + "lastleftxmark" + "lastrightxmark" + "firstxmark" + "lastxmark" + "topxmark" + '("extramarks" 2)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("extramarks" "{{")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-extramarks-package-options nil + "Package options for the extramarks package.") + +;;; extramarks.el ends here diff --git a/elpa/auctex-13.1.3/style/extramarks.elc b/elpa/auctex-13.1.3/style/extramarks.elc Binary files differnew file mode 100644 index 0000000..d1f66a8 --- /dev/null +++ b/elpa/auctex-13.1.3/style/extramarks.elc diff --git a/elpa/auctex-13.1.3/style/fancyhdr.el b/elpa/auctex-13.1.3/style/fancyhdr.el new file mode 100644 index 0000000..eb9751a --- /dev/null +++ b/elpa/auctex-13.1.3/style/fancyhdr.el @@ -0,0 +1,187 @@ +;;; fancyhdr.el --- AUCTeX style for `fancyhdr.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2012, 2013, 2018-2022 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; 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 `fancyhdr.sty', v4.0 from 2021/01/04. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +;; Because there can be many places, `TeX-completing-read-multiple' is +;; used instead of just `completing-read', and a `collection' argument +;; is provided as the list of places differs between the macros +(defun TeX-arg-fancyhdr-place (optional + &optional prompt collection full) + "Prompt for fancyhdr places with completion. +If OPTIONAL is non-nil, insert the resulting value as an optional +argument, otherwise as a mandatory one. If non-nil, PROMPT is +used as the prompt. If non-nil, COLLECTION is used as the +completion list for the place. + +If FULL is non-nil, a full list of places is offered for +completion, otherwise a reduced one omitting place combinations +for H(eader) or F(ooter)." + (let* ((places (or collection + ;; Standard places with no restrictions. + ;; Lower-case versions, and reverse versions + ;; (e.g., OC) are left out for simplicity. + (if full + '("L" "LO" "LE" "LOH" "LOF" "LEH" "LEF" + "C" "CO" "CE" "COH" "COF" "CEH" "CEF" + "R" "RO" "RE" "ROH" "ROF" "REH" "REF") + '("L" "LO" "LE" "C" "CO" "CE" "R" "RE" "RO")))) + (arguments (mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt optional + prompt + "Places") + places) + ","))) + (TeX-argument-insert arguments optional))) + +(defvar LaTeX-fancyhdr-fancypagestyle-regexp + '("\\\\fancypagestyle{\\([^}]+\\)}" + 1 LaTeX-auto-pagestyle) + "Regexp matching the first argument of \\fancypagestyle macro.") + +(TeX-add-style-hook + "fancyhdr" + (lambda () + (TeX-add-symbols + + ;; 2 Using fancyhdr + '("fancyhead" [ TeX-arg-fancyhdr-place ] t) + '("fancyfoot" [ TeX-arg-fancyhdr-place ] t) + '("fancyhf" [ (TeX-arg-fancyhdr-place nil nil t) ] t) + + '("fancyheadoffset" + [ (TeX-arg-fancyhdr-place nil ("L" "LO" "LE" "R" "RO" "RE")) ] + TeX-arg-length) + '("fancyfootoffset" + [ (TeX-arg-fancyhdr-place nil ("LO" "LE" "L" "RO" "RE" "R")) ] + TeX-arg-length) + '("fancyhfoffset" + [ (TeX-arg-fancyhdr-place nil ("L" "LO" "LE" "LOH" "LOF" "LEH" "LEF" + "R" "RO" "RE" "ROH" "ROF" "REH" "REF")) ] + TeX-arg-length) + + "headrulewidth" "footrulewidth" + "headruleskip" "footruleskip" + "headrule" "footrule" + "headwidth" + + '("fancyheadinit" t) + '("fancyfootinit" t) + '("fancyhfinit" t) + + '("fancycenter" + [ TeX-arg-length "Distance" ] [ "Stretch" ] 3) + + '("iftopfloat" 2) + '("ifbotfloat" 2) + '("iffloatpage" 2) + '("iffootnote" 2) + + '("fancypagestyle" + ;; Always add the chosen pagestyle to list of known pagestyles, + ;; dupes are removed when retrieving with the function + ;; `LaTeX-pagestyle-list': + (TeX-arg-pagestyle nil t) + [ TeX-arg-pagestyle "Base pagestyle" ] + t) + + ;; 15 The scoop on LATEX’s marks + '("nouppercase" t)) + + ;; Don't increase indentation at various \if* macros: + (let ((exceptions '("iftopfloat" + "ifbotfloat" + "iffloatpage" + "iffootnote"))) + (dolist (elt exceptions) + (add-to-list 'LaTeX-indent-begin-exceptions-list elt t)) + (LaTeX-indent-commands-regexp-make)) + + ;; 30 Deprecated commands + ;; Don't offer deprecated commands in V4.0 for completion anymore. + ;; '("lhead" t) + ;; '("lfoot" t) + ;; '("chead" t) + ;; '("cfoot" t) + ;; '("rhead" t) + ;; '("rfoot" t) + ;; "plainfootrulewidth" + ;; "plainheadrulewidth" + + ;; `fancyhdr.sty' supplies these two pagestyles. Pagestyle + ;; `fancyplain' is now deprecated. + (LaTeX-add-pagestyles "fancy" "fancydefault") + + ;; Add \fancypagestyle{pagestyle} to AUCTeX parser + (TeX-auto-add-regexp LaTeX-fancyhdr-fancypagestyle-regexp) + + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("fancyhead" "[{") + ("fancyfoot" "[{") + ("fancyhf" "[{") + ("fancyheadoffset" "[{") + ("fancyfootoffset" "[{") + ("fancyhfoffset" "[{") + ("fancyheadinit" "{") + ("fancyfootinit" "{") + ("fancyhfinit" "{") + ;; Fontify deprecated commands for + ;; older documents; to be removed + ;; sometimes ... + ("lhead" "[{") + ("lfoot" "[{") + ("chead" "[{") + ("cfoot" "[{") + ("rhead" "[{") + ("rfoot" "[{") + ;; Don't fontify the last argument; + ;; all macros used there should have + ;; their own fontification since they + ;; can also be used in a document + ;; top-level. + ("fancypagestyle" "{[")) + 'function))) + TeX-dialect) + +(defvar LaTeX-fancyhdr-package-options + '("nocheck" "compatV3" "headings" "myheadings") + "Package options for fancyhdr package.") + +;;; fancyhdr.el ends here diff --git a/elpa/auctex-13.1.3/style/fancyhdr.elc b/elpa/auctex-13.1.3/style/fancyhdr.elc Binary files differnew file mode 100644 index 0000000..661c8ec --- /dev/null +++ b/elpa/auctex-13.1.3/style/fancyhdr.elc diff --git a/elpa/auctex-13.1.3/style/fancynum.el b/elpa/auctex-13.1.3/style/fancynum.el new file mode 100644 index 0000000..52ba702 --- /dev/null +++ b/elpa/auctex-13.1.3/style/fancynum.el @@ -0,0 +1,49 @@ +;;; fancynum.el --- AUCTeX style for `fancynum.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2013, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; 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 `fancynum.sty' + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "fancynum" + (lambda () + (TeX-add-symbols + '("fnum" t) + '("setfnumdsym" t) + '("setfnummsym" t) + '("setfnumgsym" t))) + TeX-dialect) + +(defvar LaTeX-fancynum-package-options + '("english" "french" "tight" "loose" "commas" "thinspaces" "plain") + "Package options for fancynum.") + +;; fancynum.el ends here + diff --git a/elpa/auctex-13.1.3/style/fancynum.elc b/elpa/auctex-13.1.3/style/fancynum.elc Binary files differnew file mode 100644 index 0000000..a895c05 --- /dev/null +++ b/elpa/auctex-13.1.3/style/fancynum.elc diff --git a/elpa/auctex-13.1.3/style/fancyref.el b/elpa/auctex-13.1.3/style/fancyref.el new file mode 100644 index 0000000..22fd1c1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/fancyref.el @@ -0,0 +1,136 @@ +;;; fancyref.el --- AUCTeX style file with support for fancyref.sty -*- lexical-binding: t; -*- + +;; Copyright (C) 1999, 2014, 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl> +;; Maintainer: auctex-devel@gnu.org + +;; 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. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "fancyref" + (lambda () + (TeX-add-symbols + + ;; The macros with label arguments + '("fref" [ TeX-arg-fancyref-format ] TeX-arg-ref) + '("Fref" [ TeX-arg-fancyref-format ] TeX-arg-ref) + + ;; The macros which define new prefixes and formats + '("fancyrefchangeprefix" TeX-arg-macro "Prefix") + '("Frefformat" TeX-arg-fancyref-format TeX-arg-macro "Output") + '("frefformat" TeX-arg-fancyref-format TeX-arg-macro "Output") + + ;; The delimiter + "fancyrefargdelim" + + ;; All those names and abbreviations. + ;; Part + "fancyrefpartlabelprefix" + "Frefpartname" "frefpartname" + ;; Chapter + "fancyrefchalabelprefix" + "Frefchaname" "frefchaname" + ;; Section + "fancyrefseclabelprefix" + "Frefsecname" "frefsecname" + ;; Equation + "fancyrefeqlabelprefix" + "Frefeqname" "frefeqname" + ;; Figure + "fancyreffiglabelprefix" + "Freffigname" "freffigname" "Freffigshortname" + ;; Footnote + "fancyreffnlabelprefix" + "Freffnname" "freffnname" + ;; Item + "fancyrefitemlabelprefix" + "Frefitemname" "frefitemname" + ;; Table + "fancyreftablabelprefix" + "Freftabname" "freftabname" "Freftabshortname" + ;; Page + "Frefpgname" "frefpgname" "Frefpgshortname" + ;; On + "Frefonname" "frefonname" + ;; See + "Frefseename" "frefseename" + + ;; The spacing macros + "fancyrefloosespacing" "fancyreftightspacing" "fancyrefdefaultspacing" + + ;; And the hook + "fancyrefhook") + + ;; Insatall completion for labels and formats + (setq TeX-complete-list + (append + '(("\\\\[fF]ref\\(\\[[^]]*\\]\\)?{\\([^{}\n\r\\%,]*\\)" + 2 LaTeX-label-list "}") + ("\\\\[fF]ref\\[\\([^{}\n\r\\%,]*\\)" + 1 LaTeX-fancyref-formats "]") + ("\\\\[fF]refformat{\\([^{}\n\r\\%,]*\\)" + 1 LaTeX-fancyref-formats "}")) + TeX-complete-list)) + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("fref" "[{") ("Fref" "[{")) 'reference)) + + ;; Activate RefTeX reference style. + (and LaTeX-reftex-ref-style-auto-activate + (fboundp 'reftex-ref-style-activate) + (reftex-ref-style-activate "Fancyref"))) + TeX-dialect) + +;; The following list keeps a list of available format names +;; Note that this list is only updated when a format is used, not +;; during buffer parsing. We could install a regexp to look for +;; formats, but this would not work in multifile documents since the +;; formats are not written out to the auto files. +;; For now, we just leave it at that. +(defvar LaTeX-fancyref-formats '(("plain") ("vario") ("margin") ("main")) + "List of formats for fancyref.") + +(defun LaTeX-fancyref-formats () LaTeX-fancyref-formats) + +(defun TeX-arg-fancyref-format (optional &optional prompt _definition) + "Prompt for a fancyref format name. +If the user gives an unknown name, add it to the list." + (let ((format (completing-read (TeX-argument-prompt optional prompt "Format") + LaTeX-fancyref-formats))) + (if (not (string-equal "" format)) + (add-to-list 'LaTeX-fancyref-formats (list format))) + (TeX-argument-insert format optional))) + +(defvar LaTeX-fancyref-package-options '("english" "german" "loose" + "margin" "paren" "plain" "tight" + "vario") + "Package options for the fancyref package.") + +;;; fancyref.el ends here diff --git a/elpa/auctex-13.1.3/style/fancyref.elc b/elpa/auctex-13.1.3/style/fancyref.elc Binary files differnew file mode 100644 index 0000000..2878e5b --- /dev/null +++ b/elpa/auctex-13.1.3/style/fancyref.elc diff --git a/elpa/auctex-13.1.3/style/fancyvrb.el b/elpa/auctex-13.1.3/style/fancyvrb.el new file mode 100644 index 0000000..22e52c2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/fancyvrb.el @@ -0,0 +1,772 @@ +;;; fancyvrb.el --- AUCTeX style for `fancyvrb.sty' version 3.6. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013, 2014, 2016-2021 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <mose@gnu.org> +;; 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 `fancyvrb.sty' version 3.6. + +;; This style has some capabilities to parse user defined macros, +;; environments and saved blocks with `SaveVerbatim' environments and +;; offer them for completion. After defining a new macro or +;; environment, hit `C-c C-n' to parse the document. In case of +;; `SaveVerbatim', a second `C-c C-n' might be necessary. + +;; The command `\CustomVerbatimEnvironment' is not mentioned in the +;; documenation; hence this command is removed from this style. Use +;; `\DefineVerbatimEnvironment' for new environments and customize the +;; standard ones with `\RecustomVerbatimEnvironment'. + +;; The entries in `LaTeX-fancyvrb-key-val-options' cover also some +;; keys which are not mentioned in the manual of the package. + +;; Starting with version 3.6, fancyvrb.sty provides a `reflabel' key +;; in the optional arguments which acts like a `\label' macro. This +;; key makes mostly sense for `\pageref'; referencing number of +;; missing \caption's with `\ref' in a fancyvrb environment isn't +;; useful. This style provides support for AUCTeX and RefTeX in order +;; to add and reference these labels. When inserting an environment +;; with `C-c C-e', choose `reflabel' key during the completion. If +;; you're using RefTeX and want to pass the label insertion job to it, +;; simply leave the key value-less and proceed. Otherwise enter the +;; label value by yourself. AUCTeX and RefTeX will parse the value +;; and offer it for completion once a referencing macros is used. + +;;; Code: + +;; Needed for auto-parsing: +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function font-latex-set-syntactic-keywords + "font-latex") + +(declare-function LaTeX-color-definecolor-list "color" ()) +(declare-function LaTeX-xcolor-definecolor-list "xcolor" ()) +(defvar LaTeX-fvextra-key-val-options) + +(defvar LaTeX-fancyvrb-key-val-options + `(("commentchar" ("none")) + ("gobble") + ("formatcom") + ("formatcom*") ; Undocumented key + ("fontfamily" ("tt" "courier" "helvetica")) + ("fontsize" ("auto" "\\tiny" "\\scriptsize" + "\\footnotesize" "\\small" "\\normalsize" + "\\large" "\\Large" "\\LARGE" "\\huge" "\\Huge")) + ("fontshape" ("auto" "n" "it" "sl" "sc" "scit")) + ("fontseries" ("auto" "m" "b" "bx" "sb" "c" "l" "lc")) + ("frame" ("none" "leftline" "topline" "bottomline" "lines" "single")) + ("framerule") + ("framesep") + ("rulecolor" ("none")) + ("fillcolor" ("none")) + ("label" ("none")) + ("labelposition" ("none" "topline" "bottomline" "all")) + ("numbers" ("none" "left" "right")) + ("numbersep") + ("firstnumber" ("auto" "last" "integer")) + ("stepnumber") + ("numberblanklines" ("true" "false")) + ("firstline") + ("lastline") + ("showspaces" ("true" "false")) + ("showtabs" ("true" "false")) + ("obeytabs" ("true" "false")) + ("tabsize") + ("baselinestretch" ("auto" "dimension")) + ("commandchars" ("none")) + ("xleftmargin") + ("xrightmargin") + ("resetmargins" ("true" "false")) + ("hfuzz") + ("samepage" ("true" "false")) + ("codes") + ("codes*") ; Undocumented key + ("defineactive") + ("defineactive*") ; Undocumented key + ("reflabel") + ;; Undocumented key and introduced in version 2.81 2011/04/06 + ("vspace" ,(mapcar (lambda (x) + (concat TeX-esc (car x))) + (LaTeX-length-list))) + ;; Actually, the following options are used only by the `BVerbatim' + ;; environment. + ("boxwidth" ("auto" "dimension")) + ("baseline" ("b" "c" "t")) + ;; The next key applies only to `\SaveVerb' macro. + ("aftersave")) + "Key=value options for fancyvrb macros and environments.") + +(defun LaTeX-fancyvrb-key-val-options () + "Return an updated list of key=vals from fancyvrb package. +This function also checks if the package fvextra is used and +takes its key=vals into account." + (append + ;; Check if fvextra is loaded in combination with x?color: + (when (and (member "fvextra" (TeX-style-list)) + (or (member "xcolor" TeX-active-styles) + (member "color" TeX-active-styles))) + (let* ((colorcmd (if (member "xcolor" TeX-active-styles) + #'LaTeX-xcolor-definecolor-list + #'LaTeX-color-definecolor-list)) + (keys '("highlightcolor" + "rulecolor" + "fillcolor" + "tabcolor" + "spacecolor")) + (colors (mapcar #'car (funcall colorcmd))) + result) + (dolist (key keys result) + (if (string= key "highlightcolor") + (push (list key colors) result) + (push (list key (cons "none" colors)) result))))) + + ;; Check if fvextra is loaded: + (when (member "fvextra" TeX-active-styles) + LaTeX-fvextra-key-val-options) + + ;; Check if fancyvrb is loaded in combination with x?color: + (when (and (not (member "fvextra" TeX-active-styles)) + (or (member "xcolor" TeX-active-styles) + (member "color" TeX-active-styles))) + (let* ((colorcmd (if (member "xcolor" TeX-active-styles) + #'LaTeX-xcolor-definecolor-list + #'LaTeX-color-definecolor-list)) + (colors (mapcar (lambda (x) + (concat TeX-esc "color" TeX-grop x TeX-grcl)) + (mapcar #'car (funcall colorcmd)))) + (keys '("rulecolor" "fillcolor")) + val result) + (dolist (key keys result) + (setq val (cadr (assoc key LaTeX-fancyvrb-key-val-options))) + (push (list key (append val colors)) result)))) + + ;; Plain fancyvrb: + LaTeX-fancyvrb-key-val-options)) + +(defvar LaTeX-fancyvrb-base-macros + '("VerbatimInput" "BVerbatimInput" "LVerbatimInput" + "SaveVerb" "UseVerb" "Verb") + "List of base macros available with fancyvrb package. +Starred versions are not included in this list.") + +(defvar LaTeX-fancyvrb-base-environments + '("Verbatim" "BVerbatim" "LVerbatim" "SaveVerbatim" "VerbatimOut") + "List of base environments available with fancyvrb package. +Starred versions are not included in this list.") + +(defvar LaTeX-fancyvrb-key-val-skip-regexp + (concat "\\(?:" (LaTeX-extract-key-value-label 'none) "\\)?") + "Helper regexp to skip over an optional argument.") + +;; Setup for defining new Verbatim commands: + +(TeX-auto-add-type "fancyvrb-macro" "LaTeX") + +(defvar LaTeX-fancyvrb-macro-regexp + `(,(concat "\\\\\\(Rec\\|C\\)ustomVerbatimCommand" + "[ \t\n\r]*{?[ \t\n\r]*\\\\\\([A-Za-z]+\\)[ \t\n\r]*}?" + "[ \t\n\r]*{[ \t\n\r]*\\([A-Za-z]+\\)[ \t\n\r]*}") + (2 3 1) LaTeX-auto-fancyvrb-macro) + "Matches macros by fancyvrb package.") + +;; Setup for defining new Verbatim environments: + +(TeX-auto-add-type "fancyvrb-environment" "LaTeX") + +(defvar LaTeX-fancyvrb-environment-regexp + `(,(concat "\\\\DefineVerbatimEnvironment" + "[ \t\n\r]*{[ \t\n\r]*\\([A-Za-z0-9]+\\)[ \t\n\r]*}" + "[ \t\n\r]*{[ \t\n\r]*\\([A-Za-z]+\\)[ \t\n\r]*}") + (1 2) LaTeX-auto-fancyvrb-environment) + "Matches new environments defined by fancyvrb package.") + +;; Setup for names in SaveVerb macros: + +(TeX-auto-add-type "fancyvrb-saveverb" "LaTeX") + +(defvar LaTeX-fancyvrb-saveverb-regexp + `(,(concat "\\\\SaveVerb" + LaTeX-fancyvrb-key-val-skip-regexp + "{\\([^}]+\\)}") + 1 LaTeX-auto-fancyvrb-saveverb) + "Match the name under which verbatim text is saved by SaveVerb macro.") + +;; Setup for names in SaveVerbatim environments: + +(TeX-auto-add-type "fancyvrb-saveverbatim" "LaTeX") + +(defvar LaTeX-fancyvrb-saveverbatim-regexp + `(,(concat "\\\\begin{SaveVerbatim}" + LaTeX-fancyvrb-key-val-skip-regexp + "{\\([^}]+\\)}") + 1 LaTeX-auto-fancyvrb-saveverbatim) + "Match the name under which verbatim text is saved by SaveVerbatim environment.") + +(defun LaTeX-fancyvrb-auto-prepare () + "Clear various LaTeX-auto-fancyvrb-* variables before parsing." + (setq LaTeX-auto-fancyvrb-macro nil + LaTeX-auto-fancyvrb-environment nil + LaTeX-auto-fancyvrb-saveverb nil + LaTeX-auto-fancyvrb-saveverbatim nil)) + +(defun LaTeX-fancyvrb-auto-cleanup () + "Process parsed elements for fancyvrb package." + (LaTeX-fancyvrb-arg-define-macro nil t) + (LaTeX-fancyvrb-arg-define-environment nil t)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-fancyvrb-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-fancyvrb-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun LaTeX-fancyvrb-arg-define-macro (optional &optional cleanup recustom) + "Query and insert a new verbatim macro with fancyvrb package. +If OPTIONAL is non-nil, insert the arguments in brackets. If +CLEANUP is non-nil, do not insert any arguments in the buffer and +update only various AUCTeX variables for verbatim macros. If +RECUSTOM is non-nil, delete macros from the variable +`TeX-symbol-list' before adding the new ones." + ;; This part is only relevant when called by user: + (unless cleanup + (let ((new-mac (if recustom + (completing-read + (TeX-argument-prompt optional nil "Verbatim macro: \\" t) + (mapcar #'car (apply #'append LaTeX-fancyvrb-macro-list))) + (TeX-read-string + (TeX-argument-prompt optional nil "New verbatim macro: \\" t)))) + (base-mac (completing-read (TeX-argument-prompt optional nil "Based on macro") + LaTeX-fancyvrb-base-macros)) + (rec-flag (if recustom "Rec" "C"))) + ;; We are (re-)defining a macro: Insert user queried input and + ;; use `LaTeX-add-fancyvrb-macros' on the input. Do not enclose + ;; the first argument in braces as this will improve + ;; fontification. Otherwise, the part between 2 closing braces + ;; get fontified, i.e.: + ;; \CustomVerbatimCommand{\foo}{Verb}{} + ;; ^ ^ + (let ((TeX-arg-opening-brace "") + (TeX-arg-closing-brace "")) + (TeX-argument-insert new-mac optional TeX-esc)) + (TeX-argument-insert base-mac optional) + (TeX-argument-insert + (TeX-read-key-val optional (LaTeX-fancyvrb-key-val-options)) optional) + (LaTeX-add-fancyvrb-macros `(,new-mac ,base-mac ,rec-flag)))) + ;; + ;; Now run the procdure: Do not use the function + ;; `LaTeX-fancyvrb-macro-list' here which will remove dupes from the + ;; variable `LaTeX-fancyvrb-macro-list' depending on car; we need + ;; the variable as is, hence (apply #'append ...); + (dolist (elt (apply #'append LaTeX-fancyvrb-macro-list)) + (let ((mac-name (nth 0 elt)) + (base-mac (nth 1 elt)) + (flag (nth 2 elt))) + ;; If we're Rec-ustomizing, delete the entry first from + ;; `TeX-symbol-list': + (when (string= flag "Rec") + (setq TeX-symbol-list + (assq-delete-all (car (assoc mac-name (TeX-symbol-list))) TeX-symbol-list))) + ;; Now add the new item: Start with new macros for loading + ;; files: + (cond ((member base-mac '("VerbatimInput" "BVerbatimInput" "LVerbatimInput")) + (TeX-add-symbols + `(,mac-name + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + LaTeX-fancyvrb-arg-file-relative)) + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,mac-name "[{")) + 'reference))) + ;; New macros for saving verbatim text: + ((string= base-mac "SaveVerb") + (TeX-add-symbols + `(,mac-name + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Save name")))) + (LaTeX-add-fancyvrb-saveverbs name) + (format "%s" name)))) + TeX-arg-verb)) + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,mac-name "[{")) + 'textual))) + ;; New macros for using previously saved text: + ((string= base-mac "UseVerb") + (TeX-add-symbols + `(,mac-name + (TeX-arg-eval + completing-read + (TeX-argument-prompt nil nil "Saved name") + (LaTeX-fancyvrb-saveverb-list)))) + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,mac-name "{")) + 'textual))) + ;; Anything else is considered as verbatim typesetting macro: + (t + (TeX-add-symbols + `(,mac-name + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + TeX-arg-verb) + ;; Defined macros have a starred version where the + ;; `showspaces' key is set to true + `(,(concat mac-name "*") + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + TeX-arg-verb)) + (add-to-list 'LaTeX-verbatim-macros-with-delims-local + mac-name t) + (add-to-list 'LaTeX-verbatim-macros-with-delims-local + (concat mac-name "*") t) + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,mac-name "*[")) + 'textual)))))) + ;; Update font-lock: + (when (and (fboundp 'font-latex-set-syntactic-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-set-syntactic-keywords))) + +(defun LaTeX-fancyvrb-arg-define-environment (optional &optional cleanup) + "Query and insert a new verbatim environment with fancyvrb package. +If OPTIONAL is non-nil, insert the arguments in brackets. If +CLEANUP is non-nil, do not insert any arguments in the buffer and +update only various AUCTeX variables for verbatim environments." + (unless cleanup + (let ((new-env (TeX-read-string + (TeX-argument-prompt optional nil "New verbatim environment"))) + (base-env (completing-read + (TeX-argument-prompt optional nil "Based on environment") + LaTeX-fancyvrb-base-environments))) + ;; We are defining a new env: First insert the arguments and then + ;; run `LaTeX-add-fancyvrb-environments' on '(new-env base-env). + ;; If base-env is SaveVerbatim, run + ;; `LaTeX-add-fancyvrb-saveverbatims' on new-env as well. + (TeX-argument-insert new-env optional) + (TeX-argument-insert base-env optional) + (TeX-argument-insert + (TeX-read-key-val optional (LaTeX-fancyvrb-key-val-options)) optional) + (LaTeX-add-fancyvrb-environments `(,new-env ,base-env)) + (when (string= base-env "SaveVerbatim") + (LaTeX-add-fancyvrb-saveverbatims new-env)))) + ;; + ;; Now run the procdure: + (dolist (elt (LaTeX-fancyvrb-environment-list)) + (let ((env (car elt)) + (type (cadr elt))) + (cond ((string= type "VerbatimOut") + (LaTeX-add-environments + `(,env (lambda (env) + (let ((options (TeX-read-key-val + t (LaTeX-fancyvrb-key-val-options))) + (file (TeX-read-string "Output file: "))) + (LaTeX-insert-environment + env + (concat + (unless (zerop (length options)) + (concat LaTeX-optop options LaTeX-optcl)) + (concat TeX-grop file TeX-grcl)))))))) + ((string= type "SaveVerbatim") + (TeX-auto-add-regexp `(,(concat "\\\\begin{" + env + "}" + LaTeX-fancyvrb-key-val-skip-regexp + "{\\([^}]+\\)}") + 1 LaTeX-auto-fancyvrb-saveverbatim))) + (t + ;; Regular verbatim environments have a starred + ;; version; so add them here; the non-starred additions + ;; to `LaTeX-verbatim-environments-local' and + ;; `LaTeX-indent-environment-list' are done outside + ;; (cond ...): + (LaTeX-add-environments + `(,env LaTeX-env-args + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + LaTeX-fancyvrb-env-reflabel-key-val)) + (LaTeX-add-environments + `(,(concat env "*") LaTeX-env-args + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + LaTeX-fancyvrb-env-reflabel-key-val)) + (add-to-list 'LaTeX-verbatim-environments-local (concat env "*")) + (add-to-list 'LaTeX-indent-environment-list + `(,(concat env "*") current-indentation) t) + ;; Tell AUCTeX about label values to reflabel key: + (add-to-list 'LaTeX-label-alist + (cons env 'LaTeX-listing-label) t) + (add-to-list 'LaTeX-label-alist + (cons (concat env "*") 'LaTeX-listing-label) t) + (TeX-auto-add-regexp + `(,(concat (regexp-quote TeX-esc) + "begin[[:space:]]*" + (regexp-quote TeX-grop) + env + "\\*?" + (regexp-quote TeX-grcl) + "[[:space:]]*" + (LaTeX-extract-key-value-label "reflabel")) + 1 LaTeX-auto-label)) + ;; Tell RefTeX: + (when (and (fboundp 'reftex-add-label-environments) + (boundp 'reftex-label-regexps)) + (reftex-add-label-environments + `((,env + ?l ,LaTeX-listing-label "~\\pageref{%s}" + LaTeX-fancyvrb-reftex-label-context-function + (regexp "[Ll]isting" "[Vv]erbatim" + "[Cc]ode" "Quell\\(code\\|text\\)")) + + (,(concat env "*") + ?l ,LaTeX-listing-label "~\\pageref{%s}" + LaTeX-fancyvrb-reftex-label-context-function + (regexp "[Ll]isting" "[Vv]erbatim" + "[Cc]ode" "Quell\\(code\\|text\\)")))) + (add-to-list 'reftex-label-regexps + (concat + (regexp-quote TeX-esc) + "begin[[:space:]]*" + (regexp-quote TeX-grop) + (concat env "\\*?") + (regexp-quote TeX-grcl) + "[[:space:]]*" + (LaTeX-extract-key-value-label "reflabel" 1)) + t)))) + ;; These apply for all environments defined: + (add-to-list 'LaTeX-verbatim-environments-local env) + (add-to-list 'LaTeX-indent-environment-list `(,env current-indentation) t))) + ;; Update RefTeX: + (when (fboundp 'reftex-compile-variables) + (reftex-compile-variables)) + ;; Update font-lock: + (when (and (fboundp 'font-latex-set-syntactic-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-set-syntactic-keywords))) + +(defun LaTeX-fancyvrb-arg-file-relative (optional) + "Query and insert a file name relative to current master file. +If OPTIONAL is non-nil, insert the file name in brackets." + (TeX-argument-insert + (file-relative-name + (read-file-name (TeX-argument-prompt optional nil "File")) + (TeX-master-directory)) + optional)) + +(defun LaTeX-fancyvrb-env-reflabel-key-val (_optional) + "Add a label value to reflabel key. +This function checks if the reflabel key is given in the optional +argument of a fancyvrb environment and then adds a label as value +to that key. The label value is inserted only if the key is +value-less; user entered label values are recognized and +respected. OPTIONAL is ignored." + (let ((p (point-marker)) + (s (make-marker))) + (set-marker s (save-excursion + (LaTeX-find-matching-begin) + (re-search-forward (regexp-quote LaTeX-optop) + (line-end-position) + t))) + ;; Search for the reflabel and a potential value: + (when (marker-position s) + (re-search-backward + (concat + "\\(\\<reflabel\\>\\)" + ;; Check if the key already has a label value: + "\\(" + "[[:space:]]*=[[:space:]]*" + (regexp-quote TeX-grop) + "?" + "[[:alnum:]:._-]" + "\\)?") + s t) + ;; Insert a label value only if the key is value-less: + (when (and (not (match-string 2)) + (match-string 1)) + (goto-char (match-end 1)) + (insert "=" + TeX-grop + (format "%s" (LaTeX-label (LaTeX-current-environment) + 'environment + t)) + TeX-grcl))) + ;; At any rate, go to where we started and clean up: + (goto-char p) + (set-marker p nil) + (set-marker s nil))) + +(defun LaTeX-fancyvrb-reftex-label-context-function (env) + "Extract and return a context string for RefTeX. +The context string is the first line of the verbatim environment. +If no reflabel key is found, an error is issued. +ENV is the name of current environment as a string." + (let* ((envstart (save-excursion + (re-search-backward (concat "\\\\begin[[:space:]]*{" + env + "}") + nil t))) + (label-key (save-excursion + (re-search-backward "\\<reflabel[ \t\n\r%]*=[ \t\n\r%]*" + envstart t)))) + (if label-key + (save-excursion + (goto-char envstart) + (re-search-forward (regexp-quote LaTeX-optop) label-key t) + (up-list) + (forward-line) + ;; Return the first line of verbatim env: + (buffer-substring-no-properties (point) + (line-end-position))) + (error "No label found")))) + +(defvar LaTeX-fancyvrb-key-val-label-regexp + `(,(concat + (regexp-quote TeX-esc) + "begin[[:space:]]*" + (regexp-quote TeX-grop) + "[BL]?Verbatim\\*?" + (regexp-quote TeX-grcl) + "[[:space:]]*" + (LaTeX-extract-key-value-label "reflabel")) + 1 LaTeX-auto-label) + "Matches the label inside an optional argument of fancyvrb environments.") + +(TeX-add-style-hook + "fancyvrb" + (lambda () + (TeX-auto-add-regexp LaTeX-fancyvrb-macro-regexp) + (TeX-auto-add-regexp LaTeX-fancyvrb-environment-regexp) + (TeX-auto-add-regexp LaTeX-fancyvrb-saveverb-regexp) + (TeX-auto-add-regexp LaTeX-fancyvrb-saveverbatim-regexp) + (TeX-auto-add-regexp LaTeX-fancyvrb-key-val-label-regexp) + (TeX-run-style-hooks + "keyval") + + (TeX-add-symbols + ;; Verbatim material in footnotes + "VerbatimFootnotes" + ;; Improved verbatim commands + '("Verb" [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] TeX-arg-verb) + ;; \Verb also has a starred version: + '("Verb*" [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] TeX-arg-verb) + '("DefineShortVerb" (TeX-arg-eval + TeX-read-string + (TeX-argument-prompt nil nil "Character") + TeX-esc)) + '("UndefineShortVerb" (TeX-arg-eval + TeX-read-string + (TeX-argument-prompt nil nil "Character") + TeX-esc)) + ;; Verbatim environments + '("fvset" (TeX-arg-key-val (LaTeX-fancyvrb-key-val-options))) + ;; Changing individual line formatting + "FancyVerbFormatLine" + ;; Line numbering + "theFancyVerbLine" + ;; Selection of lines to print + "FancyVerbStartString" + "FancyVerbStopString" + + ;; Personalized environments + '("DefineVerbatimEnvironment" + LaTeX-fancyvrb-arg-define-environment) + '("RecustomVerbatimEnvironment" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Verbatim environment") + LaTeX-fancyvrb-base-environments) + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Based on environment") + LaTeX-fancyvrb-base-environments) + (TeX-arg-key-val (LaTeX-fancyvrb-key-val-options))) + + '("CustomVerbatimCommand" + LaTeX-fancyvrb-arg-define-macro) + '("RecustomVerbatimCommand" + (LaTeX-fancyvrb-arg-define-macro nil t)) + + ;; Saving and restoring verbatim text and environments + '("SaveVerb" + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Save name")))) + (LaTeX-add-fancyvrb-saveverbs name) + (format "%s" name)))) + TeX-arg-verb) + '("UseVerb" (TeX-arg-eval + completing-read + (TeX-argument-prompt nil nil "Saved name") + (LaTeX-fancyvrb-saveverb-list))) + '("UseVerbatim" (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Saved name") + (LaTeX-fancyvrb-saveverbatim-list))) + '("LUseVerbatim" (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Saved name") + (LaTeX-fancyvrb-saveverbatim-list))) + '("BUseVerbatim" (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Saved name") + (LaTeX-fancyvrb-saveverbatim-list))) + + ;; Writing and reading verbatim files + '("VerbatimInput" [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + LaTeX-fancyvrb-arg-file-relative) + '("BVerbatimInput" [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + LaTeX-fancyvrb-arg-file-relative) + '("LVerbatimInput" [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + LaTeX-fancyvrb-arg-file-relative)) + + (LaTeX-add-environments + '("Verbatim" LaTeX-env-args + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + LaTeX-fancyvrb-env-reflabel-key-val) + '("Verbatim*" LaTeX-env-args + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + LaTeX-fancyvrb-env-reflabel-key-val) + '("BVerbatim" LaTeX-env-args + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + LaTeX-fancyvrb-env-reflabel-key-val) + '("BVerbatim*" LaTeX-env-args + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + LaTeX-fancyvrb-env-reflabel-key-val) + '("LVerbatim" LaTeX-env-args + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + LaTeX-fancyvrb-env-reflabel-key-val) + '("LVerbatim*" LaTeX-env-args + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] + LaTeX-fancyvrb-env-reflabel-key-val) + '("SaveVerbatim" + (lambda (env) + (let ((options (TeX-read-key-val t (LaTeX-fancyvrb-key-val-options))) + (name (TeX-read-string "Save name: "))) + (LaTeX-insert-environment + env + (concat + (unless (zerop (length options)) + (concat LaTeX-optop options LaTeX-optcl)) + (concat TeX-grop name TeX-grcl))) + (LaTeX-add-fancyvrb-saveverbatims name)))) + '("VerbatimOut" + (lambda (env) + (let ((options (TeX-read-key-val t (LaTeX-fancyvrb-key-val-options))) + (file (TeX-read-string "Output file: "))) + (LaTeX-insert-environment + env + (concat (unless (zerop (length options)) + (concat LaTeX-optop options LaTeX-optcl)) + (concat TeX-grop file TeX-grcl))))))) + + (let ((envs '("BVerbatim" "BVerbatim*" + "LVerbatim" "LVerbatim*" + "Verbatim" "Verbatim*"))) + ;; Add pre-defined environments to `LaTeX-label-alist': + (dolist (env envs) + (add-to-list 'LaTeX-label-alist (cons env 'LaTeX-listing-label) t)) + + ;; Tell RefTeX + (when (and (fboundp 'reftex-add-label-environments) + (fboundp 'reftex-compile-variables) + (boundp 'reftex-label-regexps)) + (dolist (env envs) + (reftex-add-label-environments + `((,env ?l ,LaTeX-listing-label "~\\pageref{%s}" + LaTeX-fancyvrb-reftex-label-context-function + (regexp "[Ll]isting" "[Vv]erbatim" + "[Cc]ode" "Quell\\(code\\|text\\)"))))) + + (unless (string-match "\\<reflabel" + (mapconcat #'identity + reftex-label-regexps + "|")) + (make-local-variable 'reftex-label-regexps) + (add-to-list 'reftex-label-regexps + (concat + (regexp-quote TeX-esc) + "begin[[:space:]]*" + (regexp-quote TeX-grop) + "[BL]?Verbatim\\*?" + (regexp-quote TeX-grcl) + "[[:space:]]*" + (LaTeX-extract-key-value-label "reflabel" 1)) + t) + (reftex-compile-variables)))) + + (LaTeX-add-counters + "FancyVerbLine") + + ;; Filling + (add-to-list 'LaTeX-verbatim-environments-local "Verbatim") + (add-to-list 'LaTeX-verbatim-environments-local "Verbatim*") + (add-to-list 'LaTeX-verbatim-environments-local "BVerbatim") + (add-to-list 'LaTeX-verbatim-environments-local "BVerbatim*") + (add-to-list 'LaTeX-verbatim-environments-local "LVerbatim") + (add-to-list 'LaTeX-verbatim-environments-local "LVerbatim*") + (add-to-list 'LaTeX-verbatim-environments-local "SaveVerbatim") + (add-to-list 'LaTeX-verbatim-environments-local "VerbatimOut") + (make-local-variable 'LaTeX-indent-environment-list) + (add-to-list 'LaTeX-indent-environment-list '("Verbatim" current-indentation) t) + (add-to-list 'LaTeX-indent-environment-list '("Verbatim*" current-indentation) t) + (add-to-list 'LaTeX-indent-environment-list '("BVerbatim" current-indentation) t) + (add-to-list 'LaTeX-indent-environment-list '("BVerbatim*" current-indentation) t) + (add-to-list 'LaTeX-indent-environment-list '("LVerbatim" current-indentation) t) + (add-to-list 'LaTeX-indent-environment-list '("LVerbatim*" current-indentation) t) + (add-to-list 'LaTeX-indent-environment-list '("SaveVerbatim" current-indentation) t) + (add-to-list 'LaTeX-indent-environment-list '("VerbatimOut" current-indentation) t) + (add-to-list 'LaTeX-verbatim-macros-with-delims-local "Verb") + (add-to-list 'LaTeX-verbatim-macros-with-delims-local "Verb*") + + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (fboundp 'font-latex-set-syntactic-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("CustomVerbatimCommand" "|{\\{{") + ("RecustomVerbatimCommand" "|{\\{{") + ("DefineVerbatimEnvironment" "{{{") + ("RecustomVerbatimEnvironment" "{{{") + ("DefineShortVerb" "{") + ("UndefineShortVerb" "{") + ("fvset" "{")) + 'function) + (font-latex-add-keywords '(("VerbatimInput" "[{") + ("BVerbatimInput" "[{") + ("LVerbatimInput" "[{")) + 'reference) + (font-latex-add-keywords '(("Verb" "*[") ; The second argument is verbatim. + ("SaveVerb" "[{") + ("UseVerb" "{") + ("UseVerbatim" "{") + ("LUseVerbatim" "{") + ("BUseVerbatim" "{")) + 'textual) + (font-latex-set-syntactic-keywords))) + TeX-dialect) + +(defvar LaTeX-fancyvrb-package-options nil + "Package options for the fancyvrb package.") + +;;; fancyvrb.el ends here diff --git a/elpa/auctex-13.1.3/style/fancyvrb.elc b/elpa/auctex-13.1.3/style/fancyvrb.elc Binary files differnew file mode 100644 index 0000000..2752823 --- /dev/null +++ b/elpa/auctex-13.1.3/style/fancyvrb.elc diff --git a/elpa/auctex-13.1.3/style/fbb.el b/elpa/auctex-13.1.3/style/fbb.el new file mode 100644 index 0000000..7a052ae --- /dev/null +++ b/elpa/auctex-13.1.3/style/fbb.el @@ -0,0 +1,88 @@ +;;; fbb.el --- AUCTeX style for `fbb.sty' (v1.07) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014--2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-11-19 +;; 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 `fbb.sty' (v1.07) from 2015/04/06. +;; `fbb.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "fbb" + (lambda () + + ;; Run style hook for various packages loaded by fbb + (TeX-run-style-hooks "textcomp" "fontaxes") + + ;; New symbols + (TeX-add-symbols + + ;; Only preamble command + '("useosf" 0) + + ;; Text commands + '("lfstyle" -1) ; lf declaration + '("tlfstyle" -1) ; tlf declaration + '("osfstyle" -1) ; osf declaration + '("tosfstyle" -1) ; tosf declaration + '("sufigures" -1) ; superior figures declaration + '("textlf" t) ; proportional lining figures + '("texttlf" t) ; tabular lining figures + '("textosf" t) ; proportional oldstyle figures + '("texttosf" t) ; tabular oldstyle figures + '("textsu" t)) ; superior figures + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textlf" "{") + ("texttlf" "{") + ("textosf" "{") + ("texttosf" "{") + ("textsu" "{")) + 'type-command) + (font-latex-add-keywords '(("lfstyle" "") + ("tlfstyle" "") + ("osfstyle" "") + ("tosfstyle" "") + ("sufigures" "")) + 'type-declaration))) + TeX-dialect) + +(defvar LaTeX-fbb-package-options + '("lining" "osf" "oldstyle" "tabular" "p" "proportional" + "scale" "scaled" "scosf" "sups") + "Package options for the fbb package.") + +;;; fbb.el ends here diff --git a/elpa/auctex-13.1.3/style/fbb.elc b/elpa/auctex-13.1.3/style/fbb.elc Binary files differnew file mode 100644 index 0000000..0e387d4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/fbb.elc diff --git a/elpa/auctex-13.1.3/style/fbox.el b/elpa/auctex-13.1.3/style/fbox.el new file mode 100644 index 0000000..8348dfa --- /dev/null +++ b/elpa/auctex-13.1.3/style/fbox.el @@ -0,0 +1,81 @@ +;;; fbox.el --- AUCTeX style for `fbox.sty' (v0.06) -*- lexical-binding: t; -*- + +;; Copyright (C) 2019--2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2019-11-08 +;; 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 `fbox.sty' (v0.06) from 2022/02/20. +;; `fbox.sty' is part of TeXLive. + +;;; Code + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(declare-function LaTeX-xcolor-definecolor-list "xcolor" ()) + +(defun LaTeX-fbox-key-val-options () + "Return an updated list of key=vals from fbox package." + (let ((colors (mapcar #'car (LaTeX-xcolor-definecolor-list))) + (lenghts (mapcar (lambda (x) + (concat TeX-esc (car x))) + (LaTeX-length-list)))) + `(("boxrule" ,lenghts) + ("boxsep" ,lenghts) + ("lcolor" ,colors) + ("rcolor" ,colors) + ("bcolor" ,colors) + ("tcolor" ,colors) + ("l") + ("r") + ("b") + ("t")))) + +(TeX-add-style-hook + "fbox" + (lambda () + (TeX-run-style-hooks "xcolor") + (TeX-add-symbols + '("fbox" [TeX-arg-key-val (LaTeX-fbox-key-val-options)] t) + '("fbox*" [TeX-arg-key-val (LaTeX-fbox-key-val-options)] t) + '("fparbox" [TeX-arg-key-val (LaTeX-fbox-key-val-options)] t) + '("fparbox*" [TeX-arg-key-val (LaTeX-fbox-key-val-options)] t)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("fbox" "*[{") + ("fparbox" "*[{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-fbox-package-options nil + "Package options for the fbox package.") + +;;; fbox.el ends here diff --git a/elpa/auctex-13.1.3/style/fbox.elc b/elpa/auctex-13.1.3/style/fbox.elc Binary files differnew file mode 100644 index 0000000..b7bb37c --- /dev/null +++ b/elpa/auctex-13.1.3/style/fbox.elc diff --git a/elpa/auctex-13.1.3/style/filecontents.el b/elpa/auctex-13.1.3/style/filecontents.el new file mode 100644 index 0000000..3c8713a --- /dev/null +++ b/elpa/auctex-13.1.3/style/filecontents.el @@ -0,0 +1,64 @@ +;;; filecontents.el --- AUCTeX style for `filecontents.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2013--2016, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2013-01-01 +;; 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 `filecontents.sty'. The package removes the two +;; constraints that `filecontents' from LaTeX2e has, namely that the environment +;; must be before the documentclass (or \begin{document} according to some +;; sources), and that existing files are not overwritten. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "filecontents" + (lambda () + (LaTeX-add-environments + '("filecontents" LaTeX-env-filecontents) + '("filecontents*" LaTeX-env-filecontents)) + + (make-local-variable 'LaTeX-indent-environment-list) + (add-to-list 'LaTeX-indent-environment-list + '("filecontents" current-indentation) t) + (add-to-list 'LaTeX-indent-environment-list + '("filecontents*" current-indentation) t)) + TeX-dialect) + +(defun LaTeX-env-filecontents (environment) + "Insert ENVIRONMENT with filename for contents." + (LaTeX-insert-environment environment + (concat TeX-grop + (TeX-read-string "File: ") + TeX-grcl)) + (delete-horizontal-space)) + +(defvar LaTeX-filecontents-package-options nil + "Package options for filecontents.") + +;; filecontents.el ends here diff --git a/elpa/auctex-13.1.3/style/filecontents.elc b/elpa/auctex-13.1.3/style/filecontents.elc Binary files differnew file mode 100644 index 0000000..5fa9caa --- /dev/null +++ b/elpa/auctex-13.1.3/style/filecontents.elc diff --git a/elpa/auctex-13.1.3/style/flashcards.el b/elpa/auctex-13.1.3/style/flashcards.el new file mode 100644 index 0000000..c163847 --- /dev/null +++ b/elpa/auctex-13.1.3/style/flashcards.el @@ -0,0 +1,69 @@ +;;; flashcards.el --- AUCTeX style for the flashcards class. -*- lexical-binding: t; -*- + +;; Copyright (C) 2007, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2007-04-23 +;; 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 the flashcards class. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "flashcards" + (lambda () + (TeX-add-symbols + '("cardfrontstyle" ["Format"] "Style") + '("cardfrontfoot" "Footer text") + '("cardbackstyle" ["Format"] "Style") + '("cardfrontheadstyle" ["Format"] "Style") + '("cardfrontfootstyle" ["Format"] "Style") + "cardmargin" + "cardpaper" + "cardpapermode" + "cardrows" + "cardcolumns" + "cardheight" + "cardwidth") + (LaTeX-add-environments '("flashcard" ["Header"] "Front side")) + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("cardfrontstyle" "[{") + ("cardfrontfoot" "{") + ("cardbackstyle" "[{") + ("cardfrontheadstyle" "[{") + ("cardfrontfootstyle" "[{")) + 'variable))) + TeX-dialect) + +;;; flashcards.el ends here diff --git a/elpa/auctex-13.1.3/style/flashcards.elc b/elpa/auctex-13.1.3/style/flashcards.elc Binary files differnew file mode 100644 index 0000000..5fc96dd --- /dev/null +++ b/elpa/auctex-13.1.3/style/flashcards.elc diff --git a/elpa/auctex-13.1.3/style/floatpag.el b/elpa/auctex-13.1.3/style/floatpag.el new file mode 100644 index 0000000..0174174 --- /dev/null +++ b/elpa/auctex-13.1.3/style/floatpag.el @@ -0,0 +1,75 @@ +;;; floatpag.el --- AUCTeX style for `floatpag.sty' (v2.0) -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-12-11 +;; 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 `floatpag.sty' (v2.0) from 2021/10/04. +;; `floatpag.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "floatpag" + (lambda () + + ;; Macros always available: + (TeX-add-symbols + '("floatpagestyle" (TeX-arg-pagestyle "Float pagestyle")) + '("thisfloatpagestyle" (TeX-arg-pagestyle "Float pagestyle"))) + + ;; The next one makes only sense if 'rotating' package is loaded: + (when (member "rotating" (TeX-style-list)) + (TeX-add-symbols + '("rotfloatpagestyle" (TeX-arg-pagestyle "Float pagestyle")))) + + ;; Load 'array.el' when the package option is provided: + (when (LaTeX-provided-package-options-member "floatpag" "array") + (TeX-run-style-hooks "array")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("floatpagestyle" "{") + ("thisfloatpagestyle" "{")) + 'function) + (when (member "rotating" (TeX-style-list)) + (font-latex-add-keywords '(("rotfloatpagestyle" "{")) + 'function)))) + + TeX-dialect) + +(defvar LaTeX-floatpag-package-options '("array") + "Package options for the floatpag package.") + +;;; floatpag.el ends here diff --git a/elpa/auctex-13.1.3/style/floatpag.elc b/elpa/auctex-13.1.3/style/floatpag.elc Binary files differnew file mode 100644 index 0000000..d6dc42f --- /dev/null +++ b/elpa/auctex-13.1.3/style/floatpag.elc diff --git a/elpa/auctex-13.1.3/style/floatrow.el b/elpa/auctex-13.1.3/style/floatrow.el new file mode 100644 index 0000000..be8878f --- /dev/null +++ b/elpa/auctex-13.1.3/style/floatrow.el @@ -0,0 +1,753 @@ +;;; floatrow.el --- AUCTeX style for `floatrow.sty' (v0.3b) -*- lexical-binding: t; -*- + +;; Copyright (C) 2017--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-11-11 +;; 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 `floatrow.sty' (v0.3b) from 2009/08/02. +;; `floatrow.sty' is part of TeXLive. +;; +;; `floatrow.sty' is a powerful package and the documentation long. +;; It is expected that this style is not feature complete. One +;; deliberate decision is that this style does not offer any package +;; options: Please use the command `\floatsetup' to set the options +;; you want. +;; +;; This style also alters the way AUCTeX inserts the environments +;; "table" and "figure" (cf. function `LaTeX-floatrow-env-init'). If +;; you want the original behavior, try `C-c C-e rawfigure' or `C-c C-e +;; rawtable' which include the environments incl. the macro \RawFloats +;; at the beginning of the environment (cf. function +;; `LaTeX-floatrow-env-figure-raw'). +;; +;; Another deliberate decision is the implementation of commands like +;; `\ffigbox' and `\ttabbox': When invoked with `C-c C-m ffigbox RET', +;; the final result will look like this with cursor being at *: +;; +;; \ffigbox{*}{% +;; \caption{query for a caption}% +;; \label{prefix:is-chosen-acc-to-current-environment}% +;; } +;; +;; This gives users the freedom to insert any command where point is. +;; The mandatory arguments are not part of the fontification as +;; commands like `\includegraphics' or `tabular' environments have their +;; own fontification. + +;;; Code: + +;; Needed for compiling `cl-pushnew': +(eval-when-compile + (require 'cl-lib)) + +;; Needed for compiling `LaTeX-check-insert-macro-default-style': +(require 'latex) + +;; Needed for auto-parsing: +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function reftex-compile-variables + "reftex" + ()) + +(defvar LaTeX-floatrow-key-val-options + '(;; 3.1.1 Float Style + ("style" ("plain" "plaintop" "Plaintop" + "ruled" "Ruled" + "boxed" "Boxed" "BOXED" + "shadowbox" "Shadowbox" "SHADOWBOX" + "doublebox" "Doublebox" "DOUBLEBOX" + "wshadowbox" "Wshadowbox" "WSHADOWBOX")) + ;; 3.1.2 Font Settings + ("font" ("scriptsize" "footnotesize" "small" "normalsize" "large" + "Large" "normalfont" "up" "it" "sl" "sc" "md" "bf" + "rm" "sf" "tt")) + ("footfont" ("scriptsize" "footnotesize" "small" "normalsize" "large" + "Large" "normalfont" "up" "it" "sl" "sc" "md" "bf" + "rm" "sf" "tt")) + ;; 3.1.3 Position of Caption + ("capposition" ("top" "TOP" "bottom" "beside")) + ;; 3.1.4 Position of Beside Caption + ("capbesideposition" ("left" "right" "inside" "outside" + "top" "bottom" "center")) + ;; 3.1.5 Defining The Width of Beside Caption + ("capbesidewidth" ("none" "sidefil")) + ;; 3.1.6 Defining Width of Object + ("floatwidth" ("\\hsize" "\\textwidth" "\\columnwidth" "\\linewidth")) + ;; 3.1.7 Other Settings for Beside Captions + ("capbesideframe" ("yes" "no")) + ;; 3.1.8 Defining Float Foot Position (Legends and Footnotes) + ("footposition" ("default" "caption" "bottom")) + ;; 3.1.9 Vertical Alignment of Float Elements + ("heightadjust" ("all" "caption" "object" "none" "nocaption" "noobject")) + ("valign" ("t" "c" "b" "s")) + ;; 3.1.10 Facing Layout + ("facing" ("yes" "no")) + ;; 3.1.11 Object Settings + ("objectset" ("justified" "centering" "raggedright" "RaggedRight" "raggedleft")) + ;; 3.1.12 Defining Float Margins + ("margins" ("centering" "raggedright" "raggedleft" + "hangright" "hanginside" "hangoutside")) + ;; 3.1.13 Defining Float Separators + ("floatrowsep" ("columnsep" "quad" "qquad" "hfil" "hfill" "none")) + ("capbesidesep" ("columnsep" "quad" "qquad" "hfil" "hfill" "none")) + ;; 3.1.14 Defining Float Rules/Skips + ("precode" ("none" "thickrule" "rule" "lowrule" "captionskip")) + ("rowprecode" ("none" "thickrule" "rule" "lowrule" "captionskip")) + ("midcode" ("none" "thickrule" "rule" "lowrule" "captionskip")) + ("postcode" ("none" "thickrule" "rule" "lowrule" "captionskip")) + ("rowpostcode" ("none" "thickrule" "rule" "lowrule" "captionskip")) + ;; 3.1.15 Defining Float Frames + ("framestyle" ("fbox" "colorbox" "FRcolorbox" "corners" + "doublebox" "shadowbox" "wshadowbox")) + ("frameset") + ("framearound" ("none" "object" "all" "row" "none")) + ("framefit" ("yes" "no")) + ("rowfill" ("yes" "no")) + ;; 3.1.16 Settings for Colored Frames + ("colorframeset") + ("colorframecorners") + ;; 3.1.17 Defining Float Skips + ("captionskip") + ("footskip") + ;; 3.1.18 Defining Float Footnote Rule's Style + ("footnoterule" ("normal" "limited" "fullsize" "none")) + ;; 3.1.19 Managing Floats with [H] Placement Option + ("doublefloataswide" ("yes" "no")) + ("floatHaslist" ("yes" "no")) + ;; 7.2.1 Additions in The floatrow Package to longtable package + ("LTcapwidth" ("table" "contents"))) + "Key=value options for floatrow macros and environments.") + +(defun LaTeX-floatrow-key-val-options () + "Return an updated list of key=vals from floatrow package." + (append + (when (LaTeX-floatrow-DeclareNewOption-list) + (let ((vcode-keys '("precode" "rowprecode" "midcode" "postcode" "rowpostcode")) + (sep-keys '("floatrowsep" "capbesidesep")) + result) + (dolist (keyvals (LaTeX-floatrow-DeclareNewOption-list) result) + (let* ((key (cond ((string= (nth 1 keyvals) "FloatStyle") + "style") + ((string= (nth 1 keyvals) "FloatFont") + "font") + ((string= (nth 1 keyvals) "FloatVCode") + "precode") + ((string= (nth 1 keyvals) "ColorBox") + "colorframeset") + ((string= (nth 1 keyvals) "CBoxCorners") + "colorframecorners") + ((string= (nth 1 keyvals) "ObjectSet") + "objectset") + ((string= (nth 1 keyvals) "MarginSet") + "margins") + ((string= (nth 1 keyvals) "FloatSeparators") + "floatrowsep") + ((string= (nth 1 keyvals) "FloatFootnoterule") + "footnoterule") + (t nil))) + (val (nth 2 keyvals)) + (vals-predefined + (cadr (assoc key LaTeX-floatrow-key-val-options))) + (vals-parsed (cadr (assoc key result)))) + ;; Remove entry in `result' if there is one for the `key'. + ;; `precode' and `floatrowsep' are special here since they + ;; are placeholders for other keys (see above): + (cond ((string= key "precode") + (dolist (x vcode-keys) + (when (assoc x result) + (setq result (assq-delete-all (car (assoc x result)) result))))) + ((string= key "floatrowsep") + (dolist (x sep-keys) + (when (assoc x result) + (setq result (assq-delete-all (car (assoc x result)) result))))) + (t + (when (assoc key result) + (setq result (assq-delete-all (car (assoc key result)) result))))) + ;; Add the entrie to `result'. Again, watch for `precode' + ;; and `floatrowsep'. Also delete any dupes: + (cond ((string= key "precode") + (dolist (x vcode-keys) + (cl-pushnew (list x (TeX-delete-duplicate-strings + (append vals-parsed + vals-predefined + (list val)))) + result :test #'equal))) + ((string= key "floatrowsep") + (dolist (x sep-keys) + (cl-pushnew (list x (TeX-delete-duplicate-strings + (append vals-parsed + vals-predefined + (list val)))) + result :test #'equal))) + (t + (cl-pushnew (list key (TeX-delete-duplicate-strings + (append vals-parsed + vals-predefined + (list val)))) + result :test #'equal))))))) + LaTeX-floatrow-key-val-options)) + +(defvar LaTeX-floatrow-supported-float-types + '("figure" "table" ; Standard LaTeX + "widefigure" "widetable" "widefloat" ; Standard figure* & table* + "wrapfigure" "wraptable" "wrapfloat" ; wrapfig.sty + "rotfigure" "rottable" "rotfloat" ; rotating.sty + "widerotfigure" "widerottable" "widerotfloat" ; for 2-col & wide + "figurerow" "tablerow" "floatrow" ; inside floatrow env's + "capbesidefigure" "capbesidetable" ; floats with beside captions + "capbesidefloat" + "longtable" ; longtable.sty + "subfigure" "subtable" "sub") ; subcaption.sty + "List of float types supported by floatrow.sty.") + +;; Setup for \newfloatcommand +(TeX-auto-add-type "floatrow-newfloatcommand" "LaTeX") + +(defvar LaTeX-floatrow-newfloatcommand-regexp + '("\\\\newfloatcommand{\\([^}]+\\)}" 1 LaTeX-auto-floatrow-newfloatcommand) + "Matches the arguments of \"\\newfloatcommand\" from floatrow.sty.") + +;; Setup for various \Declare* macros: +(TeX-auto-add-type "floatrow-DeclareNewOption" "LaTeX") + +(defvar LaTeX-floatrow-DeclareNewOption-regexp + `(,(concat + "\\\\Declare" + "\\(" + (mapconcat #'identity + '("FloatStyle" ; 3.6.1 Float Style Option (style=) + "FloatFont" ; 3.6.2 Float Font Option (font=) + "FloatVCode" ; 3.6.3 Option for Float Rules/Skips (precode= etc.) + "ColorBox" ; 3.6.4 Settings for Colored Frame (colorframeset=) + "CBoxCorners" ; colorframecorners= + "ObjectSet" ; 3.6.5 Object Justification Option (objectset=) + "MarginSet" ; 3.6.6 Option for Float Box Alignment/Settings (margins=) + "FloatSeparators" ; 3.6.7 Float Separators Options (floatrowsep=, capbesidesep=) + "FloatFootnoterule") ; 3.6.8 Option for Footnote Rule's Style (footnoterule=) + "\\|") + "\\)" + "{\\([^}]+\\)}") + (0 1 2) LaTeX-auto-floatrow-DeclareNewOption) + "Matches the arguments of \"\\Declare*\" from floatrow.sty.") + +;; Setup for \newseparated(label|ref): +(TeX-auto-add-type "floatrow-newseparatedlabel-ref" "LaTeX") + +(defvar LaTeX-floatrow-newseparatedlabel-ref-regexp + `(,(concat + "\\\\newseparated" + "\\(label\\|ref\\)" + "{?" + "\\\\" + "\\([a-zA-Z]+\\)" + "}?") + (2 1) LaTeX-auto-floatrow-newseparatedlabel-ref) + "Matches the arguments \"\\newseparated(label|ref)\" command from floatrow.sty.") + +;; Setup for \DeclareNewFloatType: +(TeX-auto-add-type "floatrow-DeclareNewFloatType" "LaTeX") + +(defvar LaTeX-floatrow-DeclareNewFloatType-regexp + '("\\\\DeclareNewFloatType{\\([^}]+\\)}" + 1 LaTeX-auto-floatrow-DeclareNewFloatType) + "Matches the argument of \"\\DeclareNewFloatType\" command from floatrow.sty.") + +;; Plug them into the machinery. +(defun LaTeX-floatrow-auto-prepare () + "Clear various \"LaTeX-floatrow\" variables before parsing." + (setq LaTeX-auto-floatrow-newfloatcommand nil + LaTeX-auto-floatrow-DeclareNewOption nil + LaTeX-auto-floatrow-newseparatedlabel-ref nil + LaTeX-auto-floatrow-DeclareNewFloatType nil)) + +(defun LaTeX-floatrow-auto-cleanup () + "Process parsed results from floatrow package." + ;; Replace initially the way fig & tab env's are inserted: + (LaTeX-floatrow-env-init) + ;; + ;; Process new float commands like \ffigbox: + (when (LaTeX-floatrow-newfloatcommand-list) + (dolist (cmd (mapcar #'car (LaTeX-floatrow-newfloatcommand-list))) + (TeX-add-symbols `(,cmd LaTeX-floatrow-arg-floatbox)) + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,cmd "[[[")) + 'textual)))) + ;; + ;; Process new label/ref commands: + (when (LaTeX-floatrow-newseparatedlabel-ref-list) + (let (floatrow-run-reftex-compile-vars) + (dolist (elt (LaTeX-floatrow-newseparatedlabel-ref-list)) + (let ((cmd (car elt)) + (type (cadr elt))) + (if (string= type "ref") + ;; More fun w/ referencing macros: + (TeX-add-symbols `(,cmd TeX-arg-ref)) + ;; Less fun w/ label defining macros. Add cmd to + ;; TeX-symbol-list: + (TeX-add-symbols `(,cmd TeX-arg-define-label)) + ;; For AUCTeX, parse the argument of the new macro and add + ;; it to `LaTeX-auto-label': + (TeX-auto-add-regexp + `(,(concat "\\\\" cmd "{\\([^\n\r%\\{}]+\\)}") 1 LaTeX-auto-label)) + ;; For RefTeX, append cmd to `reftex-label-regexps and set + ;; floatrow-run-reftex-compile-vars to t: + (when (and (boundp 'reftex-label-regexps) + (fboundp 'reftex-compile-variables) + (not (string-match + cmd + (mapconcat #'identity reftex-label-regexps "|")))) + (add-to-list (make-local-variable 'reftex-label-regexps) + (concat "\\\\" cmd "{\\(?1:[^}]*\\)}") t) + (setq floatrow-run-reftex-compile-vars t))) + ;; Fontify macros as reference: + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,cmd "{")) + 'reference)))) + ;; Run `reftex-compile-variables' if needed only once: + (when floatrow-run-reftex-compile-vars + (reftex-compile-variables)))) + ;; + ;; Process new floattypes: + (when (LaTeX-floatrow-DeclareNewFloatType-list) + (LaTeX-floatrow-arg-declare-new-floattype nil t)) + ;; + ;; Add elements from `LaTeX-floatrow-supported-float-types' to + ;; `LaTeX-caption-supported-float-types': + (when (boundp 'LaTeX-caption-supported-float-types) + (make-local-variable 'LaTeX-caption-supported-float-types) + (dolist (float LaTeX-floatrow-supported-float-types) + (add-to-list 'LaTeX-caption-supported-float-types float t))) ) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-floatrow-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-floatrow-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun LaTeX-floatrow-arg-floatbox (optional) + "Query and insert arguments of float box commands from floatrow.sty. +If OPTIONAL is non-nil, indicate optional argument during query." + ;; Query for the optional arguments; ask for "vertpos" only if + ;; "height" is given. let-bind `TeX-arg-*-brace' for + ;; `TeX-argument-insert': + (let* ((TeX-arg-opening-brace "[") + (TeX-arg-closing-brace "]") + (TeX-last-optional-rejected nil) + (width (LaTeX-check-insert-macro-default-style + (completing-read + (TeX-argument-prompt t nil "Width") + (mapcar (lambda (x) (concat TeX-esc (car x))) + (LaTeX-length-list))))) + (TeX-last-optional-rejected (or (not width) + (and width (string= width "")))) + (height (LaTeX-check-insert-macro-default-style + (completing-read + (TeX-argument-prompt t nil "Height") + (mapcar (lambda (x) (concat TeX-esc (car x))) + (LaTeX-length-list))))) + (TeX-last-optional-rejected (or (not height) + (and height (string= height "")))) + (vertpos (LaTeX-check-insert-macro-default-style + (if (string= height "") + "" + (completing-read + (TeX-argument-prompt t nil "Vertical alignment") + '("t" "c" "b" "s")))))) + (and width (TeX-argument-insert width t)) + ;; Insert an extra pair of brackets if only `height' is given, + ;; otherwise it will become `width' + (when (and width (string= width "") + height (not (string= height ""))) + (insert "[]")) + (and height (TeX-argument-insert height t)) + (and vertpos (TeX-argument-insert vertpos t))) + ;; Now query for the (short-)caption. Also check for the + ;; float-type; if we're inside (sub)?floatrow*?, then check for the + ;; next outer environment: + (let* ((currenv (if (string-match "floatrow\\*?\\_>" (LaTeX-current-environment)) + (LaTeX-current-environment 2) + (LaTeX-current-environment))) + (caption (TeX-read-string + (TeX-argument-prompt optional nil "Caption"))) + (short-caption + (when (>= (length caption) LaTeX-short-caption-prompt-length) + (TeX-read-string + (TeX-argument-prompt t nil "Short caption"))))) + (indent-according-to-mode) + ;; The final result will look like this with * being point: + ;; \ffigbox{*}{% + ;; \caption{text}% + ;; \label{fig:foo}% + ;; } + (insert TeX-grop) + (save-excursion + ;; We are inside the 1. mandatory arg: Save the pos & insert `}{': + (insert TeX-grcl TeX-grop) + (if (and caption (not (string= caption ""))) + (progn + ;; If caption, move to EOL, delete any spaces and hide the line end + (end-of-line) + (delete-horizontal-space) + (insert "%") + ;; Add a newline and the caption + (newline-and-indent) + (insert (LaTeX-compose-caption-macro caption short-caption)) + ;; If we have a caption, then we probably also want a + ;; label. Hide EOL end and proceed to enter a label + (insert "%") + (newline-and-indent) + (when (LaTeX-label currenv 'environment) + ;; Move point to end of line and hide EOL + (end-of-line) + (delete-horizontal-space) + (insert "%") + (newline-and-indent)) + ;; Now close the group + (insert TeX-grcl) + (indent-according-to-mode) + (end-of-line)) + ;; Otherwise, only insert a } + (insert TeX-grcl))))) + +(defun LaTeX-floatrow-env-init () + "Replace AUCTeX entries in the variable `LaTeX-environment-list'. +After loading the style hook floatrow.el, delete the entries for +figure*? and table*? from variable `LaTeX-environment-list' and +replace them with the ones offered by the style. Original +entries are available under \"rawfigure*?\" and \"rawtable*?\"." + (LaTeX-environment-list) + (dolist (env '("figure" "figure*" "table" "table*")) + (setq LaTeX-environment-list + (assq-delete-all (car (assoc env LaTeX-environment-list)) + LaTeX-environment-list)) + (LaTeX-add-environments `(,env LaTeX-floatrow-env-figure) + `(,(concat "raw" env) LaTeX-floatrow-env-figure-raw)))) + +(defun LaTeX-floatrow-env-figure (environment) + "Create floating ENVIRONMENT suitable for floatrow macros." + (let ((float (and LaTeX-float + (TeX-read-string + (TeX-argument-prompt t nil "Float position") + LaTeX-float)))) + (LaTeX-insert-environment environment + (unless (zerop (length float)) + (concat LaTeX-optop float LaTeX-optcl))))) + +(defun LaTeX-floatrow-env-figure-raw (env) + "Create raw floating ENV with floatrow.sty. +Also insert the macro \"\\RawFloats\" when finished with user +queries." + (let ((environment (replace-regexp-in-string "raw" "" env))) + (LaTeX-env-figure environment) + (save-excursion + ;; `LaTeX-find-matching-begin' will not work for us as we don't + ;; know how user answers queries from AUCTeX, hence we search + ;; back for `environment': + (re-search-backward (concat "\\\\begin{" environment "}") nil t) + (end-of-line) + (LaTeX-newline) + (indent-according-to-mode) + (insert TeX-esc "RawFloats")))) + +(defun LaTeX-floatrow-arg-declare-new-options (optional prompt key) + "Query and insert user-defined values to keys provided by floatrow.sty. +If OPTIONAL is non-nil, ask for an optional argument and insert +it in square brackets. PROMPT replaces the standard one. KEY is +a string and corresponds to first parsed element in +`LaTeX-floatrow-DeclareNewOption-regexp'." + (let ((val (TeX-read-string + (TeX-argument-prompt optional prompt "New value option")))) + (LaTeX-add-floatrow-DeclareNewOptions + (list (concat TeX-esc "Declare" key TeX-grop val TeX-grcl) + key val)) + (TeX-argument-insert val optional) + (TeX-argument-insert + (TeX-read-key-val optional (LaTeX-floatrow-key-val-options)) optional))) + +(defun LaTeX-floatrow-arg-newseparatedlabel/ref (optional type) + "Query and insert user defined label and reference macros from floatrow.sty. +If OPTIONAL is non-nil, insert the argument in brackets. TYPE is +the string \"label\" or \"ref\"." + (let ((cmd (TeX-read-string + (if (string= type "label") + (TeX-argument-prompt optional nil "Label command: \\" t) + (TeX-argument-prompt optional nil "Reference command: \\" t))))) + (LaTeX-add-floatrow-newseparatedlabel-refs (list cmd type)) + (if (string= type "label") + (TeX-add-symbols `(,cmd TeX-arg-define-label)) + (TeX-add-symbols `(,cmd TeX-arg-ref))) + (TeX-argument-insert cmd optional TeX-esc))) + +(defun LaTeX-floatrow-arg-declare-new-floattype (optional &optional cleanup) + "Query and insert the first argument of \"DeclareNewFloatType\" macro. +If OPTIONAL is non-nil, insert the argument in brackets. If +CLEANUP in non-nil, skip the query and insert process as we are +inside the function `LaTeX-floatrow-auto-cleanup' and process +only the parsed items." + (let ((type (if cleanup + (mapcar #'car (LaTeX-floatrow-DeclareNewFloatType-list)) + (list (TeX-read-string + (TeX-argument-prompt optional nil "Environment type")))))) + ;; If not inside `LaTeX-floatrow-auto-cleanup', add user input to + ;; list of new floats and insert it + (unless cleanup + (LaTeX-add-floatrow-DeclareNewFloatTypes (car type)) + (TeX-argument-insert (car type) optional)) + ;; Make the next variables buffer local + (make-local-variable 'LaTeX-floatrow-supported-float-types) + (when (boundp 'LaTeX-caption-supported-float-types) + (make-local-variable 'LaTeX-caption-supported-float-types)) + ;; Process new float type(s): a) add type to list of known + ;; environments incl. "raw" version b) add different flavors of + ;; type to `LaTeX-floatrow-supported-float-types' c) check if + ;; `LaTeX-caption-supported-float-types' is bound and add + ;; different flavors of type to it as well + (dolist (elt type) + (LaTeX-add-environments `(,elt LaTeX-floatrow-env-figure) + `(,(concat "raw" elt) LaTeX-floatrow-env-figure-raw)) + (add-to-list 'LaTeX-floatrow-supported-float-types elt t) + (add-to-list 'LaTeX-floatrow-supported-float-types (concat "wide" elt) t) + (add-to-list 'LaTeX-floatrow-supported-float-types (concat elt "row") t) + (add-to-list 'LaTeX-floatrow-supported-float-types (concat "capbeside" elt) t) + (when (boundp 'LaTeX-caption-supported-float-types) + (add-to-list 'LaTeX-caption-supported-float-types elt t) + (add-to-list 'LaTeX-caption-supported-float-types (concat "wide" elt) t) + (add-to-list 'LaTeX-caption-supported-float-types (concat elt "row") t) + (add-to-list 'LaTeX-caption-supported-float-types (concat "capbeside" elt) t))))) + +(TeX-add-style-hook + "floatrow" + (lambda () + + ;; Add floatrow to the parser + (TeX-auto-add-regexp LaTeX-floatrow-DeclareNewOption-regexp) + (TeX-auto-add-regexp LaTeX-floatrow-newfloatcommand-regexp) + (TeX-auto-add-regexp LaTeX-floatrow-newseparatedlabel-ref-regexp) + (TeX-auto-add-regexp LaTeX-floatrow-DeclareNewFloatType-regexp) + + ;; Add pre-defined float commands: + (LaTeX-add-floatrow-newfloatcommands + "ffigbox" "fcapside" "ttabbox") + + ;; Macros + (TeX-add-symbols + ;; 2.1 The \floatbox Macro + ;; \floatbox[<preamble>]{<captype>}[<width>][<height>][<vert pos>]{<caption>}{<object>} + '("floatbox" + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Preamble") + '("\\capbeside" "\\nocapbeside" "\\captop")] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Float type") + LaTeX-floatrow-supported-float-types) + LaTeX-floatrow-arg-floatbox) + + ;; 2.2 Creation of Personal Commands for Float Boxes + '("newfloatcommand" + (TeX-arg-eval + (lambda () + (let ((cmd (TeX-read-string + (TeX-argument-prompt nil nil "Command")))) + (LaTeX-add-floatrow-newfloatcommands cmd) + (TeX-add-symbols + `(,cmd LaTeX-floatrow-arg-floatbox)) + (format "%s" cmd)))) + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Float type") + '("figure" "table")) + [ 2 ]) + + '("renewfloatcommand" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Command") + (LaTeX-floatrow-newfloatcommand-list)) + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Float type") + '("figure" "table")) + [ 2 ]) + + + ;; 2.2.2 Predefined Float Box Commands + '("ffigbox" + LaTeX-floatrow-arg-floatbox) + + '("ttabbox" + LaTeX-floatrow-arg-floatbox) + + '("fcapside" + LaTeX-floatrow-arg-floatbox) + + ;; 2.3.1 Mixed Row + '("CenterFloatBoxes" 0) + '("TopFloatBoxes" 0) + '("BottomFloatBoxes" 0) + '("PlainFloatBoxes" 0) + '("buildFBBOX" 2) + + ;; 3 Float Layout Settings + '("floatsetup" + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Float type") + LaTeX-floatrow-supported-float-types] + (TeX-arg-key-val (LaTeX-floatrow-key-val-options))) + + ;; 3.2 Settings for Current Float Environment + '("thisfloatsetup" + (TeX-arg-key-val (LaTeX-floatrow-key-val-options))) + + ;; 3.3 Clearing of Settings for Current Float Type + '("clearfloatsetup" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Float type") + LaTeX-floatrow-supported-float-types)) + + ;; 3.4 Temporary Clearing of All Float Settings + '("killfloatstyle" 0) + + ;; 3.6.1 Float Style Option (style=) + '("DeclareFloatStyle" + (LaTeX-floatrow-arg-declare-new-options "New style option" + "FloatStyle")) + + ;; 3.6.2 Float Font Option (font=) + '("DeclareFloatFont" + (LaTeX-floatrow-arg-declare-new-options "New font option" + "FloatFont")) + + ;; 3.6.3 Option for Float Rules/Skips (precode= etc.) + '("DeclareFloatVCode" + (LaTeX-floatrow-arg-declare-new-options "New rules/skip option" + "FloatVCode")) + + ;; 3.6.4 Settings for Colored Frame (colorframeset=) + '("DeclareColorBox" + (LaTeX-floatrow-arg-declare-new-options "New colored frame option" + "ColorBox")) + + ;; (colorframecorners=) + '("DeclareCBoxCorners" + (LaTeX-floatrow-arg-declare-new-options "New colored corner option" + "CBoxCorners")) + + ;; 3.6.5 Object Justification Option (objectset=) + '("DeclareObjectSet" + (LaTeX-floatrow-arg-declare-new-options "New object justification" + "ObjectSet")) + + ;; 3.6.6 Option for Float Box Alignment/Settings (margins=) + '("DeclareMarginSet" + (LaTeX-floatrow-arg-declare-new-options "New alignment option" + "MarginSet")) + + '("setfloatmargins" 2) + '("setfloatmargins*" 2) + '("floatfacing" 2) + '("floatfacing*" 2) + '("floatboxmargins" 2) + '("floatrowmargins" 2) + '("floatcapbesidemargins" 2) + + ;; 3.6.7 Float Separators Options (floatrowsep=, capbesidesep=) + '("DeclareFloatSeparators" + (LaTeX-floatrow-arg-declare-new-options "New separator option" + "FloatSeparators")) + + ;; 3.6.8 Option for Footnote Rule's Style (footnoterule=) + '("DeclareFloatFootnoterule" + (LaTeX-floatrow-arg-declare-new-options "New footnote rule option" + "FloatFootnoterule")) + + ;; 4 Creation of New Float Types + '("DeclareNewFloatType" + (LaTeX-floatrow-arg-declare-new-floattype) + (TeX-arg-key-val (("placement" ("tbp" "t" "b" "p")) + ("name") + ("fileext") + ("within" ("chapter" "section" "subsection")) + ("relatedcapstyle" ("yes" "no"))))) + + ;; 6.2 Support of The Label-Sublabel References + '("newseparatedlabel" + (LaTeX-floatrow-arg-newseparatedlabel/ref "label") 2) + + '("newseparatedref" + (LaTeX-floatrow-arg-newseparatedlabel/ref "ref") t) + + '("makelabelseparator" t) ) ;; terminate TeX-add-symbols + + ;; Environments + (LaTeX-add-environments + ;; 2.3 Building Float Row + '("floatrow" [ "Number of beside floats" ]) + + ;; 6.1 Managing of Float Parts With the subfloatrow Environment + '("subfloatrow" [ "Number of beside floats" ]) + '("subfloatrow*" [ "Number of beside floats" ])) + + ;; 2.1.1 Float Box Width Equals to The Width of Object Contents + (LaTeX-add-lengths "FBwidth" "FBheight" "Xhsize") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("floatbox" "[{[[[") + ("ffigbox" "[[[") + ("ttabbox" "[[[") + ("fcapside" "[[[")) + 'textual) + (font-latex-add-keywords '(("newfloatcommand" "{{[[") + ("renewfloatcommand" "{{[[") + ("buildFBBOX" "{{") + ("floatsetup" "[{") + ("thisfloatsetup" "{") + ("clearfloatsetup" "{") + ("killfloatstyle" "") + ("DeclareFloatStyle" "{{") + ("DeclareFloatFont" "{{") + ("DeclareFloatVCode" "{{") + ("DeclareColorBox" "{{") + ("DeclareCBoxCorners" "{{") + ("DeclareObjectSet" "{{") + ("DeclareMarginSet" "{{") + ("DeclareFloatSeparators" "{{") + ("DeclareFloatFootnoterule" "{{") + ("newseparatedlabel" "{{{") + ("newseparatedref" "{{") + ("makelabelseparator" "{") + ("DeclareNewFloatType" "{{") + ("RawFloats" "")) + 'function))) + TeX-dialect) + +(defvar LaTeX-floatrow-package-options nil + "Prompt for package options for the floatrow package.") + +;;; floatrow.el ends here diff --git a/elpa/auctex-13.1.3/style/floatrow.elc b/elpa/auctex-13.1.3/style/floatrow.elc Binary files differnew file mode 100644 index 0000000..8407073 --- /dev/null +++ b/elpa/auctex-13.1.3/style/floatrow.elc diff --git a/elpa/auctex-13.1.3/style/flushend.el b/elpa/auctex-13.1.3/style/flushend.el new file mode 100644 index 0000000..db00ffc --- /dev/null +++ b/elpa/auctex-13.1.3/style/flushend.el @@ -0,0 +1,77 @@ +;;; flushend.el --- AUCTeX style for `flushend.sty' (v2.0) -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-12-11 +;; 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 `flushend.sty' (v2.0) from 2021/10/04. +;; `flushend.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "flushend" + (lambda () + + ;; New symbols + (TeX-add-symbols + "flushend" + "raggedend" + "flushcolsend" + "raggedcolsend" + '("atColsBreak" t) + '("atColsEnd" t) + "showcolsendrule") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("flushend" "") + ("raggedend" "") + ("flushcolsend" "") + ("raggedcolsend" "") + ("atColsBreak" "{") + ("atColsEnd" "{") + ("showcolsendrule" "")) + 'function))) + TeX-dialect) + +(defvar LaTeX-flushend-package-options + '("spread" "nospread" "shrink" "noshrink" + "lspread" "nolspread" "lshrink" "nolshrink" + "rspread" "norspread" "rshrink" "norshrink" + "checkfootnote" "nocheckfootnote" + "checkfloat" "nocheckfloat" + "debug" "nodebug") + "Package options for the flushend package.") + +;;; flushend.el ends here diff --git a/elpa/auctex-13.1.3/style/flushend.elc b/elpa/auctex-13.1.3/style/flushend.elc Binary files differnew file mode 100644 index 0000000..20d8ca3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/flushend.elc diff --git a/elpa/auctex-13.1.3/style/foils.el b/elpa/auctex-13.1.3/style/foils.el new file mode 100644 index 0000000..b53b532 --- /dev/null +++ b/elpa/auctex-13.1.3/style/foils.el @@ -0,0 +1,68 @@ +;;; foils.el - Special code for FoilTeX. -*- lexical-binding: t; -*- + +;; Copyright (C) 1994-2021 Free Software Foundation, Inc. + +;; Author: Per Abrahamsen <abraham@dina.kvl.dk> +;; Maintainer: auctex-devel@gnu.org +;; 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. If not, see <https://www.gnu.org/licenses/>. + +;;; Code: + +(require 'tex) +(require 'latex) +(require 'timezone) + +(TeX-add-style-hook "foils" + (function + (lambda () + (add-hook 'LaTeX-document-style-hook #'LaTeX-style-foils) + (setq LaTeX-default-style "foils") + (setq LaTeX-default-options '("landscape")) + (TeX-add-symbols + '("foilhead" [ "Rubric-body separation" ] "Foil rubric")))) + TeX-dialect) + +(defun LaTeX-style-foils nil + "Prompt for and insert foiltex options." + (let* ((date (timezone-parse-date (current-time-string))) + (year (string-to-number (aref date 0))) + (month (string-to-number (aref date 1))) + (day (string-to-number (aref date 2))) + (title (TeX-read-string "Title: "))) + (save-excursion + (goto-char (point-max)) + (re-search-backward ".begin.document.") + (insert TeX-esc "title" + TeX-grop title TeX-grcl "\n") + (insert TeX-esc "author" + TeX-grop (user-full-name) TeX-grcl "\n") + (insert TeX-esc "date" TeX-grop + (format "%d-%02d-%02d" year month day) + TeX-grcl "\n") + (insert "" TeX-esc "MyLogo" TeX-grop TeX-grcl "\n") + (insert "%" TeX-esc "Restriction" TeX-grop TeX-grcl "\n") + (insert "%" TeX-esc "rightfooter" TeX-grop TeX-grcl "\n") + (insert "%" TeX-esc "leftheader" TeX-grop TeX-grcl "\n") + (insert "%" TeX-esc "rightheader" TeX-grop TeX-grcl "\n\n") + (re-search-forward ".begin.document.") + (end-of-line) + (newline-and-indent) + (insert "" TeX-esc "maketitle\n\n")) + (forward-line -1))) + +;;; foils.el ends here diff --git a/elpa/auctex-13.1.3/style/foils.elc b/elpa/auctex-13.1.3/style/foils.elc Binary files differnew file mode 100644 index 0000000..a8bb118 --- /dev/null +++ b/elpa/auctex-13.1.3/style/foils.elc diff --git a/elpa/auctex-13.1.3/style/fontaxes.el b/elpa/auctex-13.1.3/style/fontaxes.el new file mode 100644 index 0000000..62db15a --- /dev/null +++ b/elpa/auctex-13.1.3/style/fontaxes.el @@ -0,0 +1,116 @@ +;;; fontaxes.el --- AUCTeX style for `fontaxes.sty' version v1.0d -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-10-12 +;; 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 `fontaxes.sty' version v1.0d from +;; 2014/03/23. `fontaxes.sty' is part of TeXLive. + +;; Thanks to Mosè Giordano for his perceptive comments on +;; implementation of "figureversion". + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "fontaxes" + (lambda () + (TeX-add-symbols + ;; Various font shapes: + ;; These macros are now part of LaTeX kernel 2020-02-02 + ;; '("swshape" -1) ; swash shape + ;; '("sscshape" -1) ; spaced small caps + ;; '("swdefault" 0) + ;; '("sscdefault" 0) + ;; '("ulcdefault" 0) + '("fontprimaryshape" t) + '("fontsecondaryshape" t) + + ;; Figure versions + '("figureversion" + (TeX-arg-eval mapconcat #'identity + (TeX-completing-read-multiple + "Style, alignment: " + '(("text") ("osf") + ("lining") ("lf") + ("tabular") ("tab") + ("proportional") ("prop"))) ",")) + '("txfigures" -1) ; style: text figures (osf) + '("lnfigures" -1) ; style: lining figures + '("tbfigures" -1) ; alignment: tabular figures + '("prfigures" -1) ; alignment: proportional figures + '("fontfigurestyle" + (TeX-arg-eval completing-read "Style: " + '(("text") ("lining")))) + '("fontfigurealignment" + (TeX-arg-eval completing-read "Alignment: " + '(("tabular") ("proportional")))) + '("fontbasefamily" t) + + ;; Math versions + '("boldmath" -1) ; math weight + '("unboldmath" -1) ; + '("tabularmath" -1) ; math figure alignment + '("proportionalmath" -1) ; + '("mathweight" + (TeX-arg-eval completing-read "Math weight: " + '(("bold") ("normal")))) + '("mathfigurealignment" + (TeX-arg-eval completing-read "Math figure alignment: " + '(("tabular") ("proportional")))) + + ;; Additional commands + ;; These macros are now part of LaTeX kernel 2020-02-02 + ;; '("textsw" t) + ;; '("textssc" t) + ;; '("textulc" t) + '("textfigures" t) + '("liningfigures" t) + '("tabularfigures" t) + '("proportionalfigures" t)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textfigures" "{") + ("liningfigures" "{") + ("tabularfigures" "{") + ("proportionalfigures" "{")) + 'type-command) + (font-latex-add-keywords '(("figureversion" "{")) + 'variable))) + TeX-dialect) + +(defvar LaTeX-fontaxes-package-options nil + "Package options for the fontaxes package.") + +;;; fontaxes.el ends here diff --git a/elpa/auctex-13.1.3/style/fontaxes.elc b/elpa/auctex-13.1.3/style/fontaxes.elc Binary files differnew file mode 100644 index 0000000..c9c2ef4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/fontaxes.elc diff --git a/elpa/auctex-13.1.3/style/fontenc.el b/elpa/auctex-13.1.3/style/fontenc.el new file mode 100644 index 0000000..ba430db --- /dev/null +++ b/elpa/auctex-13.1.3/style/fontenc.el @@ -0,0 +1,55 @@ +;;; fontenc.el --- AUCTeX style for `fontenc.sty' (v1.99g) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015-2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-09-12 +;; 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 `fontenc.sty' (v1.99g) from 2005/09/27. +;; `fontenc.sty' is a standard LaTeX package and part of TeXLive. + +;;; Code: + +(require 'tex) + +(defvar LaTeX-fontenc-package-options-list + '(;; 128+ glyph encodings (text) + "OT1" "OT2" "OT3" "OT4" "OT6" + ;; 256 glyph encodings (text) + "T1" "T2A" "T2B" "T2C" "T3" "T4" "T5" + ;; 256 glyph encodings (text extended) + "X2" + ;; Other encodings + "LY1" "LV1" "LGR") + "Package options for the fontenc package.") + +(defun LaTeX-fontenc-package-options () + "Prompt for package options for the fontenc package." + (mapconcat #'identity + (TeX-completing-read-multiple + "Encoding(s): " + LaTeX-fontenc-package-options-list) + ",")) + +;;; fontenc.el ends here diff --git a/elpa/auctex-13.1.3/style/fontenc.elc b/elpa/auctex-13.1.3/style/fontenc.elc Binary files differnew file mode 100644 index 0000000..a1fcf64 --- /dev/null +++ b/elpa/auctex-13.1.3/style/fontenc.elc diff --git a/elpa/auctex-13.1.3/style/fontspec.el b/elpa/auctex-13.1.3/style/fontspec.el new file mode 100644 index 0000000..6970b75 --- /dev/null +++ b/elpa/auctex-13.1.3/style/fontspec.el @@ -0,0 +1,449 @@ +;;; fontspec.el --- AUCTeX style for `fontspec.sty' version 2.7i. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013--2021 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <mose@gnu.org> +;; 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 `fontspec.sty' version 2.7i. Starting +;; with `fontspec.sty' v2.4, the order of mandatory font names and +;; optional font features in related macros has changed, i.e. optional +;; argument comes after the mandatory one. This change is now (April +;; 2017) implemented in this file. Fontification support retains +;; backward compatibility. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function LaTeX-color-definecolor-list "color" ()) +(declare-function LaTeX-xcolor-definecolor-list "xcolor" ()) + +(defvar LaTeX-fontspec-font-features + '(;; I General font selection + ("Extension" (".otf" ".ttf" ".ttc" ".dfont")) + ("Path") + ;; I 4.1 More control over font shape selection + ("UprightFont") + ("BoldFont") + ("ItalicFont") + ("BoldItalicFont") + ("SlantedFont") + ("BoldSlantedFont") + ("SmallCapsFont") + ;; I 4.2 Specifically choosing the NFSS family + ("NFSSFamily") + ;; I 4.3 Choosing additional NFSS font faces + ("FontFace") + ;; III 3. Different features for different font shapes + ("BoldFeatures") + ("ItalicFeatures") + ("BoldItalicFeatures") + ("SlantedFeatures") + ("BoldSlantedFeatures") + ("SmallCapsFeatures") + ("UprightFeatures") + ;; III 4. Different features for different font sizes + ("SizeFeatures") + ;; III 6. Font independent options + ("Color") + ("Scale" ("MatchLowercase" "MatchUppercase")) + ("WordSpace") + ("PunctuationSpace") + ("HyphenChar" ("None")) + ("OpticalSize") + ("AutoFakeBold") + ("AutoFakeSlant") + ("FakeSlant") + ("FakeStretch") + ("FakeBold") + ("LetterSpace") + ;; IV.3 OpenType options + ;; IV.3.1.1 Alternates. The next 2 are synonyms: + ("Alternate" ("Random")) + ("StylisticAlternate" ("Random")) + ;; IV.3.1.2 Character Variants + ("CharacterVariant") + ;; IV 3.1.3 Contextuals + ("Contextuals" ("Swash" "SwashOff" "SwashReset" + "Alternate" "AlternateOff" "AlternateReset" + "WordInitial" "WordInitialOff" "WordInitialReset" + "WordFinal" "WordFinalOff" "WordFinalReset" + "LineFinal" "LineFinalOff" "LineFinal" + "Inner" "InnerOff" "InnerReset" + "ResetAll")) + ;; IV 3.1.4 Diacritics + ("Diacritics" ("MarkToBase" "MarkToBaseOff" "MarkToBaseReset" + "MarkToMark" "MarkToMarkOff" "MarkToMarkReset" + "AboveBase" "AboveBaseOff" "AboveBaseReset" + "BelowBase" "BelowBaseOff" "BelowBaseReset" + "ResetAll")) + ;; IV 3.1.5 Fractions + ("Fractions" ("On" "Off" "Reset" "Alternate" + "AlternateOff" "AlternateReset" "ResetAll")) + ;; IV 3.1.6 Kerning + ("Kerning" ("On" "Off" "Reset" "ResetAll" + "Uppercase" "UppercaseOff" "UppercaseReset")) + ;; IV 3.1.7 Letters + ("Letters" ("SmallCaps" "SmallCapsOff" "SmallCapsReset" + "PetiteCaps" "PetiteCapsOff" "PetiteCapsReset" + "UppercaseSmallCaps" "UppercaseSmallCapsOff" "UppercaseSmallCapsReset" + "UppercasePetiteCaps" "UppercasePetiteCapsOff" "UppercasePetiteCapsReset" + "Unicase" "UnicaseOff" "UnicaseReset" + "ResetAll")) + ;; IV 3.1.8 Ligatures + ("Ligatures" ("Required" "RequiredOff" "RequiredReset" + "Common" "CommonOff" "CommonReset" + "Contextual" "ContextualOff" "ContextualReset" + "Rare" "RareOff" "RareReset" + "Discretionary" "DiscretionaryOff" "DiscretionaryReset" + "Historic" "HistoricOff" "HistoricReset" + "TeX" "TeXOff" "TeXReset" + "ResetAll")) + ;; IV 3.1.9 Localised Forms + ("LocalForms" ("On" "Off" "Reset")) + ;; IV 3.1.10 Numbers + ("Numbers" ("Uppercase" "UppercaseOff" "UppercaseReset" + "Lowercase" "LowercaseOff" "LowercaseReset" + "Lining" "LiningOff" "LiningReset" + "OldStyle" "OldStyleOff" "OldStyleReset" + "Proportional" "ProportionalOff" "ProportionalReset" + "Monospaced" "MonospacedOff" "MonospacedReset" + "SlashedZero" "SlashedZeroOff" "SlashedZeroReset" + "Arabic" "ArabicOff" "ArabicReset" + "ResetAll")) + ;; IV 3.1.11 Ornament + ("Ornament") + ;; IV 3.1.12 Style + ("Style" ("Alternate" "AlternateOff" "AlternateReset" + "Italic" "ItalicOff" "ItalicReset" + "Ruby" "RubyOff" "RubyReset" + "Swash" "SwashOff" "SwashReset" + "Cursive" "CursiveOff" "CursiveReset" + "Historic" "HistoricOff" "HistoricReset" + "Titling" "TitlingOff" "TitlingReset" + "HorizontalKana" "HorizontalKanaOff" "HorizontalKanaReset" + "VerticalKana" "VerticalKanaOff" "VerticalKanaReset" + "Uppercase" "UppercaseOff" "UppercaseReset" + "ResetAll")) + ;; IV 3.1.13 Stylistic Set variations. The next 2 are synonyms: + ("StylisticSet") + ("Variant") + ;; IV 3.1.14 Vertical Position + ("VerticalPosition" ("Superior" "SuperiorOff" "SuperiorReset" + "Inferior" "InferiorOff" "InferiorReset" + "Numerator" "NumeratorOff" "NumeratorReset" + "Denominator" "DenominatorOff" "DenominatorReset" + "ScientificInferior" "ScientificInferiorOff" "ScientificInferiorReset" + "Ordinal" "OrdinalOff" "OrdinalReset" + "ResetAll")) + ;; IV 3.2.1 Annotation + ("Annotation") + ;; IV 3.2.2 Character width + ("CharacterWidth" ("Proportional" "ProportionalOff" "ProportionalReset" + "Full" "FullOff" "FullReset" + "Half" "HalfOff" "HalfReset" + "Third" "ThirdOff" "ThirdReset" + "Quarter" "QuarterOff" "QuarterReset" + "AlternateProportional" "AlternateProportionalOff" "AlternateProportionalReset" + "AlternateHalf" "AlternateHalfOff" "AlternateHalfReset" + "ResetAll")) + ;; IV 3.2.3 CJK shape + ("CJKShape" ("Traditional" + "Simplified" + "JIS1978" + "JIS1983" + "JIS1990" + "Expert" + "NLC")) + ;; IV 3.2.4 Vertical typesetting + ("Vertical" ("RotatedGlyphs" "RotatedGlyphsOff" "RotatedGlyphsReset" + "AlternatesForRotation" "AlternatesForRotationOff" "AlternatesForRotationReset" + "Alternates" "AlternatesOff" "AlternatesReset" + "KanaAlternates" "KanaAlternatesOff" "KanaAlternatesReset" + "Kerning" "KerningOff" "KerningReset" + "AlternateMetrics" "AlternateMetricsOff" "AlternateMetricsReset" + "HalfMetrics" "HalfMetricsOff" "HalfMetricsReset" + "ProportionalMetrics" "ProportionalMetricsOff" "ProportionalMetricsReset" + "ResetAll")) + ;; VIII 3. Going behind fontspec's back: Offer only an excerpt of + ;; all possible tags: + ("RawFeature" ("frac" "lnum" "onum" "pnum" "smcp" "tnum" "zero"))) + "Font features options for macros of the fontspec package.") + +(defvar LaTeX-fontspec-font-list nil + "List of the fonts accessible to fontspec.") + +(defun LaTeX-fontspec-arg-font (optional &optional prompt) + "Prompt for a font name with completion. +If OPTIONAL is non-nil, insert the resulting value as an optional +argument, otherwise as a mandatory one. Use PROMPT as the prompt +string. + +Customize `LaTeX-fontspec-arg-font-search' in order to decide how +to retrieve the list of fonts." + (unless LaTeX-fontspec-font-list + (when (if (eq LaTeX-fontspec-arg-font-search 'ask) + (not (y-or-n-p "Find font yourself? ")) + LaTeX-fontspec-arg-font-search) + (message "Searching for fonts...") + (with-temp-buffer + (shell-command "luaotfload-tool --list=basename" t) + ;; Search for the font base names and full names, and add them to + ;; `LaTeX-fontspec-font-list'. The list is in the form + ;; <base name><TAB><full name><TAB><version> + (while + (re-search-forward "^\\([^\n\r\t]*\\)\t\\([^\n\r\t]*\\)\t.*$" nil t) + (add-to-list 'LaTeX-fontspec-font-list (match-string-no-properties 1)) + (add-to-list 'LaTeX-fontspec-font-list + (match-string-no-properties 2)))) + (message "Searching for fonts...done"))) + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional prompt "Font name") + (or LaTeX-fontspec-font-list LaTeX-fontspec-font-list-default)) + optional)) + +(defun LaTeX-fontspec-font-features () + "Return an updated list of font features. +This function retrieves values from various sources and adds them +to appropriate keys which are eventually prepended to +`LaTeX-fontspec-font-features' shadowing the predefined one." + (append + ;; Check for color packages, prefer xcolor over color. Note that + ;; we run the function `TeX-style-list' only once and after that we + ;; use the updated `TeX-active-styles'. + (when (or (member "xcolor" (TeX-style-list)) + (member "color" TeX-active-styles)) + (let ((colorcmd (if (member "xcolor" TeX-active-styles) + #'LaTeX-xcolor-definecolor-list + #'LaTeX-color-definecolor-list))) + `(("Color" ,(mapcar #'car (funcall colorcmd)))))) + ;; If `LaTeX-fontspec-font-list' is set, use it for other `*Font' + ;; related keys: + (when LaTeX-fontspec-font-list + `(("UprightFont" ,LaTeX-fontspec-font-list) + ("BoldFont" ,LaTeX-fontspec-font-list) + ("ItalicFont" ,LaTeX-fontspec-font-list) + ("BoldItalicFont" ,LaTeX-fontspec-font-list) + ("SlantedFont" ,LaTeX-fontspec-font-list) + ("BoldSlantedFont" ,LaTeX-fontspec-font-list) + ("SmallCapsFont" ,LaTeX-fontspec-font-list))) + ;; This is a LuaTeX only feature. VI. 1 Different font + ;; technologies and shapers + (when (eq TeX-engine 'luatex) + '(("Renderer" ("Harfbuzz" "OpenType" "AAT" "Graphite")))) + ;; This is a XeTeX only feature. VII. 1 Different font + ;; technologies + (when (eq TeX-engine 'xetex) + '(("Renderer" ("OpenType" "AAT" "Graphite")))) + ;; Predefined features: + LaTeX-fontspec-font-features)) + +;; Setup for \newfontfamily and \newfontface: +(TeX-auto-add-type "fontspec-newfontcmd" "LaTeX") + +(defvar LaTeX-fontspec-newfontcmd-regexp + '("\\\\newfontfa\\(?:ce\\|mily\\)[ \t\n\r%]*\\\\\\([a-zA-Z]+\\)" + 1 LaTeX-auto-fontspec-newfontcmd) + "Matches new macros defined with \\newfontface and \\newfontfamily.") + +(defun LaTeX-fontspec-auto-prepare () + "Clear `LaTeX-auto-fontspec-newfontcmd' before parsing." + (setq LaTeX-auto-fontspec-newfontcmd nil)) + +(defun LaTeX-fontspec-auto-cleanup () + "Process parsed elements for fontspec package." + (dolist (mac (mapcar #'car (LaTeX-fontspec-newfontcmd-list))) + ;; Add macro to list of known macros + (TeX-add-symbols mac) + ;; Cater for fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,mac "")) + 'type-declaration)))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-fontspec-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-fontspec-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "fontspec" + (lambda () + + (TeX-check-engine-add-engines 'luatex 'xetex) + (TeX-run-style-hooks "expl3" "xparse") + + ;; Add fontspec to the parser. + (TeX-auto-add-regexp LaTeX-fontspec-newfontcmd-regexp) + + (TeX-add-symbols + ;; 4.3 Commands for old-style and lining numbers: \oldstylenums is + ;; already provided by LaTeX, so just add \liningnums here + '("liningnums" "Numbers") + + ;; 4.5 Emphasis and nested emphasis + ;; \emshape seems to be an internal macro + "emshape" + '("emfontdeclare" t) + "emreset" + + ;; 4.6 Strong emphasis + '("strong" t) + '("strongfontdeclare" t) + "strongreset" + + ;; 5 Font selection + '("fontspec" + LaTeX-fontspec-arg-font + [TeX-arg-key-val (LaTeX-fontspec-font-features) "Font features"]) + + ;; Default font families + '("setmainfont" + (LaTeX-fontspec-arg-font "Main font name") + [TeX-arg-key-val (LaTeX-fontspec-font-features) "Font features"]) + '("setsansfont" + (LaTeX-fontspec-arg-font "Sans font name") + [TeX-arg-key-val (LaTeX-fontspec-font-features) "Font features"]) + '("setmonofont" + (LaTeX-fontspec-arg-font "Mono font name") + [TeX-arg-key-val (LaTeX-fontspec-font-features) "Font features"]) + + ;; 5.3 Querying whether a font exists + '("IfFontExistsTF" LaTeX-fontspec-arg-font 2) + + ;; 6 commands to select font families + '("newfontfamily" TeX-arg-define-macro + LaTeX-fontspec-arg-font + [TeX-arg-key-val (LaTeX-fontspec-font-features) "Font features"]) + + '("newfontface" TeX-arg-define-macro + LaTeX-fontspec-arg-font + [TeX-arg-key-val (LaTeX-fontspec-font-features) "Font features"]) + + ;; 6.4 Math(s) fonts + '("setmathrm" "Font name" [ "Font features" ]) + '("setmathsf" "Font name" [ "Font features" ]) + '("setmathtt" "Font name" [ "Font features" ]) + '("setboldmathrm" "Font name" [ "Font features" ]) + + ;; 8 Default settings + '("defaultfontfeatures" [ LaTeX-fontspec-arg-font ] + (TeX-arg-key-val (LaTeX-fontspec-font-features) "Font features")) + '("defaultfontfeatures+" [ LaTeX-fontspec-arg-font ] + (TeX-arg-key-val (LaTeX-fontspec-font-features) "Font features")) + + ;; 10 Working with the currently selected features + '("IfFontFeatureActiveTF" + [TeX-arg-key-val (LaTeX-fontspec-font-features) "Font feature"] 2) + + ;; Changing the currently selected features + '("addfontfeatures" + (TeX-arg-key-val (LaTeX-fontspec-font-features) "Font features")) + + ;; 23 Defining new features + '("newAATfeature" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Existing feature") + (LaTeX-fontspec-font-features)) + "New option" 2) + + '("newopentypefeature" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Existing feature") + (LaTeX-fontspec-font-features)) + "New option" t) + + '("newfontfeature" "New feature" t) + + ;; 24 Defining new scripts and languages + '("newfontscript" "Script name" "OpenType tag") + '("newfontlanguage" "Language name" "OpenType tag") + + ;; 26 Renaming existing features & options + '("aliasfontfeature" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Existing feature") + (LaTeX-fontspec-font-features)) + "New name") + + '("aliasfontfeatureoption" + (TeX-arg-eval + (lambda () + (let* ((key (completing-read + (TeX-argument-prompt nil nil "Feature") + (LaTeX-fontspec-font-features))) + (val (completing-read + (TeX-argument-prompt nil nil "Existing name") + (cadr (assoc key (LaTeX-fontspec-font-features)))))) + (TeX-argument-insert key nil) + (format "%s" val)))) + "New name") ) + + (LaTeX-add-environments + ;; 4.6 Strong emphasis + '("strong")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("fontspec" "[{[") + ("setmainfont" "[{[") + ("setsansfont" "[{[") + ("setmonofont" "[{[") + ("newfontfamily" "\\[{[") + ("newfontface" "\\[{[") + ("setmathrm" "[{[") + ("setmathsf" "[{[") + ("setmathtt" "[{[") + ("setboldmathrm" "[{[") + ("defaultfontfeatures" "+[{") + ("addfontfeature" "{") + ("addfontfeatures" "{") + ("newfontscript" "{{") + ("newfontlanguage" "{{") + ("emfontdeclare" "{") + ("strongfontdeclare" "{") + ("newAATfeature" "{{{{") + ("newopentypefeature" "{{{") + ("newfontfeature" "{{") + ("aliasfontfeature" "{{") + ("aliasfontfeatureoption" "{{{")) + 'function) + (font-latex-add-keywords '(("liningnums" "{")) + 'type-command) + (font-latex-add-keywords '(("strong" "{")) + 'bold-command))) + TeX-dialect) + +(defvar LaTeX-fontspec-package-options + '("tuenc" "euenc" "math" "no-math" "config" "no-config" "quiet" "silent") + "Package options for the fontspec package.") + +;;; fontspec.el ends here diff --git a/elpa/auctex-13.1.3/style/fontspec.elc b/elpa/auctex-13.1.3/style/fontspec.elc Binary files differnew file mode 100644 index 0000000..e5ca2a1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/fontspec.elc diff --git a/elpa/auctex-13.1.3/style/footmisc.el b/elpa/auctex-13.1.3/style/footmisc.el new file mode 100644 index 0000000..64fd89e --- /dev/null +++ b/elpa/auctex-13.1.3/style/footmisc.el @@ -0,0 +1,128 @@ +;;; footmisc.el --- AUCTeX style for `footmisc.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2011, 2018--2022 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Created: 2011-04-08 +;; 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 `footmisc.sty' (v6.0b) from 2022/02/14. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "footmisc" + (lambda () + (TeX-add-symbols + + ;; 1.4 Option ragged and \footnotelayout + "footnotelayout" + + ;; 1.7 The \setfnsymbol and \DefineFNsymbols commands + '("DefineFNsymbols" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + '("bringhurst" "chicago" "wiley" + "lamport" "lamport*")) + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Style (text or math)") + '("text" "math")] + 1) + '("DefineFNsymbols*" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + '("bringhurst" "chicago" "wiley" + "lamport" "lamport*")) + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Style (text or math)") + '("text" "math")] + 1) + + ;; These two commands define both text and math variants of the + ;; footnote symbols + '("DefineFNsymbolsTM" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + '("bringhurst" "chicago" "wiley" + "lamport" "lamport*")) + 1) + '("DefineFNsymbolsTM*" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + '("bringhurst" "chicago" "wiley" + "lamport" "lamport*")) + 1) + '("setfnsymbol" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + '("bringhurst" "chicago" "wiley" + "lamport" "lamport*"))) + + ;; 1.11 Option hang + "hangfootparskip" + "hangfootparindent" + + ;; 1.15 The multiple option + "multiplefootnotemarker" + "multfootsep" + + ;; 1.16 User interface + ;; The following command references a label inside in a footnote + '("footref" TeX-arg-ref) + "mpfootnotemark") + + ;; 1.9 Option marginal + (LaTeX-add-lengths "footnotemargin") + + ;; 1.13 Option splitrule + (when (LaTeX-provided-package-options-member "footmisc" "splitrule") + (TeX-add-symbols "mpfootnoterule" + "pagefootnoterule" + "splitfootnoterule")) + + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("DefineFNsymbols" "*{[{") + ("DefineFNsymbolsTM" "*{{") + ("setfnsymbol" "{")) + 'function) + (font-latex-add-keywords '(("footref")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-footmisc-package-options '("perpage" "side" "ragged" + "para" "symbol" "symbol*" + "marginal" "flushmargin" "hang" + "norule" "splitrule" "stable" + "multiple" + "abovefloats" "belowfloats" + "bottom" "bottomfloats") + "Package options for the footmisc package.") + +;;; footmisc.el ends here diff --git a/elpa/auctex-13.1.3/style/footmisc.elc b/elpa/auctex-13.1.3/style/footmisc.elc Binary files differnew file mode 100644 index 0000000..1de0a0a --- /dev/null +++ b/elpa/auctex-13.1.3/style/footmisc.elc diff --git a/elpa/auctex-13.1.3/style/footnotehyper.el b/elpa/auctex-13.1.3/style/footnotehyper.el new file mode 100644 index 0000000..d97e5b2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/footnotehyper.el @@ -0,0 +1,86 @@ +;;; footnotehyper.el --- AUCTeX style for `footnotehyper.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-01-31 +;; 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 Street, Fifth Floor, Boston, +;; MA 02110-1301 USA. + +;;; Commentary: + +;; This file adds support for `footnotehyper.sty'. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defun LaTeX-arg-footnotehyper-savenotes (_optional) + "Insert the corresponding \\spewnotes macro after \\savenotes. +OPTIONAL is ignored." + (just-one-space) + (save-excursion + (insert TeX-esc "spewnotes"))) + +(TeX-add-style-hook + "footnotehyper" + (lambda () + + ;; Environment defined by the package. Query for optional footnote + ;; numbers depends on the value of `TeX-arg-footnote-number-p': + (LaTeX-add-environments + '("savenotes") + '("footnote" LaTeX-env-args + (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil)) + '("footnotetext" LaTeX-env-args + (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil))) + + ;; New symbols + (TeX-add-symbols + '("savenotes" LaTeX-arg-footnotehyper-savenotes) + '("spewnotes" 0) + + ;; The syntax is \makesavenoteenv[bar]{foo} where `bar' is a new + ;; environment of patched environment `foo'. This command isn't + ;; recommended; hence we don't add parsing capabilities to this + ;; style in order to extract the newly defined environments + ;; automatically: + '("makesavenoteenv" + [TeX-arg-environment "New environment" t] + (TeX-arg-environment "Patched environment"))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("savenotes" "") + ("spewnotes" "") + ("makesavenoteenv" "[{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-footnotehyper-package-options nil + "Package options for the footnotehyper package.") + +;;; footnotehyper.el ends here diff --git a/elpa/auctex-13.1.3/style/footnotehyper.elc b/elpa/auctex-13.1.3/style/footnotehyper.elc Binary files differnew file mode 100644 index 0000000..23bc389 --- /dev/null +++ b/elpa/auctex-13.1.3/style/footnotehyper.elc diff --git a/elpa/auctex-13.1.3/style/framed.el b/elpa/auctex-13.1.3/style/framed.el new file mode 100644 index 0000000..03160ba --- /dev/null +++ b/elpa/auctex-13.1.3/style/framed.el @@ -0,0 +1,55 @@ +;;; framed.el --- AUCTeX style for `framed.sty' (v0.96) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-06-26 +;; 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 `framed.sty' (v0.96) from 2011/10/22. +;; `framed.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "framed" + (lambda () + ;; env's defined by framed.sty + (LaTeX-add-environments + '("framed") + '("oframed") + '("shaded") + '("shaded*") + '("snugshade") + '("snugshade*") + '("leftbar") + '("titled-frame" "Title"))) + TeX-dialect) + +(defvar LaTeX-framed-package-options nil + "Package options for the framed package.") + +;;; framed.el ends here diff --git a/elpa/auctex-13.1.3/style/framed.elc b/elpa/auctex-13.1.3/style/framed.elc Binary files differnew file mode 100644 index 0000000..b9d627f --- /dev/null +++ b/elpa/auctex-13.1.3/style/framed.elc diff --git a/elpa/auctex-13.1.3/style/francais.el b/elpa/auctex-13.1.3/style/francais.el new file mode 100644 index 0000000..53da6f3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/francais.el @@ -0,0 +1,44 @@ +;;; francais.el --- AUCTeX style for the `francais' babel option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2005, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@iwi.uni-sb.de> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2005-10-28 +;; 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: + +;; Set up AUCTeX for editing French text. In particular for commands +;; provided by the `francais' option of the `babel' LaTeX package. As +;; this is equivalent to the `frenchb' option, this file only loads +;; `frenchb.el'. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "francais" + (lambda () + (TeX-run-style-hooks "frenchb")) + TeX-dialect) + +;;; francais.el ends here diff --git a/elpa/auctex-13.1.3/style/francais.elc b/elpa/auctex-13.1.3/style/francais.elc Binary files differnew file mode 100644 index 0000000..1dc207d --- /dev/null +++ b/elpa/auctex-13.1.3/style/francais.elc diff --git a/elpa/auctex-13.1.3/style/french.el b/elpa/auctex-13.1.3/style/french.el new file mode 100644 index 0000000..d3f4178 --- /dev/null +++ b/elpa/auctex-13.1.3/style/french.el @@ -0,0 +1,51 @@ +;;; french.el --- AUCTeX style for the `french' babel option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2010, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2010-03-20 +;; 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: + +;; Set up AUCTeX for editing French text in connection with the +;; `french' babel option. The file basically loads the style file for +;; the `frenchb' babel option. +;; +;; Support for the FrenchPro package by Bernard Gaulle is _not_ +;; included. If the presence of FrenchPro is detected, the `frenchb' +;; support is not loaded. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "french" + (lambda () + (when (and (member "babel" TeX-active-styles) + (not (member "frenchpro" TeX-active-styles)) + (not (member "frenchle" TeX-active-styles)) + (not (member "mlp" TeX-active-styles))) + (TeX-run-style-hooks "frenchb"))) + TeX-dialect) + +;;; french.el ends here diff --git a/elpa/auctex-13.1.3/style/french.elc b/elpa/auctex-13.1.3/style/french.elc Binary files differnew file mode 100644 index 0000000..48b54b1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/french.elc diff --git a/elpa/auctex-13.1.3/style/frenchb.el b/elpa/auctex-13.1.3/style/frenchb.el new file mode 100644 index 0000000..31c30b8 --- /dev/null +++ b/elpa/auctex-13.1.3/style/frenchb.el @@ -0,0 +1,81 @@ +;;; frenchb.el --- AUCTeX style for the `frenchb' babel option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2005, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@iwi.uni-sb.de> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2005-10-28 +;; 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: + +;; Set up AUCTeX for editing French text. In particular for commands +;; provided by the `frenchb' option of the `babel' LaTeX package. The +;; `frenchb' option is equivalent to the `francais' option and since +;; babel version 3.7j with the `french' option. `french', however, is +;; ambiguous because another package by that name made by Bernard +;; Gaulle could be loaded. In order to avoid this, either `frenchb' +;; (or `francais') or `frenchle' (or `frenchPRO') should be used. See +;; the documentation of `frenchb' at +;; <URL:http://daniel.flipo.free.fr/frenchb/frenchb-doc.pdf>. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "frenchb" + (lambda () + (TeX-add-symbols + "og" + "fg" + "up" + "ier" + "iere" + "iers" + "ieres" + "ieme" + "iemes" + '("bsc" t) + "primo" + "secundo" + "tertio" + "quarto" + "No" + "no" + "degre" + "degres" + "DecimalMathComma" + "StandardMathComma" + '("nombre" "Nombre") + "ThinSpaceInFrenchNumbers" + "FrenchLayout" + "StandardLayout") + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language + `("french" "\\og " + (lambda () + (concat "\\fg" + (unless (member "xspace" TeX-active-styles) "{}"))) + ,TeX-quote-after-quote))) + (run-hooks 'TeX-language-fr-hook)) + TeX-dialect) + +;;; frenchb.el ends here diff --git a/elpa/auctex-13.1.3/style/frenchb.elc b/elpa/auctex-13.1.3/style/frenchb.elc Binary files differnew file mode 100644 index 0000000..9cc8f62 --- /dev/null +++ b/elpa/auctex-13.1.3/style/frenchb.elc diff --git a/elpa/auctex-13.1.3/style/fvextra.el b/elpa/auctex-13.1.3/style/fvextra.el new file mode 100644 index 0000000..3109216 --- /dev/null +++ b/elpa/auctex-13.1.3/style/fvextra.el @@ -0,0 +1,159 @@ +;;; fvextra.el --- AUCTeX style for `fvextra.sty' (v1.4) -*- lexical-binding: t; -*- + +;; Copyright (C) 2017--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-03-05 +;; 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 `fvextra.sty' (v1.4) from 2019/02/04. +;; `fvextra.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Needed for compiling `cl-pushnew': +(eval-when-compile + (require 'cl-lib)) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function LaTeX-color-definecolor-list "color" ()) +(declare-function LaTeX-xcolor-definecolor-list "xcolor" ()) +(declare-function LaTeX-fancyvrb-key-val-options "fancyvrb" ()) + +(defvar LaTeX-fvextra-key-val-options + '(;; 3 General options + ("beameroverlays" ("true" "false")) + ("curlyquotes" ("true" "false")) + ("extra" ("true" "false")) + ("fontencoding" (;; Reset to default document font encoding + "none" + ;; 128+ glyph encodings (text) + "OT1" "OT2" "OT3" "OT4" "OT6" + ;; 256 glyph encodings (text) + "T1" "T2A" "T2B" "T2C" "T3" "T4" "T5" + ;; 256 glyph encodings (text extended) + "X2" + ;; Other encodings + "LY1" "LV1" "LGR")) + ("highlightcolor") + ("highlightlines") + ("linenos" ("true" "false")) + ("mathescape" ("true" "false")) + ("numberfirstline" ("true" "false")) + ("numbers" ("none" "left" "right" "both")) + ("retokenize" ("true" "false")) + ("space" ("\\textvisiblespace")) + ("spacecolor" ("none")) + ("stepnumberfromfirst" ("true" "false")) + ("stepnumberoffsetvalues" ("true" "false")) + ("tab" ("\\FancyVerbTab")) + ("tabcolor" ("none")) + ;; 7.1 Line breaking options + ("breakafter" ("none")) + ("breakaftergroup" ("true" "false")) + ("breakaftersymbolpre") + ("breakaftersymbolpost") + ("breakanywhere" ("true" "false")) + ("breakanywheresymbolpre") + ("breakanywheresymbolpost") + ("breakautoindent" ("true" "false")) + ("breakbefore") + ("breakbeforegroup" ("true" "false")) + ("breakbeforesymbolpre") + ("breakbeforesymbolpost") + ("breakindent") + ("breakindentnchars") + ("breaklines" ("true" "false")) + ("breaksymbol") + ("breaksymbolleft") + ("breaksymbolright") + ("breaksymbolindent") + ("breaksymbolindentnchars") + ("breaksymbolindentleft") + ("breaksymbolindentleftnchars") + ("breaksymbolindentright") + ("breaksymbolindentrightnchars") + ("breaksymbolsep") + ("breaksymbolsepnchars") + ("breaksymbolsepleft") + ("breaksymbolsepleftnchars") + ("breaksymbolsepright") + ("breaksymbolseprightnchars")) + "Key=value options for fvextra macros and environments.") + +(TeX-add-style-hook + "fvextra" + (lambda () + + ;; Run the style hook for "fancyvrb" + (TeX-run-style-hooks "fancyvrb") + + (TeX-add-symbols + ;; 4.1 Inline formatting with \fvinlineset + '("fvinlineset" (TeX-arg-key-val (LaTeX-fancyvrb-key-val-options))) + + ;; 4.2 Line and text formatting + "FancyVerbFormatText" + + ;; 6 New commands and environments + ;; 6.1 \EscVerb + '("EscVerb" + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] "Text") + '("EscVerb*" + [TeX-arg-key-val (LaTeX-fancyvrb-key-val-options)] "Text") + + ;; 7.3.2 Breaks within macro arguments + "FancyVerbBreakStart" + "FancyVerbBreakStop" + + ;; 7.3.3 Customizing break behavior + "FancyVerbBreakAnywhereBreak" + "FancyVerbBreakBeforeBreak" + "FancyVerbBreakAfterBreak") + + ;; Add \EscVerb*? to `LaTeX-verbatim-macros-with-braces-local': + (add-to-list 'LaTeX-verbatim-macros-with-braces-local + "EscVerb" t) + (add-to-list 'LaTeX-verbatim-macros-with-braces-local + "EscVerb*" t) + + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("fvinlineset" "{")) + 'function) + (font-latex-add-keywords '(("EscVerb" "*[")) + 'textual))) + TeX-dialect) + +(defvar LaTeX-fvextra-package-options nil + "Package options for the fvextra package.") + +;;; fvextra.el ends here diff --git a/elpa/auctex-13.1.3/style/fvextra.elc b/elpa/auctex-13.1.3/style/fvextra.elc Binary files differnew file mode 100644 index 0000000..39cb48d --- /dev/null +++ b/elpa/auctex-13.1.3/style/fvextra.elc diff --git a/elpa/auctex-13.1.3/style/geometry.el b/elpa/auctex-13.1.3/style/geometry.el new file mode 100644 index 0000000..cc93d84 --- /dev/null +++ b/elpa/auctex-13.1.3/style/geometry.el @@ -0,0 +1,160 @@ +;;; geometry.el --- AUCTeX style for `geometry.sty' (v5.6) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-02-21 +;; 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 `geometry.sty' (v5.6) from 2010/09/12. +;; `geometry.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-geometry-always-key-val-options + '(("layout") ("layoutwidth") ("layoutheight") ("layoutsize") + ("layouthoffset") ("layoutvoffset") ("layoutoffset") ("hscale") + ("vscale") ("scale") ("width") ("totalwidth") ("height") ("totalheight") + ("total") ("textwidth") ("textheight") ("text") ("body") ("lines") + ("includehead") ("includefoot") ("includeheadfoot") ("includemp") + ("includeall") ("ignorehead") ("ignorefoot") ("ignoreheadfoot") + ("ignoremp") ("ignoreall") ("heightrounded") ("hdivide") ("vdivide") + ("divide") ("left") ("lmargin") ("inner") ("right") ("rmargin") + ("outer") ("top") ("tmargin") ("bottom") ("bmargin") ("hmargin") + ("vmargin") ("margin") ("hmarginratio") ("vmarginratio") ("marginratio") + ("ratio") ("hcentering") ("vcentering") ("centering") ("twoside") + ("asymmetric") ("bindingoffset") ("hdivide") ("vdivide") ("divide") + ("headheight") ("head") ("headsep") ("footskip") ("foot") ("nohead") + ("nofoot") ("noheadfoot") ("footnotesep") ("marginparwidth") ("marginpar") + ("marginparsep") ("nomarginpar") ("columnsep") ("hoffset") ("voffset") + ("offset") ("twocolumn") ("onecolumn") ("twoside") ("textwidth") + ("textheight") ("reversemp") ("reversemarginpar")) + "Key=value options always available for geometry macros.") + +(defvar LaTeX-geometry-preamble-key-val-options + '(("paper" ("a0paper" "a1paper" "a2paper" "a3paper" "a4paper" + "a5paper" "a6paper" "b0paper" "b1paper" "b2paper" + "b3paper" "b4paper" "b5paper" "b6paper" "c0paper" + "c1paper" "c2paper" "c3paper" "c4paper" "c5paper" + "c6paper" "b0j" "b1j" "b2j" "b3j" "b4j" "b5j" "b6j" + "ansiapaper" "ansibpaper" "ansicpaper" "ansidpaper" + "ansiepaper")) + ("papername" ("a0paper" "a1paper" "a2paper" "a3paper" "a4paper" + "a5paper" "a6paper" "b0paper" "b1paper" "b2paper" + "b3paper" "b4paper" "b5paper" "b6paper" "c0paper" + "c1paper" "c2paper" "c3paper" "c4paper" "c5paper" + "c6paper" "b0j" "b1j" "b2j" "b3j" "b4j" "b5j" "b6j" + "ansiapaper" "ansibpaper" "ansicpaper" "ansidpaper" + "ansiepaper")) + ("a0paper") ("a1paper") ("a2paper") ("a3paper") ("a4paper") ("a5paper") + ("a6paper") ("b0paper") ("b1paper") ("b2paper") ("b3paper") ("b4paper") + ("b5paper") ("b6paper") ("c0paper") ("c1paper") ("c2paper") ("c3paper") + ("c4paper") ("c5paper") ("c6paper") ("b0j") ("b1j") ("b2j") ("b3j") + ("b4j") ("b5j") ("b6j") ("ansiapaper") ("ansibpaper") ("ansicpaper") + ("ansidpaper") ("ansiepaper") ("screen") ("paperwidth") ("paperheight") + ("papersize") ("landscape") ("portrait") + ("driver" ("dvips" "dvipdfm" "dvipdfmx" "xdvipdfmx" + "pdftex" "luatex" "vtex" "xetex" "auto" "none")) + ("dvips") ("dvipdfm") ("dvipdfmx") ("xdvipdfmx") ("pdftex") ("luatex") + ("xetex") ("vtex") ("verbose") ("reset") + ("mag") ("truedimen") ("pass") ("showframe") ("showcrop")) + "Key=value options allowed only in the preamble for geometry macros.") + +;; Setup for \savegeometry: +(TeX-auto-add-type "geometry-savegeometry" "LaTeX" "geometry-savegeometries") + +(defvar LaTeX-geometry-savegeometry-regexp + '("\\\\savegeometry{\\([^}]+\\)}" + 1 LaTeX-auto-geometry-savegeometry) + "Matches the argument of `\\savegeometry' from `geometry' +package.") + +(defun LaTeX-geometry-auto-prepare () + "Clear `LaTeX-auto-geometry-savegeometry' before parsing." + (setq LaTeX-auto-geometry-savegeometry nil)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-geometry-auto-prepare t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "geometry" + (lambda () + + ;; Add geometry to the parser. + (TeX-auto-add-regexp LaTeX-geometry-savegeometry-regexp) + + ;; geometry commands: + (TeX-add-symbols + '("geometry" + (TeX-arg-eval TeX-read-key-val nil + (append LaTeX-geometry-preamble-key-val-options + LaTeX-geometry-always-key-val-options))) + '("newgeometry" + (TeX-arg-key-val LaTeX-geometry-always-key-val-options)) + + '("restoregeometry" 0) + + '("savegeometry" + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string "Name: "))) + (LaTeX-add-geometry-savegeometries name) + (format "%s" name))))) + + '("loadgeometry" + (TeX-arg-eval + (lambda () + (completing-read "Name: " + (LaTeX-geometry-savegeometry-list)))))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("geometry" "{") + ("newgeometry" "{") + ("restoregeometry" "") + ("savegeometry" "{") + ("loadgeometry" "{")) + 'function)) + + ;; Option management + (if (and (LaTeX-provided-package-options-member "geometry" "dvipdfmx") + (not (eq TeX-engine 'xetex))) + (setq TeX-PDF-from-DVI "Dvipdfmx"))) + TeX-dialect) + +(defun LaTeX-geometry-package-options () + "Prompt for package options for the geometry package." + (TeX-read-key-val t + (append LaTeX-geometry-preamble-key-val-options + LaTeX-geometry-always-key-val-options))) + +;;; geometry.el ends here diff --git a/elpa/auctex-13.1.3/style/geometry.elc b/elpa/auctex-13.1.3/style/geometry.elc Binary files differnew file mode 100644 index 0000000..6cd5b84 --- /dev/null +++ b/elpa/auctex-13.1.3/style/geometry.elc diff --git a/elpa/auctex-13.1.3/style/german.el b/elpa/auctex-13.1.3/style/german.el new file mode 100644 index 0000000..5dd1c3e --- /dev/null +++ b/elpa/auctex-13.1.3/style/german.el @@ -0,0 +1,46 @@ +;;; german.el --- Setup AUCTeX for editing German text. -*- lexical-binding: t; -*- + +;;; Commentary: +;; +;; Cater for some specialities of `(n)german.sty', e.g. special quote +;; and hyphen strings or that `"' makes the following letter an +;; umlaut. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-quotes + "font-latex" + (quotes)) + +(declare-function font-latex-add-to-syntax-alist + "font-latex" + (list)) + +(defvar LaTeX-german-mode-syntax-table + (copy-syntax-table LaTeX-mode-syntax-table) + "Syntax table used in LaTeX mode when using `german.sty'.") + +(modify-syntax-entry ?\" "w" LaTeX-german-mode-syntax-table) + +(TeX-add-style-hook + "german" + (lambda () + (set-syntax-table LaTeX-german-mode-syntax-table) + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language '("german" "\"`" "\"'" t))) + (setq LaTeX-babel-hyphen-language "german") + ;; Fontification of quotation marks. + (when (and (eq TeX-install-font-lock 'font-latex-setup) + (featurep 'font-latex)) + (font-latex-add-quotes '("\"`" "\"'")) + (font-latex-add-quotes '("\">" "\"<" german)) + ;; Prevent "| from leading to color bleed. + (font-latex-add-to-syntax-alist (list (cons ?\" "\\")))) + (run-hooks 'TeX-language-de-hook)) + TeX-dialect) + +;;; german.el ends here diff --git a/elpa/auctex-13.1.3/style/german.elc b/elpa/auctex-13.1.3/style/german.elc Binary files differnew file mode 100644 index 0000000..5dfd34e --- /dev/null +++ b/elpa/auctex-13.1.3/style/german.elc diff --git a/elpa/auctex-13.1.3/style/gloss-italian.el b/elpa/auctex-13.1.3/style/gloss-italian.el new file mode 100644 index 0000000..c13f9f2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/gloss-italian.el @@ -0,0 +1,71 @@ +;;; gloss-italian.el --- Italian support for polyglossia package. -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2018, 2020, 2022 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <mose@gnu.org> +;; 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 is based on italian.el style file, adapted to polyglossia package. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-quotes + "font-latex" + (quotes)) + +(declare-function LaTeX-polyglossia-lang-option-member + "polyglossia" (language option)) + +(defvar TeX-language-it-hook nil + "Hook run for Italian texts.") + +(TeX-add-style-hook + "gloss-italian" + (lambda () + (TeX-add-symbols + '("textitalian" [TeX-arg-key-val LaTeX-polyglossia-italian-options-list] t)) + (LaTeX-add-environments + '("italian" + LaTeX-env-args [TeX-arg-key-val LaTeX-polyglossia-italian-options-list])) + + (when (or (LaTeX-polyglossia-lang-option-member "italian" "babelshorthands=true") + (LaTeX-polyglossia-lang-option-member "italian" "babelshorthands")) + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language + `("italian" "\"<" "\">" ,TeX-quote-after-quote))) + + ;; Fontification of quotation marks. + (when (fboundp 'font-latex-add-quotes) + (font-latex-add-quotes '("\"<" "\">" french)))) + (run-hooks 'TeX-language-it-hook)) + TeX-dialect) + +(defvar LaTeX-polyglossia-italian-options-list + '(("babelshorthands" ("true" "false"))) + "Italian language options for the polyglossia package.") + +;;; gloss-italian.el ends here diff --git a/elpa/auctex-13.1.3/style/gloss-italian.elc b/elpa/auctex-13.1.3/style/gloss-italian.elc Binary files differnew file mode 100644 index 0000000..01f8338 --- /dev/null +++ b/elpa/auctex-13.1.3/style/gloss-italian.elc diff --git a/elpa/auctex-13.1.3/style/graphics.el b/elpa/auctex-13.1.3/style/graphics.el new file mode 100644 index 0000000..4cdd31c --- /dev/null +++ b/elpa/auctex-13.1.3/style/graphics.el @@ -0,0 +1,20 @@ +;;; graphics.el --- Handle graphical commands in LaTeX 2e. -*- lexical-binding: t; -*- + +;;; Code: + +;; Load "graphicx" explicitly to access `LaTeX-graphicx-package-options' +;; before running style hook "graphics". This is necessary to have +;; support for completion of package options of "usepackage". + +(require 'tex) + +(TeX-load-style "graphicx") +(defvar LaTeX-graphics-package-options LaTeX-graphicx-package-options) + +(TeX-add-style-hook "graphics" + (function + (lambda () + (TeX-run-style-hooks "graphicx"))) + TeX-dialect) + +;;; graphics.el ends here. diff --git a/elpa/auctex-13.1.3/style/graphics.elc b/elpa/auctex-13.1.3/style/graphics.elc Binary files differnew file mode 100644 index 0000000..1b2412c --- /dev/null +++ b/elpa/auctex-13.1.3/style/graphics.elc diff --git a/elpa/auctex-13.1.3/style/graphicx.el b/elpa/auctex-13.1.3/style/graphicx.el new file mode 100644 index 0000000..0e1e220 --- /dev/null +++ b/elpa/auctex-13.1.3/style/graphicx.el @@ -0,0 +1,332 @@ +;;; graphicx.el --- AUCTeX style file for graphicx.sty -*- lexical-binding: t; -*- + +;; Copyright (C) 2000, 2004, 2005, 2014--2021 by Free Software Foundation, Inc. + +;; Author: Ryuichi Arafune <arafune@debian.org> +;; Created: 1999/3/20 +;; Keywords: tex + +;; 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 package supports the includegraphics macro in graphicx style. + +;; Acknowledgements +;; Dr. Thomas Baumann <thomas.baumann@ch.tum.de> +;; David Kastrup <David.Kastrup@t-online.de> +;; Masayuki Ataka <masayuki.ataka@gmail.com> + +;;; Code: + +(require 'crm) +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-graphicx-key-val-options + '(("bb") + ("bbllx") + ("bblly") + ("bburx") + ("bbury") + ("natheight") + ("natwidth") + ("viewport") + ("trim") + ("hiresbb" ("true" "false")) + ("angle") + ("origin") + ("width" ("\\textwidth" "\\columnwidth" "\\linewidth")) + ("height" ("\\textheight")) + ("totalheight" ("\\textheight")) + ("keepaspectratio" ("true" "false")) + ("scale") + ("clip" ("true" "false")) + ("draft" ("true" "false")) + ("quiet") + ("interpolate" ("true" "false")) + ("alt")) + "Key=value options for graphicx macros.") + +(defvar LaTeX-includegraphics-dvips-extensions + '("eps" "mps" "EPS") + "List of extensions for image files supported by \"dvips\".") + +(defvar LaTeX-includegraphics-pdftex-extensions + '("png" "pdf" "jpe?g" "jbig2" "jb2" "mps" + "PNG" "PDF" "JPE?G" "JBIG2" "JB2") + "List of extensions for image files supported by \"pdftex\" and \"luatex\".") + +(defvar LaTeX-includegraphics-xetex-extensions + '("pdf" "eps" "mps" "ps" "png" "jpe?g" "jp2" "jpf" + "PDF" "EPS" "MPS" "PS" "PNG" "JPE?G" "JP2" "JPF" + "bmp" "pict" "psd" "mac" "tga" "gif" "tif" "tiff" + "BMP" "PICT" "PSD" "MAC" "TGA" "GIF" "TIF" "TIFF") + "List of extensions for image files supported by \"xetex\".") + +(defun LaTeX-arg-graphicx-includegraphics-key-val (optional) + "Insert key-val for optional argument of \\includegraphics macro. +If OPTIONAL is non-nil, insert argument in square brackets. +Temporarily remove \"space\" from `crm-local-completion-map' and +`minibuffer-local-completion-map' in order to be able to insert +spaces conveniently. + +If `TeX-engine' is set to symbol 'default (while +`TeX-PDF-from-DVI' is set to nil) or 'luatex and `TeX-PDF-mode' +is non-nil, add the keys \"page\" and \"pagebox\" to list of +key-val's." + (let ((crm-local-completion-map + (remove (assoc 32 crm-local-completion-map) + crm-local-completion-map)) + (minibuffer-local-completion-map + (remove (assoc 32 minibuffer-local-completion-map) + minibuffer-local-completion-map))) + (TeX-argument-insert + (TeX-read-key-val optional + (if (and (or (and (eq TeX-engine 'default) + (not (TeX-PDF-from-DVI))) + (eq TeX-engine 'luatex) + ;; dvipdfmx can handle page and + ;; pagebox options. + (string= (TeX-PDF-from-DVI) "Dvipdfmx")) + TeX-PDF-mode) + (append '(("page") + ("pagebox" ("mediabox" + "cropbox" + "bleedbox" + "trimbox" + "artbox"))) + LaTeX-graphicx-key-val-options) + LaTeX-graphicx-key-val-options)) + optional))) + +(defun LaTeX-includegraphics-extensions-list () + "Return appropriate extensions for input files to \\includegraphics. +Return value is a list of regexps." + (let ((temp (copy-sequence LaTeX-includegraphics-extensions))) + (cond (;; 'default TeX-engine: + (eq TeX-engine 'default) + (if ;; we want to produce a pdf + (if TeX-PDF-mode + ;; Return t if default compiler produces PDF, + ;; nil for "Dvips" or "Dvipdfmx" + (not (TeX-PDF-from-DVI)) + ;; t if pdftex is used in dvi-mode + TeX-DVI-via-PDFTeX) + ;; We're using pdflatex in pdf-mode + (TeX-delete-duplicate-strings + (append LaTeX-includegraphics-pdftex-extensions + temp)) + ;; We're generating a .dvi to process with dvips or dvipdfmx + (progn + ;; dvipdfmx can handle jpeg, pdf and png for image formats. + (unless (and TeX-PDF-mode + (string= (TeX-PDF-from-DVI) "Dvipdfmx")) + (dolist (x '("jpe?g" "pdf" "png")) + (setq temp (delete x temp)))) + (TeX-delete-duplicate-strings + (append LaTeX-includegraphics-dvips-extensions + temp))))) + ;; Running luatex in pdf or dvi-mode: + ((eq TeX-engine 'luatex) + (if TeX-PDF-mode + (TeX-delete-duplicate-strings + (append LaTeX-includegraphics-pdftex-extensions + temp)) + (progn + (dolist (x '("jpe?g" "pdf" "png")) + (setq temp (delete x temp))) + (TeX-delete-duplicate-strings + (append LaTeX-includegraphics-dvips-extensions + temp))))) + ;; Running xetex in any mode: + ((eq TeX-engine 'xetex) + (TeX-delete-duplicate-strings + (append LaTeX-includegraphics-xetex-extensions + temp))) + ;; For anything else + (t + (if (and TeX-PDF-mode + (string= (TeX-PDF-from-DVI) "Dvipdfmx")) + ;; dvipdfmx can handle the same image formats as dvips. + (TeX-delete-duplicate-strings + (append LaTeX-includegraphics-dvips-extensions + temp)) + temp))))) + +(defun LaTeX-includegraphics-extensions (&optional list) + "Return appropriate extensions for input files to \\includegraphics. +Return value is a single regexp. +Optional argument LIST if non-nil is used as list of regexps of +extensions to be matched." + (unless list + (setq list (LaTeX-includegraphics-extensions-list))) + (concat "\\." (mapconcat #'identity list "\\'\\|\\.") "\\'")) + +(defvar LaTeX-includegraphics-global-files nil + "List of the non-local graphic files to include in LaTeX documents. +Initialized once at the first time you prompt for an input file. +May be reset with `\\[universal-argument] \\[TeX-normal-mode]'.") + +;; Add the variable to `TeX-normal-mode-reset-list': +(add-to-list 'TeX-normal-mode-reset-list 'LaTeX-includegraphics-global-files) + +(defun LaTeX-includegraphics-read-file-TeX () + "Read image file for \\includegraphics. +Offers all graphic files found in the TeX search path. See +`LaTeX-includegraphics-read-file' for more." + (let ((LaTeX-includegraphics-extensions + (LaTeX-includegraphics-extensions-list))) + (unless LaTeX-includegraphics-global-files + (message "Searching for graphic files...") + (setq LaTeX-includegraphics-global-files + (TeX-search-files-by-type + 'graphics 'global t + LaTeX-includegraphics-strip-extension-flag)) + (message "Searching for graphic files...done")) + (completing-read + "Image file: " + (append + (TeX-search-files-by-type 'graphics 'local t + LaTeX-includegraphics-strip-extension-flag) + LaTeX-includegraphics-global-files) + nil nil nil))) + +(defun LaTeX-includegraphics-read-file-relative () + "Read image file for \\includegraphics. + +Lists all graphic files in the master directory and its +subdirectories and inserts the relative file name. See +`LaTeX-includegraphics-read-file' for more." + (file-relative-name + (read-file-name + "Image file: " nil nil nil nil + (lambda (fname) + (or (file-directory-p fname) + (string-match (LaTeX-includegraphics-extensions) fname)))) + (TeX-master-directory))) + +(defun LaTeX-arg-includegraphics (optional) + "Ask for mandantory argument for the \\includegraphics command." + (let ((image-file (funcall LaTeX-includegraphics-read-file))) + (TeX-argument-insert + (if LaTeX-includegraphics-strip-extension-flag + (replace-regexp-in-string (LaTeX-includegraphics-extensions) + "" + image-file) + image-file) + optional))) + +(TeX-add-style-hook + "graphicx" + (lambda () + (TeX-add-symbols + '("reflectbox" "Argument") + + '("resizebox" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Width") + (append '("\\width" "!") + (mapcar + (lambda (x) (concat TeX-esc (car x))) + (LaTeX-length-list)))) + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Height") + (append '("\\height" "\\totalheight" "\\depth" "!") + (mapcar + (lambda (x) (concat TeX-esc (car x))) + (LaTeX-length-list)))) + "Argument") + + '("resizebox*" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Width") + (append '("\\width" "!") + (mapcar + (lambda (x) (concat TeX-esc (car x))) + (LaTeX-length-list)))) + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Height") + (append '("\\height" "\\totalheight" "\\depth" "!") + (mapcar + (lambda (x) (concat TeX-esc (car x))) + (LaTeX-length-list)))) + "Argument") + + '("rotatebox" (TeX-arg-conditional (member "graphics" (TeX-style-list)) + () + ([ TeX-arg-key-val (("x") ("y") ("origin") ("units")) ])) + "Angle" "Argument") + + '("scalebox" "Horizontal scale" [ "Vertical scale" ] "Argument") + + '("includegraphics" (TeX-arg-conditional (member "graphics" (TeX-style-list)) + (["llx,lly"] ["urx,ury"]) + ([ LaTeX-arg-graphicx-includegraphics-key-val ])) + LaTeX-arg-includegraphics) + + '("includegraphics*" (TeX-arg-conditional (member "graphics" (TeX-style-list)) + (["llx,lly"] ["urx,ury"]) + ([ LaTeX-arg-graphicx-includegraphics-key-val ])) + LaTeX-arg-includegraphics) + + '("graphicspath" t) + + '("DeclareGraphicsExtensions" t) + + '("DeclareGraphicsRule" 4)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("reflectbox" "{") + ("resizebox" "*{{{") + ("rotatebox" "[{{") + ("scalebox" "{[{")) + 'textual) + (font-latex-add-keywords '(("includegraphics" "*[[{")) + 'reference) + (font-latex-add-keywords '(("graphicspath" "{") + ("DeclareGraphicsExtensions" "{") + ("DeclareGraphicsRule" "{{{{")) + 'function)) + + ;; Option management + (if (and (LaTeX-provided-package-options-member "graphicx" "dvipdfmx") + (not (eq TeX-engine 'xetex))) + (setq TeX-PDF-from-DVI "Dvipdfmx"))) + TeX-dialect) + +(defvar LaTeX-graphicx-package-options + '("draft" "final" "debugshow" + "hiderotate" "hidescale" "hiresbb" + "setpagesize" "nosetpagesize" "demo" + "dvips" "xdvi" + "dvipdf" "dvipdfm" "dvipdfmx" + "xetex" "pdftex" "luatex" + "dvisvgm" "dvipsone" "dviwindo" + "emtex" "dviwin" "oztex" + "textures" "pctexps" "pctexwin" + "pctexhp" "pctex32" "truetex" + "tcidvi" "vtex") + "Package options for the graphicx package.") + +;;; graphicx.el ends here diff --git a/elpa/auctex-13.1.3/style/graphicx.elc b/elpa/auctex-13.1.3/style/graphicx.elc Binary files differnew file mode 100644 index 0000000..90e0330 --- /dev/null +++ b/elpa/auctex-13.1.3/style/graphicx.elc diff --git a/elpa/auctex-13.1.3/style/harvard.el b/elpa/auctex-13.1.3/style/harvard.el new file mode 100644 index 0000000..6373af3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/harvard.el @@ -0,0 +1,133 @@ +;;; harvard.el --- Support for Harvard Citation style package for AUCTeX. -*- lexical-binding: t; -*- + +;; Copyright (C) 1994, 1997, 2005, 2012, 2014, 2020 Free Software Foundation, Inc. + +;; Author: Berwin Turlach <statba@nus.edu.sg> +;; Maintainer: auctex-devel@gnu.org +;; 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. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "harvard" + (lambda () + + (LaTeX-add-environments + '("thebibliography" LaTeX-env-harvardbib ignore)) + + (TeX-add-symbols + "harvardand" + '("citeasnoun" + (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil) + TeX-arg-cite) + '("possessivecite" + (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil) + TeX-arg-cite) + '("citeaffixed" + (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil) + TeX-arg-cite "Affix") + '("citeyear" + (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil) + TeX-arg-cite) + '("citename" + (TeX-arg-conditional TeX-arg-cite-note-p ([ "Note" ]) nil) + TeX-arg-cite) + '("citationstyle" + (TeX-arg-eval completing-read "Citation style: " '(("agsm") ("dcu")))) + '("citationmode" + (TeX-arg-eval completing-read "Citation mode: " + '(("full") ("abbr") ("default")))) + '("harvardparenthesis" + (TeX-arg-eval completing-read "Harvardparenthesis: " + '(("round") ("curly") ("angle") ("square")))) + '("bibliographystyle" + (TeX-arg-eval + completing-read "Bibliography style: " + '(("agsm") ("apsr") ("dcu") ("jmr") ("jphysicsB") ("kluwer") ("nederlands") ("econometrica"))) + ignore) + '("harvarditem" [ "Short citation" ] + "Complete citation" "Year" TeX-arg-define-cite)) + + (setq TeX-complete-list + (append '(("\\\\citeasnoun\\[[^]\n\r\\%]*\\]{\\([^{}\n\r\\%,]*\\)" + 1 LaTeX-bibitem-list "}") + ("\\\\citeasnoun{\\([^{}\n\r\\%,]*\\)" 1 + LaTeX-bibitem-list "}") + ("\\\\possessivecite\\[[^]\n\r\\%]*\\]{\\([^{}\n\r\\%,]*\\)" + 1 LaTeX-bibitem-list "}") + ("\\\\possessivecite{\\([^{}\n\r\\%,]*\\)" 1 + LaTeX-bibitem-list "}") + ("\\\\citename\\[[^]\n\r\\%]*\\]{\\([^{}\n\r\\%,]*\\)" + 1 LaTeX-bibitem-list "}") + ("\\\\citename{\\([^{}\n\r\\%,]*\\)" 1 + LaTeX-bibitem-list "}") + ("\\\\citeaffixed\\[[^]\n\r\\%]*\\]{\\([^{}\n\r\\%,]*\\)" + 1 LaTeX-bibitem-list "}") + ("\\\\citeaffixed{\\([^{}\n\r\\%,]*\\)" 1 + LaTeX-bibitem-list "}") + ("\\\\citeaffixed{\\([^{}\n\r\\%]*,\\)\\([^{}\n\r\\%,]*\\)" + 2 LaTeX-bibitem-list) + ("\\\\citeyear\\[[^]\n\r\\%]*\\]{\\([^{}\n\r\\%,]*\\)" + 1 LaTeX-bibitem-list "}") + ("\\\\citeyear{\\([^{}\n\r\\%,]*\\)" 1 + LaTeX-bibitem-list "}") + ("\\\\citeyear{\\([^{}\n\r\\%]*,\\)\\([^{}\n\r\\%,]*\\)" + 2 LaTeX-bibitem-list)) + TeX-complete-list)) + + (setq LaTeX-auto-regexp-list + (append '(("\\\\harvarditem{\\([a-zA-Z][^%#'()={}]*\\)}{\\([0-9][^, %\"#'()={}]*\\)}{\\([a-zA-Z][^, %\"#'()={}]*\\)}" 3 LaTeX-auto-bibitem) + ("\\\\harvarditem\\[[^][\n\r]+\\]{\\([a-zA-Z][^%#'()={}]*\\)}{\\([0-9][^, %\"#'()={}]*\\)}{\\([a-zA-Z][^, %\"#'()={}]*\\)}" 3 LaTeX-auto-bibitem) + ) + LaTeX-auto-regexp-list)) + + (setq LaTeX-item-list + (cons '("thebibliography" . LaTeX-item-harvardbib) + LaTeX-item-list)) + + ;; Tell RefTeX + (when (and LaTeX-reftex-cite-format-auto-activate + (fboundp 'reftex-set-cite-format)) + (reftex-set-cite-format 'harvard))) + TeX-dialect) + +(defun LaTeX-env-harvardbib (environment &optional _ignore) + "Insert ENVIRONMENT with label for harvarditem." + (LaTeX-insert-environment environment + (concat TeX-grop "xx" TeX-grcl)) + (end-of-line 0) + (delete-char 1) + (delete-horizontal-space) + (LaTeX-insert-item)) + +;; Analog to LaTeX-item-bib from latex.el +(defun LaTeX-item-harvardbib () + "Insert a new harvarditem." + (TeX-insert-macro "harvarditem")) + +(defvar LaTeX-harvard-package-options '("full" "abbr" "default" + "agsmcite" "dcucite" "round" + "curly" "angle" "square" "none") + "Package options for the harvard package.") + +;; harvard.el ends here diff --git a/elpa/auctex-13.1.3/style/harvard.elc b/elpa/auctex-13.1.3/style/harvard.elc Binary files differnew file mode 100644 index 0000000..40a7c62 --- /dev/null +++ b/elpa/auctex-13.1.3/style/harvard.elc diff --git a/elpa/auctex-13.1.3/style/hologo.el b/elpa/auctex-13.1.3/style/hologo.el new file mode 100644 index 0000000..25f8105 --- /dev/null +++ b/elpa/auctex-13.1.3/style/hologo.el @@ -0,0 +1,237 @@ +;;; hologo.el --- AUCTeX style for `hologo.sty' (v1.10) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-10-31 +;; 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 `hologo.sty' (v1.10) from 2012/04/26. +;; `hologo.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-hologo-logo-names + '("(La)TeX" + "AmSLaTeX" + "AmSTeX" + "biber" + "BibTeX" + "BibTeX8" + "ConTeXt" + "emTeX" + "eTeX" + "ExTeX" + "HanTheThanh" + "iniTeX" + "KOMAScript" + "La" + "LaTeX" + "LaTeX2e" + "LaTeX3" + "LaTeXe" + "LaTeXML" + "LaTeXTeX" + "LuaLaTeX" + "LuaTeX" + "LyX" + "METAFONT" + "MetaFun" + "METAPOST" + "MetaPost" + "MiKTeX" + "NTS" + "OzMF" + "OzMP" + "OzTeX" + "OzTtH" + "PCTeX" + "pdfTeX" + "pdfLaTeX" + "PiC" + "PiCTeX" + "plainTeX" + "SageTeX" + "SLiTeX" + "SliTeX" + "teTeX" + "TeX" + "TeX4ht" + "TTH" + "virTeX" + "VTeX" + "Xe" + "XeLaTeX" + "XeTeX") + "List of logos provided by \"hologo.sty\".") + +(defvar LaTeX-hologo-key-val-options-global + '(("break" ("true" "false")) + ("hyphenbreak" ("true" "false")) + ("spacebreak" ("true" "false")) + ("discretionarybreak" ("true" "false"))) + "Global key=value options for hologo macros.") + +(defvar LaTeX-hologo-key-val-options-local + '(("variant" ("sf" "sc" ; BibTeX + "lift" ; SliTeX + "narrow" "simple" ; SliTeX, ConTeXt + "space" "hyphen" "runtogether"))) ; plainTeX + "Local key=value options for hologo macros.") + +(defun LaTeX-hologo--arg-use-region-or-query-logo-name (optional) + (if (and (use-region-p) + (member (buffer-substring (region-beginning) (region-end)) + LaTeX-hologo-logo-names)) + (progn + (insert TeX-grop) + (goto-char (region-end)) + (insert TeX-grcl)) + (TeX-argument-insert + (completing-read "Logo name: " LaTeX-hologo-logo-names) + optional))) + +(TeX-add-style-hook + "hologo" + (lambda () + (TeX-add-symbols + + ;; Insert logo macros + '("hologo" LaTeX-hologo--arg-use-region-or-query-logo-name) + '("Hologo" LaTeX-hologo--arg-use-region-or-query-logo-name) + + ;; Setup macros + '("hologoSetup" (TeX-arg-key-val LaTeX-hologo-key-val-options-global)) + + '("hologoLogoSetup" + (TeX-arg-eval + (lambda () + (let* ((logo (completing-read "Logo name: " LaTeX-hologo-logo-names)) + (keyval (TeX-read-key-val + nil + (cond ((string= logo "BibTeX") + (append '(("variant" ("sf" "sc"))) + LaTeX-hologo-key-val-options-global)) + ((string= logo "ConTeXt") + (append '(("variant" ("narrow" "simple"))) + LaTeX-hologo-key-val-options-global)) + ((string= logo "plainTeX") + (append '(("variant" ("space" "hyphen" "runtogether"))) + LaTeX-hologo-key-val-options-global)) + ((or (string= logo "SLiTeX") + (string= logo "SliTeX")) + (append '(("variant" ("lift" "narrow" "lift"))) + LaTeX-hologo-key-val-options-global)) + (t + LaTeX-hologo-key-val-options-global))))) + (TeX-argument-insert logo nil) + (format "%s" keyval))))) + + '("hologoDriverSetup" (TeX-arg-eval completing-read + "Driver: " + '("pdftex" "luatex" + "dvipdfm" "dvipdfmx" + "dvips" "dvipsone" "xdvi" + "xetex" "vtex" "driverfallback"))) + + '("hologoFontSetup" + (TeX-arg-key-val (("general") ("bibsf") + ("rm") ("sc") ("sf") ("sy") ("logo")))) + + '("hologoLogoFontSetup" + (TeX-arg-eval + (lambda () + (let* ((logo (completing-read "Logo name: " + '("BibTeX" + "ExTeX" + "SliTeX" + "AmS" + "NTS" + "KOMAScript" + "METAFONT" + "METAPOST"))) + (keyval (TeX-read-key-val + nil + (cond ((string= logo "BibTeX") + '(("bibsf") ("sc"))) + ((string= logo "ExTeX") + '(("rm") ("sy"))) + ((string= logo "SliTeX") + '(("rm") ("sc"))) + ((or (string= logo "AmS") + (string= logo "NTS")) + '(("sy"))) + ((string= logo "KOMAScript") + '(("sf"))) + ((or (string= logo "METAFONT") + (string= logo "METAPOST")) + '(("logo"))) + (t + nil))))) + (TeX-argument-insert logo nil) + (format "%s" keyval))))) + + ;; Additional user macros + `("hologoVariant" + LaTeX-hologo--arg-use-region-or-query-logo-name + (TeX-arg-key-val (append ,LaTeX-hologo-key-val-options-local + ,LaTeX-hologo-key-val-options-global))) + + `("HologoVariant" + LaTeX-hologo--arg-use-region-or-query-logo-name + (TeX-arg-key-val (append ,LaTeX-hologo-key-val-options-local + ,LaTeX-hologo-key-val-options-global))) + + '("hologoList" 0) + + '("hologoEntry" "Logo name" "Variant" "Since")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("hologo" "{") + ("Hologo" "{")) + 'textual) + (font-latex-add-keywords '(("hologoSetup" "{") + ("hologoLogoSetup" "{{") + ("hologoDriverSetup" "{") + ("hologoFontSetup" "{") + ("hologoLogoFontSetup" "{{") + ("hologoVariant" "{{") + ("HologoVariant" "{{") + ("hologoList" "") + ("hologoEntry" "{{{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-hologo-package-options nil + "Package options for the hologo package.") + +;;; hologo.el ends here diff --git a/elpa/auctex-13.1.3/style/hologo.elc b/elpa/auctex-13.1.3/style/hologo.elc Binary files differnew file mode 100644 index 0000000..ccd9ec4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/hologo.elc diff --git a/elpa/auctex-13.1.3/style/hyperref.el b/elpa/auctex-13.1.3/style/hyperref.el new file mode 100644 index 0000000..81a0533 --- /dev/null +++ b/elpa/auctex-13.1.3/style/hyperref.el @@ -0,0 +1,349 @@ +;;; hyperref.el --- AUCTeX style for `hyperref.sty' v6.83m -*- lexical-binding: t; -*- + +;; Copyright (C) 2008, 2013-2021 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2008-06-21 +;; 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 the hyperref package. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function font-latex-set-syntactic-keywords + "font-latex") + +(defvar LaTeX-hyperref-package-options-list + '(;; See https://www.tug.org/applications/hyperref/manual.html#x1-40003 + ;; General options + ("draft" ("true" "false")) + ("final" ("true" "false")) + ("debug" ("true" "false")) + ("verbose" ("true" "false")) + ("implicit" ("true" "false")) + ("setpagesize" ("true" "false")) + ;; Options for destination names + ("destlabel" ("true" "false")) + ("hypertexnames" ("true" "false")) + ("naturalnames" ("true" "false")) + ("plainpages" ("true" "false")) + ;; Configuration options + ("raiselinks" ("true" "false")) + ("breaklinks" ("true" "false")) + ("pageanchor" ("true" "false")) + ("nesting" ("true" "false")) + ;; Backend drivers + ("driverfallback") + ("dvipdfm") + ("dvipdfmx") + ("dvips") + ("dvipsone") + ("dviwindo") + ("hypertex") + ("latex2html") + ("nativepdf") + ("pdfmark") + ("pdftex") + ("ps2pdf") + ("tex4ht") + ("textures") + ("vtex") + ("vtexpdfmark") + ("xetex") + ;; Extension options + ("extension") + ("hyperfigures" ("true" "false")) + ("backref" ("section" "slide" "page" "none" "false")) + ("pagebackref" ("true" "false")) + ("hyperindex" ("true" "false")) + ("hyperfootnotes" ("true" "false")) + ("encap") + ("linktocpage" ("true" "false")) + ("breaklinks" ("true" "false")) + ("colorlinks" ("true" "false")) + ("linkcolor") + ("anchorcolor") + ("citecolor") + ("filecolor") + ("menucolor") + ("runcolor") + ("urlcolor") + ("allcolors") + ("frenchlinks" ("true" "false")) + ("hidelinks") + ;; PDF-specific display options + ("bookmarks" ("true" "false")) + ("bookmarksopen" ("true" "false")) + ("bookmarksopenlevel") + ("bookmarksnumbered" ("true" "false")) + ("bookmarkstype") + ("CJKbookmarks" ("true" "false")) + ("pdfhighlight" ("/I" "/N" "/O" "/P")) + ("citebordercolor") + ("filebordercolor") + ("linkbordercolor") + ("menubordercolor") + ("runbordercolor") + ("urlbordercolor") + ("allbordercolors") + ("pdfborder") + ;; PDF display and information options + ("baseurl") + ("pdfpagemode" ("UseOutlines" "UseThumbs" "FullScreen" "UseOC" "UseAttachments")) + ("pdftitle") + ("pdfauthor") + ("pdfsubject") + ("pdfcreator") + ("pdfproducer") + ("pdfkeywords") + ("pdftrapped" ("True" "False" "Unknown")) + ("pdfinfo") + ("pdfview" ("XYZ" "Fit" "FitH" "FitV" "FitR" "FitB" "FitBH" "FitBV")) + ("pdfstartpage") + ("pdfstartview" ("XYZ" "Fit" "FitH" "FitV" "FitR" "FitB" "FitBH" "FitBV")) + ("pdfremotestartview" ("XYZ" "Fit" "FitH" "FitV" "FitR" "FitB" "FitBH" "FitBV")) + ("pdfpagescrop") + ("pdfcenterwindow" ("true" "false")) + ("pdfdirection" ("L2R" "R2L")) + ("pdfdisplaydoctitle" ("true" "false")) + ("pdfduplex" ("Simplex" "DuplexFlipShortEdge" "DuplexFlipLongEdge")) + ("pdffitwindow" ("true" "false")) + ("pdflang") + ("pdfmenubar" ("true" "false")) + ("pdfnewwindow" ("true" "false")) + ("pdfnonfullscreenpagemode" ("UseNone" "UseOutlines" "UseThumbs" "FullScreen" "UseOC" "UseAttachments")) + ("pdfnumcopies") + ("pdfpagelayout" ("SinglePage" "OneColumn" "TwoColumnLeft" "TwoColumnRight" "TwoPageLeft" "TwoPageRight")) + ("pdfpagelabels" ("true" "false")) + ("pdfpagetransition" ("Blinds" "Box" "Dissolve" "Glitter" "Split" "Wipe")) + ("pdfpicktraybypdfsize" ("true" "false")) + ("pdfprintarea" ("MediaBox" "CropBox" "BleedBox" "TrimBox" "ArtBox")) + ("pdfprintclip" ("MediaBox" "CropBox" "BleedBox" "TrimBox" "ArtBox")) + ("pdfprintpagerange") + ("pdfprintscaling" ("AppDefault" "None")) + ("pdftoolbar" ("true" "false")) + ("pdfviewarea" ("MediaBox" "CropBox" "BleedBox" "TrimBox" "ArtBox")) + ("pdfviewclip" ("MediaBox" "CropBox" "BleedBox" "TrimBox" "ArtBox")) + ("pdfwindowui" ("true" "false")) + ("unicode" ("true" "false"))) + "Package options for the hyperref package.") + +(defvar LaTeX-hyperref-href-options + '(("pdfremotestartview" ("XYZ" "Fit" "FitH" "FitV" "FitR" "FitB" "FitBH" "FitBV")) + ("pdfnewwindow" ("true" "false")) + ("page") + ("ismap" ("true" "false")) + ("nextactionraw")) + "Key=value options for href macro of the hyperref package.") + +;; See https://www.tug.org/applications/hyperref/ftp/doc/manual.html#x1-220006.2 + +(defvar LaTeX-hyperref-forms-options + '(("accesskey") + ("align" ("0" "1" "2")) + ("altname") + ("backgroundcolor") + ("bordercolor") + ("bordersep") + ("borderwidth") + ;; "borderstyle" is not mentioned in the original hyperref-doc, it + ;; can be seen in action in + ;; https://github.com/latex3/hyperref/blob/main/test/testform.tex + ;; S=Solid (default), D=Dashed, B=Beveled, I=Inset, U=Underline + ("borderstyle" ("S" "D" "B" "I" "U")) + ("calculate") + ("charsize") + ("checkboxsymbol" ("true" "false")) + ("checked") + ("color") + ("combo" ("true" "false")) + ("default") + ("disabled" ("true" "false")) + ("format") + ("height") + ("hidden" ("true" "false")) + ("keystroke") + ("mappingname") + ("maxlen") + ("menulength") + ("multiline" ("true" "false")) + ("name") + ("onblur") + ("onchange") + ("onclick") + ("ondblclick") + ("onfocus") + ("onkeydown") + ("onkeypress") + ("onkeyup") + ("onmousedown") + ("onmousemove") + ("onmouseout") + ("onmouseover") + ("onmouseup") + ("onselect") + ("password" ("true" "false")) + ("popdown" ("true" "false")) + ("radio" ("true" "false")) + ("radiosymbol") + ("readonly" ("true" "false")) + ("rotation") + ("tabkey") + ("validate") + ("value") + ("width")) + "Key=value options for Forms related macros of the hyperref package.") + +(TeX-add-style-hook + "hyperref" + (lambda () + ;; hyperref loads nameref and url (+ some other packages which do not have + ;; style hooks) + (TeX-run-style-hooks "url" "nameref") + + (TeX-add-symbols + '("hypersetup" (TeX-arg-key-val LaTeX-hyperref-package-options-list)) + '("href" [ (TeX-arg-key-val LaTeX-hyperref-href-options) ] "URL" "Text") + ;; Completion for \url is provided via url.el. Hence the entry in + ;; this style is commented: + ;; '("url" "URL" ignore) + '("nolinkurl" t) + '("hyperbaseurl" t) + '("hyperimage" "Image URL" "Text") + '("hyperdef" "Category" "Name" "Text") + '("hyperref" "URL" "Category" "Name" "Text") + '("hyperlink" "Name" "Text") + '("hypertarget" "Name" "Text") + '("phantomsection" 0) + '("autoref" TeX-arg-ref) + '("autoref*" TeX-arg-ref) + '("ref*" TeX-arg-ref) + '("pageref*" TeX-arg-ref) + '("autopageref" TeX-arg-ref) + '("autopageref*" TeX-arg-ref) + '("pdfstringdef" "Macro name" "TeX string") + '("pdfbookmark" [ "Level" ] "Text" "name") + '("currentpdfbookmark" "Text" "Name") + '("subpdfbookmark" "Text" "Name") + '("belowpdfbookmark" "Text" "Name") + '("texorpdfstring" "TeX string" "PDF string") + '("hypercalcbp" t) + '("Acrobatmenu" "Menu option" "Text") + ;; The next 6 macros take Key-vals defined in + ;; "LaTeX-hyperref-forms-options". For an example, see + ;; https://github.com/latex3/hyperref/blob/main/test/testform.tex + '("TextField" [ (TeX-arg-key-val LaTeX-hyperref-forms-options) ] "Label") + '("CheckBox" [ (TeX-arg-key-val LaTeX-hyperref-forms-options) ] "Label") + '("ChoiceMenu" [ (TeX-arg-key-val LaTeX-hyperref-forms-options) ] "Label" "Choices") + '("PushButton" [ (TeX-arg-key-val LaTeX-hyperref-forms-options) ] "Label") + '("Submit" [ (TeX-arg-key-val LaTeX-hyperref-forms-options) ] "Label") + '("Reset" [ (TeX-arg-key-val LaTeX-hyperref-forms-options) ] "Label") + '("LayoutTextField" "Label" "Field") + '("LayoutChoiceField" "Label" "Field") + '("LayoutCheckField" "Label" "Field") + '("MakeRadioField" "Width" "Height") + '("MakeCheckField" "Width" "Height") + '("MakeTextField" "Width" "Height") + '("MakeChoiceField" "Width" "Height") + '("MakeButtonField" "Text")) + + ;; Form fields must be inside a "Form"-env, one per file is allowed, cf. + ;; https://www.tug.org/applications/hyperref/ftp/doc/manual.html#x1-200006 + ;; It is up to user to insert [<options>] after \begin{Form} + (LaTeX-add-environments + '("Form")) + + ;; Do not indent the content of the "Form"-env; it is odd if the + ;; whole document is indented. Append it to a local version of + ;; `LaTeX-document-regexp': + (unless (string-match-p "Form" LaTeX-document-regexp) + (set (make-local-variable 'LaTeX-document-regexp) + (concat LaTeX-document-regexp "\\|" "Form"))) + + (add-to-list 'LaTeX-verbatim-macros-with-braces-local "nolinkurl") + (add-to-list 'LaTeX-verbatim-macros-with-braces-local "hyperbaseurl") + (add-to-list 'LaTeX-verbatim-macros-with-braces-local "hyperimage") + (add-to-list 'LaTeX-verbatim-macros-with-braces-local "hyperref") + (add-to-list 'LaTeX-verbatim-macros-with-braces-local "href") + + ;; In hyperref package, \url macro is redefined and \url|...| can't be used, + ;; while it's possible when only url package (required by hyperref) is loaded + (setq LaTeX-verbatim-macros-with-delims-local + (remove "url" LaTeX-verbatim-macros-with-delims-local)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("href" "[{{") + ("nolinkurl" "{") + ("hyperbaseurl" "{") + ("hyperimage" "{{") + ("hyperdef" "{{{") + ("hyperref" "{{{{") + ("hyperlink" "{{") + ("hypertarget" "{{") + ("autoref" "*{") + ("ref" "*{") + ("pageref" "*{") + ("autopageref" "*{")) + 'reference) + (font-latex-add-keywords '(("hypersetup" "{")) + 'function) + ;; For syntactic fontification, e.g. verbatim constructs. + (font-latex-set-syntactic-keywords)) + + ;; Option management + (if (and (LaTeX-provided-package-options-member "hyperref" "dvipdfmx") + (not (eq TeX-engine 'xetex))) + (setq TeX-PDF-from-DVI "Dvipdfmx")) + + ;; Loop over the possible options and load backref.el: + (let ((opts '("backref" + "backref=section" + "backref=slide" + "backref=page" + "pagebackref" + "pagebackref=true"))) + (dolist (opt opts) + (when (LaTeX-provided-package-options-member "hyperref" opt) + (TeX-run-style-hooks "backref")))) + + ;; Activate RefTeX reference style. + (and LaTeX-reftex-ref-style-auto-activate + (fboundp 'reftex-ref-style-activate) + (reftex-ref-style-activate "Hyperref"))) + TeX-dialect) + +(defun LaTeX-hyperref-package-options () + "Read the hyperref package options from the user." + (TeX-read-key-val t LaTeX-hyperref-package-options-list)) + +;;; hyperref.el ends here diff --git a/elpa/auctex-13.1.3/style/hyperref.elc b/elpa/auctex-13.1.3/style/hyperref.elc Binary files differnew file mode 100644 index 0000000..fef205a --- /dev/null +++ b/elpa/auctex-13.1.3/style/hyperref.elc diff --git a/elpa/auctex-13.1.3/style/icelandic.el b/elpa/auctex-13.1.3/style/icelandic.el new file mode 100644 index 0000000..b3cf1e4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/icelandic.el @@ -0,0 +1,62 @@ +;;; icelandic.el --- AUCTeX style for the `icelandic' babel option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2007, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2007-03-11 +;; 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: + +;; Set up AUCTeX for editing Icelandic text in connection with the +;; `icelandic' babel option. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-quotes + "font-latex" + (quotes)) + +(defvar LaTeX-icelandic-mode-syntax-table + (copy-syntax-table LaTeX-mode-syntax-table) + "Syntax table used in LaTeX mode when using `icelandic.sty'.") + +(modify-syntax-entry ?\" "w" LaTeX-icelandic-mode-syntax-table) + +(TeX-add-style-hook + "icelandic" + (lambda () + (set-syntax-table LaTeX-icelandic-mode-syntax-table) + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language `("icelandic" "\"`" "\"'" ,TeX-quote-after-quote))) + (setq LaTeX-babel-hyphen-language "icelandic") + ;; Fontification of quotation marks. + (when (fboundp 'font-latex-add-quotes) + (font-latex-add-quotes '("\"`" "\"'")) + (font-latex-add-quotes '("\"<" "\">" french))) + (run-hooks 'TeX-language-is-hook)) + TeX-dialect) + +;;; icelandic.el ends here diff --git a/elpa/auctex-13.1.3/style/icelandic.elc b/elpa/auctex-13.1.3/style/icelandic.elc Binary files differnew file mode 100644 index 0000000..af1717c --- /dev/null +++ b/elpa/auctex-13.1.3/style/icelandic.elc diff --git a/elpa/auctex-13.1.3/style/ifluatex.el b/elpa/auctex-13.1.3/style/ifluatex.el new file mode 100644 index 0000000..86a7638 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ifluatex.el @@ -0,0 +1,72 @@ +;;; ifluatex.el --- AUCTeX style for `ifluatex.sty' version 1.3. -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2016, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Davide G. M. Salvetti <salve@debian.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-11-15 +;; 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, see +;; <https://www.gnu.org/licenses/>. + +;;; Commentary: + +;; This file adds support for `ifluatex.sty' 1.3. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defun LaTeX-ifluatex-set-TeX-exit-mark (_optional) + "Discard OPTIONAL and set `TeX-exit-mark' to current point." + (set-marker TeX-exit-mark (point))) + +(TeX-add-style-hook + "ifluatex" + (lambda () + (TeX-add-symbols + '("ifluatex" + (TeX-arg-literal "%\n") + LaTeX-ifluatex-set-TeX-exit-mark + (TeX-arg-literal "\n\\else%\n\\fi%")) + '("luatexversion" 0) + '("luatexrevision" 0)) + (TeX-declare-expert-macros + "ifluatex" + "ifluatex" "luatexversion" "luatexrevision") + + ;; This package is used to make it possible to compile a document with both + ;; LuaTeX and base TeX engines. By setting `TeX-check-engine-list' to nil + ;; we ignore engine restrictions posed by other packages. + (setq TeX-check-engine-list nil) + + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("luatexversion") + ("luatexrevision")) + 'function))) + TeX-dialect) + +(defvar LaTeX-ifluatex-package-options nil + "Package options for the ifluatex package.") + +;;; ifluatex.el ends here diff --git a/elpa/auctex-13.1.3/style/ifluatex.elc b/elpa/auctex-13.1.3/style/ifluatex.elc Binary files differnew file mode 100644 index 0000000..37f0152 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ifluatex.elc diff --git a/elpa/auctex-13.1.3/style/ifthen.el b/elpa/auctex-13.1.3/style/ifthen.el new file mode 100644 index 0000000..2f42602 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ifthen.el @@ -0,0 +1,82 @@ +;;; ifthen.el --- AUCTeX style for `ifthen.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2022-03-16 +;; 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 `ifthen.sty' v1.1c, dated 2020/11/24. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defun LaTeX-arg-ifthen-test (optional &optional prompt) + "Query and insert skeleton for a test in ifthen macros." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional prompt "Test") + '("<" "=" ">" + "\\isodd{}" + "\\isundefined{}" + "\\equal{}{}" + "\\lengthtest{<}" + "\\lengthtest{=}" + "\\lengthtest{>}" + "\\boolean{}")) + optional)) + +(TeX-add-style-hook + "ifthen" + (lambda () + (TeX-add-symbols + '("ifthenelse" LaTeX-arg-ifthen-test t nil) + '("whiledo" LaTeX-arg-ifthen-test t) + "AND" + "OR" + "NOT" + '("newboolean" "Name") + '("provideboolean" "Name") + '("setboolean" "Name" (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Value") + '("true" "false")))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; Only fontify macros which will be used top-level: + (font-latex-add-keywords '(("newboolean" "{") + ("provideboolean" "{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-ifthen-package-options nil + "Package options for the ifthen package.") + +;;; ifthen.el ends here diff --git a/elpa/auctex-13.1.3/style/ifthen.elc b/elpa/auctex-13.1.3/style/ifthen.elc Binary files differnew file mode 100644 index 0000000..cd588b6 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ifthen.elc diff --git a/elpa/auctex-13.1.3/style/imakeidx.el b/elpa/auctex-13.1.3/style/imakeidx.el new file mode 100644 index 0000000..325631e --- /dev/null +++ b/elpa/auctex-13.1.3/style/imakeidx.el @@ -0,0 +1,103 @@ +;;; imakeidx.el --- AUCTeX style for `imakeidx.sty'. -*- lexical-binding: t; -*- + +;; Copyright (C) 2012-2013, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <giordano.mose@libero.it> +;; 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 `imakeidx.sty'. + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-imakeidx-makeindex-options + '(("name") + ("title") + ("program" ("makeindex" "xindy" "texindy" "truexindy")) + ("options") + ("noautomatic" ("true" "false")) + ("intoc" ("true" "false")) + ("columns") + ("columnsep") + ("columnseprule" ("true" "false"))) + "Key=value options for makeindex macro of the imakeidx package.") + +(defvar LaTeX-imakeidx-indexsetup-options + '(("level") + ("toclevel") + ("noclearpage" ("true" "false")) + ("othercode")) + "Key=value options for indexsetup macro of the imakeidx package.") +(make-variable-buffer-local 'LaTeX-imakeidx-indexsetup-options) + +(TeX-add-style-hook + "imakeidx" + (lambda () + ;; `firstpagestyle' and `headers' options for `indexsetup' macro are + ;; available only if `fancyhdr' is not loaded. The following code works only + ;; if `imakeidx' is loaded after `fancyhdr'. + (unless (member "fancyhdr" TeX-active-styles) + (setq LaTeX-imakeidx-indexsetup-options + (append LaTeX-imakeidx-indexsetup-options + `(("firstpagestyle" ,(LaTeX-pagestyle-list))) + '(("headers"))))) + + (TeX-add-symbols + '("makeindex" [ (TeX-arg-key-val LaTeX-imakeidx-makeindex-options) ]) + '("indexsetup" (TeX-arg-key-val LaTeX-imakeidx-indexsetup-options)) + '("splitindexoptions" "Command line option") + '("index" [ "Index name" ] TeX-arg-index) + '("indexprologue" [ "Spacing" ] "Text") + '("printindex" [ "Index name" ]) + '("seealso" 2) + '("see" 2) + "seename" + "alsoname" + "indexname") + + (TeX-run-style-hooks + "multicol" + "xpatch" + "pdftexcmds" + "ifluatex" + "ifxetex" + "xkeyval") + + ;; Completion for the |see macro and RefTeX support taken from + ;; `makeidx.el' + (setq TeX-complete-list + (append + '(("|see{\\([^{}\n\r]*\\)" 1 LaTeX-index-entry-list)) + TeX-complete-list)) + (and (fboundp 'reftex-add-index-macros) + (reftex-add-index-macros '(default)))) + TeX-dialect) + +(defvar LaTeX-imakeidx-package-options + '("makeindex" "xindy" "texindy" "truexindy" "noautomatic" "nonewpage" "quiet" + "original" "splitindex") + "Package options for the imakeidx package.") + +;; imakeidx.el ends here diff --git a/elpa/auctex-13.1.3/style/imakeidx.elc b/elpa/auctex-13.1.3/style/imakeidx.elc Binary files differnew file mode 100644 index 0000000..d935361 --- /dev/null +++ b/elpa/auctex-13.1.3/style/imakeidx.elc diff --git a/elpa/auctex-13.1.3/style/index.el b/elpa/auctex-13.1.3/style/index.el new file mode 100644 index 0000000..0d83566 --- /dev/null +++ b/elpa/auctex-13.1.3/style/index.el @@ -0,0 +1,87 @@ +;;; index.el --- AUCTeX support for indices with index.sty. -*- lexical-binding: t; -*- + +;; Copyright (C) 1999, 2020 Free Software Foundation, Inc. + +;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl> +;; Maintainer: auctex-devel@gnu.org + +;; 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. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "index" + (lambda () + + (TeX-add-symbols + ;; New indices + '("newindex" [ "Counter" ] "Tag" + "Extension of raw index" "Extension of processed index" "Index title") + '("renewindex" [ "Counter" ] "Tag" + "Extension of raw index" "Extension of processed index" "Index title") + "makeindex" + '("disableindex" "Tag[,tag...]") + + ;; Printing the index + '("printindex" [ "Indextag" ] [ "Prologue" ]) + "indexspace" + + ;; Index entries + '("index" [ TeX-arg-index-tag ] TeX-arg-index) + '("index*" [ TeX-arg-index-tag ] TeX-arg-index) + + ;; Showidx-like stuff + "proofmodetrue" "proofmodefalse" '("indexproofstyle" "Style") + + ;; Shortcuts (THESE ARE DEPRECATED AND SHOULD NOT BE USED + "shortindexingon" "shortindexinoff") + + ;; Parsing index macros + (setq LaTeX-auto-regexp-list + (append + + ;; The first regexp is faster, but less accurate + ;;'(("\\\\index\\*?\\[[^{}]*\\]{\\([^}]*\\)" + ;; 1 LaTeX-auto-index-entry)) + + ;; The second regexp is very good, but slower. + '(("\\\\index\\*?\\[[^{}]*\\]{\\([^}{]*\\({[^}{]*\\({[^}{]*\\({[^}{]*}[^}{]*\\)*}[^}{]*\\)*}[^}{]*\\)*\\)}" + 1 LaTeX-auto-index-entry)) + + LaTeX-auto-regexp-list)) + + ;; Completion for the index entries in \index and |see commands + (setq TeX-complete-list + (append + '(("\\\\index\\*?\\(\\[[^][{}]*\\]\\)?{\\([^{}\n\r]*\\)" + 2 LaTeX-index-entry-list) + ("|see{\\([^}]*\\)" 1 LaTeX-index-entry-list)) + TeX-complete-list)) + + ;; RefTeX support + (and (fboundp 'reftex-add-index-macros) + (reftex-add-index-macros '(index)))) + TeX-dialect) + +(defvar LaTeX-index-package-options nil + "Package options for the index package.") + +;;; index.el ends here diff --git a/elpa/auctex-13.1.3/style/index.elc b/elpa/auctex-13.1.3/style/index.elc Binary files differnew file mode 100644 index 0000000..14daa81 --- /dev/null +++ b/elpa/auctex-13.1.3/style/index.elc diff --git a/elpa/auctex-13.1.3/style/inputenc.el b/elpa/auctex-13.1.3/style/inputenc.el new file mode 100644 index 0000000..14ff61c --- /dev/null +++ b/elpa/auctex-13.1.3/style/inputenc.el @@ -0,0 +1,89 @@ +;;; inputenc.el --- AUCTeX style for `inputenc.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2005-2021 Free Software Foundation, Inc. + +;; Author: Arne Jørgensen <arne@arnested.dk> +;; 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 Street, Fifth Floor, Boston, +;; MA 02110-1301, USA. + +;;; Commentary: + +;; This file adds support for `inputenc.sty'. + +;;; Code: + +(require 'tex) + +(defun LaTeX-inputenc-package-options nil + "Prompt for package options for the inputenc package." + ;; separate the condition in three to silence the byte compiler + (if (boundp 'latex-inputenc-coding-alist) + (when (fboundp 'latexenc-coding-system-to-inputenc) + (when (fboundp 'latexenc-inputenc-to-coding-system) + (let ((default (latexenc-coding-system-to-inputenc + (or coding-system-for-write + buffer-file-coding-system))) + (selected 'undecided)) + (setq selected (completing-read + (if default + (format "Input encoding (default %s): " default) + "Input encoding: ") + (mapcar #'car latex-inputenc-coding-alist) + nil + nil + nil + nil + default)) + + ;; if necessary offer to set the coding system for saving + ;; this buffer based on the selected input encoding + (when (and (null + (coding-system-equal + (coding-system-base + (or coding-system-for-write + buffer-file-coding-system)) + (coding-system-base + (latexenc-inputenc-to-coding-system selected)))) + (y-or-n-p "Set coding system for saving this buffer? ") + (set-buffer-file-coding-system + (coding-system-base + (latexenc-inputenc-to-coding-system selected))) + (message nil))) + + ;; return selected input encoding + selected))) + (TeX-read-string "Input encoding: "))) + +(defun LaTeX-arg-inputenc-inputenc (_optional) + "Prompt for input encoding." + (TeX-argument-insert (LaTeX-inputenc-package-options) nil)) + +(TeX-add-style-hook + "inputenc" + (lambda () + ;; New symbols + (TeX-add-symbols + '("inputencoding" LaTeX-arg-inputenc-inputenc))) + TeX-dialect) + +;; Local Variables: +;; coding: utf-8 +;; End: + +;;; inputenc.el ends here diff --git a/elpa/auctex-13.1.3/style/inputenc.elc b/elpa/auctex-13.1.3/style/inputenc.elc Binary files differnew file mode 100644 index 0000000..a16f237 --- /dev/null +++ b/elpa/auctex-13.1.3/style/inputenc.elc diff --git a/elpa/auctex-13.1.3/style/italian.el b/elpa/auctex-13.1.3/style/italian.el new file mode 100644 index 0000000..16db718 --- /dev/null +++ b/elpa/auctex-13.1.3/style/italian.el @@ -0,0 +1,56 @@ +;;; italian.el --- Setup AUCTeX for editing Italian text. -*- lexical-binding: t; -*- + +;; Copyright (C) 2004, 2005, 2018, 2020, 2022 Free Software Foundation, Inc. + +;; Author: Davide G. M. Salvetti <salve@debian.org> +;; Maintainer: Davide G. M. Salvetti <salve@debian.org> +;; Created: 2004-05-12 +;; 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: +;; +;; I believe that the Italian correct quoting is achieved with `\"<' and +;; `\">'. However, I will be glad to see a normative reference. -- DGMS + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-quotes + "font-latex" + (quotes)) + +(defvar TeX-language-it-hook nil + "Hook run for Italian texts.") + +(TeX-add-style-hook + "italian" + (lambda () + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language + `("italian" "\"<" "\">" ,TeX-quote-after-quote))) + ;; Fontification of quotation marks. + (when (fboundp 'font-latex-add-quotes) + (font-latex-add-quotes '("\"<" "\">" french))) + (run-hooks 'TeX-language-it-hook)) + TeX-dialect) + +;;; italian.el ends here diff --git a/elpa/auctex-13.1.3/style/italian.elc b/elpa/auctex-13.1.3/style/italian.elc Binary files differnew file mode 100644 index 0000000..e9b40cf --- /dev/null +++ b/elpa/auctex-13.1.3/style/italian.elc diff --git a/elpa/auctex-13.1.3/style/j-article.el b/elpa/auctex-13.1.3/style/j-article.el new file mode 100644 index 0000000..44571f3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/j-article.el @@ -0,0 +1,14 @@ +;;; j-article.el - Special code for j-article style. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "j-article" + (lambda () + (LaTeX-largest-level-set "section")) + TeX-dialect) + +;;; j-article.el ends here diff --git a/elpa/auctex-13.1.3/style/j-article.elc b/elpa/auctex-13.1.3/style/j-article.elc Binary files differnew file mode 100644 index 0000000..f7c52f8 --- /dev/null +++ b/elpa/auctex-13.1.3/style/j-article.elc diff --git a/elpa/auctex-13.1.3/style/j-book.el b/elpa/auctex-13.1.3/style/j-book.el new file mode 100644 index 0000000..1aeda40 --- /dev/null +++ b/elpa/auctex-13.1.3/style/j-book.el @@ -0,0 +1,14 @@ +;;; j-book.el - Special code for j-book style. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "j-book" + (lambda () + (LaTeX-largest-level-set "part")) + TeX-dialect) + +;;; j-book.el ends here diff --git a/elpa/auctex-13.1.3/style/j-book.elc b/elpa/auctex-13.1.3/style/j-book.elc Binary files differnew file mode 100644 index 0000000..331bd65 --- /dev/null +++ b/elpa/auctex-13.1.3/style/j-book.elc diff --git a/elpa/auctex-13.1.3/style/j-report.el b/elpa/auctex-13.1.3/style/j-report.el new file mode 100644 index 0000000..969b4f7 --- /dev/null +++ b/elpa/auctex-13.1.3/style/j-report.el @@ -0,0 +1,14 @@ +;;; j-report.el - Special code for j-report style. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "j-report" + (lambda () + (LaTeX-largest-level-set "chapter")) + TeX-dialect) + +;;; j-report.el ends here diff --git a/elpa/auctex-13.1.3/style/j-report.elc b/elpa/auctex-13.1.3/style/j-report.elc Binary files differnew file mode 100644 index 0000000..4fc6c96 --- /dev/null +++ b/elpa/auctex-13.1.3/style/j-report.elc diff --git a/elpa/auctex-13.1.3/style/jarticle.el b/elpa/auctex-13.1.3/style/jarticle.el new file mode 100644 index 0000000..d293ff0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/jarticle.el @@ -0,0 +1,26 @@ +;;; jarticle.el - Special code for jarticle class. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-jarticle-class-options + '("a4paper" "a5paper" "b4paper" "b5paper" "a4j" "a5j" "b4j" "b5j" + "a4p" "b4p" "b5p" "10pt" "11pt" "12pt" "landscape" "tombow" "tombo" + "mentuke" "oneside" "twoside" "onecolumn" "twocolumn" + "titlepage" "notitlepage" "leqno" "fleqn" + "openbib" "disablejfam" "mathrmmc" "draft" "final") + "Class options for the jarticle class.") + +(TeX-add-style-hook + "jarticle" + (lambda () + (LaTeX-largest-level-set "section") + (LaTeX-add-counters "part" "section" "subsection" "subsubsection" "paragraph" + "subparagraph" "figure" "table") + (LaTeX-add-pagestyles "headings" "myheadings") + (LaTeX-add-environments "abstract")) + TeX-dialect) + +;;; jarticle.el ends here diff --git a/elpa/auctex-13.1.3/style/jarticle.elc b/elpa/auctex-13.1.3/style/jarticle.elc Binary files differnew file mode 100644 index 0000000..02a45c5 --- /dev/null +++ b/elpa/auctex-13.1.3/style/jarticle.elc diff --git a/elpa/auctex-13.1.3/style/jbook.el b/elpa/auctex-13.1.3/style/jbook.el new file mode 100644 index 0000000..b1e7daa --- /dev/null +++ b/elpa/auctex-13.1.3/style/jbook.el @@ -0,0 +1,25 @@ +;;; jbook.el - Special code for jbook class. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-jbook-class-options + '("a4paper" "a5paper" "b4paper" "b5paper" "a4j" "a5j" "b4j" "b5j" + "a4p" "b4p" "b5p" "10pt" "11pt" "12pt" "landscape" "tombow" "tombo" + "mentuke" "oneside" "twoside" "onecolumn" "twocolumn" + "titlepage" "notitlepage" "openright" "openany" "leqno" "fleqn" + "openbib" "disablejfam" "mathrmmc" "draft" "final") + "Class options for the jbook class.") + +(TeX-add-style-hook + "jbook" + (lambda () + (LaTeX-largest-level-set "part") + (LaTeX-add-counters "part" "chapter" "section" "subsection" "subsubsection" + "paragraph" "subparagraph" "figure" "table") + (LaTeX-add-pagestyles "headings" "myheadings")) + TeX-dialect) + +;;; jbook.el ends here diff --git a/elpa/auctex-13.1.3/style/jbook.elc b/elpa/auctex-13.1.3/style/jbook.elc Binary files differnew file mode 100644 index 0000000..81a7927 --- /dev/null +++ b/elpa/auctex-13.1.3/style/jbook.elc diff --git a/elpa/auctex-13.1.3/style/jreport.el b/elpa/auctex-13.1.3/style/jreport.el new file mode 100644 index 0000000..613f3ff --- /dev/null +++ b/elpa/auctex-13.1.3/style/jreport.el @@ -0,0 +1,26 @@ +;;; jreport.el - Special code for jreport class. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-jreport-class-options + '("a4paper" "a5paper" "b4paper" "b5paper" "a4j" "a5j" "b4j" "b5j" + "a4p" "b4p" "b5p" "10pt" "11pt" "12pt" "landscape" "tombow" "tombo" + "mentuke" "oneside" "twoside" "onecolumn" "twocolumn" + "titlepage" "notitlepage" "openright" "openany" "leqno" "fleqn" + "openbib" "disablejfam" "mathrmmc" "draft" "final") + "Class options for the jreport class.") + +(TeX-add-style-hook + "jreport" + (lambda () + (LaTeX-largest-level-set "chapter") + (LaTeX-add-counters "part" "chapter" "section" "subsection" "subsubsection" + "paragraph" "subparagraph" "figure" "table") + (LaTeX-add-pagestyles "headings" "myheadings") + (LaTeX-add-environments "abstract")) + TeX-dialect) + +;;; jreport.el ends here diff --git a/elpa/auctex-13.1.3/style/jreport.elc b/elpa/auctex-13.1.3/style/jreport.elc Binary files differnew file mode 100644 index 0000000..20ae161 --- /dev/null +++ b/elpa/auctex-13.1.3/style/jreport.elc diff --git a/elpa/auctex-13.1.3/style/jsarticle.el b/elpa/auctex-13.1.3/style/jsarticle.el new file mode 100644 index 0000000..519aa7e --- /dev/null +++ b/elpa/auctex-13.1.3/style/jsarticle.el @@ -0,0 +1,30 @@ +;;; jsarticle.el - Special code for jsarticle class. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-jsarticle-class-options + '("a3paper" "a4paper" "a5paper" "a6paper" "b4paper" "b5paper" "b6paper" + "a4j" "a5j" "b4j" "b5j" "a4var" "b5var" "letterpaper" "legalpaper" + "executivepaper" "landscape" "slide" + "8pt" "9pt" "10pt" "11pt" "12pt" "14pt" "17pt" "20pt" "21pt" "25pt" + "30pt" "36pt" "43pt" "12Q" "14Q" "usemag" "nomag" "nomag*" + "tombow" "tombo" "mentuke" "oneside" "twoside" "vartwoside" + "onecolumn" "twocolumn" "titlepage" "notitlepage" "leqno" "fleqn" + "disablejfam" "draft" "final" "mingoth" "wingoth" "jis" + "uplatex" "autodetect-engine" "papersize" "english" "jslogo" "nojslogo") + "Class options for the jsarticle class.") + +(TeX-add-style-hook + "jsarticle" + (lambda () + (LaTeX-largest-level-set "section") + (LaTeX-add-counters "part" "section" "subsection" "subsubsection" "paragraph" + "subparagraph" "figure" "table") + (LaTeX-add-pagestyles "headings" "myheadings") + (LaTeX-add-environments "abstract")) + TeX-dialect) + +;;; jsarticle.el ends here diff --git a/elpa/auctex-13.1.3/style/jsarticle.elc b/elpa/auctex-13.1.3/style/jsarticle.elc Binary files differnew file mode 100644 index 0000000..8663f8c --- /dev/null +++ b/elpa/auctex-13.1.3/style/jsarticle.elc diff --git a/elpa/auctex-13.1.3/style/jsbook.el b/elpa/auctex-13.1.3/style/jsbook.el new file mode 100644 index 0000000..161e81d --- /dev/null +++ b/elpa/auctex-13.1.3/style/jsbook.el @@ -0,0 +1,34 @@ +;;; jsbook.el - Special code for jsbook class. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-jsbook-class-options + '("a3paper" "a4paper" "a5paper" "a6paper" "b4paper" "b5paper" "b6paper" + "a4j" "a5j" "b4j" "b5j" "a4var" "b5var" "letterpaper" "legalpaper" + "executivepaper" "landscape" "report" + "8pt" "9pt" "10pt" "11pt" "12pt" "14pt" "17pt" "20pt" "21pt" "25pt" + "30pt" "36pt" "43pt" "12Q" "14Q" "usemag" "nomag" "nomag*" + "tombow" "tombo" "mentuke" "oneside" "twoside" "vartwoside" + "onecolumn" "twocolumn" "titlepage" "notitlepage" + "openright" "openleft" "openany" "leqno" "fleqn" + "disablejfam" "draft" "final" "mingoth" "wingoth" "jis" + "uplatex" "autodetect-engine" "papersize" "english" "jslogo" "nojslogo") + "Class options for the jsbook class.") + +(TeX-add-style-hook + "jsbook" + (lambda () + (if (LaTeX-provided-class-options-member "jsbook" "report") + (progn + (LaTeX-largest-level-set "chapter") + (LaTeX-add-environments "abstract")) + (LaTeX-largest-level-set "part")) + (LaTeX-add-counters "part" "chapter" "section" "subsection" "subsubsection" + "paragraph" "subparagraph" "figure" "table") + (LaTeX-add-pagestyles "headings" "myheadings")) + TeX-dialect) + +;;; jsbook.el ends here diff --git a/elpa/auctex-13.1.3/style/jsbook.elc b/elpa/auctex-13.1.3/style/jsbook.elc Binary files differnew file mode 100644 index 0000000..b08ba01 --- /dev/null +++ b/elpa/auctex-13.1.3/style/jsbook.elc diff --git a/elpa/auctex-13.1.3/style/jsreport.el b/elpa/auctex-13.1.3/style/jsreport.el new file mode 100644 index 0000000..1a71f1b --- /dev/null +++ b/elpa/auctex-13.1.3/style/jsreport.el @@ -0,0 +1,59 @@ +;;; jsreport.el - Special code for jsreport class. -*- lexical-binding: t; -*- + +;; Copyright (C) 2017, 2020 Free Software Foundation, Inc. + +;; Author: Ikumi Keita <ikumi@ikumi.que.jp> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-03-23 +;; 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: + +;; Please write me. + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-jsreport-class-options + '("a3paper" "a4paper" "a5paper" "a6paper" "b4paper" "b5paper" "b6paper" + "a4j" "a5j" "b4j" "b5j" "a4var" "b5var" "letterpaper" "legalpaper" + "executivepaper" "landscape" + "8pt" "9pt" "10pt" "11pt" "12pt" "14pt" "17pt" "20pt" "21pt" "25pt" + "30pt" "36pt" "43pt" "12Q" "14Q" "usemag" "nomag" "nomag*" + "tombow" "tombo" "mentuke" "oneside" "twoside" "vartwoside" + "onecolumn" "twocolumn" "titlepage" "notitlepage" + "openright" "openleft" "openany" "leqno" "fleqn" + "disablejfam" "draft" "final" "mingoth" "wingoth" "jis" + "uplatex" "autodetect-engine" "papersize" "english" "jslogo" "nojslogo") + "Class options for the jsreport class.") + +(TeX-add-style-hook + "jsreport" + (lambda () + (LaTeX-largest-level-set "chapter") + (LaTeX-add-counters "part" "chapter" "section" "subsection" "subsubsection" + "paragraph" "subparagraph" "figure" "table") + (LaTeX-add-pagestyles "headings" "myheadings") + (LaTeX-add-environments "abstract")) + TeX-dialect) + +;;; jsreport.el ends here diff --git a/elpa/auctex-13.1.3/style/jsreport.elc b/elpa/auctex-13.1.3/style/jsreport.elc Binary files differnew file mode 100644 index 0000000..30087bb --- /dev/null +++ b/elpa/auctex-13.1.3/style/jsreport.elc diff --git a/elpa/auctex-13.1.3/style/jura.el b/elpa/auctex-13.1.3/style/jura.el new file mode 100644 index 0000000..920db7f --- /dev/null +++ b/elpa/auctex-13.1.3/style/jura.el @@ -0,0 +1,42 @@ +;;; jura.el --- AUCTeX style for `jura.cls' -*- lexical-binding: t; -*- + +;; Copyright (C) 2004, 2020 Free Software Foundation, Inc. + +;; Author: Frank Küster <frank@kuesterei.ch> +;; Maintainer: auctex-devel@gnu.org +;; 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 `jura.cls'. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "jura" + (lambda () + (TeX-run-style-hooks "alphanum")) + TeX-dialect) + +;; Local Variables: +;; coding: utf-8 +;; End: diff --git a/elpa/auctex-13.1.3/style/jura.elc b/elpa/auctex-13.1.3/style/jura.elc Binary files differnew file mode 100644 index 0000000..25a50f0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/jura.elc diff --git a/elpa/auctex-13.1.3/style/jurabib.el b/elpa/auctex-13.1.3/style/jurabib.el new file mode 100644 index 0000000..68c02fc --- /dev/null +++ b/elpa/auctex-13.1.3/style/jurabib.el @@ -0,0 +1,644 @@ +;;; jurabib.el --- AUCTeX style for the `jurabib' package -*- lexical-binding: t; -*- + +;; Copyright (C) 2004-2021 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@iwi.uni-sb.de> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2004-10-05 +;; 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 the `jurabib' package. + +;; Currently only the citation-related commands are supported. Feel +;; free to complete the support and send the result to the AUCTeX +;; mailing list. But be aware that the code can only be included if +;; you assign the copyright to the FSF. + +;;; Code: + +(require 'tex) +(require 'tex-style) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar reftex-cite-format-builtin) + +(TeX-add-style-hook + "jurabib" + (lambda () + ;; Taken from natbib.el and adapted. + (let ((citecmds + '(("cite" . 2) ("cite*" . 2) + ("citetitle" . 2) ("fullcite" . 2) + ("citet" . 1) ("citealt" . 1) + ("citep" . 2) ("citealp" . 2) + ("citeauthor" . 2) ("citeyear" . 2) + ("footcite" . 2) ("footcite*" . 2) + ("footcitetitle" . 2) ("footfullcite" . 2) + ("footcitet" . 1) ("footcitealt" . 1) + ("footcitep" . 2) ("footcitealp" . 2) + ("footciteauthor" . 2) ("footciteyear" . 2)))) + ;; Add these symbols + (apply + #'TeX-add-symbols + (mapcar + (lambda (cmd) + (cond + ((= (cdr cmd) 0) + ;; No optional arguments + (list (car cmd) #'TeX-arg-cite)) + ((= (cdr cmd) 1) + ;; Just one optional argument, the post note + (list + (car cmd) + '(TeX-arg-conditional TeX-arg-cite-note-p (["Post-note"]) nil) + #'TeX-arg-cite)) + ((= (cdr cmd) 2) + ;; Pre and post notes + (list + (car cmd) + '(TeX-arg-conditional TeX-arg-cite-note-p (natbib-note-args) nil) + #'TeX-arg-cite)))) + citecmds)) + ;; Special cases + (TeX-add-symbols + ;; FIXME: Completing read for field. + '("citefield" ; \citefield[]{}{} + (TeX-arg-conditional TeX-arg-cite-note-p (["Post-note"]) nil) + "Field" TeX-arg-cite) + '("footcitefield" ; \footcitefield[]{}{} + (TeX-arg-conditional TeX-arg-cite-note-p (["Post-note"]) nil) + "Field" TeX-arg-cite)) + + ;; Make an entry in TeX-complete-list + (add-to-list + 'TeX-complete-list + (list + (concat "\\\\\\(" + (mapconcat (lambda (x) (regexp-quote (car x))) + (append citecmds + '(("citefield") ("footcitefield"))) "\\|") + "\\)\\(\\[[^]\n\r\\%]*\\]\\)*{\\([^{}\n\r\\%,]*,\\)*" + "\\([^{}\n\r\\%,]*\\)") + 4 'LaTeX-bibitem-list "}")) + + ;; Add further symbols + (TeX-add-symbols + '("citefullfirstfortype" 1) + '("citenotitlefortype" 1) + '("citeswithoutentry" 1) + '("citetitlefortype" 1) + '("citeworkwithtitle" 1) + '("nextcitefull" 1) + '("nextcitenotitle" 1) + '("nextcitereset" 1) + '("nextciteshort" 1) + '("jurabibsetup" 1)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("cite" "*[[{") + ("citetitle" "[[{") + ("fullcite" "[[{") + ("citet" "[{") + ("citealt" "[{") + ("citep" "[[{") + ("citealp" "[[{") + ("citeauthor" "[[{") + ("citeyear" "[[{") + ("footcite" "[[{") + ("footcite*" "[[{") + ("footcitetitle" "[[{") + ("footfullcite" "[[{") + ("footcitet" "[{") + ("footcitealt" "[{") + ("footcitep" "[[{") + ("footcitealp" "[[{") + ("footciteauthor" "[[{") + ("footciteyear" "[[{") + ("citefield" "[{{") + ("footcitefield" "[{{")) + 'reference) + (font-latex-add-keywords '(("citeswithoutentry" "{") + ("nextcitefull" "{") + ("nextcitenotitle" "{") + ("nextcitereset" "{") + ("nextciteshort" "{")) + 'function) + (font-latex-add-keywords '(("citenotitlefortype" "{") + ("citetitlefortype" "{") + ("jurabibsetup" "{")) + 'variable)) + + ;; Tell RefTeX (Thanks, Carsten) + (when (and LaTeX-reftex-cite-format-auto-activate + (fboundp 'reftex-set-cite-format)) + ;; Check if RefTeX supports jurabib. + (if (assoc 'jurabib reftex-cite-format-builtin) + ;; Yes, use the provided default. + (reftex-set-cite-format 'jurabib) + ;; No, set it by hand. + (reftex-set-cite-format + '((?\C-m . "\\cite{%l}") + (?c . "\\cite[?][]{%l}") + (?t . "\\citet{%l}") + (?p . "\\citep{%l}") + (?e . "\\citep[e.g.][?]{%l}") + (?s . "\\citep[see][?]{%l}") + (?u . "\\fullcite{%l}") + (?i . "\\citetitle{%l}") + (?a . "\\citeauthor{%l}") + (?e . "\\citefield{?}{%l}") + (?y . "\\citeyear{%l}") + (?f . "\\footcite{%l}") + (?F . "\\footcite[?][]{%l}") + (?l . "\\footfullcite{%l}")))))) + + ;; FIXME: The following list is the edited output of + ;; `TeX-auto-generate' which probably includes internal macros of + ;; jurabib. Unfortunately the macros which should be accessible to + ;; the user are not fully documented at the time of this writing. + ;; But instead of including only the limited part which is + ;; documented we rather give the user a bit too much. The list + ;; should be reduced when there is proper documentation, though. + (TeX-add-symbols + '("Wrapquotes" 1) + '("apyformat" 1) + '("artnumberformat" 1) + '("artvolnumformat" 2) + '("artvolumeformat" 1) + '("artyearformat" 1) + '("bibAnnote" 1) + '("bibAnnoteFile" 1) + '("bibAnnotePath" 1) + '("bibEIMfont" 1) + '("bibIMfont" 1) + '("bibYear" 1) + '("bibedformat" 1) + '("bibedinformat" 1) + '("bibenf" 5) + '("biblenf" 5) + '("bibnf" 5) + '("bibnumberformat" 1) + '("bibrenf" 5) + '("bibrlenf" 5) + '("bibrnf" 5) + '("biburlfont" 1) + '("edfont" 1) + '("formatarticlepages" ["argument"] 2) + '("fsted" 1) + '("fullnameoxfordcrossref" 1) + '("incolledformat" 5) + '("jbArchPages" 1) + '("jbPages" 1) + '("jbannoteformat" 1) + '("jbapifont" 1) + '("jbarchnameformat" 1) + '("jbarchsig" 2) + '("jbartPages" 1) + '("jbartcrossrefchecked" ["argument"] 1) + '("jbauthorindexfont" 1) + '("jbbibargs" 5) + '("jbbibyearformat" 1) + '("jbcitationoyearformat" 1) + '("jbcitationyearformat" 1) + '("jbcrossrefchecked" ["argument"] 1) + '("jbedafti" 1) + '("jbedbyincollcrossreflong" 1) + '("jbedbyincollcrossrefshort" 1) + '("jbedbyincollcrossrefshortnoapy" 1) + '("jbedbyincollcrossrefshortwithapy" 1) + '("jbedition" 1) + '("jbeditorindexfont" 1) + '("jbendnote" 1) + '("jbflanguage" 1) + '("jbincollcrossref" 2) + '("jbisbn" 1) + '("jbissn" 1) + '("jbnote" 2) + '("jborganizationindexfont" 1) + '("jbpagesformat" 1) + '("jbprformat" 1) + '("jbrealcitation" 2) + '("jbshortarchformat" 1) + '("jbshortsubarchformat" 1) + '("jbsy" 1) + '("jbtiafed" 1) + '("lookatfortype" 1) + '("nobibliography" 1) + '("nocitebuthowcited" 1) + '("numberandseries" 2) + '("pageadd" 1) + '("pernumberformat" 1) + '("pervolnumformat" 2) + '("pervolumeformat" 1) + '("peryearformat" 1) + '("revnumberformat" 1) + '("revvolnumformat" 2) + '("revvolumeformat" 1) + '("revyearformat" 1) + '("snded" 1) + '("textitswitch" 1) + '("translator" 3) + '("volumeformat" 1) + "Bibbfsasep" + "Bibbfsesep" + "Bibbstasep" + "Bibbstesep" + "Bibbtasep" + "Bibbtesep" + "Bibchaptername" + "Bibetal" + "Edbyname" + "IbidemMidName" + "IbidemName" + "NAT" + "OpCit" + "Reprint" + "SSS" + "Transfrom" + "Volumename" + "addtoalllanguages" + "afterfoundersep" + "aftervolsep" + "ajtsep" + "alsothesisname" + "aprname" + "augname" + "bibBTsep" + "bibJTsep" + "bibPageName" + "bibPagesName" + "bibaesep" + "bibaldelim" + "bibaltformatalign" + "bibandname" + "bibanfont" + "bibansep" + "bibapifont" + "bibapyldelim" + "bibapyrdelim" + "bibarchpagename" + "bibarchpagesname" + "bibardelim" + "bibartperiodhowcited" + "bibatsep" + "bibauthormultiple" + "bibbdsep" + "bibbfsasep" + "bibbfsesep" + "bibbstasep" + "bibbstesep" + "bibbtasep" + "bibbtesep" + "bibbtfont" + "bibbtsep" + "bibbudcsep" + "bibces" + "bibchapterlongname" + "bibchaptername" + "bibcite" + "bibcolumnsep" + "bibcommenthowcited" + "bibcontinuedname" + "bibcrossrefcite" + "bibcrossrefciteagain" + "bibeandname" + "bibedformat" + "bibefnfont" + "bibeimfont" + "bibelnfont" + "bibenf" + "bibfnfmt" + "bibfnfont" + "bibhowcited" + "bibibidfont" + "bibidemPfname" + "bibidemPmname" + "bibidemPnname" + "bibidemSfname" + "bibidemSmname" + "bibidemSnname" + "bibidempfname" + "bibidempmname" + "bibidempnname" + "bibidemsfname" + "bibidemsmname" + "bibidemsnname" + "bibimfont" + "bibincollcrossrefcite" + "bibincollcrossrefciteagain" + "bibjtfont" + "bibjtsep" + "bibleftcolumn" + "bibleftcolumnadjust" + "bibleftcolumnstretch" + "biblenf" + "biblnfmt" + "biblnfont" + "bibnf" + "bibnotcited" + "bibpagename" + "bibpagesname" + "bibpagesnamesep" + "bibpldelim" + "bibprdelim" + "bibrevtfont" + "bibrightcolumn" + "bibrightcolumnadjust" + "bibrightcolumnstretch" + "bibsall" + "bibsdanish" + "bibsdutch" + "bibsenglish" + "bibsfinnish" + "bibsfrench" + "bibsgerman" + "bibsitalian" + "bibsnfont" + "bibsnorsk" + "bibsportuguese" + "bibsspanish" + "bibtabularitemsep" + "bibtfont" + "bibtotalpagesname" + "biburlprefix" + "biburlsuffix" + "bibvolumecomment" + "bibvtfont" + "bothaesep" + "bpubaddr" + "byname" + "citetitleonly" + "citeyearpar" + "commaename" + "commaname" + "dateldelim" + "daterdelim" + "decname" + "diffpageibidemmidname" + "diffpageibidemname" + "edbyname" + "edbysep" + "editionname" + "editorname" + "editorsname" + "enoteformat" + "etalname" + "etalnamenodot" + "febname" + "fifthedname" + "firstedname" + "footcitetitleonly" + "formatpages" + "foundername" + "fourthedname" + "fromdutch" + "fromenglish" + "fromfinnish" + "fromfrench" + "fromgerman" + "fromitalian" + "fromnorsk" + "fromportuguese" + "fromspanish" + "herename" + "howcitedprefix" + "howcitedsuffix" + "ibidem" + "ibidemmidname" + "ibidemname" + "idemPfedbyname" + "idemPfname" + "idemPmedbyname" + "idemPmname" + "idemPnedbyname" + "idemPnname" + "idemSfedbyname" + "idemSfname" + "idemSmedbyname" + "idemSmname" + "idemSnedbyname" + "idemSnname" + "idemmidname" + "idemname" + "idempfedbyname" + "idempfname" + "idempmedbyname" + "idempmname" + "idempnedbyname" + "idempnname" + "idemsfedbyname" + "idemsfname" + "idemsmedbyname" + "idemsmname" + "idemsnedbyname" + "idemsnname" + "incollinname" + "inname" + "inseriesname" + "janname" + "jbCheckedFirst" + "jbFirst" + "jbFirstAbbrv" + "jbJunior" + "jbLast" + "jbNotRevedNoVonJr" + "jbNotRevedNoVonNoJr" + "jbNotRevedOnlyLast" + "jbNotRevedVonJr" + "jbNotRevedVonNoJr" + "jbPAGES" + "jbPageName" + "jbPages" + "jbPagesName" + "jbRevedFirstNoVonJr" + "jbRevedFirstNoVonNoJr" + "jbRevedFirstOnlyLast" + "jbRevedFirstVonJr" + "jbRevedFirstVonNoJr" + "jbRevedNotFirstNoVonJr" + "jbRevedNotFirstNoVonNoJr" + "jbRevedNotFirstOnlyLast" + "jbRevedNotFirstVonJr" + "jbRevedNotFirstVonNoJr" + "jbVon" + "jbactualauthorfnfont" + "jbactualauthorfont" + "jbaddtomakehowcited" + "jbaensep" + "jbafterstartpagesep" + "jbannotatorfont" + "jbapifont" + "jbarchnamesep" + "jbarchpagename" + "jbarchpagesname" + "jbartPages" + "jbatsep" + "jbauthorfnfont" + "jbauthorfont" + "jbauthorfontifannotator" + "jbauthorinfo" + "jbbeforestartpagesep" + "jbbfsasep" + "jbbfsesep" + "jbbookedaftertitle" + "jbbstasep" + "jbbstesep" + "jbbtasep" + "jbbtesep" + "jbbtfont" + "jbbtitlefont" + "jbcitationyearformat" + "jbcrossrefchecked" + "jbdisablecitationcrossref" + "jbdoitem" + "jbdonotindexauthors" + "jbdonotindexeditors" + "jbdonotindexorganizations" + "jbdotafterbibentry" + "jbdotafterendnote" + "jbdy" + "jbedbyincollcrossrefcite" + "jbedbyincollcrossrefciteagain" + "jbedition" + "jbedseplikecite" + "jbeimfont" + "jbfirstcitepageranges" + "jbfootnoteformat" + "jbfootnotenumalign" + "jbfulltitlefont" + "jbhowcitedcomparepart" + "jbhowcitednormalpart" + "jbhowsepannotatorfirst" + "jbhowsepannotatorlast" + "jbhowsepbeforetitle" + "jbhowsepbeforetitleae" + "jbhowsepbeforetitleibidemname" + "jbignorevarioref" + "jbimfont" + "jbindexbib" + "jbindexonlyfirstauthors" + "jbindexonlyfirsteditors" + "jbindexonlyfirstorganizations" + "jbindextype" + "jblookforgender" + "jbmakeinbib" + "jbmakeinbiblist" + "jbmakeindexactual" + "jbnotsamearch" + "jbonlyforbib" + "jbonlyforcitations" + "jbonlyforfirstcitefullbegin" + "jbonlyforfirstcitefullend" + "jborgauthorfont" + "jboyearincitation" + "jbpagename" + "jbpagenamenodot" + "jbpages" + "jbpagesep" + "jbpagesname" + "jbpagesnamesep" + "jbsamearch" + "jbsamesubarch" + "jbsamesubarchindent" + "jbshorttitlefont" + "jbshowbibextralabel" + "jbssedbd" + "jbsubarchsep" + "jbsuperscripteditionafterauthor" + "jbtitlefont" + "jbts" + "jburldef" + "jbuseidemhrule" + "jbyear" + "jbyearaftertitle" + "julname" + "junname" + "jurthesisname" + "marname" + "mastersthesisname" + "mayname" + "nofirstnameforcitation" + "noibidem" + "noidem" + "nopage" + "novname" + "numbername" + "octname" + "ofseriesname" + "opcit" + "organizationname" + "origPAGES" + "origartPages" + "origbibces" + "origcrossref" + "origpages" + "osep" + "phdthesisname" + "reprint" + "reprintname" + "reviewbyname" + "reviewname" + "reviewofname" + "samepageibidemmidname" + "samepageibidemname" + "secondedname" + "sepname" + "sndecmd" + "snded" + "sndeditorname" + "sndeditorsname" + "technicalreportname" + "testnosig" + "textandname" + "texteandname" + "theHlvla" + "theHlvlb" + "theHlvlc" + "theHlvld" + "theHlvle" + "theHlvlf" + "theHlvlg" + "theHlvlh" + "theHlvli" + "theHlvlj" + "theHlvlk" + "theHlvll" + "thedname" + "thirdedname" + "trans" + "transby" + "transfrom" + "updatename" + "updatesep" + "urldatecomment" + "volname" + "volumename" + "volumeofname")) + TeX-dialect) + +;;; jurabib.el ends here diff --git a/elpa/auctex-13.1.3/style/jurabib.elc b/elpa/auctex-13.1.3/style/jurabib.elc Binary files differnew file mode 100644 index 0000000..23f640e --- /dev/null +++ b/elpa/auctex-13.1.3/style/jurabib.elc diff --git a/elpa/auctex-13.1.3/style/kantlipsum.el b/elpa/auctex-13.1.3/style/kantlipsum.el new file mode 100644 index 0000000..ce33062 --- /dev/null +++ b/elpa/auctex-13.1.3/style/kantlipsum.el @@ -0,0 +1,48 @@ +;;; kantlipsum.el --- AUCTeX style for `kantlipsum.sty'. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <giordano.mose@libero.it> +;; 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 `kantlipsum.sty'. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "kantlipsum" + (lambda () + (TeX-add-symbols + '("kant" [ "Range of paragraph (max: 164)" ]) + '("kant*" [ "Range of paragraph (max: 164)" ]) + '("kantdef" TeX-arg-define-macro "Paragraph number")) + (TeX-run-style-hooks "xparse")) + TeX-dialect) + +(defvar LaTeX-kantlipsum-package-options + '("par" "nopar" "numbers" "index") + "Package options for the kantlipsum package.") + +;; kantlipsum.el ends here diff --git a/elpa/auctex-13.1.3/style/kantlipsum.elc b/elpa/auctex-13.1.3/style/kantlipsum.elc Binary files differnew file mode 100644 index 0000000..38b182c --- /dev/null +++ b/elpa/auctex-13.1.3/style/kantlipsum.elc diff --git a/elpa/auctex-13.1.3/style/kpfonts.el b/elpa/auctex-13.1.3/style/kpfonts.el new file mode 100644 index 0000000..d55142f --- /dev/null +++ b/elpa/auctex-13.1.3/style/kpfonts.el @@ -0,0 +1,611 @@ +;;; kpfonts.el --- AUCTeX style for `kpfonts.sty' version 3.31. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013-2021 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <mose@gnu.org> +;; 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 `kpfonts.sty' version 3.31. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +;; These are generated by the minor mode or easy menu: +(defvar LaTeX-kpfonts-mode-map) +(defvar LaTeX-kpfonts-mode-menu) + +;;; Kpfonts Minor Mode (heavily based on LaTeX Math Minor Mode code) + +(defconst LaTeX-kpfonts-default + '(;; Other Greek Lowercase + ("o a" "otheralpha" "Other Greek Lowercase" 945) ;; #X03B1 + ("o b" "otherbeta" "Other Greek Lowercase" 946) ;; #X03B2 + ("o g" "othergamma" "Other Greek Lowercase" 947) ;; #X03B3 + ("o d" "otherdelta" "Other Greek Lowercase" 948) ;; #X03B4 + ("o e" "otherepsilon" "Other Greek Lowercase" 1013) ;; #X03F5 + ("o z" "otherzeta" "Other Greek Lowercase" 950) ;; #X03B6 + ("o h" "othereta" "Other Greek Lowercase" 951) ;; #X03B7 + ("o j" "othertheta" "Other Greek Lowercase" 952) ;; #X03B8 + (nil "otheriota" "Other Greek Lowercase" 953) ;; #X03B9 + ("o k" "otherkappa" "Other Greek Lowercase" 954) ;; #X03BA + ("o l" "otherlambda" "Other Greek Lowercase" 955) ;; #X03BB + ("o m" "othermu" "Other Greek Lowercase" 956) ;; #X03BC + ("o n" "othernu" "Other Greek Lowercase" 957) ;; #X03BD + ("o x" "otherxi" "Other Greek Lowercase" 958) ;; #X03BE + ("o p" "otherpi" "Other Greek Lowercase" 960) ;; #X03C0 + ("o r" "otherrho" "Other Greek Lowercase" 961) ;; #X03C1 + ("o s" "othersigma" "Other Greek Lowercase" 963) ;; #X03C3 + ("o t" "othertau" "Other Greek Lowercase" 964) ;; #X03C4 + ("o u" "otherupsilon" "Other Greek Lowercase" 965) ;; #X03C5 + ("o f" "otherphi" "Other Greek Lowercase" 981) ;; #X03D5 + ("o q" "otherchi" "Other Greek Lowercase" 967) ;; #X03C7 + ("o y" "otherpsi" "Other Greek Lowercase" 968) ;; #X03C8 + ("o w" "otheromega" "Other Greek Lowercase" 969) ;; #X03C9 + ("o v e" "othervarepsilon" "Other Greek Lowercase" 949) ;; #X03B5 + ("o v j" "othervartheta" "Other Greek Lowercase" 977) ;; #X03D1 + ("o v p" "othervarpi" "Other Greek Lowercase" 982) ;; #X03D6 + ("o v r" "othervarrho" "Other Greek Lowercase" 1009) ;; #X03F1 + ("o v s" "othervarsigma" "Other Greek Lowercase" 962) ;; #X03C2 + ("o v f" "othervarphi" "Other Greek Lowercase" 966) ;; #X03C6 + ;; Slanted Greek Lowercase + (nil "alphasl" "Slanted Greek Lowercase" 120572) ;; #X1D6FC + (nil "betasl" "Slanted Greek Lowercase" 120573) ;; #X1D6FD + (nil "gammasl" "Slanted Greek Lowercase" 120574) ;; #X1D6FE + (nil "deltasl" "Slanted Greek Lowercase" 120575) ;; #X1D6FF + (nil "epsilonsl" "Slanted Greek Lowercase" 120598) ;; #X1D716 + (nil "zetasl" "Slanted Greek Lowercase" 120577) ;; #X1D701 + (nil "etasl" "Slanted Greek Lowercase" 120578) ;; #X1D702 + (nil "thetasl" "Slanted Greek Lowercase" 120579) ;; #X1D703 + (nil "iotasl" "Slanted Greek Lowercase" 120580) ;; #X1D704 + (nil "kappasl" "Slanted Greek Lowercase" 120581) ;; #X1D705 + (nil "lambdasl" "Slanted Greek Lowercase" 120582) ;; #X1D706 + (nil "musl" "Slanted Greek Lowercase" 120583) ;; #X1D707 + (nil "nusl" "Slanted Greek Lowercase" 120584) ;; #X1D708 + (nil "xisl" "Slanted Greek Lowercase" 120585) ;; #X1D709 + (nil "pisl" "Slanted Greek Lowercase" 120587) ;; #X1D70B + (nil "rhosl" "Slanted Greek Lowercase" 120588) ;; #X1D70C + (nil "sigmasl" "Slanted Greek Lowercase" 120590) ;; #X1D70E + (nil "tausl" "Slanted Greek Lowercase" 120591) ;; #X1D70F + (nil "upsilonsl" "Slanted Greek Lowercase" 120592) ;; #X1D710 + (nil "phisl" "Slanted Greek Lowercase" 120601) ;; #X1D719 + (nil "chisl" "Slanted Greek Lowercase" 120594) ;; #X1D712 + (nil "psisl" "Slanted Greek Lowercase" 120595) ;; #X1D713 + (nil "omegasl" "Slanted Greek Lowercase" 120596) ;; #X1D714 + (nil "varepsilonsl" "Slanted Greek Lowercase" 120576) ;; #X1D700 + (nil "varthetasl" "Slanted Greek Lowercase" 120599) ;; #X1D717 + (nil "varpisl" "Slanted Greek Lowercase" 120603) ;; #X1D71B + (nil "varrhosl" "Slanted Greek Lowercase" 120602) ;; #X1D71A + (nil "varsigmasl" "Slanted Greek Lowercase" 120589) ;; #X1D70D + (nil "varphisl" "Slanted Greek Lowercase" 120593) ;; #X1D711 + ;; Upright Greek Lowercase + (nil "alphaup" "Upright Greek Lowercase" 945) ;; #X03B1 + (nil "betaup" "Upright Greek Lowercase" 946) ;; #X03B2 + (nil "gammaup" "Upright Greek Lowercase" 947) ;; #X03B3 + (nil "deltaup" "Upright Greek Lowercase" 948) ;; #X03B4 + (nil "epsilonup" "Upright Greek Lowercase" 1013) ;; #X03F5 + (nil "zetaup" "Upright Greek Lowercase" 950) ;; #X03B6 + (nil "etaup" "Upright Greek Lowercase" 951) ;; #X03B7 + (nil "thetaup" "Upright Greek Lowercase" 952) ;; #X03B8 + (nil "iotaup" "Upright Greek Lowercase" 953) ;; #X03B9 + (nil "kappaup" "Upright Greek Lowercase" 954) ;; #X03BA + (nil "lambdaup" "Upright Greek Lowercase" 955) ;; #X03BB + (nil "muup" "Upright Greek Lowercase" 956) ;; #X03BC + (nil "nuup" "Upright Greek Lowercase" 957) ;; #X03BD + (nil "xiup" "Upright Greek Lowercase" 958) ;; #X03BE + (nil "piup" "Upright Greek Lowercase" 960) ;; #X03C0 + (nil "rhoup" "Upright Greek Lowercase" 961) ;; #X03C1 + (nil "sigmaup" "Upright Greek Lowercase" 963) ;; #X03C3 + (nil "tauup" "Upright Greek Lowercase" 964) ;; #X03C4 + (nil "upsilonup" "Upright Greek Lowercase" 965) ;; #X03C5 + (nil "phiup" "Upright Greek Lowercase" 981) ;; #X03D5 + (nil "chiup" "Upright Greek Lowercase" 967) ;; #X03C7 + (nil "psiup" "Upright Greek Lowercase" 968) ;; #X03C8 + (nil "omegaup" "Upright Greek Lowercase" 969) ;; #X03C9 + (nil "varepsilonup" "Upright Greek Lowercase" 949) ;; #X03B5 + (nil "varthetaup" "Upright Greek Lowercase" 977) ;; #X03D1 + (nil "varpiup" "Upright Greek Lowercase" 982) ;; #X03D6 + (nil "varrhoup" "Upright Greek Lowercase" 1009) ;; #X03F1 + (nil "varsigmaup" "Upright Greek Lowercase" 962) ;; #X03C2 + (nil "varphiup" "Upright Greek Lowercase" 966) ;; #X03C6 + ;; Other Greek Uppercase + ("o G" "otherGamma" "Other Greek Uppercase" 120548) ;; #X1D6E4 + ("o D" "otherDelta" "Other Greek Uppercase" 120549) ;; #X1D6E5 + ("o J" "otherTheta" "Other Greek Uppercase" 120553) ;; #X1D6E9 + ("o L" "otherLambda" "Other Greek Uppercase" 120556) ;; #X1D6EC + ("o X" "otherXi" "Other Greek Uppercase" 120559) ;; #X1D6EF + ("o P" "otherPi" "Other Greek Uppercase" 120561) ;; #X1D6F1 + ("o S" "otherSigma" "Other Greek Uppercase" 120564) ;; #X1D6F4 + ("o U" "otherUpsilon" "Other Greek Uppercase" 120566) ;; #X1D6F6 + ("o F" "otherPhi" "Other Greek Uppercase" 120567) ;; #X1D6F7 + ("o Y" "otherPsi" "Other Greek Uppercase" 120569) ;; #X1D6F9 + ("o W" "otherOmega" "Other Greek Uppercase" 120570) ;; #X1D6FA + ;; Slanted Greek Uppercase + (nil "Gammasl" "Slanted Greek Uppercase" 120548) ;; #X1D6E4 + (nil "Deltasl" "Slanted Greek Uppercase" 120549) ;; #X1D6E5 + (nil "Thetasl" "Slanted Greek Uppercase" 120553) ;; #X1D6E9 + (nil "Lambdasl" "Slanted Greek Uppercase" 120556) ;; #X1D6EC + (nil "Xisl" "Slanted Greek Uppercase" 120559) ;; #X1D6EF + (nil "Pisl" "Slanted Greek Uppercase" 120561) ;; #X1D6F1 + (nil "Sigmasl" "Slanted Greek Uppercase" 120564) ;; #X1D6F4 + (nil "Upsilonsl" "Slanted Greek Uppercase" 120566) ;; #X1D6F6 + (nil "Phisl" "Slanted Greek Uppercase" 120567) ;; #X1D6F7 + (nil "Psisl" "Slanted Greek Uppercase" 120569) ;; #X1D6F9 + (nil "Omegasl" "Slanted Greek Uppercase" 120570) ;; #X1D6FA + ;; Upright Greek Uppercase + (nil "Gammaup" "Upright Greek Uppercase" 915) ;; #X0393 + (nil "Deltaup" "Upright Greek Uppercase" 916) ;; #X0394 + (nil "Thetaup" "Upright Greek Uppercase" 920) ;; #X0398 + (nil "Lambdaup" "Upright Greek Uppercase" 923) ;; #X039B + (nil "Xiup" "Upright Greek Uppercase" 926) ;; #X039E + (nil "Piup" "Upright Greek Uppercase" 928) ;; #X03A0 + (nil "Sigmaup" "Upright Greek Uppercase" 931) ;; #X03A3 + (nil "Upsilonup" "Upright Greek Uppercase" 978) ;; #X03D2 + (nil "Phiup" "Upright Greek Uppercase" 934) ;; #X03A6 + (nil "Psiup" "Upright Greek Uppercase" 936) ;; #X03A8 + (nil "Omegaup" "Upright Greek Uppercase" 937) ;; #X03A9 + ;; Integrals + (nil "varint" "Integrals" nil) + (nil "variint" "Integrals" nil) + (nil "variiint" "Integrals" nil) + (nil "variiiint" "Integrals" nil) + (nil "varidotsint" "Integrals" nil) + (nil "oiint" "Integrals" 8751) ;; #X222F + (nil "ointctrclockwise" "Integrals" 8755) ;; #X2233 + (nil "ointclockwise" "Integrals" nil) + (nil "sqint" "Integrals" 10774) ;; #X2A16 + (nil "idotsint" "Integrals" nil) + (nil "oiiint" "Integrals" 8752) ;; #X2230 + (nil "varointctrclockwise" "Integrals" nil) + (nil "varointclockwise" "Integrals" 8754) ;; #X2232 + (nil "fint" "Integrals" 10767) ;; #X2A0F + (nil "oiintctrclockwise" "Integrals" nil) + (nil "varoiintclockwise" "Integrals" nil) + (nil "oiiintctrclockwise" "Integrals" nil) + (nil "varoiiintclockwise" "Integrals" nil) + (nil "oiintclockwise" "Integrals" nil) + (nil "varoiintctrclockwise" "Integrals" nil) + (nil "oiiintclockwise" "Integrals" nil) + (nil "varoiiintctrclockwise" "Integrals" nil) + (nil "sqiint" "Integrals" nil) + (nil "sqiiint" "Integrals" nil) + ;; Mapping + (nil "mappedfrom" "Mapping" 8612) ;; #X21A4 + (nil "longmappedfrom" "Mapping" 10235) ;; #X27FB + (nil "Mapsto" "Mapping" 10503) ;; #X2907 + (nil "Longmapsto" "Mapping" 10238) ;; #X27FE + (nil "Mappedfrom" "Mapping" 10502) ;; #X2906 + (nil "Longmappedfrom" "Mapping" 10237) ;; #X27FD + (nil "mmapsto" "Mapping" nil) + (nil "longmmapsto" "Mapping" nil) + (nil "mmappedfrom" "Mapping" nil) + (nil "longmmappedfrom" "Mapping" nil) + (nil "Mmapsto" "Mapping" nil) + (nil "Longmmapsto" "Mapping" nil) + (nil "Mmappedfrom" "Mapping" nil) + (nil "Longmmappedfrom" "Mapping" nil) + ;; Arrows + (nil "dashleftarrow" "Arrows" 10510) ;; #X290E + (nil "dashrightarrow" "Arrows" 10511) ;; #X290F + (nil "dashleftrightarrow" "Arrows" nil) + (nil "leftsquigarrow" "Arrows" 8668) ;; #X21DC + (nil "Nearrow" "Arrows" 8663) ;; #X21D7 + (nil "Searrow" "Arrows" 8664) ;; #X21D8 + (nil "Nwarrow" "Arrows" 8662) ;; #X21D6 + (nil "Swarrow" "Arrows" 8665) ;; #X21D9 + (nil "leadstoext" "Arrows" 12316) ;; #X301C + (nil "leadsto" "Arrows" 10547) ;; #X2933 + (nil "boxright" "Arrows" nil) + (nil "Diamondright" "Arrows" nil) + (nil "circleright" "Arrows" nil) + (nil "boxleft" "Arrows" nil) + (nil "Diamondleft" "Arrows" nil) + (nil "circleleft" "Arrows" nil) + (nil "boxdotright" "Arrows" nil) + (nil "Diamonddotright" "Arrows" nil) + (nil "circledotright" "Arrows" nil) + (nil "boxdotleft" "Arrows" nil) + (nil "Diamonddotleft" "Arrows" nil) + (nil "circledotleft" "Arrows" nil) + (nil "boxRight" "Arrows" nil) + (nil "boxLeft" "Arrows" nil) + (nil "boxdotRight" "Arrows" nil) + (nil "boxdotLeft" "Arrows" nil) + (nil "DiamondRight" "Arrows" nil) + (nil "DiamondLeft" "Arrows" nil) + (nil "DiamonddotRight" "Arrows" nil) + (nil "DiamonddotLeft" "Arrows" nil) + ;; Neg Arrows + (nil "ntwoheadrightarrow" "Neg Arrows" 10496) ;; #X2900 + (nil "ntwoheadleftarrow" "Neg Arrows" 11060) ;; #X2B34 + ;; Binary Op + (nil "multimap" "Binary Op" 8888) ;; #X22B8 + (nil "multimapinv" "Binary Op" 10204) ;; #X27DC + (nil "multimapboth" "Binary Op" 10719) ;; #X29DF + (nil "multimapdot" "Binary Op" nil) + (nil "multimapdotinv" "Binary Op" nil) + (nil "multimapdotboth" "Binary Op" nil) + (nil "multimapdotbothA" "Binary Op" 8886) ;; #X22B6 + (nil "multimapdotbothB" "Binary Op" 8887) ;; #X22B7 + (nil "multimapbothvert" "Binary Op" nil) + (nil "multimapdotbothvert" "Binary Op" nil) + (nil "multimapdotbothAvert" "Binary Op" nil) + (nil "multimapdotbothBvert" "Binary Op" nil) + (nil "Wr" "Binary Op" nil) + (nil "sqcupplus" "Binary Op" nil) + (nil "sqcapplus" "Binary Op" nil) + (nil "medcirc" "Binary Op" 9898) ;; #X26AA + (nil "medbullet" "Binary Op" 9899) ;; #X26AB + (nil "invamp" "Binary Op" 8523) ;; #X214B + (nil "Diamonddot" "Binary Op" 10192) ;; #X27D0 + (nil "Diamond" "Binary Op" 9671) ;; #X25C7 + (nil "Diamondblack" "Binary Op" 9670) ;; #X25C6 + (nil "strictif" "Binary Op" 8880) ;; #X22B0 + (nil "strictfi" "Binary Op" 8881) ;; #X22B1 + (nil "strictiff" "Binary Op" nil) + (nil "circledless" "Binary Op" 10688) ;; #X29C0 + (nil "circledgtr" "Binary Op" 10689) ;; #X29C1 + (nil "circledwedge" "Binary Op" nil) + (nil "circledvee" "Binary Op" nil) + (nil "circledbar" "Binary Op" 10678) ;; #X29B6 + (nil "circledbslash" "Binary Op" 10680) ;; #X29B8 + (nil "bignplus" "Binary Op" nil) + (nil "bigsqcupplus" "Binary Op" nil) + (nil "bigsqcapplus" "Binary Op" nil) + (nil "bigsqcap" "Binary Op" 10757) ;; #X2A05 + (nil "varprod" "Binary Op" 10761) ;; #X2A09 + ;; Relational + (nil "doteq" "Relational" 8784) ;; #X2250 + (nil "VDash" "Relational" 8875) ;; #X22AB + (nil "VvDash" "Relational" nil) + (nil "cong" "Relational" 8773) ;; #X2245 + (nil "preceqq" "Relational" 10931) ;; #X2AB3 + (nil "succeqq" "Relational" 10932) ;; #X2AB4 + (nil "coloneqq" "Relational" nil) + (nil "varparallel" "Relational" 11005) ;; #X2AFD + (nil "nvarparallel" "Relational" nil) + (nil "varparallelinv" "Relational" nil) + (nil "nvarparallelinv" "Relational" nil) + (nil "colonapprox" "Relational" nil) + (nil "colonsim" "Relational" nil) + (nil "Colonapprox" "Relational" nil) + (nil "Colonsim" "Relational" nil) + (nil "eqqcolon" "Relational" 8789) ;; #X2255 + (nil "coloneq" "Relational" nil) + (nil "eqcolon" "Relational" 8761) ;; #X2239 + (nil "Coloneqq" "Relational" 10868) ;; #X2A74 + (nil "Eqqcolon" "Relational" nil) + ;; Neg Rel + (nil "nprecsim" "Neg Rel" nil) + (nil "nsuccsim" "Neg Rel" nil) + (nil "nlesssim" "Neg Rel" 8820) ;; #X2274 + (nil "ngtrsim" "Neg Rel" 8821) ;; #X2275 + (nil "nlessapprox" "Neg Rel" nil) + (nil "ngtrapprox" "Neg Rel" nil) + (nil "npreccurlyeq" "Neg Rel" 8928) ;; #X22E0 + (nil "nsucccurlyeq" "Neg Rel" 8929) ;; #X22E1 + (nil "ngtrless" "Neg Rel" 8825) ;; #X2279 + (nil "nlessgtr" "Neg Rel" 8824) ;; #X2278 + (nil "nbumpeq" "Neg Rel" nil) + (nil "nBumpeq" "Neg Rel" nil) + (nil "nbacksim" "Neg Rel" nil) + (nil "nbacksimeq" "Neg Rel" nil) + (nil "nasymp" "Neg Rel" 8813) ;; #X226D + (nil "nequiv" "Neg Rel" 8802) ;; #X2262 + (nil "nsim" "Neg Rel" 8769) ;; #X2241 + (nil "napprox" "Neg Rel" 8777) ;; #X2249 + (nil "nsubset" "Neg Rel" 8836) ;; #X2284 + (nil "nsupset" "Neg Rel" 8837) ;; #X2285 + (nil "nll" "Neg Rel" nil) + (nil "ngg" "Neg Rel" nil) + (nil "nthickapprox" "Neg Rel" 8777) ;; #X2249 + (nil "napproxeq" "Neg Rel" nil) + (nil "nprecapprox" "Neg Rel" nil) + (nil "nsuccapprox" "Neg Rel" nil) + (nil "npreceqq" "Neg Rel" nil) + (nil "nsucceqq" "Neg Rel" nil) + (nil "nsimeq" "Neg Rel" 8772) ;; #X2244 + (nil "notin" "Neg Rel" 8713) ;; #X2209 + (nil "notni" "Neg Rel" 8716) ;; #X220C + (nil "nSubset" "Neg Rel" nil) + (nil "nSupset" "Neg Rel" nil) + (nil "nsqsubseteq" "Neg Rel" 8930) ;; #X22E2 + (nil "nsqsupseteq" "Neg Rel" 8931) ;; #X22E3 + (nil "nsqsubset" "Neg Rel" nil) + (nil "nsqsupset" "Neg Rel" nil) + ;; Delimeters + (nil "Lbag" "Delimeters" 10181) ;; #X27C5 + (nil "Rbag" "Delimeters" 10182) ;; #X27C6 + (nil "llbracket" "Delimeters" 10214) ;; #X27E6 + (nil "rrbracket" "Delimeters" 10215) ;; #X27E7 + ;; Accents + (nil "widearc" "Accents" 8978) ;; #X2312 + (nil "widearcarrow" "Accents" 8405) ;; #X20D5 + (nil "wideOarc" "Accents" 8405) ;; #X20D5 + (nil "wideparen" "Accents" 9180) ;; #X23DC + (nil "widering" "Accents" nil) + ;; Misc + ("v 0" "varemptyset" "Misc" 8709) ;; #X2205 + (nil "lJoin" "Misc" 8905) ;; #X22C9 + (nil "rJoin" "Misc" 8906) ;; #X22CA + (nil "Join" "Misc" 8904) ;; #X22C8 + (nil "openJoin" "Misc" nil) + (nil "lrtimes" "Misc" nil) + (nil "opentimes" "Misc" nil) + (nil "nplus" "Misc" nil) + (nil "Top" "Misc" 10986) ;; #X2AEA + (nil "Bot" "Misc" 10987) ;; #X2AEB + (nil "Perp" "Misc" 10987) ;; #X2AEB + (nil "boxast" "Misc" nil) + (nil "boxbslash" "Misc" nil) + (nil "boxbar" "Misc" nil) + (nil "boxslash" "Misc" nil) + (nil "lambdaslash" "Misc" 411) ;; #X019B + (nil "lambdabar" "Misc" 411) ;; #X019B + (nil "varclubsuit" "Misc" 9831) ;; #X2667 + (nil "vardiamondsuit" "Misc" 9830) ;; #X2666 + (nil "varheartsuit" "Misc" 9829) ;; #X2665 + (nil "varspadesuit" "Misc" 9828)) ;; #X2664 + "Alist of kpfonts symbols. + +Each entry should be a list with upto four elements, KEY, VALUE, +MENU and CHARACTER. + +KEY is the key (after `LaTeX-kpfonts-abbrev-prefix') to be +redefined in kpfonts minor mode. KEY can be a character (for +example ?o) for a single stroke or a string (for example \"o a\") +for a multi-stroke binding. If KEY is nil, the symbol has no +associated keystroke (it is available in the menu, though). + +VALUE can be a string with the name of the macro to be inserted, +or a function to be called. The macro must be given without the +leading backslash. + +The third element MENU is the name of the submenu where the +command should be added. MENU can be either a string (for +example \"greek\"), a list (for example (\"AMS\" \"Delimiters\")) +or nil. If MENU is nil, no menu item will be created. + +The fourth element CHARACTER is a Unicode character position for +menu display. When nil, no character is shown. + +See also `LaTeX-kpfonts-menu'.") + +(defvar LaTeX-kpfonts-abbrev-prefix LaTeX-math-abbrev-prefix + "Prefix key for use in `LaTeX-kpfonts-mode'. +This has to be a string representing a key sequence in a format +understood by the `kbd' macro. This corresponds to the syntax +usually used in the Emacs and Elisp manuals.") + +(defun LaTeX-kpfonts-abbrev-prefix () + "Make a key definition from the variable `LaTeX-kpfonts-abbrev-prefix'." + (if (stringp LaTeX-kpfonts-abbrev-prefix) + (read-kbd-macro LaTeX-kpfonts-abbrev-prefix) + LaTeX-kpfonts-abbrev-prefix)) + +(defvar LaTeX-kpfonts-keymap (make-sparse-keymap) + "Keymap used for `LaTeX-kpfonts-mode' commands.") + +(defvar LaTeX-kpfonts-menu nil + "Menu containing commands provided by kpfonts LaTeX package. +The menu entries will be generated dynamically, but you can specify +the sequence by initializing this variable.") + +;; We set `LaTeX-kpfonts-menu' after its definition because otherwise, resetting +;; AUCTeX with `C-u C-c C-n' would create duplicate entries in menu. +(setq LaTeX-kpfonts-menu + '("Kpfonts" + ("Insert Font" + ["Math Upright" (TeX-font nil ?\C-h) :keys "C-c C-f C-h"] + ["Math Fraktur" (TeX-font nil ?\C-k) :keys "C-c C-f C-k"] + ["Math Script" (TeX-font nil ?\C-p) :keys "C-c C-f C-p"] + ["Slanted Small Caps" (TeX-font nil ?\C-l) :keys "C-c C-f C-l"] + ["Other Small Caps" (TeX-font nil ?\C-o) :keys "C-c C-f C-o"] + ["Other Slanted Small Caps" (TeX-font nil ?\C-q) :keys "C-c C-f C-q"]) + ("Replace Font" + ["Math Upright" (TeX-font t ?\C-h) :keys "C-u C-c C-f C-h"] + ["Math Fraktur" (TeX-font t ?\C-k) :keys "C-u C-c C-f C-k"] + ["Math Script" (TeX-font t ?\C-p) :keys "C-u C-c C-f C-p"] + ["Slanted Small Caps" (TeX-font t ?\C-l) :keys "C-u C-c C-f C-l"] + ["Other Small Caps" (TeX-font t ?\C-o) :keys "C-u C-c C-f C-o"] + ["Other Slanted Small Caps" (TeX-font t ?\C-q) :keys "C-u C-c C-f C-q"]) + ["Delete Font" (TeX-font t ?\C-d) :keys "C-c C-f C-d"] + "-" + ("Other Greek Lowercase") ("Slanted Greek Lowercase") + ("Upright Greek Lowercase") ("Other Greek Uppercase") + ("Slanted Greek Uppercase") ("Upright Greek Uppercase") ("Integrals") + ("Mapping") ("Arrows") ("Neg Arrows") ("Binary Op") ("Relational") + ("Neg Rel") ("Delimeters") ("Accents") ("Misc"))) + +(let ((math (reverse LaTeX-kpfonts-default)) + (map LaTeX-kpfonts-keymap) + (unicode LaTeX-math-menu-unicode)) + (while math + (let* ((entry (car math)) + (key (nth 0 entry)) + (prefix + (and unicode + (nth 3 entry))) + value menu name) + (setq math (cdr math)) + (setq prefix (if (and prefix + (setq prefix (nth 3 entry))) + (concat (string prefix) " \\") + "\\")) + (if (listp (cdr entry)) + (setq value (nth 1 entry) + menu (nth 2 entry)) + (setq value (cdr entry) + menu nil)) + (if (stringp value) + (progn + (setq name (intern (concat "LaTeX-kpfonts-" value))) + (fset name (lambda (arg) (interactive "*P") + (LaTeX-math-insert value arg)))) + (setq name value)) + (if key + (progn + (setq key (cond ((numberp key) (char-to-string key)) + ((stringp key) (read-kbd-macro key)) + (t (vector key)))) + (define-key map key name))) + (if menu + (let ((parent LaTeX-kpfonts-menu)) + (if (listp menu) + (progn + (while (cdr menu) + (let ((sub (assoc (car menu) LaTeX-kpfonts-menu))) + (if sub + (setq parent sub) + (setcdr parent (cons (list (car menu)) (cdr parent)))) + (setq menu (cdr menu)))) + (setq menu (car menu)))) + (let ((sub (assoc menu parent))) + (if sub + (if (stringp value) + (setcdr sub (cons (vector (concat prefix value) + name t) + (cdr sub))) + (error "Cannot have multiple special kpfonts menu items")) + (setcdr parent + (cons (if (stringp value) + (list menu (vector (concat prefix value) + name t)) + (vector menu name t)) + (cdr parent))))))))) + ;; Make the kpfonts prefix char available if it has not been used as a prefix. + (unless (lookup-key map (LaTeX-kpfonts-abbrev-prefix)) + (define-key map (LaTeX-kpfonts-abbrev-prefix) #'self-insert-command))) + +(define-minor-mode LaTeX-kpfonts-mode + "A minor mode with easy access to kpfonts macros. + +Easy insertion of kpfonts symbols. If you give a prefix +argument, the symbols will be surrounded by dollar signs. The +following commands are defined: + +\\{LaTeX-kpfonts-mode-map}" + :init-value nil + :lighter nil + :keymap (list (cons (LaTeX-kpfonts-abbrev-prefix) LaTeX-kpfonts-keymap)) + (TeX-set-mode-name)) + +(easy-menu-define LaTeX-kpfonts-mode-menu + LaTeX-kpfonts-mode-map + "Menu used in kpfonts minor mode." + LaTeX-kpfonts-menu) + +(defvar LaTeX-kpfonts-mode-enable LaTeX-math-mode + "If non-nil, enable kpfonts minor mode by default.") + +(if LaTeX-kpfonts-mode-enable + (LaTeX-kpfonts-mode)) +;;; Kpfonts Minor Mode ends here + +(TeX-add-style-hook + "kpfonts" + (lambda () + (unless (LaTeX-provided-package-options-member "kpfonts" "notextcomp") + (TeX-run-style-hooks "textcomp")) + (unless (LaTeX-provided-package-options-member "kpfonts" "noamsmath") + (TeX-run-style-hooks "amsmath")) + (TeX-add-symbols + ;; Text fonts options + '("classicstylenums" 1) + ;; New text commands + '("scslshape" 0) + '("otherscshape" 0) + '("otherscslshape" 0) + "othertailQ" + "othertailscq" + "othertailscslq" + ;; Variant integrate symbols + '("D" 1) + ;; New extensive symbols + '("widearc" 1) + '("widearcarrow" 1) + '("wideOarc" 1) + '("wideparen" 1) + '("widering" 1)) + + ;; New fonts by `kpfonts'. + (setq TeX-font-list + (append + TeX-font-list + '(;; Math fonts + (?\C-h "" "" "\\mathup{" "}") + (?\C-k "" "" "\\mathfrak{" "}") + (?\C-p "" "" "\\mathscr{" "}") + ;; Text fonts + (?\C-l "\\textscsl{" "}") + (?\C-o "\\textothersc{" "}") + (?\C-q "\\textotherscsl{" "}")))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textscsl" "{") + ("textothersc" "{") + ("textotherscsl" "{")) + 'bold-command) + (font-latex-add-keywords '(("textscsl" "{") + ("textotherscsl" "{")) + 'italic-command) + (font-latex-add-keywords '(("scslshape") + ("otherscshape") + ("otherscslshape")) + 'bold-declaration) + (font-latex-add-keywords '(("scslshape") + ("otherscslshape")) + 'italic-declaration))) + TeX-dialect) + +(defvar LaTeX-kpfonts-package-options + '(;; Main global options + "light" "fulloldstylenums" "fulloldstyle" "fullveryoldstyle" + ;; Other global options + "nomath" "notext" "nosf" "nott" "onlyrm" "noamsmath" "notextcomp" + ;; Text fonts options + "lighttext" "oldstylenums" "oldstyle" "veryoldstyle" "rmx" "largesmallcaps" + "easyscsl" "nofligatures" "lightmath" + ;; Math typesetting options + "sfmath" "sfmathbb" "rmmathbb" "nomathscript" "mathcalasscript" "classicReIm" + "uprightRoman" "frenchstyle" "upright" "oldstylenumsmath" "oldstylemath" + "veryoldstylemath" "narrowiints" "partialup" "widermath" "noDcommand" + ;; Position of subscripts and superscripts + "intlimits" "fullintlimits" "nointlimits" "sumlimits" "fullsumlimits" + "nosumlimits" + ;; Greek letters in math mode, options + "uprightgreeks" "slantedGreeks" + ;; Other `amsmath' options + "namelimits" "nonamelimits" "leqno" "reqno" "centertags" "tbtags" + ;; Misc + "nowarning") + "Package options for the kpfonts package.") + +;; kpfonts.el ends here diff --git a/elpa/auctex-13.1.3/style/kpfonts.elc b/elpa/auctex-13.1.3/style/kpfonts.elc Binary files differnew file mode 100644 index 0000000..96ecd1c --- /dev/null +++ b/elpa/auctex-13.1.3/style/kpfonts.elc diff --git a/elpa/auctex-13.1.3/style/l3doc.el b/elpa/auctex-13.1.3/style/l3doc.el new file mode 100644 index 0000000..e51e83a --- /dev/null +++ b/elpa/auctex-13.1.3/style/l3doc.el @@ -0,0 +1,270 @@ +;;; l3doc.el --- AUCTeX style for `l3doc.cls' -*- lexical-binding: t; -*- + +;; Copyright (C) 2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2022-03-05 +;; 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 `l3doc.cls' dated 2022/02/24. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(defvar LaTeX-article-class-options) + +(defvar LaTeX-l3doc-cmd-key-val-options + '(("index") + ("noindex") + ("module" ("TeX")) + ("replace" ("true" "false"))) + "Key=value options for l3doc macros.") + +(defun LaTeX-env-l3doc-function (environment) + "Insert the ENVIRONMENT provided by l3doc.cls. +This function should be used for the environments 'function' and +'variable' provided by the l3doc class. Also ask the user if a +'syntax' environment should be added as well." + (let* ((time (format-time-string "%Y-%m-%d" (current-time))) + (exp-flag (TeX-read-key-val t `(("added" (,time)) + ("updated" (,time)) + ("deprecated") + ("tested") + ("EXP") + ("rEXP") + ("TF") + ("pTF") + ("noTF") + ("label") + ("verb")) + "Flags (k=v)")) + (mac (TeX-read-string + (TeX-argument-prompt nil nil "Macro(s)") + TeX-esc)) + (active-mark (and (TeX-active-mark) + (not (eq (mark) (point))))) + (elt-count 0) + (count 1) + (comment-func (lambda () + (if (TeX-in-line-comment) + (indent-according-to-mode) + (delete-horizontal-space) + (beginning-of-line) + (insert "%") + (indent-according-to-mode)))) + p) + (LaTeX-insert-environment environment + (concat + (unless (zerop (length exp-flag)) + (format "[%s]" exp-flag)) + TeX-grop mac TeX-grcl)) + ;; Remember where we start: + (setq p (point-marker)) + ;; Now make sure we have '%' everywhere, start at the beginning: + (search-backward (concat TeX-esc "begin" TeX-grop environment TeX-grcl) + (if active-mark nil (line-beginning-position 0)) + t) + (funcall comment-func) + ;; Now at the end: + (goto-char p) + (search-forward (concat TeX-esc "end" TeX-grop environment TeX-grcl) + (if active-mark nil (line-end-position 2)) + t) + (goto-char (match-beginning 0)) + (funcall comment-func) + ;; Finally for where we started and clean up only when region was + ;; not active: + (goto-char p) + (unless active-mark (funcall comment-func)) + (set-marker p nil) + ;; Ask if we should insert a 'syntax' environment: + (when (and (not active-mark) + (y-or-n-p "Insert syntax environment? ")) + (LaTeX-environment-menu "syntax") + (funcall comment-func) + ;; Try to be smart: insert \cs{mac} into buffer. First, delete + ;; any whitespaces after the ',' if inserted: + (setq mac (split-string + (replace-regexp-in-string "[[:blank:]]" + "" + mac) + "," t)) + ;; Count the number of elements for the number of linebreaks: + (setq elt-count (length mac)) + ;; Now insert the functions wrapped in \cs: + (save-excursion + (dolist (elt mac) + (insert TeX-esc "cs" TeX-grop (substring elt 1) TeX-grcl) + (when (< count elt-count) + (LaTeX-newline) + (setq count (1+ count))))) + ;; Now move to end of the first line: + (end-of-line) + (just-one-space)))) + +(defun LaTeX-item-l3doc-syntax () + "Insert line break macro on the last line. +For syntax environment from l3doc class." + (save-excursion + (end-of-line 0) + (just-one-space) + (TeX-insert-macro "\\"))) + +(TeX-add-style-hook + "l3doc" + (lambda () + + ;; l3doc.cls loads shortvrb.sty and sets '|' and '"' as shorthands. + ;; We append them to a local version of `LaTeX-shortvrb-chars' + ;; before running the style hook for 'shortvrb' which is done + ;; inside 'doc.el': + (make-local-variable 'LaTeX-shortvrb-chars) + (dolist (elt '(?| ?\")) + (add-to-list 'LaTeX-shortvrb-chars elt t)) + + (TeX-run-style-hooks "expl3" "doc" "ltx-base" + "article" "array" "amsmath" "booktabs" + "color" "colortbl" "hologo" "enumitem" + "textcomp" "csquotes" "fancyvrb" "verbatim" + "underscore") + + (TeX-add-symbols + ;; 4.2 Partitioning documentation and implementation + '("EnableDocumentation" 0) + '("EnableImplementation" 0) + '("DisableDocumentation" 0) + '("DisableImplementation" 0) + '("DocInputAgain" 0) + + ;; 4.3 General text markup + '("cmd" + [TeX-arg-key-val LaTeX-l3doc-cmd-key-val-options] + TeX-arg-macro) + '("cs" + [TeX-arg-key-val LaTeX-l3doc-cmd-key-val-options] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Macro") + (TeX-symbol-list))) + '("tn" + [TeX-arg-key-val LaTeX-l3doc-key-val-options] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Macro") + (TeX-symbol-list))) + + ;; "meta" is provided by doc.el, so don't add here again + '("Arg" "Argument") + '("marg" "Mandatory argument") + '("oarg" "Optional argument") + '("parg" "Picture mode argument") + + '("file" "File name") + '("env" LaTeX-env-args + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Environment") + (LaTeX-environment-list))) + '("pkg" "Package name") + '("cls" "Class name") + + '("NB" "Tag" t) + + '("DocInput" + (TeX-arg-eval + (lambda () + (let ((file (TeX-read-string + (format "File(s) to include (default %s): " (current-buffer)) + nil nil (current-buffer)))) + (format "%s" file))))) + + ;; 4.5 Describing functions in the implementation + '("TestFiles" "File(s)") + '("UnitTested" 0) + '("TestMissing" t)) + + (LaTeX-add-environments + '("documentation") + '("implementation") + '("NOTE" "Tag") + '("function" LaTeX-env-l3doc-function) + '("variable" LaTeX-env-l3doc-function) + ;; Feature in 'syntax' environment: Hit 'M-RET' to insert '\\': + '("syntax") + '("texnote") + '("arguments" LaTeX-env-item)) + + ;; Do not indent the content of the 'documentation' and + ;; 'implementation' environments; it is odd when major parts of the + ;; document are indented. Append them to a local version of + ;; `LaTeX-document-regexp': + (unless (string-match-p "\\<implementation\\>" LaTeX-document-regexp) + (set (make-local-variable 'LaTeX-document-regexp) + (concat LaTeX-document-regexp + "\\|documentation\\|implementation"))) + + ;; Append syntax to `LaTeX-item-list' with `LaTeX-item-l3doc-syntax' + (add-to-list 'LaTeX-item-list '("syntax" . LaTeX-item-l3doc-syntax) t) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("cmd" "[{") + ("cs" "[{") + ("Arg" "{") + ("marg" "{") + ("oarg" "{") + ("parg" "{") + ("file" "{") + ("env" "{") + ("pkg" "{") + ("cls" "{") + ("NB" "{{")) + 'textual) + (font-latex-add-keywords '(("EnableDocumentation" "") + ("EnableImplementation" "") + ("DisableDocumentation" "") + ("DisableImplementation" "") + ("DocInputAgain" "") + ("TestFiles" "{") + ("UnitTested" "") + ("TestMissing" "{")) + 'function) + (font-latex-add-keywords '("DocInput" "{") + 'reference))) + TeX-dialect) + +(defvar LaTeX-l3doc-class-options + (progn + (TeX-load-style "article") + (append (remove "a5paper" LaTeX-article-class-options) + '("full" "onlydoc" "check" "nocheck" "checktest" + "nochecktest" "kernel" "stdmodule" "cm-default" + "lm-default" "cs-break-off" "cs-break-nohyphen" + "show-notes" "hide-notes"))) + "Class options for the l3doc class.") + +;;; l3doc.el ends here diff --git a/elpa/auctex-13.1.3/style/l3doc.elc b/elpa/auctex-13.1.3/style/l3doc.elc Binary files differnew file mode 100644 index 0000000..3aeecc2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/l3doc.elc diff --git a/elpa/auctex-13.1.3/style/letter.el b/elpa/auctex-13.1.3/style/letter.el new file mode 100644 index 0000000..5c64c28 --- /dev/null +++ b/elpa/auctex-13.1.3/style/letter.el @@ -0,0 +1,199 @@ +;;; letter.el - Special code for letter style. -*- lexical-binding: t; -*- + +;; Copyright (C) 1993, 2012, 2013, 2014, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Per Abrahamsen <abraham@dina.kvl.dk> +;; Maintainer: auctex-devel@gnu.org +;; 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. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-letter-class-options + '("a4paper" "a5paper" "b5paper" "letterpaper" "legalpaper" "executivepaper" + "landscape" "10pt" "11pt" "12pt" "oneside" "twoside" "draft" "final" + "leqno" "fleqn") + "Package options for the letter class.") + +;; You may want to define this in tex-site.el to contain your +;; organizations address. +(defvar LaTeX-letter-sender-address "" + "Initial value when prompting for a sender address in the letter style.") + +(TeX-add-style-hook + "letter" + (lambda () + (LaTeX-add-environments + '("letter" LaTeX-env-recipient)) + (LaTeX-add-pagestyles "headings" "firstpage") + (setq LaTeX-default-document-environment "letter") + (TeX-add-symbols + '("name" "Sender") + '("address" "Sender address") + '("signature" "Signature") + '("opening" "Opening") + '("closing" "Closing") + "location" + "telephone" + "makelabels" + "stopbreaks" + "startbreaks" + "cc" + "encl" + "ps" + "stopletter" + "returnaddress" + "startlabels" + "mlabel" + "descriptionlabel" + "ccname" + "enclname" + "pagename" + "headtoname") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("name" "{") + ("address" "{") + ("signature" "{") + ("opening" "{") + ("closing" "{") + ("location" "{") + ("telephone" "{") + ("cc" "{") + ("encl" "{") + ("ps" "{")) + 'function))) + TeX-dialect) + +(defun LaTeX-env-recipient (environment) + "Insert ENVIRONMENT and prompt for recipient and address." + (let ((sender (TeX-read-string "Sender: " (user-full-name))) + (sender-address (TeX-read-string "Sender address: " + LaTeX-letter-sender-address)) + (recipient (TeX-read-string "Recipient: ")) + (address (TeX-read-string "Recipient address: ")) + (signature (TeX-read-string "Signature: ")) + (opening (TeX-read-string "Opening: ")) + (closing (TeX-read-string "Closing: ")) + (date (TeX-read-string "Date: " (LaTeX-today))) + ;; COMPATIBILITY for EMACS<26 + (func (if (fboundp 'indent-relative-first-indent-point) + #'indent-relative-first-indent-point + ;; Stay away from using #' to avoid compiler warning. + 'indent-relative-maybe))) + + (insert TeX-esc "name" TeX-grop sender TeX-grcl) + (newline-and-indent) + (if (not (zerop (length sender-address))) + (progn + (setq LaTeX-letter-sender-address sender-address) + (insert TeX-esc "address" TeX-grop sender-address TeX-grcl) + (newline-and-indent))) + (if (not (zerop (length signature))) + (progn + (insert TeX-esc "signature" TeX-grop signature TeX-grcl) + (newline-and-indent))) + (if (not (zerop (length date))) + (progn + (insert TeX-esc "renewcommand" TeX-grop TeX-esc "today" TeX-grcl + TeX-grop date TeX-grcl) + (newline-and-indent))) + (newline-and-indent) + + (let ((indentation (current-column))) + (LaTeX-insert-environment + environment + (concat TeX-grop recipient + (if (not (zerop (length address))) + (concat + (if (not (zerop (length recipient))) + (concat " " TeX-esc TeX-esc " ")) + address)) + TeX-grcl)) + (save-excursion ; Fix indentation of address + (if (search-backward TeX-grcl nil 'move) + (let ((addr-end (point-marker))) + (if (search-backward TeX-grop nil 'move) + (let ((addr-column (current-column))) + (while (search-forward + (concat TeX-esc TeX-esc) + (marker-position addr-end) 'move) + (progn + (newline) + (indent-to addr-column))))) + (set-marker addr-end nil)))) + (insert "\n") + (indent-to indentation)) + (insert TeX-esc "opening" + TeX-grop + (if (zerop (length opening)) + (concat TeX-esc " ") + opening) + TeX-grcl "\n") + + (funcall func) + (save-excursion + (insert "\n" TeX-esc "closing" + TeX-grop + (if (zerop (length closing)) + (concat TeX-esc " ") + closing) + TeX-grcl "\n") + (funcall func)))) + +(defun LaTeX-today nil + "Return a string representing todays date according to flavor." + (interactive) + (let ((ctime-string (current-time-string)) + (month-alist '(("Jan". "01") + ("Feb" . "02") + ("Mar" . "03") + ("Apr" . "04") + ("May" . "05") + ("Jun" . "06") + ("Jul" . "07") + ("Aug" . "08") + ("Sep" . "09") + ("Oct" . "10") + ("Nov" . "11") + ("Dec" . "12")))) + (string-match + "^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)" + ctime-string) + (let ((year (substring ctime-string (match-beginning 3) (match-end 3))) + (month (substring ctime-string (match-beginning 1) (match-end 1))) + (day (substring ctime-string (match-beginning 2) (match-end 2)))) + (if (assoc month month-alist) + (progn + (setq month (cdr (assoc month month-alist))) + (if (> 2 (length day)) + (setq day (concat "0" day))))) + (format "%s-%s-%s" year month day)))) + +;;; letter.el ends here diff --git a/elpa/auctex-13.1.3/style/letter.elc b/elpa/auctex-13.1.3/style/letter.elc Binary files differnew file mode 100644 index 0000000..08327ca --- /dev/null +++ b/elpa/auctex-13.1.3/style/letter.elc diff --git a/elpa/auctex-13.1.3/style/lettrine.el b/elpa/auctex-13.1.3/style/lettrine.el new file mode 100644 index 0000000..074ec94 --- /dev/null +++ b/elpa/auctex-13.1.3/style/lettrine.el @@ -0,0 +1,98 @@ +;;; lettrine.el --- AUCTeX style for `lettrine.sty' (v2.21) -*- lexical-binding: t; -*- + +;; Copyright (C) 2011, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; 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 `lettrine.sty' (v2.21) from 2018/08/28. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-lettrine-key-val-options + '(("lines") + ("depth") + ("lhang") + ("loversize") + ("lraise") + ("findent") + ("nindent") + ("slope") + ("ante") + ("image" ("true")) + ("grid" ("true")) + ("novskip") + ("realheight" ("true")) + ("refstring")) + "Key=value options for \\lettrine marco.") + +(TeX-add-style-hook + "lettrine" + (lambda () + (TeX-add-symbols + '("lettrine" [ TeX-arg-key-val LaTeX-lettrine-key-val-options ] + "Letter" "Text") + '("DefaultLoversize" 0) + '("DefaultLraise" 0) + '("DefaultLhang" 0) + '("LettrineImageFalse" 0) + '("LettrineOnGridfalse" 0) + '("LettrineRealHeightfalse" 0) + '("LettrineSelfReffalse" 0) + '("LettrineFont" 0) + '("LettrineFontHook" 0) + '("LettrineTextFont" 0) + ;; above settings can also be input a file, and pointed to with + ;; \renewcommand + '("DefaultOptionsFile" TeX-arg-file-name)) + + ;; Counters: + (LaTeX-add-counters "DefaultLines" "DefaultDepth") + + ;; Lengths and dimensions: + (LaTeX-add-lengths "DefaultFindent" + "DefaultNindent" + "DefaultSlope" + "DiscardVskip" + "LettrineWidth" + "LettrineHeight" + "LettrineDepth") + + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("lettrine" "[{{")) 'textual))) + TeX-dialect) + +(defvar LaTeX-lettrine-package-options nil + "Package options for the lettrine package.") + +;;; lettrine.el ends here diff --git a/elpa/auctex-13.1.3/style/lettrine.elc b/elpa/auctex-13.1.3/style/lettrine.elc Binary files differnew file mode 100644 index 0000000..e093559 --- /dev/null +++ b/elpa/auctex-13.1.3/style/lettrine.elc diff --git a/elpa/auctex-13.1.3/style/lipsum.el b/elpa/auctex-13.1.3/style/lipsum.el new file mode 100644 index 0000000..7378bc7 --- /dev/null +++ b/elpa/auctex-13.1.3/style/lipsum.el @@ -0,0 +1,48 @@ +;;; lipsum.el --- AUCTeX style for `lipsum.sty'. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <giordano.mose@libero.it> +;; 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 `lipsum.sty'. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "lipsum" + (lambda () + (TeX-add-symbols + '("lipsum" [ "Range of paragraph (max: 150)" ]) + '("lipsum*" [ "Range of paragraph (max: 150)" ]) + '("setlipsumdefault" [ "Default range of paragraph (max: 150)" ]) + '("ChangeLipsumPar" 0))) + TeX-dialect) + +(defvar LaTeX-lipsum-package-options + '("nopar") + "Package options for the lipsum package.") + +;; lipsum.el ends here diff --git a/elpa/auctex-13.1.3/style/lipsum.elc b/elpa/auctex-13.1.3/style/lipsum.elc Binary files differnew file mode 100644 index 0000000..c549383 --- /dev/null +++ b/elpa/auctex-13.1.3/style/lipsum.elc diff --git a/elpa/auctex-13.1.3/style/listings.el b/elpa/auctex-13.1.3/style/listings.el new file mode 100644 index 0000000..cfd4968 --- /dev/null +++ b/elpa/auctex-13.1.3/style/listings.el @@ -0,0 +1,475 @@ +;;; listings.el --- AUCTeX style for `listings.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2004, 2005, 2009, 2013-2021 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@iwi.uni-sb.de> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2004-10-17 +;; 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 `listings.sty'. +;; +;; May 2015: The style detects new environments defined with +;; `\lstnewenvironment'. Users need to invoke `C-c C-n' for this. +;; +;; October 2015: The style detects new "styles" defined with +;; `\lstdefinestyle' and offers them during key-value query. +;; +;; January 2017: Put label in opt. argument of environment. +;; +;; October 2018: Extract label context for RefTeX. +;; +;; FIXME: Please make me more sophisticated! + +;;; Code: + +;; Needed for compiling `cl-pushnew': +(eval-when-compile + (require 'cl-lib)) + +;; Needed for auto-parsing: +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function font-latex-set-syntactic-keywords + "font-latex") + +(declare-function LaTeX-color-definecolor-list "color" ()) +(declare-function LaTeX-xcolor-definecolor-list "xcolor" ()) + +;; The following are options taken from chapter 4 of the listings +;; manual (2007/02/22 Version 1.4). +(defvar LaTeX-listings-key-val-options + '(;; Space and placement + ("float" ("t" "b" "p" "h")) ; Support [*] as an optional prefix and that + ; tbph are not exclusive. + ("floatplacement" ("t" "b" "p" "h")) + ("aboveskip") + ("belowskip") + ("lineskip") + ("boxpos" ("b" "c" "t")) + ;; The printed range + ("print" ("true" "false")) + ("firstline") + ("lastline") + ("linerange") + ("consecutivenumbers" ("true" "false")) + ("showlines" ("true" "false")) + ("emptylines") + ("gobble") + ;; Languages and styles + ("style") + ("language") + ("alsolanguage") + ("defaultdialect") + ("printpod" ("true" "false")) + ("usekeywordsintag" ("true" "false")) + ("tagstyle") + ("markfirstintag") + ("makemacrouse" ("true" "false")) + ;; Figure out the appearance + ("basicstyle") + ("identifierstyle") + ("commentstyle") + ("stringstyle") + ("keywordstyle") + ("classoffset") + ("texcsstyle") + ("directivestyle") + ("emph") + ("moreemph") + ("deleteemph") + ("emphstyle") + ("delim") + ("moredelim") + ("deletedelim") + ;; Getting all characters right + ("extendedchars" ("true" "false")) + ("inputencoding") ; Could make use of `latex-inputenc-coding-alist'. + ("upquote" ("true" "false")) + ("tabsize") + ("showtabs" ("true" "false")) + ("tab") + ("showspaces" ("true" "false")) + ("showstringspaces" ("true" "false")) + ("formfeed") + ;; Line numbers + ("numbers" ("none" "left" "right")) + ("stepnumber") + ("numberfirstline" ("true" "false")) + ("numberstyle") + ("numbersep") + ("numberblanklines" ("true" "false")) + ("firstnumber" ("auto" "last")) ; Can also take a number. + ("name") + ;; Captions + ("title") + ("caption") ; Insert braces? + ;; Label is inserted as part of environment insertion; see below + ;; for "lstlisting" in style hook + ;; ("label") + ("nolol" ("true" "false")) + ("numberbychapter" ("true" "false")) + ("captionpos" ("t" "b")) ; Can be a subset of tb. + ("abovecaptionskip") + ("belowcaptionskip") + ;; Margins and line shape + ("linewidth") + ("xleftmargin") + ("xrightmargin") + ("resetmargins" ("true" "false")) + ("breaklines" ("true" "false")) + ("breakatwhitespace" ("true" "false")) + ("prebreak") + ("postbreak") + ("breakindent") + ("breakautoindent" ("true" "false")) + ;; Frames + ("frame" ("none" "leftline" "topline" "bottomline" "lines" "single" + "shadowbox" + ;; Alternative to the above values. A subset of trblTRBL can be + ;; given. + "t" "r" "b" "l" "T" "R" "B" "L")) + ("frameround" ("t" "f")) ; The input actually has to be four times {t,f}. + ("framesep") + ("rulesep") + ("framerule") + ("framexleftmargin") + ("framexrightmargin") + ("framextopmargin") + ("framebottommargin") + ("backgroundcolor") + ("rulecolor") + ("fillcolor") + ("rulesepcolor") + ("frameshape") + ;; Indexing + ("index") + ("moreindex") + ("deleteindex") + ("indexstyle") + ;; Column alignment + ("columns" ("fixed" "flexible" "fullflexible" "spaceflexible")) ; + ; Also supports an optional + ; argument with {c,l,r}. + ("flexiblecolumns" ("true" "false")) + ("keepspaces" ("true" "false")) + ("basewidth") + ("fontadjust" ("true" "false")) + ;; Escaping to LaTeX + ("texcl" ("true" "false")) + ("mathescape" ("true" "false")) + ("escapechar") + ("escapeinside") + ("escapebegin") + ("escapeend") + ;; Interface to fancyvrb + ("fancyvrb" ("true" "false")) + ("fvcmdparams") + ("morefvcmdparams") + ;; Language definitions + ("keywordsprefix") + ("keywords") + ("morekeywords") + ("deletekeywords") + ("texcs") + ("moretexcs") + ("deletetexcs") + ("directives") + ("moredirectives") + ("deletedirectives") + ("sensitive" ("true" "false")) + ("alsoletter") + ("alsodigit") + ("alsoother") + ("otherkeywords") + ("tag") + ("string") + ("morestring") + ("deletestring") + ("comment") + ("morecomment") + ("deletecomment") + ("keywordcomment") + ("morekeywordcomment") + ("deletekeywordcomment") + ("keywordcommentsemicolon") + ("podcomment" ("true" "false")) + ;; The following are all options from chapter 5, which are + ;; experimental + ;; Export of identifiers + ("procnamekeys") + ("moreprocnamekeys") + ("deleteprocnamekeys") + ("procnamestyle") + ("indexprocnames" ("true" "false")) + ;; Hyperlink references + ("hyperref") + ("morehyperref") + ("deletehyperref") + ("hyperanchor") + ("hyperlink") + ;; Literate programming + ("literate") ;; three arguments: replace,replacement text,length + ;; LGrind definitions + ("lgrindef") + ;; Arbitrary linerange markers + ("rangebeginprefix") + ("rangebeginsuffix") + ("rangeendprefix") + ("rangeendsuffix") + ("rangeprefix") + ("rangesuffix") + ("includerangemarker" ("true" "false")) + ;; Multicolumn Listing + ("multicolumn")) + "Key=value options for listings macros and environments.") + +(defun LaTeX-listings-key-val-options () + "Return an updated list of key=vals from listings package." + (append + ;; Check for x?color package. Note that listings requires a \color + ;; command, e.g., 'rulecolor=\color{blue}': + (when (and (or (member "xcolor" (TeX-style-list)) + (member "color" TeX-active-styles))) + (let* ((colorcmd (if (member "xcolor" TeX-active-styles) + #'LaTeX-xcolor-definecolor-list + #'LaTeX-color-definecolor-list)) + (colors (mapcar (lambda (x) + (concat TeX-esc "color" TeX-grop x TeX-grcl)) + (mapcar #'car (funcall colorcmd)))) + (keys '("backgroundcolor" + "fillcolor" + "rulecolor" + "rulesepcolor")) + result) + (dolist (key keys result) + (push (list key colors) result)))) + ;; Cater for user defined styles: + (when (LaTeX-listings-lstdefinestyle-list) + `(("style" ,(mapcar #'car (LaTeX-listings-lstdefinestyle-list))))) + ;; Standard key=vals: + LaTeX-listings-key-val-options)) + +;; Setup for \lstnewenvironment: +(defvar LaTeX-auto-listings-lstnewenvironment nil + "Temporary for parsing the arguments of '\\lstnewenvironment'.") + +(defvar LaTeX-listings-lstnewenvironment-regexp + `(,(concat "\\\\lstnewenvironment" + "[ \t\n\r]*{\\([A-Za-z0-9]+\\)}" + "%?" + "[ \t\n\r]*\\(?:\\[\\([0-9]\\)\\]\\)?" + "%?" + "[ \t\n\r]*\\(\\[\\)?") + (1 2 3) LaTeX-auto-listings-lstnewenvironment) + "Matches the argument of '\\lstnewenvironment'.") + +;; Setup for \lstdefinestyle: +(TeX-auto-add-type "listings-lstdefinestyle" "LaTeX") + +(defvar LaTeX-listings-lstdefinestyle-regexp + '("\\\\lstdefinestyle{\\([^}]+\\)}" + 1 LaTeX-auto-listings-lstdefinestyle) + "Matches the argument of '\\lstdefinestyle' from 'listings' package.") + +;; Setup for parsing the labels inside optional arguments: + +(defvar LaTeX-listings-key-val-label-regexp + `(,(concat + "\\\\begin{lstlisting}" (LaTeX-extract-key-value-label)) + 1 LaTeX-auto-label) + "Matches the label inside an optional argument after \\begin{lstlisting}.") + +(defun LaTeX-listings-auto-prepare () + "Clear temporary variable from 'listings' package before parsing." + (setq LaTeX-auto-listings-lstnewenvironment nil) + (setq LaTeX-auto-listings-lstdefinestyle nil)) + +(defun LaTeX-listings-auto-cleanup () + "Process the parsed results of 'listings' package." + (dolist (env-args LaTeX-auto-listings-lstnewenvironment) + (let ((env (car env-args)) + (args (cadr env-args)) + (opt (nth 2 env-args))) + (cond (;; opt. 1st argument and mandatory argument(s) + (and args (not (string-equal args "")) + opt (not (string-equal opt ""))) + (LaTeX-add-environments + `(,env + LaTeX-env-args + [TeX-arg-key-val (LaTeX-listings-key-val-options)] + (LaTeX-env-label-as-keyval "caption") + ,(1- (string-to-number args))))) + (;; mandatory argument(s) only + (and args (not (string-equal args "")) + (string-equal opt "")) + (LaTeX-add-environments + (list env (string-to-number args)))) + (t ; No args + (LaTeX-add-environments (list env)))) + (add-to-list 'LaTeX-indent-environment-list `(,env current-indentation) t) + (add-to-list 'LaTeX-verbatim-environments-local env t) + (add-to-list 'LaTeX-label-alist `(,env . LaTeX-listing-label) t) + ;; Add new env to parser for labels in opt. argument: + (TeX-auto-add-regexp `(,(concat "\\\\begin{" env "}" + (LaTeX-extract-key-value-label)) + 1 LaTeX-auto-label)) + ;; Tell RefTeX + (when (fboundp 'reftex-add-label-environments) + (reftex-add-label-environments + `((,env ?l "lst:" "~\\ref{%s}" + LaTeX-listings-reftex-label-context-function + (regexp "[Ll]isting"))))) + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; Tell font-lock about the update. + (font-latex-set-syntactic-keywords)) + ;; Add new env's to `ispell-tex-skip-alist': skip the entire env + (TeX-ispell-skip-setcdr `(,(cons env (concat "\\\\end{" env "}"))))))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-listings-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-listings-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun LaTeX-listings-reftex-label-context-function (env) + "Extract and return a context string for RefTeX. +The context string is the value given to the caption key. If no +caption key is found, an error is issued." + (let* ((envstart (save-excursion + (re-search-backward (concat "\\\\begin{" env "}") + nil t))) + (capt-key (save-excursion + (re-search-backward "caption[ \t\n\r%]*=[ \t\n\r%]*" + envstart t))) + capt-start capt-end) + (if capt-key + (save-excursion + (goto-char capt-key) + (re-search-forward + "caption[ \t\n\r%]*=[ \t\n\r%]*" nil t) + (cond (;; Short caption inside [] is available, extract it only + (looking-at-p (regexp-quote (concat TeX-grop LaTeX-optop))) + (forward-char) + (setq capt-start (1+ (point))) + (setq capt-end (1- (progn (forward-sexp) (point))))) + ;; Extract the entire caption which is enclosed in braces + ((looking-at-p TeX-grop) + (setq capt-start (1+ (point))) + (setq capt-end (1- (progn (forward-sexp) (point))))) + ;; Extract everything to next comma , + (t + (setq capt-start (point)) + (setq capt-end (progn (skip-chars-forward "^,") (point))))) + ;; Return the extracted string + (buffer-substring-no-properties capt-start capt-end)) + (error "No caption found")))) + +(TeX-add-style-hook + "listings" + (lambda () + + ;; Add to parser: + (TeX-auto-add-regexp LaTeX-listings-lstnewenvironment-regexp) + (TeX-auto-add-regexp LaTeX-listings-lstdefinestyle-regexp) + (TeX-auto-add-regexp LaTeX-listings-key-val-label-regexp) + + ;; New symbols + (TeX-add-symbols + '("lstalias" ["Alias dialect"] "Alias" ["Dialect"] "Language") + '("lstdefinestyle" + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string "Style name: "))) + (LaTeX-add-listings-lstdefinestyles name) + (format "%s" name)))) + (TeX-arg-key-val (LaTeX-listings-key-val-options))) + '("lstinline" [TeX-arg-key-val (LaTeX-listings-key-val-options)] + TeX-arg-verb-delim-or-brace) + '("lstinputlisting" [TeX-arg-key-val (LaTeX-listings-key-val-options)] + TeX-arg-file) + "lstlistoflistings" + '("lstnewenvironment" "Name" ["Number or arguments"] ["Default argument"] + "Starting code" "Ending code") + '("lstset" (TeX-arg-key-val (LaTeX-listings-key-val-options))) + '("lstloadlanguages" t) + ;; 4.17 Short Inline Listing Commands + '("lstMakeShortInline" [ "Options" ] "Character") + '("lstDeleteShortInline" "Character") + + "lstgrinddeffile" "lstaspectfiles" "lstlanguagefiles" + "lstlistingname" "lstlistingnamestyle" "thelstlisting" + "lstlistlistingname") + + ;; New environments + (LaTeX-add-environments + '("lstlisting" LaTeX-env-args + [TeX-arg-key-val (LaTeX-listings-key-val-options)] + (LaTeX-env-label-as-keyval "caption"))) + + ;; Append "lstlisting" to `LaTeX-label-alist': + (add-to-list 'LaTeX-label-alist '("lstlisting" . LaTeX-listing-label) t) + + ;; Filling + (add-to-list (make-local-variable 'LaTeX-indent-environment-list) + '("lstlisting" current-indentation) t) + (add-to-list 'LaTeX-verbatim-environments-local "lstlisting") + (add-to-list 'LaTeX-verbatim-macros-with-delims-local "lstinline") + (add-to-list 'LaTeX-verbatim-macros-with-braces-local "lstinline") + + ;; RefTeX support lstlistings environment via + ;; `reftex-label-alist-builtin'. We add the same thing here only + ;; with our function as 5th element: + (when (fboundp 'reftex-add-label-environments) + (reftex-add-label-environments + '(("lstlisting" ?l "lst:" "~\\ref{%s}" + LaTeX-listings-reftex-label-context-function + (regexp "[Ll]isting"))))) + + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("lstnewenvironment" "{[[{{")) 'function) + (font-latex-add-keywords '(("lstinputlisting" "[{")) 'reference) + (font-latex-add-keywords '(("lstinline" "[") + ("lstlistoflistings" "")) + 'textual) + (font-latex-add-keywords '(("lstalias" "{{") + ("lstdefinestyle" "{{") + ("lstset" "{")) + 'variable))) + TeX-dialect) + +(defvar LaTeX-listings-package-options '("draft" "final" "savemem" + "noaspects" + ;; procnames is mentioned in + ;; Section 5.2 + "procnames") + "Package options for the listings package.") + +;;; listings.el ends here diff --git a/elpa/auctex-13.1.3/style/listings.elc b/elpa/auctex-13.1.3/style/listings.elc Binary files differnew file mode 100644 index 0000000..054187e --- /dev/null +++ b/elpa/auctex-13.1.3/style/listings.elc diff --git a/elpa/auctex-13.1.3/style/longtable.el b/elpa/auctex-13.1.3/style/longtable.el new file mode 100644 index 0000000..8db4083 --- /dev/null +++ b/elpa/auctex-13.1.3/style/longtable.el @@ -0,0 +1,154 @@ +;;; longtable.el --- AUCTeX style for `longtable.sty'. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013--2022 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <mose@gnu.org> +;; 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 `longtable.sty'. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-longtable-skipping-regexp + (regexp-opt '("[l]" "[r]" "[c]" "")) + "Regexp matching between \\begin{longtable} and column specification. +For longtable environments only.") + +(defun LaTeX-item-longtable (&optional suppress) + "Insert line break macro on the last line and suitable number of &'s. +For longtable environments. If SUPPRESS is non-nil, do not +insert line break macro." + (unless suppress + (save-excursion + (end-of-line 0) + (just-one-space) + (TeX-insert-macro "\\"))) + (LaTeX-insert-ampersands + LaTeX-longtable-skipping-regexp #'LaTeX-array-count-columns)) + +(defun LaTeX-env-longtable (environment) + "Insert a longtable-like ENVIRONMENT with caption and label." + (let* ((pos (and LaTeX-default-position ; `LaTeX-default-position' + ; can be nil, i.e. no prompt + (completing-read (TeX-argument-prompt t nil "Position") + '("l" "r" "c") + nil nil LaTeX-default-position))) + (fmt (TeX-read-string + (if (string= LaTeX-default-format "") + "Format: " + (format "Format (default %s): " LaTeX-default-format)) + nil nil + (if (string= LaTeX-default-format "") + nil + LaTeX-default-format))) + (caption (TeX-read-string "Caption: ")) + (short-caption (when (>= (length caption) LaTeX-short-caption-prompt-length) + (TeX-read-string "(Optional) Short caption: ")))) + (setq LaTeX-default-position pos + LaTeX-default-format fmt) + (LaTeX-insert-environment environment + (concat + (unless (zerop (length pos)) + (concat LaTeX-optop pos LaTeX-optcl)) + (concat TeX-grop fmt TeX-grcl))) + ;; top caption -- do nothing if user skips caption + (unless (zerop (length caption)) + ;; insert `\caption[short-caption]{caption': + (insert TeX-esc "caption") + (when (and short-caption (not (string= short-caption ""))) + (insert LaTeX-optop short-caption LaTeX-optcl)) + (insert TeX-grop caption) + ;; ask for a label and insert it + (LaTeX-label environment 'environment) + ;; the longtable `\caption' is equivalent to a + ;; `\multicolumn', so it needs a `\\' at the + ;; end of the line. Prior to that, add } to + ;; close `\caption{' + (insert TeX-grcl "\\\\") + ;; fill the caption + (when auto-fill-function (LaTeX-fill-paragraph)) + ;; Insert a new line and indent + (LaTeX-newline) + (indent-according-to-mode)) + ;; Insert suitable number of &'s, suppress line break + (LaTeX-item-longtable t))) + +(TeX-add-style-hook + "longtable" + (lambda () + (LaTeX-add-environments + '("longtable" LaTeX-env-longtable)) + + (TeX-add-symbols + ;; Commands to end table rows + '("endhead" 0) + '("endfirsthead" 0) + '("endfoot" 0) + '("endlastfoot" 0) + ;; Caption commands + '("caption*" 1)) + + ;; These parameters are set with \setlength + (LaTeX-add-lengths + "LTleft" "LTright" "LTpre" "LTpost" "LTcapwidth") + + ;; This parameter is set with \setcounter + (LaTeX-add-counters "LTchunksize") + + ;; Use the enhanced table formatting. Append to + ;; `LaTeX-indent-environment-list' in order not to override custom settings. + (add-to-list (make-local-variable 'LaTeX-indent-environment-list) + '("longtable" LaTeX-indent-tabular) t) + + ;; Append longtable to `LaTeX-label-alist', in order not to override possible + ;; custome values. + (add-to-list 'LaTeX-label-alist '("longtable" . LaTeX-table-label) t) + + ;; Append longtable to `LaTeX-item-list' with `LaTeX-item-longtable' + (add-to-list 'LaTeX-item-list '("longtable" . LaTeX-item-longtable) t) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; Actually, `\caption*{}' macro takes only one mandatory + ;; argument, not an optional one, the following is a workaround + ;; to fontify correctly also the standard `\caption[]{}' macro. + (font-latex-add-keywords '(("caption" "*[{")) + 'textual))) + TeX-dialect) + +;; `longtable.sty' has two options "errorshow" and "pausing", both for +;; debugging purposes. We ignore them both in order to make package +;; loading faster in a buffer. +(defvar LaTeX-longtable-package-options nil + "Package options for the longtable package.") + +;; longtable.el ends here diff --git a/elpa/auctex-13.1.3/style/longtable.elc b/elpa/auctex-13.1.3/style/longtable.elc Binary files differnew file mode 100644 index 0000000..9dbc7af --- /dev/null +++ b/elpa/auctex-13.1.3/style/longtable.elc diff --git a/elpa/auctex-13.1.3/style/lscape.el b/elpa/auctex-13.1.3/style/lscape.el new file mode 100644 index 0000000..e60cc17 --- /dev/null +++ b/elpa/auctex-13.1.3/style/lscape.el @@ -0,0 +1,48 @@ +;;; lscape.el --- AUCTeX style for `lscape.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2011, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2011-05-04 +;; 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 `lscape.sty'. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "lscape" + (lambda () + (LaTeX-add-environments + "landscape") + ;; lscape uses graphics internally to handle the work + (TeX-run-style-hooks "graphics")) + TeX-dialect) + +(defvar LaTeX-lscape-package-options '("pdftex") + "Package options for the lscape package.") + +;;; lscape.el ends here diff --git a/elpa/auctex-13.1.3/style/lscape.elc b/elpa/auctex-13.1.3/style/lscape.elc Binary files differnew file mode 100644 index 0000000..83d80a0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/lscape.elc diff --git a/elpa/auctex-13.1.3/style/ltablex.el b/elpa/auctex-13.1.3/style/ltablex.el new file mode 100644 index 0000000..1a6c014 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ltablex.el @@ -0,0 +1,51 @@ +;;; ltablex.el --- AUCTeX style for `ltablex.sty' (v1.1) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-03-14 +;; 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 `ltablex.sty' (v1.1) from 2014/08/13. +;; `ltablex.sty' is part of TeXLive. `ltablex.sty' modifies the +;; tabularx environment to combine the features of the tabularx +;; package with those of the longtable package. All we need is to +;; call those styles and add two macros. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "ltablex" + (lambda () + (TeX-run-style-hooks "tabularx" "longtable") + (TeX-add-symbols + '("keepXColumns" 0) + '("convertXColumns" 0))) + TeX-dialect) + +(defvar LaTeX-ltablex-package-options nil + "Package options for the ltablex package.") + +;;; ltablex.el ends here diff --git a/elpa/auctex-13.1.3/style/ltablex.elc b/elpa/auctex-13.1.3/style/ltablex.elc Binary files differnew file mode 100644 index 0000000..c3486e7 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ltablex.elc diff --git a/elpa/auctex-13.1.3/style/ltugboat.el b/elpa/auctex-13.1.3/style/ltugboat.el new file mode 100644 index 0000000..7511e52 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ltugboat.el @@ -0,0 +1,295 @@ +;;; ltugboat.el --- AUCTeX style for `ltugboat.cls' (v2.22) -*- lexical-binding: t; -*- + +;; Copyright (C) 2019--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2019-05-11 +;; 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 `ltugboat.cls' (v2.22) from 2019/11/09. +;; `ltugboat.cls' is part of TeXLive. + +;;; Code: + +(require 'crm) +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defun LaTeX-env-ltugboat-verbatim (environment) + "Insert verbatim environment with an optional argument." + (let* ((crm-separator (regexp-quote TeX-esc)) + (opts (mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt t nil "command(s)") + '("\\tiny" "\\scriptsize" "\\footnotesize" + "\\small" "\\normalsize" "\\large" + "\\Large" "\\LARGE" "\\huge" + "\\Huge" "\\makevmeta" "\\ruled") + nil nil TeX-esc) + TeX-esc))) + (LaTeX-insert-environment environment + (when (and opts + (not (string= opts ""))) + (concat LaTeX-optop opts LaTeX-optcl))))) + +(TeX-add-style-hook + "ltugboat" + (lambda () + + ;; Run the style hook for mflogo in order to define the macros \MF + ;; and \MP: + (TeX-run-style-hooks "mflogo") + + ;; Preliminaries: ltugboat.cls suppresses \part & \subparagraph + (LaTeX-largest-level-set "section") + (LaTeX-add-counters "section" "subsection" "subsubsection" "paragraph" + "figure" "table") + + ;; 6 Divisions of the paper + (TeX-add-symbols + '("nameref" TeX-arg-ref)) + + (setq TeX-complete-list + (append + '(("\\\\nameref{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}")) + TeX-complete-list)) + + ;; 6.1 Abstracts + (LaTeX-add-environments '("abstract") + '("longabstract")) + + ;; 6.2 Appendices: Cater for appendix environment and don't indent + ;; the content + (LaTeX-add-environments '("appendix")) + + (unless (string-match-p "appendix" LaTeX-document-regexp) + (set (make-local-variable 'LaTeX-document-regexp) + (concat LaTeX-document-regexp "\\|" "appendix"))) + + (TeX-add-symbols + ;; 7 Titles, addresses and so on + '("shortTitle" "Short title") + '("shortAuthor" LaTeX-arg-author) + '("address" "Address") + '("netaddress" "Email address") + '("personalURL" "Web page") + '("ORCID" "Digital identifier") + + ;; 7.1 Compilation articles + '("contributor" "Contributor") + '("makesignature" 0)) + + ;; 8 Verbatim text + (LaTeX-add-environments + '("verbatim" LaTeX-env-ltugboat-verbatim)) + + ;; 10.1 Acronyms and logos + (TeX-add-symbols + '("acro" "Acronym") + "AMS" + "AmS" + "AmSLaTeX" + "AmSTeX" + "ANSI" + "API" + "ASCII" + "aw" + "AW" + "BibLaTeX" + "BibTeX" + "BSD" + "CandT" + "ConTeXt" + "CMkIV" + "Cplusplus" + "CPU" + "CSczabbr" + "CSS" + "CSTUG" + "CSV" + "CTAN" + "DTD" + "DTK" + "DVD" + "DVI" + "DVIPDFMx" + "DVItoVDU" + "ECMS" + "EPS" + "eTeX" + "ExTeX" + "FAQ" + "FTP" + "Ghostscript" + "GNU" + "GUI" + "Hawaii" + "HTML" + "HTTP" + "iOS" + "IDE" + "IEEE" + "ISBN" + "ISO" + "ISSN" + "JPEG" + "JTeX" + "JoT" + "KOMAScript" + "LAMSTeX" + "LuaHBTeX" + "LuaHBLaTeX" + "LuaLaTeX" + "LuaTeX" + "LyX" + "macOS" + "MacOSX" + "MathML" + "mf" + "MFB" + "MkIV" + "mp" + "NTG" + "NTS" + "OMEGA" + "OCP" + "OOXML" + "OTF" + "OTP" + "mtex" + "Pas" + "pcMF" + "PCteX" + "pcTeX" + "pdflatex" + "pdftex" + "PDF" + "PGF" + "PHP" + "PiCTeX" + "plain" + "PNG" + "POBox" + "PS" + "PSTricks" + "RTF" + "SC" + "SGML" + "SliTeX" + "SQL" + "stTeX" + "STIX" + "SVG" + "TANGLE" + "TB" + "TIFF" + "TP" + "TeXhax" + "TeXMaG" + "TeXtures" + "Textures" + "TeXworks" + "TeXXeT" + "TFM" + "Thanh" + "TikZ" + "ttn" + "TTN" + "TUB" + "TUG" + "tug" + "UG" + "UNIX" + "VAX" + "VnTeX" + "VorTeX" + "XML" + "WEB" + "WEAVE" + "WYSIWYG" + "XeTeX" + "XeLaTeX" + "XHTML" + "XSL" + "XSLFO" + "XSLT" + + ;; 10.2 Other special typesetting + "Dash" + '("cs" (TeX-arg-eval let ((macro (completing-read + (TeX-argument-prompt nil nil + "Command") + (TeX-symbol-list)))) + (format "%s" macro))) + '("env" (TeX-arg-eval let ((env (completing-read + (TeX-argument-prompt nil nil + "Environment") + (LaTeX-environment-list)))) + (format "%s" env))) + '("meta" "Text") + '("tubbraced" "Text") + '("nth" "Number") + + ;; 12 Bibliography + '("SetBibJustification" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Justification") + '("\\raggedright" "\\sloppy")))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("shortTitle" "{") + ("shortAuthor" "{") + ("netaddress" "{") + ("personalURL" "{") + ("ORCID" "{") + ("contributor" "{") + ("acro" "{") + ("cs" "{") + ("env" "{") + ("meta" "{") + ("tubbraced" "{") + ("nth" "{")) + 'textual) + (font-latex-add-keywords '(("makesignature" "") + ("SetBibJustification" "{")) + 'function) + (font-latex-add-keywords '(("nameref" "{")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-ltugboat-class-options + '("draft" "final" "preprint" + "extralabel" "harvardcite" "noextralabel" "nonumber" "numbersec" + "onecolumn" "rawcite" "runningfull" "runningminimal" "runningoff" + "a4paper" "a5paper" "b5paper" "letterpaper" "legalpaper" "executivepaper" + "titlepage" "notitlepage" "twocolumn" "leqno" "fleqn" "openbib") + "Package options for the ltugboat class.") + +;;; ltugboat.el ends here diff --git a/elpa/auctex-13.1.3/style/ltugboat.elc b/elpa/auctex-13.1.3/style/ltugboat.elc Binary files differnew file mode 100644 index 0000000..66083f4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ltugboat.elc diff --git a/elpa/auctex-13.1.3/style/ltx-base.el b/elpa/auctex-13.1.3/style/ltx-base.el new file mode 100644 index 0000000..d10a137 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ltx-base.el @@ -0,0 +1,160 @@ +;;; ltx-base.el --- AUCTeX style for basic LaTeX commands. -*- lexical-binding: t; -*- + +;; Copyright (C) 2004--2022 Free Software Foundation, Inc. + +;; Author: Frank Küster <frank@kuesterei.ch> +;; Maintainer: auctex-devel@gnu.org +;; 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 general support for basic LaTeX commands used for +;; writing LaTeX class files (.cls), style files (.sty) and package +;; files (.dtx). Most of the macros are taken from clsguide.pdf. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "ltx-base" + (lambda () + (TeX-add-symbols + + ;; 4.1 Identification. Other '\Provide*' macros are available in + ;; latex.el + '("NeedsTeXFormat" "Format" [ "Release date" ]) + + ;; 4.2 Loading files + ;; \RequirePackage is provided in latex.el + '("RequirePackageWithOptions" "Package" [ "Release information" ]) + + '("LoadClass" [ "Options" ] "Class" [ "Release information" ]) + '("LoadClassWithOptions" "Class" [ "Release information" ]) + + ;; 4.3 Option declaration + '("DeclareOption" "Option" t) + '("DeclareOption*" t) + + ;; 4.4 Commands within option code + '("CurrentOption" 0) + '("OptionNotUsed" 0) + + ;; 4.5 Moving options around + '("PassOptionsToPackage" "Option(s) list" "Package") + '("PassOptionsToClass" "Option(s) list" "Class") + + ;; 4.6 Delaying code + '("AtEndOfPackage" t) + '("AtEndOfClass" t) + '("AtBeginDocument" t) + '("AtEndDocument" t) + '("AtBeginDvi" t) + + ;; 4.7 Option processing + '("ProcessOptions" (TeX-arg-literal "\\relax")) + "ProcessOptions*" + '("ExecuteOptions" "Option list") + + ;; 4.8 Safe file commands + '("IfFileExists" "File" 2) + '("InputIfFileExists" "File" 2) + + ;; 4.9 Reporting errors, etc + '("ClassError" "Class name" "Error text" t) + '("PackageError" "Package name" "Error text" t) + + '("ClassWarning" "Class name" t) + '("PackageWarning" "Package name" t) + '("ClassWarningNoLine" "Class name" t) + '("PackageWarningNoLine" "Package name" t) + + '("ClassInfo" "Class name" t) + '("PackageInfo" "Package name" t) + + '("MessageBreak" 0) + '("message" "Log Message") + + ;; 4.10 Defining commands + '("DeclareRobustCommand" + TeX-arg-define-macro [ TeX-arg-define-macro-arguments ] t) + '("DeclareRobustCommand*" + TeX-arg-define-macro [ TeX-arg-define-macro-arguments ] t) + + '("CheckCommand" TeX-arg-macro [ TeX-arg-define-macro-arguments ] t) + '("CheckCommand*" TeX-arg-macro [ TeX-arg-define-macro-arguments ] t) + + ;; 5.1 Layout parameters + ;; \paperheight & \paperwidth are provided in latex.el + + ;; 5.2 Case changing + ;; \MakeUppercase & \MakeLppercase are provided in latex.el + + ;; 5.4 Better user-defined math display environments + "ignorespacesafterend" + + ;; 5.5 Normalising spacing + "normalsfcodes" + + ;; Some general macros not mentioned in clsguide.pdf + '("@addtoreset" TeX-arg-counter (TeX-arg-counter "Within counter")) + '("addpenalty" "Penalty") + '("@ifundefined" TeX-arg-macro 2) + '("@ifnextchar" (TeX-arg-literal " ") (TeX-arg-free "Character") 2) + '("expandafter" 0)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("NeedsTeXFormat" "{[") + ("RequirePackageWithOptions" "{[") + ("LoadClass" "[{[") + ("LoadClassWithOptions" "{[") + ;; Don't fontify the second argument + ;; which will contain code: + ("DeclareOption" "*{") + ("CurrentOption" "") + ("OptionNotUsed" "") + ("PassOptionsToPackage" "{{") + ("PassOptionsToClass" "{{") + + ("AtEndOfPackage" "") + ("AtEndOfClass" "") + ("AtBeginDocument" "") + ("AtEndDocument" "") + ("AtBeginDvi" "") + + ("ProcessOptions" "*") + ("ExecuteOptions" "{") + ("DeclareRobustCommand" "*|{\\[[{") + ("CheckCommand" "*|{\\[[{")) + 'function))) + TeX-dialect) + +;; Local Variables: +;; coding: utf-8 +;; End: + +;;; ltx-base.el ends here diff --git a/elpa/auctex-13.1.3/style/ltx-base.elc b/elpa/auctex-13.1.3/style/ltx-base.elc Binary files differnew file mode 100644 index 0000000..e180167 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ltx-base.elc diff --git a/elpa/auctex-13.1.3/style/ltxdoc.el b/elpa/auctex-13.1.3/style/ltxdoc.el new file mode 100644 index 0000000..16c26e1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ltxdoc.el @@ -0,0 +1,99 @@ +;;; ltxdoc.el --- AUCTeX style for `ltxdoc.cls' -*- lexical-binding: t; -*- + +;; Copyright (C) 2004--2022 Free Software Foundation, Inc. + +;; Author: Frank Küster <frank@kuesterei.ch> +;; Maintainer: auctex-devel@gnu.org +;; 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 `ltxdoc.cls' v2.1d, dated 2021/12/07. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(defvar LaTeX-article-class-options) + +(TeX-add-style-hook + "ltxdoc" + (lambda () + + ;; ltxdoc.cls loads shortvrb.sty and sets '|' as a shorthand. We + ;; append it to a local version of `LaTeX-shortvrb-chars' before + ;; running the style hook for 'shortvrb' which is done inside + ;; 'doc.el': + (add-to-list (make-local-variable 'LaTeX-shortvrb-chars) ?| t) + + (TeX-run-style-hooks "doc" "ltx-base" "article") + + (TeX-add-symbols + '("cmd" TeX-arg-macro) + '("cs" (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Macro") + (TeX-symbol-list))) + '("marg" "Mandatory argument") + '("oarg" "Optional argument") + '("parg" "Picture mode argument") + + '("DocInclude" + (TeX-arg-eval + (lambda () + (let ((file (file-relative-name + (read-file-name + "File to include: " nil nil nil nil + (lambda (x) + (or (file-directory-p x) + (string-match "\\.\\(fdd\\|dtx\\)\\'" x)))) + (TeX-master-directory)))) + (format "%s" file)))))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("cmd" "{") + ("cs" "{") + ("marg" "{") + ("oarg" "{") + ("parg" "{")) + 'textual) + (font-latex-add-keywords '("DocInclude" "{") + 'reference))) + TeX-dialect) + +(defvar LaTeX-ltxdoc-class-options + (progn + (TeX-load-style "article") + (append (remove "a5paper" LaTeX-article-class-options) + '("nocfg"))) + "Class options for the ltxdoc class. +All options are passed to article class, \"a5paper\" is disabled +by ltxdoc. Therefore it is also removed here.") + +;; Local Variables: +;; coding: utf-8 +;; End: + +;;; ltxdoc.el ends here diff --git a/elpa/auctex-13.1.3/style/ltxdoc.elc b/elpa/auctex-13.1.3/style/ltxdoc.elc Binary files differnew file mode 100644 index 0000000..516771b --- /dev/null +++ b/elpa/auctex-13.1.3/style/ltxdoc.elc diff --git a/elpa/auctex-13.1.3/style/ltxguide.el b/elpa/auctex-13.1.3/style/ltxguide.el new file mode 100644 index 0000000..a30a2a7 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ltxguide.el @@ -0,0 +1,128 @@ +;;; ltxguide.el --- AUCTeX style for `ltxguide.cls' (2001/05/28) -*- lexical-binding: t; -*- + +;; Copyright (C) 2020, 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2020-01-05 +;; 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 `ltxguide.cls' from 2001/05/28. +;; `ltxguide.cls' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(declare-function font-latex-set-syntactic-keywords + "font-latex") + +(defvar LaTeX-article-class-options) + +(defun LaTeX-item-ltxguide-decl () + "Insert line break macro on the previous line. +For decl environment provided by ltxguide.cls." + (save-excursion + (end-of-line 0) + (just-one-space) + (TeX-insert-macro "\\"))) + +(TeX-add-style-hook + "ltxguide" + (lambda () + + ;; ltxguide.cls loads shortvrb.sty and sets | as a shorthand. + ;; Append it to a local version of `LaTeX-shortvrb-chars' before + ;; running the style hook for `shortvrb': + (add-to-list (make-local-variable 'LaTeX-shortvrb-chars) ?| t) + + ;; Run style hooks for packages loaded by default: + (TeX-run-style-hooks "shortvrb" "article") + + (TeX-add-symbols + "clsguide" + "usrguide" + "fntguide" + "cfgguide" + "cyrguide" + "modguide" + "sourcecode" + "LaTeXbook" + "LaTeXcomp" + "LaTeXGcomp" + "LaTeXWcomp" + "babel" + "ctan" + "eg" + "ie" + "SLiTeX" + '("m" "Argument") + '("arg" "Argument") + '("oarg" "Argument") + "NFSS" + "AmSLaTeX" + '("URL" "URL") + '("NEWdescription" TeX-arg-date) + '("NEWfeature" TeX-arg-date)) + + (LaTeX-add-environments + '("decl" LaTeX-env-args [ "Date" ])) + + ;; Enable `LaTeX-insert-item' in decl-environments: + (add-to-list 'LaTeX-item-list + '("decl" . LaTeX-item-ltxguide-decl) + t) + + ;; Make the next 2 macros stay in their own line: + (LaTeX-paragraph-commands-add-locally '("NEWdescription" + "NEWfeature")) + + ;; Verbatim-like macros with braces as delimiters: + (add-to-list 'LaTeX-verbatim-macros-with-braces-local "URL") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("m" "{") + ("arg" "{") + ("oarg" "{") + ("NEWfeature" "{") + ("NEWdescription" "{")) + 'textual) + (font-latex-add-keywords '(("URL" "")) + 'reference) + ;; Tell font-lock about the update. + (font-latex-set-syntactic-keywords))) + TeX-dialect) + +(defvar LaTeX-ltxguide-class-options + (progn + (TeX-load-style "article") + LaTeX-article-class-options) + "Options for the ltxguide document class.") + +;;; ltxguide.el ends here diff --git a/elpa/auctex-13.1.3/style/ltxguide.elc b/elpa/auctex-13.1.3/style/ltxguide.elc Binary files differnew file mode 100644 index 0000000..e2c0a0f --- /dev/null +++ b/elpa/auctex-13.1.3/style/ltxguide.elc diff --git a/elpa/auctex-13.1.3/style/ltxtable.el b/elpa/auctex-13.1.3/style/ltxtable.el new file mode 100644 index 0000000..51b9b02 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ltxtable.el @@ -0,0 +1,101 @@ +;;; ltxtable.el --- AUCTeX style for `ltxtable.sty' (v0.4) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015--2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-03-14 +;; 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 `ltxtable.sty' (v0.4) from 2021/06/13. +;; `ltxtable.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function reftex-compile-variables + "reftex" + ()) + +(defvar LaTeX-ltxtable-file-regexp + `(,(concat "\\\\LTXtable" + "{\\(?:[^}]+\\)}" + "{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}") + 1 TeX-auto-file) + "Matches the file argument of \\LTXtable marco from ltxtable package. +The regexp for the 2. argument is the same as for \"input\" and +\"include\" entries in `LaTeX-auto-regexp-list'.") + +(TeX-add-style-hook + "ltxtable" + (lambda () + (TeX-run-style-hooks "tabularx" "longtable") + + (TeX-add-symbols + '("LTXtable" + (TeX-arg-length "Width" "1.0\\linewidth") + (TeX-arg-eval + (lambda () + (let ((longtable (file-relative-name + (read-file-name + "File with longtable: " + nil nil nil nil + (lambda (x) + (or (file-directory-p x) + (string-match "\\.\\(tex\\|ltx\\)\\'" x)))) + (TeX-master-directory)))) + (format "%s" longtable)))))) + + ;; Make sure that \LTXtable stays in its own line: + (LaTeX-paragraph-commands-add-locally "LTXtable") + + ;; Tell AUCTeX about a new file-include command: + (TeX-auto-add-regexp LaTeX-ltxtable-file-regexp) + + ;; Tell RefTeX about a new file-include command: Add + ;; LTXtable{<width>} as a regexp (without \) to + ;; `reftex-include-file-commands' and run + ;; `reftex-compile-variables'. Do this all only once. + (when (and (boundp 'reftex-include-file-commands) + (not (string-match "LTXtable" + (mapconcat #'identity reftex-include-file-commands "|")))) + (add-to-list 'reftex-include-file-commands "LTXtable{\\(?:[^}]+\\)}" t) + (reftex-compile-variables)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("LTXtable" "{{")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-ltxtable-package-options nil + "Package options for the ltxtable package.") + +;;; ltxtable.el ends here diff --git a/elpa/auctex-13.1.3/style/ltxtable.elc b/elpa/auctex-13.1.3/style/ltxtable.elc Binary files differnew file mode 100644 index 0000000..08a9b75 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ltxtable.elc diff --git a/elpa/auctex-13.1.3/style/luacode.el b/elpa/auctex-13.1.3/style/luacode.el new file mode 100644 index 0000000..b5eb8c5 --- /dev/null +++ b/elpa/auctex-13.1.3/style/luacode.el @@ -0,0 +1,71 @@ +;;; luacode.el --- AUCTeX style for `luacode.sty' version 1.2a. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013, 2018, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <giordano.mose@libero.it> +;; 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 `luacode.sty' 1.2a. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "luacode" + (lambda () + (TeX-add-symbols + '("luadirect" 1) + '("luaexec" 1) + '("luastring" 1) + '("luastringN" 1) + '("luastringO" 1) + '("LuaCodeDebugOn" 0) + '("LuaCodeDebugOff" 0)) + (LaTeX-add-environments + '("luacode") + '("luacode*")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("luadirect" "{") + ("luaexec" "{") + ("luastring" "{") + ("luastringN" "{") + ("luastringO" "{") + ("LuaCodeDebugOn") + ("LuaCodeDebugOff")) + 'function))) + TeX-dialect) + +(defvar LaTeX-luacode-package-options nil + "Package options for the luacode package.") + +;;; luacode.el ends here diff --git a/elpa/auctex-13.1.3/style/luacode.elc b/elpa/auctex-13.1.3/style/luacode.elc Binary files differnew file mode 100644 index 0000000..8dbf9e6 --- /dev/null +++ b/elpa/auctex-13.1.3/style/luacode.elc diff --git a/elpa/auctex-13.1.3/style/luatextra.el b/elpa/auctex-13.1.3/style/luatextra.el new file mode 100644 index 0000000..1fe804d --- /dev/null +++ b/elpa/auctex-13.1.3/style/luatextra.el @@ -0,0 +1,46 @@ +;;; luatextra.el --- AUCTeX style for `luatextra.sty' version 1.0. -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2020 Free Software Foundation, Inc. + +;; Author: Davide G. M. Salvetti <salve@debian.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-11-15 +;; 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, see +;; <https://www.gnu.org/licenses/>. + +;;; Commentary: + +;; This file adds support for `luatextra.sty' 1.0. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "luatextra" + (lambda () + (TeX-run-style-hooks "ifluatex" "fontspec" + ;; FIXME: yet to be written: + ;; "luatexbase" + "metalogo" "luacode")) + TeX-dialect) + +(defvar LaTeX-luatextra-package-options nil + "Package options for the ifluatex package.") + +;;; luatextra.el ends here diff --git a/elpa/auctex-13.1.3/style/luatextra.elc b/elpa/auctex-13.1.3/style/luatextra.elc Binary files differnew file mode 100644 index 0000000..8bb666c --- /dev/null +++ b/elpa/auctex-13.1.3/style/luatextra.elc diff --git a/elpa/auctex-13.1.3/style/makeidx.el b/elpa/auctex-13.1.3/style/makeidx.el new file mode 100644 index 0000000..4fe7ce4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/makeidx.el @@ -0,0 +1,52 @@ +;;; makeidx.el --- AUCTeX support for makeidx.sty -*- lexical-binding: t; -*- + +;; Copyright (C) 1999, 2020 Free Software Foundation, Inc. + +;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl> +;; Maintainer: auctex-devel@gnu.org + +;; 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. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "makeidx" + (lambda () + (TeX-add-symbols + "printindex" "indexspace") + + ;; Parsing the default index macro is defined in latex.el + ;; The same is true form completion in the index macro + + ;; Completion for the |see macro + (setq TeX-complete-list + (append + '(("|see{\\([^{}\n\r]*\\)" 1 LaTeX-index-entry-list)) + TeX-complete-list)) + + ;; RefTeX support + (and (fboundp 'reftex-add-index-macros) + (reftex-add-index-macros '(default)))) + TeX-dialect) + +(defvar LaTeX-makeidx-package-options nil + "Package options for the makeidx package.") + +;;; makeidx.el ends here diff --git a/elpa/auctex-13.1.3/style/makeidx.elc b/elpa/auctex-13.1.3/style/makeidx.elc Binary files differnew file mode 100644 index 0000000..a193737 --- /dev/null +++ b/elpa/auctex-13.1.3/style/makeidx.elc diff --git a/elpa/auctex-13.1.3/style/marginnote.el b/elpa/auctex-13.1.3/style/marginnote.el new file mode 100644 index 0000000..0a977da --- /dev/null +++ b/elpa/auctex-13.1.3/style/marginnote.el @@ -0,0 +1,67 @@ +;;; marginnote.el --- AUCTeX style for `marginnote.sty' (v1.4) -*- lexical-binding: t; -*- + +;; Copyright (C) 2018--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2018-07-07 +;; 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 `marginnote.sty' (v1.4) from 2018/07/01. +;; `marginnote.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "marginnote" + (lambda () + + (TeX-add-symbols + '("marginnote" [ "Left margin text" ] "Text" + [ TeX-arg-length "Vertical offset" ] ) + + "marginnotetextwidth" + "marginnotevadjust" + "raggedleftmarginnote" + "raggedrightmarginnote" + "marginfont") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("marginnote" "[{[")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-marginnote-package-options + '("fulladjust" "heightadjust" "depthadjust" "noadjust" + "parboxrestore" "noparboxrestore") + "Package options for the marginnote package.") + +;;; marginnote.el ends here diff --git a/elpa/auctex-13.1.3/style/marginnote.elc b/elpa/auctex-13.1.3/style/marginnote.elc Binary files differnew file mode 100644 index 0000000..483a780 --- /dev/null +++ b/elpa/auctex-13.1.3/style/marginnote.elc diff --git a/elpa/auctex-13.1.3/style/mathtools.el b/elpa/auctex-13.1.3/style/mathtools.el new file mode 100644 index 0000000..d0e1f26 --- /dev/null +++ b/elpa/auctex-13.1.3/style/mathtools.el @@ -0,0 +1,504 @@ +;;; mathtools.el --- Style hook for the LaTeX package `mathtools'. -*- lexical-binding: t; -*- + +;; Copyright (C) 2011-2020, 2022 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Created: 2011-02-13 +;; 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 `mathtools.sty' + +;;; Comments: + +;;; This package serves as a wrapper for amsmath, adding more features +;;; and fixing a few bugs in amsmath. The mathstyle argument for many +;;; of the macros is discussed at +;;; <https://www.tug.org/TUGboat/Articles/tb22-4/tb72perlS.pdf> + +;;; Code: + +;; Needed for auto-parsing: +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-amsmath-package-options) + +;; amsmath options which can be passed directly to mathtools are +;; appended in the style hook below +(defvar LaTeX-mathtools-package-options + '("fixamsmath" "donotfixamsmathbugs" "allowspaces" "disallowspaces" + ;; Update 2013: We now make \(\) and \[\] robust (can be disabled + ;; via nonrobust package option) + "nonrobust") + "Package options for the mathtools package.") +(TeX-load-style "amsmath") +(dolist (elt LaTeX-amsmath-package-options) + (add-to-list 'LaTeX-mathtools-package-options elt)) + +(defvar LaTeX-mathtools-key-val-options + '(("showonlyrefs") + ("mathic" ("true" "false")) + ("showmanualtags" ("true" "false")) + ;; 3.4.1 Matrices + ("smallmatrix-align" ("c" "l" "r")) + ("smallmatrix-inner-space") + ;; 3.4.2 The multlined environment + ("firstline-afterskip") + ("lastline-preskip") + ("multlined-pos" ("c" "b" "t")) + ("multlined-width") + ;; 3.4.7 Centered \vdots + ("shortvdotsadjustabove") + ("shortvdotsadjustbelow") + ;; 3.5 Intertext and short intertext + ("original-intertext" ("true" "false")) + ("original-shortintertext" ("true" "false")) + ("above-intertext-sep") + ("below-intertext-sep") + ("above-shortintertext-sep") + ("below-shortintertext-sep") + ;; 3.7.2 Vertically centered colon + ("centercolon" ("true" "false")) + ;; 4.2 Left sub/superscripts + ("prescript-sub-format") + ("prescript-sup-format") + ("prescript-arg-format")) + "Options for the \\mathtoolsset command.") + +;; Setup for \newtagform +(TeX-auto-add-type "mathtools-newtagform" "LaTeX") + +(defvar LaTeX-mathtools-newtagform-regexp + '("\\\\newtagform{\\([^}]+\\)}" + 1 LaTeX-auto-mathtools-newtagform) + "Matches the first argument of \\newtagform from mathtools package.") + +;; Setup for \DeclarePairedDelimiter(X)?: +(TeX-auto-add-type "mathtools-DeclarePairedDelimiter" "LaTeX") + +(defvar LaTeX-mathtools-DeclarePairedDelimiter-regexp + `(,(concat "\\\\DeclarePairedDelimiter\\(?:X\\|XPP\\)?" + "{?" + "\\\\\\([a-zA-Z]+\\)" + "}?" + "\\(?:\\[\\([0-9]+\\)\\]\\)?") + (1 2) LaTeX-auto-mathtools-DeclarePairedDelimiter) + "Match the arguments of \\DeclarePairedDelimiterX? from mathtools package.") + +;; Setup for \newgathered +(TeX-auto-add-type "mathtools-newgathered" "LaTeX") + +(defvar LaTeX-mathtools-newgathered-regexp + '("\\\\newgathered{\\([^}]+\\)}" + 1 LaTeX-auto-mathtools-newgathered) + "Matches the first argument of \\newgathered from mathtools package.") + +(defun LaTeX-mathtools-auto-prepare () + "Clear various variables for mathtools package before parsing." + (setq LaTeX-auto-mathtools-newtagform nil + LaTeX-auto-mathtools-DeclarePairedDelimiter nil + LaTeX-auto-mathtools-newgathered nil)) + +(defun LaTeX-mathtools-auto-cleanup () + "Process the parsed elements for mathtools package." + (when (LaTeX-mathtools-DeclarePairedDelimiter-list) + (dolist (delim (LaTeX-mathtools-DeclarePairedDelimiter-list)) + (let ((cmd (car delim)) + (arg (cadr delim))) + (TeX-add-symbols `(,cmd [ LaTeX-mathtools-arg-mathsize-completion ] + ,(if (string= arg "") + 1 + (string-to-number arg))) + `(,(concat cmd "*") + ,(if (string= arg "") + 1 + (string-to-number arg))))))) + (when (LaTeX-mathtools-newgathered-list) + (dolist (env (mapcar #'car (LaTeX-mathtools-newgathered-list))) + (LaTeX-add-environments env) + (add-to-list 'LaTeX-item-list + `(,env . LaTeX-item-equation) t) + (add-to-list 'LaTeX-label-alist + `(,env . LaTeX-amsmath-label) t) + (when (fboundp 'reftex-add-label-environments) + (reftex-add-label-environments `((,env ?e nil nil t))))))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-mathtools-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-mathtools-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun LaTeX-mathtools-arg-mathstyle-completion (optional) + "Query and insert mathstyle argument to various commands. +If OPTIONAL, insert it as optional argument in brackets." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional nil + (concat "Math style: " TeX-esc) t) + '("displaystyle" "textstyle" + "scriptstyle" "scriptscriptstyle")) + optional TeX-esc)) + +(defun LaTeX-mathtools-arg-mathsize-completion (optional) + "Query and insert math size argument to various commands. +If OPTIONAL, insert it as optional argument in brackets." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional nil + (concat "Size command: " TeX-esc) t) + '("big" "Big" "bigg" "Bigg")) + optional TeX-esc)) + +(defun LaTeX-mathtools-arg-declarepaireddelimiter (optional &optional X) + "Query and insert various \\DeclarePairedDelimiter macros from mathtools package." + (let ((cmd (TeX-read-string (concat "Command: " TeX-esc))) + (arg (when X (TeX-read-string + (TeX-argument-prompt t nil "Number of arguments"))))) + (TeX-add-symbols `(,cmd [ LaTeX-mathtools-arg-mathsize-completion ] + ,(if X + ;; This is no precaution, arg has to be > 0 + (string-to-number arg) + 1)) + `(,(concat cmd "*") + ,(if X + (string-to-number arg) + 1))) + (LaTeX-add-mathtools-DeclarePairedDelimiters + `(,cmd ,(if X arg ""))) + (TeX-argument-insert cmd optional TeX-esc) + (when arg + (insert (concat LaTeX-optop arg LaTeX-optcl))))) + +(defun LaTeX-mathtools-env-multlined (env) + "Query and insert two optional arguments for ENV multlined. +If both arguments are given, insert them in brackets. If only a +width is given, insert it prefixed with a pair of empty +brackets." + (let ((pos (TeX-read-string + (TeX-argument-prompt t nil "Position (t, b or c (default))"))) + (width (completing-read + (TeX-argument-prompt t nil "Width") + (mapcar + (lambda (x) (concat TeX-esc (car x))) + (LaTeX-length-list))))) + (LaTeX-insert-environment + env + (cond (;; both arguments + (and pos (not (string= pos "")) + width (not (string= width ""))) + (format "[%s][%s]" pos width)) + (;; pos not empty, width empty + (and pos (not (string= pos "")) + (string= width "")) + (format "[%s]" pos)) + (;; pos empty, width not + (and (string= pos "") + width (not (string= width ""))) + (format "[][%s]" width)) + (t nil))))) + +(defun LaTeX-mathtools-env-cases (env) + "Insert various cases ENVs incl. an ampersand from mathtools package." + (LaTeX-insert-environment env) + (save-excursion + (insert ?&))) + +(defun LaTeX-mathtools-item-cases () + "Insert contents to terminate a line in multi-line cases environment. +Put line break macro on the last line. Next, insert an ampersand." + (end-of-line 0) + (just-one-space) + (TeX-insert-macro "\\") + (forward-line 1) + (save-excursion + (insert ?&))) + +(TeX-add-style-hook + "mathtools" + (lambda () + + ;; Add mathtools to parser + (TeX-auto-add-regexp LaTeX-mathtools-newtagform-regexp) + (TeX-auto-add-regexp LaTeX-mathtools-DeclarePairedDelimiter-regexp) + (TeX-auto-add-regexp LaTeX-mathtools-newgathered-regexp) + + ;; "default" is pre-defined + (LaTeX-add-mathtools-newtagforms "default") + + ;; mathtools requires amsmath, as some bugs in amsmath are fixed + (TeX-run-style-hooks "amsmath") + + (LaTeX-add-environments + ;; 3.4.1 Matrices + '("matrix*" [ "Vertical alignment (l, r or c (default))" ]) + '("pmatrix*" [ "Vertical alignment (l, r or c (default))" ]) + '("bmatrix*" [ "Vertical alignment (l, r or c (default))" ]) + '("Bmatrix*" [ "Vertical alignment (l, r or c (default))" ]) + '("vmatrix*" [ "Vertical alignment (l, r or c (default))" ]) + '("Vmatrix*" [ "Vertical alignment (l, r or c (default))" ]) + '("smallmatrix*" [ "Vertical alignment (l, r or c (default))" ]) + '("psmallmatrix") + '("psmallmatrix*" [ "Vertical alignment (l, r or c (default))" ]) + '("bsmallmatrix") + '("bsmallmatrix*" [ "Vertical alignment (l, r or c (default))" ]) + '("Bsmallmatrix") + '("Bsmallmatrix*" [ "Vertical alignment (l, r or c (default))" ]) + '("vsmallmatrix") + '("vsmallmatrix*" [ "Vertical alignment (l, r or c (default))" ]) + '("Vsmallmatrix") + '("Vsmallmatrix*" [ "Vertical alignment (l, r or c (default))" ]) + ;; 3.4.2 The multlined environment + '("multlined" LaTeX-mathtools-env-multlined) + ;; 3.4.3 More cases -like environments + '("dcases" LaTeX-mathtools-env-cases) + '("dcases*" LaTeX-mathtools-env-cases) + '("rcases" LaTeX-mathtools-env-cases) + '("rcases*" LaTeX-mathtools-env-cases) + '("drcases" LaTeX-mathtools-env-cases) + '("drcases*" LaTeX-mathtools-env-cases) + '("cases*" LaTeX-mathtools-env-cases) + ;; 4.4 Spreading equations + '("spreadlines" "Spacing between lines") + ;; 4.5 Gathered environments + '("lgathered" ["Vertical position (t or b)"]) + '("rgathered" ["Vertical position (t or b)"])) + + (TeX-add-symbols + '("mathtoolsset" (TeX-arg-key-val LaTeX-mathtools-key-val-options)) + ;; 3.1.1 A complement to \smash, \llap, and \rlap + '("mathllap" [ LaTeX-mathtools-arg-mathstyle-completion ] t) + '("mathrlap" [ LaTeX-mathtools-arg-mathstyle-completion ] t) + '("mathclap" [ LaTeX-mathtools-arg-mathstyle-completion ] t) + '("mathmakebox" [ (TeX-arg-length "Width") ] [ "Position" ] 1) + '("clap" 1) + '("mathmbox" 1) + ;; 3.1.2 Forcing a cramped style + '("cramped" [ LaTeX-mathtools-arg-mathstyle-completion ] 1) + '("crampedllap" [ LaTeX-mathtools-arg-mathstyle-completion ] t) + '("crampedrlap" [ LaTeX-mathtools-arg-mathstyle-completion ] t) + '("crampedclap" [ LaTeX-mathtools-arg-mathstyle-completion ] t) + ;; 3.1.3 Smashing an operator + '("smashoperator" [ "Position (l, r or lr (default)" ] 1) + ;; 3.1.4 Adjusting the limits of operators + '("adjustlimits" t (TeX-arg-literal "_") nil nil (TeX-arg-literal "_") nil) + ;; 3.1.5 Swapping space above AMS display math environments + '("SwapAboveDisplaySkip" 0) + ;; 3.2.1 The appearance of tags + '("newtagform" + (TeX-arg-eval + (lambda () + (let ((newtag (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-mathtools-newtagforms newtag) + (format "%s" newtag)))) + [ "Inner format" ] "Left" "Right") + '("renewtagform" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + (LaTeX-mathtools-newtagform-list)) + [ "Inner format" ] "Left" "Right") + '("usetagform" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + (LaTeX-mathtools-newtagform-list))) + ;; 3.2.2 Showing only referenced tags + '("refeq" TeX-arg-ref) + '("noeqref" TeX-arg-ref) + ;; 3.3.1 Arrow-like symbols + '("xleftrightarrow" ["Below"] "Above") + '("xLeftarrow" ["Below"] "Above") + '("xRightarrow" ["Below"] "Above") + '("xLeftrightarrow" ["Below"] "Above") + '("xhookleftarrow" ["Below"] "Above") + '("xhookrightarrow" ["Below"] "Above") + '("xmapsto" ["Below"] "Above") + '("xrightharpoondown" ["Below"] "Above") + '("xrightharpoonup" ["Below"] "Above") + '("xleftharpoondown" ["Below"] "Above") + '("xleftharpoonup" ["Below"] "Above") + '("xrightleftharpoons" ["Below"] "Above") + '("xleftrightharpoons" ["Below"] "Above") + ;; 3.3.2 Braces and brackets + '("underbracket" [ (TeX-arg-length "Rule thickness") ] + [ (TeX-arg-length "Bracket height") ] t) + '("overbracket" [ (TeX-arg-length "Rule thickness") ] + [ (TeX-arg-length "Bracket height") ] t) + '("underbrace" 1) + '("overbrace" 1) + '("LaTeXunderbrace" 1) + '("LaTeXoverbrace" 1) + ;; 3.4.2 + '("shoveleft" [ (TeX-arg-length "Dimension") ] 1) + '("shoveright" [ (TeX-arg-length "Dimension") ] 1) + ;; 3.4.4 + '("MoveEqLeft" [ "Number" ]) + ;; 3.4.5 Boxing a single line in an alignment + '("Aboxed" 1) + ;; 3.4.6 Adding arrows between lines in an alignment + '("ArrowBetweenLines" [ TeX-arg-macro ] ) + '("ArrowBetweenLines*" [ TeX-arg-macro ] ) + ;; 3.4.7 Centered \vdots + '("vdotswithin" "Symbol") + '("shortvdotswithin" "Symbol") + '("shortvdotswithin*" "Symbol") + '("MTFlushSpaceAbove") + '("MTFlushSpaceBelow") + ;; 3.5 Intertext and short intertext + ;; don't understand t, but intertext in amsmath.el uses it + '("shortintertext" t) + ;; 3.6 Paired delimiters + '("DeclarePairedDelimiter" + LaTeX-mathtools-arg-declarepaireddelimiter + "Left delimiter" "Right delimiter") + '("DeclarePairedDelimiterX" + (LaTeX-mathtools-arg-declarepaireddelimiter t) + "Left delimiter" "Right delimiter" t) + '("DeclarePairedDelimiterXPP" + (LaTeX-mathtools-arg-declarepaireddelimiter t) + "Pre-code" "Left delimiter" "Right delimiter" 2) + '("delimsize" 0) + ;; 3.6.1 Expert use + '("reDeclarePairedDelimiterInnerWrapper" + (TeX-arg-eval + (lambda () + (let ((cmd (completing-read + (concat "Command: " TeX-esc) + (mapcar #'car (LaTeX-mathtools-DeclarePairedDelimiter-list))))) + (concat TeX-esc cmd)))) + (TeX-arg-eval completing-read + "star or nostar: " + '("star" "nostar")) + t) + ;; 3.7.1 Left and right parentheses + '("lparen" TeX-arg-insert-right-brace-maybe) + '("rparen") + ;; 3.7.2 Vertically centered colon + "vcentcolon" "ordinarycolon" "coloneqq" "Coloneqq" + "coloneq" "Coloneq" "eqqcolon" "Eqqcolon" "eqcolon" + "Eqcolon" "colonapprox" "Colonapprox" "colonsim" "Colonsim" + "dblcolon" + ;; 3.7.3 A few missing symbols + "nuparrow" "ndownarrow" "bigtimes" + ;; 4.2 Left sub/superscripts + '("prescript" "Below" "Above" t) + ;; 4.3 Declaring math sizes + '("DeclareMathSizes" 4) + ;; 4.5 Gathered environments + '("newgathered" + (TeX-arg-eval + (lambda () + (let ((env (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-environments env) + (LaTeX-add-mathtools-newgathereds env) + (add-to-list 'LaTeX-item-list + `(,env . LaTeX-item-equation) t) + (add-to-list 'LaTeX-label-alist + `(,env . LaTeX-amsmath-label) t) + (format "%s" env)))) + 3) + '("renewgathered" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + (LaTeX-mathtools-newgathered-list)) + 3) + ;; 4.6 Split fractions + '("splitfrac" 2) + '("splitdfrac" 2)) + + ;; Append delimiters to `TeX-braces-association' + ;; 3.7.1 Left and right parentheses + (make-local-variable 'TeX-braces-association) + (add-to-list 'TeX-braces-association '("\\lparen" . "\\rparen") t) + + (setq LaTeX-item-list + (append '(("multlined" . LaTeX-item-equation) + ("lgathered" . LaTeX-item-equation) + ("rgathered" . LaTeX-item-equation) + ;; FIXME: The entry for spreadlines seems dubious. + ("spreadlines" . LaTeX-item-equation) + ("matrix*" . LaTeX-item-equation) + ("pmatrix*" . LaTeX-item-equation) + ("bmatrix*" . LaTeX-item-equation) + ("Bmatrix*" . LaTeX-item-equation) + ("vmatrix*" . LaTeX-item-equation) + ("Vmatrix*" . LaTeX-item-equation) + ("smallmatrix*" . LaTeX-item-equation) + ("psmallmatrix" . LaTeX-item-equation) + ("psmallmatrix*" . LaTeX-item-equation) + ("bsmallmatrix" . LaTeX-item-equation) + ("bsmallmatrix*" . LaTeX-item-equation) + ("Bsmallmatrix" . LaTeX-item-equation) + ("Bsmallmatrix*" . LaTeX-item-equation) + ("vsmallmatrix" . LaTeX-item-equation) + ("vsmallmatrix*" . LaTeX-item-equation) + ("Vsmallmatrix" . LaTeX-item-equation) + ("Vsmallmatrix*" . LaTeX-item-equation) + ("dcases" . LaTeX-mathtools-item-cases) + ("dcases*" . LaTeX-mathtools-item-cases) + ("rcases" . LaTeX-mathtools-item-cases) + ("rcases*" . LaTeX-mathtools-item-cases) + ("drcases" . LaTeX-mathtools-item-cases) + ("drcases*" . LaTeX-mathtools-item-cases) + ("cases*" . LaTeX-mathtools-item-cases)) + LaTeX-item-list)) + + (setq LaTeX-label-alist + (append '(("lgathered" . LaTeX-amsmath-label) + ("rgathered" . LaTeX-amsmath-label) + ("multlined" . LaTeX-amsmath-label)) + LaTeX-label-alist)) + + ;; RefTeX support: Add env's with `reftex-add-label-environments' + (when (fboundp 'reftex-add-label-environments) + (let ((envs '(("lgathered" ?e nil nil t) + ("rgathered" ?e nil nil t) + ("multlined" ?e nil nil t)))) + (dolist (env envs) + (reftex-add-label-environments `(,env))))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("mathtoolsset" "{") + ("newtagform" "{[{{") + ("renewtagform" "{[{{") + ("DeclarePairedDelimiter" "|{\\{{") + ("DeclarePairedDelimiterX" "|{\\[{{{") + ("DeclarePairedDelimiterXPP" "|{\\[{{{{{") + ("reDeclarePairedDelimiterInnerWrapper" "|{\\{{") + ("DeclareMathSizes" "{{{{") + ("newgathered" "{{{{") + ("renewgathered" "{{{{")) + 'function) + (font-latex-add-keywords '(("usetagform" "{")) + 'variable) + (font-latex-add-keywords '(("refeq" "{") + ("noeqref" "{")) + 'reference))) + TeX-dialect) + +;;; mathtools.el ends here diff --git a/elpa/auctex-13.1.3/style/mathtools.elc b/elpa/auctex-13.1.3/style/mathtools.elc Binary files differnew file mode 100644 index 0000000..7cf3db9 --- /dev/null +++ b/elpa/auctex-13.1.3/style/mathtools.elc diff --git a/elpa/auctex-13.1.3/style/mdframed.el b/elpa/auctex-13.1.3/style/mdframed.el new file mode 100644 index 0000000..0e3dd9b --- /dev/null +++ b/elpa/auctex-13.1.3/style/mdframed.el @@ -0,0 +1,410 @@ +;;; mdframed.el --- AUCTeX style for `mdframed.sty' (v1.9b) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-06-26 +;; 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 `mdframed.sty' (v1.9b) from 2013/07/01. +;; `mdframed.sty' is part of TeXLive. + +;; This style offers only a set of mandatory options for completion +;; while loading the package +;; (cf. `LaTeX-mdframed-package-options-list'). All other options are +;; offered for completion as part of `\mdfsetup'. Please use this +;; command to set options of the package. + +;;; Code: + +(require 'tex) +(require 'latex) +;; Needed for compiling `cl-pushnew': +(eval-when-compile + (require 'cl-lib)) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function LaTeX-color-definecolor-list "color" ()) +(declare-function LaTeX-xcolor-definecolor-list "xcolor" ()) + +(defvar LaTeX-mdframed-key-val-options + '(;; 6.2. Restoring the settings + ("style" ("defaultoptions")) + ("default") + ;; 6.3. Options with lengths + ("defaultunit" ("pt" "pc" "in" "bp" "cm" "mm" "dd" "cc" "sp" "ex" "em")) + ("skipabove") + ("skipbelow") + ("leftmargin") + ("rightmargin") + ("innerleftmargin") + ("innerrightmargin") + ("innertopmargin") + ("innerbottommargin") + ("linewidth") + ("innerlinewidth") + ("middlelinewidth") + ("outerlinewidth") + ("roundcorner") + ;; 6.4. Colored Options + ("linecolor") + ("innerlinecolor") + ("middlelinecolor") + ("outerlinecolor") + ("backgroundcolor") + ("fontcolor") + ("font") + ;; 6.5. Shadows + ("shadowsize") + ("shadowcolor") + ;; 6.6. Hidden Lines + ("topline" ("true" "false")) + ("rightline" ("true" "false")) + ("leftline" ("true" "false")) + ("bottomline" ("true" "false")) + ("hidealllines" ("true" "false")) + ;; 6.7. Working in twoside-mode + ("outermargin") + ("innermargin") + ("usetwoside" ("true" "false")) + ;; 6.8. Footnotes + ("footnotedistance") + ("footnoteinside" ("true" "false")) + ;; 6.9. Page breaks + ("nobreak" ("true" "false")) + ("everyline" ("true" "false")) + ("splittopskip") + ("splitbottomskip") + ;; 6.10. Frametitle + ("frametitle") + ("frametitlefont") + ("frametitlealignment" ("\\raggedleft" "\\raggedright" "\\centering")) + ("frametitlerule" ("true" "false")) + ("frametitlerulewidth") + ("frametitleaboveskip") + ("frametitlebelowskip") + ("frametitlebackgroundcolor") + ("repeatframetitle" ("true" "false")) + ;; 6.11. Title commands inside the environment + ("subtitleaboveline" ("true" "false")) + ("subtitlebelowline" ("true" "false")) + ("subtitlefont") + ("subtitlebackgroundcolor") + ("subtitleabovelinecolor") + ("subtitlebelowlinecolor") + ("subtitleabovelinewidth") + ("subtitlebelowlinewidth") + ("subtitleaboveskip") + ("subtitlebelowskip") + ("subtitleinneraboveskip") + ("subtitleinnerbelowskip") + ;; 6.12. General options + ("ntheorem" ("true" "false")) + ("needspace") + ("ignorelastdescenders" ("true" "false")) + ("userdefinedwidth" ("\\linewidth" "\\columnwidth")) + ("align" ("left" "right" "center")) + ;; 6.13. TikZ options + ("tikzsetting") + ("apptotikzsetting") + ;; 6.14. PSTricks options + ("pstrickssetting") + ("pstricksappsetting") + ;; 7. Hooks and Bools + ("settings") + ("extra") + ("singleextra") + ("firstextra") + ("middleextra") + ("secondextra") + ("mdfsingleframe" ("true" "false")) + ("mdffirstframe" ("true" "false")) + ("mdfmiddleframe" ("true" "false")) + ("mdflastframe" ("true" "false")) + ("beforesingleframe") + ("aftersingleframe") + ("beforebreak") + ("afterbreak") + ("beforelastframe") + ("afterlastframe") + ("startcode") + ("startinnercode") + ("endinnercode") + ("endcode") + ;; 8. Theorems + ("theoremseparator") + ("theoremtitlefont") + ("theoremspace")) + "Key=value options for mdframed macros and environments.") + +;; Setup for \newmdenv + +(TeX-auto-add-type "mdframed-newmdenv" "LaTeX") + +(defvar LaTeX-mdframed-newmdenv-regexp + `(,(concat + "\\\\newmdenv" + "[ \t\n\r%]*" + "\\(?:" + (LaTeX-extract-key-value-label 'none) + "\\)?" + "[ \t\n\r%]*" + "{\\([^}]+\\)}") + 1 LaTeX-auto-mdframed-newmdenv) + "Matches the argument of \\newmdenv from mdframed package.") + +;; Setup for \mdfdefinestyle + +(TeX-auto-add-type "mdframed-mdfdefinestyle" "LaTeX") + +(defvar LaTeX-mdframed-mdfdefinestyle-regexp + '("\\\\mdfdefinestyle[ \t\n\r%]*{\\([^}]+\\)}" + 1 LaTeX-auto-mdframed-mdfdefinestyle) + "Matches the argument of \\mdfdefinestyle from mdframed package.") + +;; Setup for \newmdtheoremenv & \mdtheorem + +(TeX-auto-add-type "mdframed-mdtheorem" "LaTeX") + +(defvar LaTeX-mdframed-mdtheorem-regexp + `(,(concat + "\\\\\\(new\\)?mdtheorem\\(?:env\\)?" + "[ \t\n\r%]*" + "\\(?:" + (LaTeX-extract-key-value-label 'none) + "\\)?" + "[ \t\n\r%]*" + "{\\([^}]+\\)}") + (2 1) LaTeX-auto-mdframed-mdtheorem) + "Matches the argument of \\newmdtheoremenv and \\mdtheorem from mdframed package.") + +(defun LaTeX-mdframed-key-val-options () + "Return an updated list of key=vals from mdframed package. +This function retrieves values of user defined styles and colors +and prepends them to variable `LaTeX-mdframed-key-val-options'." + (append + (when (LaTeX-mdframed-mdfdefinestyle-list) + (let ((val (copy-sequence + (cadr (assoc "style" LaTeX-mdframed-key-val-options))))) + `(("style" ,(append + (mapcar #'car (LaTeX-mdframed-mdfdefinestyle-list)) + val))))) + ;; Check if any color defininig package is loaded and update the + ;; key=values for coloring. Prefer xcolor.sty if both packages are + ;; loaded. Run `TeX-style-list' only once and use + ;; `TeX-active-styles' afterwards: + (when (or (member "xcolor" (TeX-style-list)) + (member "color" TeX-active-styles)) + (let* ((colorcmd (if (member "xcolor" TeX-active-styles) + #'LaTeX-xcolor-definecolor-list + #'LaTeX-color-definecolor-list)) + (colors (mapcar #'car (funcall colorcmd))) + (keys '("linecolor" + "innerlinecolor" + "middlelinecolor" + "outerlinecolor" + "backgroundcolor" + "fontcolor" + "shadowcolor" + "frametitlebackgroundcolor" + "subtitlebackgroundcolor" + "subtitleabovelinecolor" + "subtitlebelowlinecolor")) + result) + (dolist (key keys result) + (cl-pushnew (list key colors) result :test #'equal)))) + LaTeX-mdframed-key-val-options)) + +(defun LaTeX-mdframed-auto-prepare () + "Clear variables before parsing for mdframed package." + (setq LaTeX-auto-mdframed-newmdenv nil + LaTeX-auto-mdframed-mdfdefinestyle nil + LaTeX-auto-mdframed-mdtheorem nil)) + +(defun LaTeX-mdframed-auto-cleanup () + "Process parsed elements for mdframed package." + (dolist (env (mapcar #'car (LaTeX-mdframed-newmdenv-list))) + (LaTeX-add-environments + `(,env LaTeX-env-args [TeX-arg-key-val (LaTeX-mdframed-key-val-options)] )) + (TeX-ispell-skip-setcdr `((,env ispell-tex-arg-end 0)))) + (dolist (newenv (LaTeX-mdframed-mdtheorem-list)) + (let ((env (car newenv)) + (new (cadr newenv))) + (LaTeX-add-environments (list env (vector "Heading"))) + (unless (and new (not (string= new ""))) + (LaTeX-add-environments (list (concat env "*") (vector "Heading"))))))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-mdframed-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-mdframed-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "mdframed" + (lambda () + + ;; Add mdframed to the parser + (TeX-auto-add-regexp LaTeX-mdframed-newmdenv-regexp) + (TeX-auto-add-regexp LaTeX-mdframed-mdfdefinestyle-regexp) + (TeX-auto-add-regexp LaTeX-mdframed-mdtheorem-regexp) + + ;; 4. Commands + (TeX-add-symbols + '("mdfsetup" + (TeX-arg-key-val (LaTeX-mdframed-key-val-options))) + + '("newmdenv" + [TeX-arg-key-val (LaTeX-mdframed-key-val-options)] + (TeX-arg-eval + (lambda () + (let ((env (TeX-read-string + (TeX-argument-prompt nil nil "Environment")))) + (LaTeX-add-environments + `(,env LaTeX-env-args [TeX-arg-key-val (LaTeX-mdframed-key-val-options)])) + ;; Add new env's to `ispell-tex-skip-alist': skip the optional argument + (TeX-ispell-skip-setcdr `((,env ispell-tex-arg-end 0))) + (format "%s" env))))) + + '("renewmdenv" + [TeX-arg-key-val (LaTeX-mdframed-key-val-options)] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Environment") + (LaTeX-mdframed-newmdenv-list))) + + '("surroundwithmdframed" + [TeX-arg-key-val (LaTeX-mdframed-key-val-options)] + TeX-arg-environment) + + '("mdflength" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Length") + '(("skipabove") + ("skipbelow") + ("leftmargin") + ("rightmargin") + ("innerleftmargin") + ("innerrightmargin") + ("innertopmargin") + ("innerbottommargin") + ("linewidth") + ("innerlinewidth") + ("middlelinewidth") + ("outerlinewidth")))) + + ;; 5. Defining your own style + '("mdfdefinestyle" + (TeX-arg-eval + (lambda () + (let ((style (TeX-read-string + (TeX-argument-prompt nil nil "Style name")))) + (LaTeX-add-mdframed-mdfdefinestyles style) + (format "%s" style)))) + (TeX-arg-key-val (LaTeX-mdframed-key-val-options))) + + '("mdfapptodefinestyle" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Style name") + (LaTeX-mdframed-mdfdefinestyle-list)) + (TeX-arg-key-val (LaTeX-mdframed-key-val-options))) + + ;; 6.11. Title commands inside the environment + '("mdfsubtitle" + [TeX-arg-key-val (LaTeX-mdframed-key-val-options)] + "Subtitle") + + ;; 8. Theorems + '("newmdtheoremenv" + [TeX-arg-key-val (LaTeX-mdframed-key-val-options)] + (TeX-arg-eval + (lambda () + (let ((nthm (TeX-read-string + (TeX-argument-prompt nil nil "Environment")))) + (LaTeX-add-environments (list nthm (vector "Heading"))) + (format "%s" nthm)))) + [ TeX-arg-environment "Numbered like" ] + t [ (TeX-arg-eval progn (if (eq (save-excursion + (backward-char 2) + (preceding-char)) + ?\]) + () + (TeX-arg-counter t "Within counter")) + "") ]) + + '("mdtheorem" + [TeX-arg-key-val (LaTeX-mdframed-key-val-options)] + (TeX-arg-eval + (lambda () + (let ((nthm (TeX-read-string + (TeX-argument-prompt nil nil "Environment")))) + (LaTeX-add-environments (list nthm (vector "Heading")) + (list (concat nthm "*") (vector "Heading"))) + (format "%s" nthm)))) + [ TeX-arg-environment "Numbered like" ] + t [ (TeX-arg-eval progn (if (eq (save-excursion + (backward-char 2) + (preceding-char)) + ?\]) + () + (TeX-arg-counter t "Within counter")) + "") ])) + + ;; Main environment defined by mdframed.sty + (LaTeX-add-environments + '("mdframed" LaTeX-env-args + [TeX-arg-key-val (LaTeX-mdframed-key-val-options)] )) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("newmdenv" "[{") + ("renewmdenv" "[{") + ("surroundwithmdframed" "[{") + ("mdfsetup" "[{") + ("mdfdefinestyle" "{{") + ("mdfapptodefinestyle" "{{") + ("newmdtheoremenv" "[{[{[") + ("mdtheorem" "[{[{[")) + 'function) + (font-latex-add-keywords '(("mdfsubtitle" "[{")) + 'sectioning-5) + (font-latex-add-keywords '(("mdflength" "{")) + 'variable))) + TeX-dialect) + +(defvar LaTeX-mdframed-package-options-list + '(("xcolor") + ("framemethod" ("default" "tex" "latex" "none" "0" + "tikz" "pgf" "1" + "pstricks" "ps" "postscript" "2")) + ("tikz") ("TikZ") + ("ps") ("pstricks") ("PSTricks")) + "Package options for the framed package.") + +(defun LaTeX-mdframed-package-options () + "Prompt for package options for the mdframed package." + (TeX-read-key-val t LaTeX-mdframed-package-options-list)) + +;;; mdframed.el ends here diff --git a/elpa/auctex-13.1.3/style/mdframed.elc b/elpa/auctex-13.1.3/style/mdframed.elc Binary files differnew file mode 100644 index 0000000..2ca6fe3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/mdframed.elc diff --git a/elpa/auctex-13.1.3/style/mdsymbol.el b/elpa/auctex-13.1.3/style/mdsymbol.el new file mode 100644 index 0000000..d82f87e --- /dev/null +++ b/elpa/auctex-13.1.3/style/mdsymbol.el @@ -0,0 +1,102 @@ +;;; mdsymbol.el --- AUCTeX style for `mdsymbol.sty' (v0.5) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-10-25 +;; 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 `mdsymbol.sty' (v0.5) from 2012/11/18. +;; The latest version of is available from <https://www.github.com/sebschub>. +;; `mdsymbol.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "mdsymbol" + (lambda () + + ;; Run style hook for various packages loaded by mdsymbol + (TeX-run-style-hooks "textcomp" "amsmath") + + ;; New symbols + (TeX-add-symbols + + ;; These macros take one argument; we follow latex.el and use the + ;; t specifier for the argument; over- and underbrace and sqrt are + ;; already available + '("overgroup" t) + '("undergroup" t) + '("overlinesegment" t) + '("overleftharpoon" t) + '("overrightharpoon" t) + '("underlinesegment" t) + ;; + '("widehat" t) + '("widetilde" t) + '("wideparen" t) + '("vec" t) + '("middlebar" t) + '("middleslash" t) + '("strokethrough" t) + ;; + '("overlining" t)) + + ;; The following macros are usually defined, since retainmissing + ;; defaults to false + (unless (or (LaTeX-provided-package-options-member "mdsymbol" "retainmissing=true") + (LaTeX-provided-package-options-member "mdsymbol" "retainmissing")) + (TeX-add-symbols + '("dagger") + '("ddagger") + '("mathparagraph") + '("mathsection") + '("mathdollar") + '("mathsterling") + '("yen") + '("hbar") + '("hslash") + '("circledR") + '("circledS") + '("lambdabar") + '("lambdaslash")))) + TeX-dialect) + +(defvar LaTeX-mdsymbol-package-options + '(;; + ("normalweight" ("Light" "Regular" "autolight" "autoregular")) + ("boldweight" ("Semibold" "Bold" "autosemibold")) + ("onlysansmath" ("true" "false")) + ("retainmissing" ("true" "false")) + ("scale") + ("largedelims" ("true" "false"))) + "Package options for the mdsymbol package.") + +(defun LaTeX-mdsymbol-package-options nil + "Prompt for package options for the mdsymbol package." + (TeX-read-key-val t LaTeX-mdsymbol-package-options)) + +;;; mdsymbol.el ends here diff --git a/elpa/auctex-13.1.3/style/mdsymbol.elc b/elpa/auctex-13.1.3/style/mdsymbol.elc Binary files differnew file mode 100644 index 0000000..3da1914 --- /dev/null +++ b/elpa/auctex-13.1.3/style/mdsymbol.elc diff --git a/elpa/auctex-13.1.3/style/mdwlist.el b/elpa/auctex-13.1.3/style/mdwlist.el new file mode 100644 index 0000000..8335c02 --- /dev/null +++ b/elpa/auctex-13.1.3/style/mdwlist.el @@ -0,0 +1,72 @@ +;;; mdwlist.el --- AUCTeX style for `mdwlist.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2004, 2005, 2018, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; 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 `mdwlist.sty'. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "mdwlist" + (lambda () + (TeX-add-symbols + '("makecompactlist" "New environment" "Existing environment") + '("suspend" "Environment") ; this could be done nicer by automatically + '("resume" "Environment")) ; determining the environment + (LaTeX-add-environments + '("enumerate*" LaTeX-env-item) + '("itemize*" LaTeX-env-item) + '("description*" LaTeX-env-item)) + ;; Indentation and filling + (make-local-variable 'LaTeX-begin-regexp) + (setq LaTeX-begin-regexp (concat LaTeX-begin-regexp "\\|resume\\b")) + (make-local-variable 'LaTeX-end-regexp) + (setq LaTeX-end-regexp (concat LaTeX-end-regexp "\\|suspend\\b")) + (make-local-variable 'paragraph-start) + (setq paragraph-start (concat paragraph-start + "\\|[ \t]*" TeX-comment-start-regexp "*[ \t]*" + (regexp-quote TeX-esc) + "\\(resume\\b\\|suspend\\b\\)")) + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("makecompactlist" "{{") + ("suspend" "[{") + ("resume" "[{[")) + 'function))) + TeX-dialect) + +(defvar LaTeX-mdwlist-package-options nil + "Package options for the mdwlist package.") + +;;; mdwlist.el ends here diff --git a/elpa/auctex-13.1.3/style/mdwlist.elc b/elpa/auctex-13.1.3/style/mdwlist.elc Binary files differnew file mode 100644 index 0000000..2ad3e51 --- /dev/null +++ b/elpa/auctex-13.1.3/style/mdwlist.elc diff --git a/elpa/auctex-13.1.3/style/memoir.el b/elpa/auctex-13.1.3/style/memoir.el new file mode 100644 index 0000000..7945bc0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/memoir.el @@ -0,0 +1,88 @@ +;;; memoir.el --- AUCTeX style for `memoir.cls' -*- lexical-binding: t; -*- + +;; Copyright (C) 2012, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2012-12-28 +;; 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 `memoir.cls'. Memoir is a very extensive +;; document class that lets you configure things very easily; `memoir' +;; loads (emulates) a lot of classes. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "memoir" + (lambda () + (TeX-add-symbols + ;; 6.4 Book and part headings + "beforebookskip" "afterbookskip" + "beforepartskip" "afterpartskip" + + "printbookname" "booknamefont" + "booknamenum" + "printbooknum" "booknumfont" + "printpartname" "partnamefont" + "partnamenum" + "printpartnum" "partnumfont" + + '("printbooktitle" "Title") + "booktitlefont" + '("printparttitle" "Title") + "parttitlefont" + + '("bookpagemark" "Title") + '("partmark" "Title") + + "bookpageend" "bookblankpage" "nobookblankpage" + "partpageend" "partblankpage" "nopartblankpage" + + '("newleadpage" [ TeX-arg-pagestyle ] 1 "Title") + '("newleadpage*" [ TeX-arg-pagestyle ] 1 "Title") + '("renewleadpage*" [ TeX-arg-pagestyle ] 1 "Title") + '("renewleadpage*" [ TeX-arg-pagestyle ] 1 "Title") + + "leadpagetoclevel") + + (LaTeX-add-environments "abstract") + + ;; Emulated packages. The `memoir' class contains a list of files + ;; emulated at the end of the class-file + (TeX-run-style-hooks + "abstract" "appendix" "array" "booktabs" "ccaption" + "changepage" "chngcntr" "chngpage" "crop" "dcolumn" + "delarray" "enumerate" "epigraph" "ifmtarg" "ifetex" + "ifluatex" "ifpdf" "ifxetex" "index" "makeidx" "moreverb" + "mparhack" "needspace" "newfile" "nextpage" "pagenote" + "parskip" "patchcmd" "setspace" "shortvrb" "showidx" + "tabularx" "titleref" "titling" "tocbibind" "tocloft" + "verbatim" "verse") + + (LaTeX-largest-level-set "chapter")) + TeX-dialect) + +;;; memoir.el ends here diff --git a/elpa/auctex-13.1.3/style/memoir.elc b/elpa/auctex-13.1.3/style/memoir.elc Binary files differnew file mode 100644 index 0000000..9e17287 --- /dev/null +++ b/elpa/auctex-13.1.3/style/memoir.elc diff --git a/elpa/auctex-13.1.3/style/menukeys.el b/elpa/auctex-13.1.3/style/menukeys.el new file mode 100644 index 0000000..ac375ea --- /dev/null +++ b/elpa/auctex-13.1.3/style/menukeys.el @@ -0,0 +1,547 @@ +;;; menukeys.el --- AUCTeX style for `menukeys.sty' (v1.4) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-02-07 +;; 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 `menukeys.sty' (v1.4) from 2016/04/18. +;; `menukeys.sty' is part of TeXLive. + +;;; Code: + +;; Needed for auto-parsing: +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function LaTeX-xcolor-definecolor-list "xcolor" ()) + +(defvar LaTeX-menukeys-input-separators-list + '("/" "=" "*" "+" "," ";" ":" "-" ">" "<" "bslash") + "List of input separators for macros of menukeys package.") + +(defvar LaTeX-menukeys-predefined-styles-list + '("menus" "roundedmenus" "angularmenus" "roundedkeys" + "shadowedroundedkeys" "angularkeys" "shadowedangularkeys" + "typewriterkeys" "paths" "pathswithfolder" + "pathswithblackfolder" "hyphenatepaths" + "hyphenatepathswithfolder" + "hyphenatepathswithblackfolder") + "List of predefined styles for macros from menukeys package.") + +;; Setup for \newmenustyle(simple): +(TeX-auto-add-type "menukeys-newmenustyle" "LaTeX") + +(defvar LaTeX-menukeys-newmenustyle-regexp + '("\\\\\\(?:new\\|copy\\)menustyle\\(?:simple\\)?*?{\\([^}]+\\)}" + 1 LaTeX-auto-menukeys-newmenustyle) + "Matches the argument of \\newmenustyle and +\\newmenustylesimple from menukeys package.") + +;; Setup for \newmenucolortheme: +(TeX-auto-add-type "menukeys-newmenucolortheme" "LaTeX") + +(defvar LaTeX-menukeys-newmenucolortheme-regexp + '("\\\\\\(?:new\\|copy\\)menucolortheme{\\([^}]+\\)}" + 1 LaTeX-auto-menukeys-newmenucolortheme) + "Matches the argument of \\newmenucolortheme from menukeys package.") + +;; Setup for \newmenumacro: +(TeX-auto-add-type "menukeys-newmenumacro" "LaTeX") + +(defvar LaTeX-menukeys-newmenumacro-regexp + `(,(concat + "\\\\\\(new\\|renew\\|provide\\)menumacro" + "{?" + (regexp-quote TeX-esc) + "\\([a-zA-Z]+\\)" + "}?" + "\\(?:\\[\\([^]]*\\)\\]\\)?") + (2 3 1) LaTeX-auto-menukeys-newmenumacro) + "Matches the arguments of \\newmenumacro from menukeys package.") + +(defun LaTeX-menukeys-auto-prepare () + "Clear various `LaTeX-auto-menukeys-*' variables before parsing." + (setq LaTeX-auto-menukeys-newmenustyle nil + LaTeX-auto-menukeys-newmenucolortheme nil + LaTeX-auto-menukeys-newmenumacro nil)) + +(defun LaTeX-menukeys-auto-cleanup () + "Process the parsed elements for menukeys package. +This function adds parsed elements from the variable +`LaTeX-menukeys-newmenumacro-list' to AUCTeX via the function +`TeX-add-symbols'. The variable +`LaTeX-menukeys-newmenumacro-list' and not the function with the +same name is used since this function looks for the order of +commands which are set by \\renewmenumacro in order to pick the +current separator. These renew-commands are also removed first +from the variable `TeX-symbol-list' before being re-added." + (dolist (x (apply #'append LaTeX-menukeys-newmenumacro-list)) + (let ((macro (nth 0 x)) + (sep (nth 1 x)) + (renew (when (string= (nth 2 x) "renew") + (nth 2 x)))) + ;; When we are renewmenumacro'ing, delete the entry first from the + ;; variable `TeX-symbol-list' and then add the new spec: + (when renew + (setq TeX-symbol-list + (assq-delete-all (car (assoc macro (TeX-symbol-list))) TeX-symbol-list))) + (TeX-add-symbols + `(,macro [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil + ,(concat "Input separator " + "(default " + (if (and sep (not (string= sep ""))) + sep + ",") + ")")) + LaTeX-menukeys-input-separators-list ] t )) + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,macro "[{")) + 'textual))))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-menukeys-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-menukeys-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun TeX-arg-menukeys-newmenumacro (optional &optional renew) + "Query and insert the arguments of \\newmenumacro from menukeys package. +After inserting, add the name of macro and the optional separator +to the name of known macros via `TeX-add-symbols'. If +font-latex.el is loaded, also use `font-latex-add-keywords' on +macro. If RENEW is non-nil, query for an already defined macro." + (let ((macro (if renew + (completing-read + (concat "Macro: " TeX-esc) + (TeX-delete-duplicate-strings (mapcar #'car (LaTeX-menukeys-newmenumacro-list)))) + (TeX-read-string (concat "Macro: " TeX-esc)))) + (sep (completing-read + (TeX-argument-prompt optional nil "Input separator (default ,)") + LaTeX-menukeys-input-separators-list)) + (style (completing-read + (TeX-argument-prompt optional nil "Style") + (LaTeX-menukeys-newmenustyle-list)))) + (TeX-argument-insert (concat TeX-esc macro) optional) + (when (and sep (not (string= sep ""))) + (insert (format "[%s]" sep))) + (TeX-argument-insert style optional) + ;; When we are renewmenumacro'ing, delete the entry first from the + ;; variable `TeX-symbol-list' and then add the new spec: + (when renew + (setq TeX-symbol-list + (assq-delete-all (car (assoc macro (TeX-symbol-list))) TeX-symbol-list))) + (TeX-add-symbols + `(,macro [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil + ,(concat "Input separator " + "(default " + (if (and sep (not (string= sep ""))) + sep + ",") + ")")) + LaTeX-menukeys-input-separators-list ] t )) + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,macro "[{")) + 'textual)))) + +(TeX-add-style-hook + "menukeys" + (lambda () + + ;; Add menukeys to the parser + (TeX-auto-add-regexp LaTeX-menukeys-newmenustyle-regexp) + (TeX-auto-add-regexp LaTeX-menukeys-newmenucolortheme-regexp) + (TeX-auto-add-regexp LaTeX-menukeys-newmenumacro-regexp) + + ;; Activate predefined stuff + (apply #'LaTeX-add-menukeys-newmenustyles LaTeX-menukeys-predefined-styles-list) + (LaTeX-add-menukeys-newmenucolorthemes "gray" "blacknwhite") + + ;; Run style hooks for xcolor, tikz and relsize + (TeX-run-style-hooks "xcolor" "tikz" "relsize") + + ;; 4.1 Basic macros: These are not defined if the package option + ;; definemenumacros ist set to false (default is true). We check + ;; for the package option here and add them. + (unless (LaTeX-provided-package-options-member "menukeys" "definemenumacros=false") + (TeX-add-symbols + ;; \menu [<separator>]{<sequence>} + ;; \directory [<separator>]{path} + ;; \keys [<separator>]{keystrokes} + '("menu" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Input separator") + LaTeX-menukeys-input-separators-list ] + t) + + '("directory" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Input separator") + LaTeX-menukeys-input-separators-list ] + t) + + '("keys" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Input separator") + LaTeX-menukeys-input-separators-list ] + t))) + + (TeX-add-symbols + ;; 4.2.1 Predefined styles + ;; \drawtikzfolder[<front fill>][<draw>] + '("drawtikzfolder" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Front color") + (LaTeX-xcolor-definecolor-list) ] + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Line color") + (LaTeX-xcolor-definecolor-list) ] ) + + ;; 4.2.2 Declaring styles + ;; \newmenustylesimple*{<name>}[<pre>]{<style>}[<sep>][<post>]{<theme>} + '("newmenustylesimple" + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-menukeys-newmenustyles name) + (format "%s" name)))) + [ t ] nil [ nil ] [ nil ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Color theme") + (LaTeX-menukeys-newmenucolortheme-list))) + + '("newmenustylesimple*" + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-menukeys-newmenustyles name) + (format "%s" name)))) + [ t ] nil [ nil ] [ nil ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Color theme") + (LaTeX-menukeys-newmenucolortheme-list))) + + ;; \newmenustyle*{<name>}[<pre>]{<first>}[<sep>]{<mid>}{<last>}{<single>}[<post>]{<theme>} + '("newmenustyle" + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-menukeys-newmenustyles name) + (format "%s" name)))) + [ t ] nil [ nil ] nil nil nil [ nil ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Color theme") + (LaTeX-menukeys-newmenucolortheme-list))) + + '("newmenustyle*" + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-menukeys-newmenustyles name) + (format "%s" name)))) + [ t ] nil [ nil ] nil nil nil [ nil ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Color theme") + (LaTeX-menukeys-newmenucolortheme-list))) + + '("CurrentMenuElement" 0) + + ;; 4.2.3 Copying styles + '("copymenustyle" + (TeX-arg-eval + (lambda () + (let ((copy (TeX-read-string + (TeX-argument-prompt nil nil "Copy"))) + (orig (completing-read + (TeX-argument-prompt nil nil "Original") + (LaTeX-menukeys-newmenustyle-list)))) + (LaTeX-add-menukeys-newmenustyles copy) + (TeX-argument-insert copy nil) + (format "%s" orig))))) + + ;; 4.2.4 Changing styles + ;; \changemenuelement*{name}{element}{definition} + '("changemenuelement" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + (LaTeX-menukeys-newmenustyle-list)) + 2) + + '("changemenuelement*" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + (LaTeX-menukeys-newmenustyle-list)) + 2) + + ;; Same arguments as \newmenustylesimple + '("renewmenustylesimple" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + (LaTeX-menukeys-newmenustyle-list)) + [ t ] nil [ nil ] [ nil ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Color theme") + (LaTeX-menukeys-newmenucolortheme-list))) + + '("providemenustylesimple" + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-menukeys-newmenustyles name) + (format "%s" name)))) + [ t ] nil [ nil ] [ nil ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Color theme") + (LaTeX-menukeys-newmenucolortheme-list))) + + ;; Same arguments as \newmenustyle + '("providemenustyle" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + (LaTeX-menukeys-newmenustyle-list)) + [ t ] nil [ nil ] nil nil nil [ nil ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Color theme") + (LaTeX-menukeys-newmenucolortheme-list))) + + '("renewmenustyle" + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-menukeys-newmenustyles name) + (format "%s" name)))) + [ t ] nil [ nil ] nil nil nil [ nil ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Color theme") + (LaTeX-menukeys-newmenucolortheme-list))) + + ;; 4.3 Color themes + ;; 4.3.2 Create a theme + ;; \newmenucolortheme{<name>}{<model>}{<bg>}{<br>}{<txt>}[<a>][<b>][<c>] + '("newmenucolortheme" + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-menukeys-newmenucolorthemes name) + (format "%s" name)))) + (TeX-arg-eval + (lambda () + (let ((model (completing-read + (TeX-argument-prompt nil nil "Model") + (LaTeX-xcolor-color-models)))) + (TeX-argument-insert model nil) + (if (string= model "named") + (let ((bg (completing-read + (TeX-argument-prompt nil nil "Node background color") + (LaTeX-xcolor-definecolor-list))) + (br (completing-read + (TeX-argument-prompt nil nil "Node border color") + (LaTeX-xcolor-definecolor-list))) + (txt (completing-read + (TeX-argument-prompt nil nil "Node text color") + (LaTeX-xcolor-definecolor-list)))) + (TeX-argument-insert bg nil) + (TeX-argument-insert br nil) + (format "%s" txt)) + (let ((bg (TeX-read-string + (TeX-argument-prompt nil nil "Node background color spec"))) + (br (TeX-read-string + (TeX-argument-prompt nil nil "Node border color spec"))) + (txt (TeX-read-string + (TeX-argument-prompt nil nil "Node text color spec")))) + (TeX-argument-insert bg nil) + (TeX-argument-insert br nil) + (format "%s" txt)))))) + (TeX-arg-conditional (y-or-n-p "With additional optional arguments? ") + ( [ 3 ] ) + (ignore))) + + ;; 4.3.3 Copy a theme + '("copymenucolortheme" + (TeX-arg-eval + (lambda () + (let ((copy (TeX-read-string + (TeX-argument-prompt nil nil "Copy"))) + (orig (completing-read + (TeX-argument-prompt nil nil "Original") + (LaTeX-menukeys-newmenucolortheme-list)))) + (LaTeX-add-menukeys-newmenucolorthemes copy) + (TeX-argument-insert copy nil) + (format "%s" orig))))) + + ;; 4.3.4 Change a theme + '("changemenucolor" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + (LaTeX-menukeys-newmenucolortheme-list)) + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Element") + '("bg" "br" "txt")) + (TeX-arg-eval + (lambda () + (let ((model (completing-read + (TeX-argument-prompt nil nil "Model") + (LaTeX-xcolor-color-models)))) + (TeX-argument-insert model nil) + (if (string= model "named") + (let ((color (completing-read + (TeX-argument-prompt nil nil "Color") + (LaTeX-xcolor-definecolor-list)))) + (format "%s" color)) + (let ((color (TeX-read-string + (TeX-argument-prompt nil nil "Color spec")))) + (format "%s" color))))))) + + ;; Same arguments as \newmenucolortheme + '("renewmenucolortheme" + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-menukeys-newmenucolorthemes name) + (format "%s" name)))) + (TeX-arg-eval + (lambda () + (let ((model (completing-read + (TeX-argument-prompt nil nil "Model") + (LaTeX-xcolor-color-models)))) + (TeX-argument-insert model nil) + (if (string= model "named") + (let ((bg (completing-read + (TeX-argument-prompt nil nil "Node background color") + (LaTeX-xcolor-definecolor-list))) + (br (completing-read + (TeX-argument-prompt nil nil "Node border color") + (LaTeX-xcolor-definecolor-list))) + (txt (completing-read + (TeX-argument-prompt nil nil "Node text color") + (LaTeX-xcolor-definecolor-list)))) + (TeX-argument-insert bg nil) + (TeX-argument-insert br nil) + (format "%s" txt)) + (let ((bg (TeX-read-string + (TeX-argument-prompt nil nil "Node background color spec"))) + (br (TeX-read-string + (TeX-argument-prompt nil nil "Node border color spec"))) + (txt (TeX-read-string + (TeX-argument-prompt nil nil "Node text color spec")))) + (TeX-argument-insert bg nil) + (TeX-argument-insert br nil) + (format "%s" txt)))))) + (TeX-arg-conditional (y-or-n-p "With additional optional arguments? ") + ( [ 3 ] ) + (ignore))) + + ;; 4.4 Menu macros + ;; 4.4.2 Defining or changing menu macros + ;; \newmenumacro{<macro>} [<input sep>]{<style>} + '("newmenumacro" TeX-arg-menukeys-newmenumacro) + '("providemenumacro" TeX-arg-menukeys-newmenumacro) + '("renewmenumacro" (TeX-arg-menukeys-newmenumacro t))) + + ;; 4.5 Keys: These macros are defined when definekeys option is not + ;; false. + ;; 0 : No argment, one macro + ;; 1 : One argument, with completion + ;; 2 : No argment, three macros: \<key>, \<key>win, \<key>mac + (unless (LaTeX-provided-package-options-member "menukeys" "definekeys=false") + (let ((keycmds '(("shift" . 0) ("capslock" . 2) ("tab" . 2) + ("esc" . 2) ("ctrl" . 2) ("alt" . 2) + ("AltGr" . 0) ("cmd" . 0) ("Space" . 0) + ("SPACE" . 0) ("return" . 2) ("enter" . 2) + ("winmenu" . 0) ("backspace" . 0) ("del" . 0) + ("arrowkeyup" . 0) ("arrowkeydown" . 0) + ("arrowkeyleft" . 0) ("arrowkeyright" . 0) + ("arrowkey" . 1) + ;; Text inside some keys: + ("ctrlname" . 0) ("delname" . 0) ("spacename" . 0))) + (os '("mac" "win")) + collector) + (dolist (cmd keycmds) + (cond + ((= (cdr cmd) 0) + (push (car cmd) collector)) + ((= (cdr cmd) 1) + (push (list (car cmd) '(TeX-arg-eval completing-read + "Direction: " + '("^" "v" ">" "<"))) + collector)) + ((= (cdr cmd) 2) + (push (car cmd) collector) + (dolist (x os) + (push (concat (car cmd) x) collector))))) + (apply #'TeX-add-symbols collector))) + + ;; Fontification: + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("menu" "[{") + ("directory" "[{") + ("keys" "[{") + ("drawtikzfolder" "[[")) + 'textual) + (font-latex-add-keywords '(("newmenustylesimple" "*{[{[[{") + ("newmenustyle" "*{[{[{{{[{") + ("copymenustyle" "{{") + ("changemenuelement" "*{{{") + ("renewmenustylesimple" "{[{[[{") + ("providemenustylesimple" "{[{[[{") + ("providemenustyle" "{[{[{{{[{") + ("renewmenustyle" "{[{[{{{[{") + ("newmenucolortheme" "{{{{{[[[") + ("copymenucolortheme" "{{") + ("changemenucolor" "{{{{") + ("renewmenucolortheme" "{{{{{[[[") + ("newmenumacro" "|{\\[{") + ("providemenumacro" "|{\\[{") + ("renewmenumacro" "|{\\[{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-menukeys-package-options-list + '(("definemenumacros" ("true" "false")) + ("definekeys" ("true" "false")) + ("mackeys" ("text" "symbols")) + ("os" ("mac" "win"))) + "Package options for menukeys package.") + +(defun LaTeX-menukeys-package-options () + "Prompt for package options for the menukeys package." + (TeX-read-key-val t LaTeX-menukeys-package-options-list)) + +;;; menukeys.el ends here diff --git a/elpa/auctex-13.1.3/style/menukeys.elc b/elpa/auctex-13.1.3/style/menukeys.elc Binary files differnew file mode 100644 index 0000000..0ab6f3c --- /dev/null +++ b/elpa/auctex-13.1.3/style/menukeys.elc diff --git a/elpa/auctex-13.1.3/style/metalogo.el b/elpa/auctex-13.1.3/style/metalogo.el new file mode 100644 index 0000000..fc6233c --- /dev/null +++ b/elpa/auctex-13.1.3/style/metalogo.el @@ -0,0 +1,92 @@ +;;; metalogo.el --- AUCTeX style for `metalogo.sty' version 0.12. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013, 2018, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <giordano.mose@libero.it> +;; 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 the `metalogo.sty' version 0.12. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "metalogo" + (lambda () + (TeX-add-symbols + ;; Logos + '("LaTeXe") + '("XeTeX") + '("XeLaTeX") + '("LuaTeX") + '("LuaLaTeX") + ;; Commands + '("setlogokern" + (TeX-arg-eval completing-read "Kern parameters: " + '(("Te") ("eX") ("La") ("aT") ("Xe") ("eT") ("eL") ("X2"))) + (TeX-arg-length "Dimension")) + '("setlogodrop" + [TeX-arg-eval completing-read "Drop parameters: " + '(("TeX") ("Xe") ("XeTeX"))] + (TeX-arg-length "Dimension")) + '("setLaTeXa" 1) + '("setLaTeXee" 1) + '("seteverylogo" 1) + '("everylogo" 1)) + + ;; The main macros of this package are the logos, while fine-tuning commands + ;; probably will be used only by expert users. + (TeX-declare-expert-macros + "metalogo" + "setlogokern" "setlogodrop" "setLaTeXa" "setLaTeXee" + "seteverylogo" "everylogo") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '( ;; Logos + ("LaTeXe") + ("XeTeX") + ("XeLaTeX") + ("LuaTeX") + ("LuaLaTeX") + ;; Commands + ("setlogokern" "{{") + ("setlogodrop" "[{") + ("setLaTeXa" "{") + ("setLaTeXee" "{") + ("seteverylogo" "{") + ("everylogo" "{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-metalogo-package-options nil + "Package options for the metalogo package.") + +;;; metalogo.el ends here diff --git a/elpa/auctex-13.1.3/style/metalogo.elc b/elpa/auctex-13.1.3/style/metalogo.elc Binary files differnew file mode 100644 index 0000000..50fc2e6 --- /dev/null +++ b/elpa/auctex-13.1.3/style/metalogo.elc diff --git a/elpa/auctex-13.1.3/style/mflogo.el b/elpa/auctex-13.1.3/style/mflogo.el new file mode 100644 index 0000000..c8d25d2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/mflogo.el @@ -0,0 +1,61 @@ +;;; mflogo.el --- AUCTeX style for `mflogo.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2012, 2019, 2020, 2021 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2011-02-02 +;; 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 `mflogo.sty'. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "mflogo" + (lambda () + (TeX-add-symbols + '("textlogo" "Text") + '("logofamily" -1) + "MF" + "MP") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textlogo" "{")) + 'type-command) + (font-latex-add-keywords '(("logofamily" "")) + 'type-declaration))) + TeX-dialect) + +(defvar LaTeX-mflogo-package-options nil + "Package options for the mflogo package.") + +;;; mflogo.el ends here diff --git a/elpa/auctex-13.1.3/style/mflogo.elc b/elpa/auctex-13.1.3/style/mflogo.elc Binary files differnew file mode 100644 index 0000000..6437c68 --- /dev/null +++ b/elpa/auctex-13.1.3/style/mflogo.elc diff --git a/elpa/auctex-13.1.3/style/midfloat.el b/elpa/auctex-13.1.3/style/midfloat.el new file mode 100644 index 0000000..66d794c --- /dev/null +++ b/elpa/auctex-13.1.3/style/midfloat.el @@ -0,0 +1,51 @@ +;;; midfloat.el --- AUCTeX style for `midfloat.sty' (v1.1) -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-12-11 +;; 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 `midfloat.sty' (v1.1) from 2012/05/29. +;; `midfloat.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "midfloat" + (lambda () + + ;; Add the only environment provided by the package: + (LaTeX-add-environments + '("strip" ["Top/Bottom skip"])) + + ;; This is a glue, in LaTeX set with \setlength: + (LaTeX-add-lengths "stripsep")) + TeX-dialect) + +(defvar LaTeX-midfloat-package-options nil + "Package options for the midfloat package.") + +;;; midfloat.el ends here diff --git a/elpa/auctex-13.1.3/style/midfloat.elc b/elpa/auctex-13.1.3/style/midfloat.elc Binary files differnew file mode 100644 index 0000000..0e03d38 --- /dev/null +++ b/elpa/auctex-13.1.3/style/midfloat.elc diff --git a/elpa/auctex-13.1.3/style/minted.el b/elpa/auctex-13.1.3/style/minted.el new file mode 100644 index 0000000..354213b --- /dev/null +++ b/elpa/auctex-13.1.3/style/minted.el @@ -0,0 +1,475 @@ +;;; minted.el --- AUCTeX style for `minted.sty' (v2.5) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014-2021 Free Software Foundation, Inc. + +;; Author: Tassilo Horn <tsdh@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-12-19 +;; 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 `minted.sty' (v2.5) from 2017/07/19. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function font-latex-set-syntactic-keywords + "font-latex") + +(declare-function LaTeX-color-definecolor-list "color" ()) +(declare-function LaTeX-xcolor-definecolor-list "xcolor" ()) +(declare-function LaTeX-add-newfloat-DeclareFloatingEnvironments + "newfloat" (&rest newfloat-declarefloatingenvironments)) + +(defvar font-latex-syntactic-keywords-extra) + +(defvar LaTeX-minted-key-val-options + '(("autogobble" ("true" "false")) + ("baselinestretch" ("auto")) + ("beameroverlays" ("true" "false")) + ("breakafter") + ("breakaftergroup" ("true" "false")) + ("breakaftersymbolpre") + ("breakaftersymbolpost") + ("breakanywhere" ("true" "false")) + ("breakanywheresymbolpre") + ("breakanywheresymbolpost") + ("breakautoindent" ("true" "false")) + ("breakbefore") + ("breakbeforegroup" ("true" "false")) + ("breakbeforesymbolpre") + ("breakbeforesymbolpost") + ("breakbytoken" ("true" "false")) + ("breakbytokenanywhere" ("true" "false")) + ("breakindent") + ("breakindentnchars") + ("breaklines" ("true" "false")) + ("breaksymbol") + ("breaksymbolleft") + ("breaksymbolright") + ("breaksymbolindent") + ("breaksymbolindentnchars") + ("breaksymbolindentleft") + ("breaksymbolindentleftnchars") + ("breaksymbolindentright") + ("breaksymbolseprightnchars") + ("breaksymbolsep") + ("breaksymbolsepnchars") + ("breaksymbolsepleft") + ("breaksymbolsepleftnchars") + ("breaksymbolsepright") + ("breaksymbolseprightnchars") + ("bgcolor") + ("codetagify") + ("curlyquotes" ("true" "false")) + ("encoding") + ("escapeinside") + ("firstline") + ("firstnumber" ("auto" "last" "integer")) + ("fontfamily" ("tt" "courier" "helvetica")) + ("fontseries" ("auto")) + ("fontsize" ("auto" "\\tiny" "\\large" "\\scriptsize" "\\Large" + "\\footnotesize" "\\LARGE" "\\small" "\\huge" + "\\normalsize" "\\Huge")) + ("fontshape" ("auto")) + ("formatcom") + ("frame" ("none" "leftline" "topline" "bottomline" "lines" "single")) + ("framerule") + ("framesep") + ("funcnamehighlighting" ("true" "false")) + ("gobble") + ("highlightcolor") + ("highlightlines") + ("keywordcase" ("lower" "upper" "capitalize")) + ("label") + ("labelposition" ("none" "topline" "bottomline" "all")) + ("lastline") + ("linenos" ("true" "false")) + ("numberfirstline" ("true" "false")) + ("numbers" ("left" "right" "both" "none")) + ("mathescape" ("true" "false")) + ("numberblanklines" ("true" "false")) + ("numbersep") + ("obeytabs" ("true" "false")) + ("outencoding") + ("python3" ("true" "false")) + ("resetmargins" ("true" "false")) + ("rulecolor") + ("samepage" ("true" "false")) + ("showspaces" ("true" "false")) + ("showtabs" ("true" "false")) + ("space") + ("spacecolor") + ("startinline" ("true" "false")) + ;; FIXME: It would be nice to use the function + ;; `LaTeX-minted-style-list' here, but with a file local var like: + ;; %%% TeX-command-extra-options: "-shell-escape" + ;; in a .tex file, Emacs asks to apply a variable which is not + ;; safe and does not restore the window; the splitted frame + ;; remains. I couldn't figure out why, so for now, I add the + ;; styles from Pygments version 2.11 here. + ("style" ("abap" "algol" "algol_nu" "arduino" "autumn" + "borland" "bw" "colorful" "default" "dracula" + "emacs" "friendly" "friendly_grayscale" "fruity" + "gruvbox-dark" "gruvbox-light" "igor" "inkpot" + "lilypond" "lovelace" "manni" "material" + "monokai" "murphy" "native" "one-dark" + "paraiso-dark" "paraiso-light" "pastie" "perldoc" + "rainbow_dash" "rrt" "sas" "solarized-dark" + "solarized-light" "stata-dark" "stata-light" + "stata" "tango" "trac" "vim" "vs" "xcode" + "zenburn")) + ("stepnumber") + ("stepnumberfromfirst") + ("stepnumberoffsetvalues" ("true" "false")) + ("stripall" ("true" "false")) + ("stripnl" ("true" "false")) + ("tab") + ("tabcolor") + ("tabsize") + ("texcl" ("true" "false")) + ("texcomments" ("true" "false")) + ("xleftmargin") + ("xrightmargin")) + "Key=value options for minted macros and environments.") + +(defun LaTeX-minted-key-val-options () + "Return an updated list of key=vals from minted package. +This function retrieves values of (user) defined colors and +prepends them to variable `LaTeX-minted-key-val-options'." + (append + (when (or (member "xcolor" (TeX-style-list)) + (member "color" TeX-active-styles)) + (let* ((colorcmd (if (member "xcolor" TeX-active-styles) + #'LaTeX-xcolor-definecolor-list + #'LaTeX-color-definecolor-list)) + (colors (mapcar #'car (funcall colorcmd))) + (keys '("bgcolor" "highlightcolor" + "rulecolor" "spacecolor" "tabcolor")) + result) + (dolist (key keys result) + (push (list key colors) result)))) + LaTeX-minted-key-val-options)) + +(defvar LaTeX-minted-pygmentize-program (executable-find "pygmentize")) + +(defvar LaTeX-minted-language-list nil + "List containing languages provided by pymentize program.") + +(defun LaTeX-minted-language-list (&rest _ignored) + "Return a list of languages provided by pymentize program. +Update the variable `LaTeX-minted-language-list' if still nil." + (or LaTeX-minted-language-list + (when LaTeX-minted-pygmentize-program + (with-temp-buffer + (shell-command (concat LaTeX-minted-pygmentize-program " -L lexers") + (current-buffer)) + (goto-char (point-min)) + (let (languages) + (while (re-search-forward "^\\*[[:space:]]\\([^:]+\\):" nil t) + (dolist (lang (split-string (match-string 1) "[[:space:],]" t)) + (push lang languages))) + (setq LaTeX-minted-language-list languages)) + LaTeX-minted-language-list)))) + +(defun LaTeX-arg-minted-language (optional &optional prompt) + "Insert a selected pygmentize language as argument for macros from minted.sty. +If OPTIONAL is non-nil, insert it as optional argument in +brackets. PROMPT replaces the standard one." + (TeX-argument-insert + (completing-read (TeX-argument-prompt optional prompt "Language") + (LaTeX-minted-language-list)) + optional)) + +(defvar LaTeX-minted-style-list nil + "List containing styles provided by pymentize program.") + +(defun LaTeX-minted-style-list (&rest _ignored) + "Return a list of styles provided by pymentize program. +Update the variable `LaTeX-minted-style-list' if still nil." + (or LaTeX-minted-style-list + (when LaTeX-minted-pygmentize-program + (with-temp-buffer + (shell-command (concat LaTeX-minted-pygmentize-program " -L styles") + (current-buffer)) + (goto-char (point-min)) + (let (styles) + (while (re-search-forward "^\\*[[:space:]]\\([^:]+\\):" nil t) + (dolist (style (split-string (match-string 1) "[[:space:],]" t)) + (push style styles))) + (setq LaTeX-minted-style-list styles)) + LaTeX-minted-style-list)))) + +(defun LaTeX-arg-minted-style (optional &optional prompt) + "Insert a selected pygmentize style as argument for macros from minted.sty. +If OPTIONAL is non-nil, insert it as optional argument in +brackets. PROMPT replaces the standard one." + (TeX-argument-insert + (completing-read (TeX-argument-prompt optional prompt "Style") + (LaTeX-minted-style-list)) + optional)) + +(defvar LaTeX-minted-auto-newminted nil) +(defvar LaTeX-minted-newminted-regexp + '("\\\\newminted\\(?:\\[\\([^]]+\\)\\]\\)?{\\([^}]+\\)}{[^}]*}" + (1 2) LaTeX-minted-auto-newminted)) + +(defvar LaTeX-minted-auto-newmint nil) +(defvar LaTeX-minted-newmint-regexp + '("\\\\newmint\\(?:\\[\\([^]]+\\)\\]\\)?{\\([^}]+\\)}{[^}]*}" + (1 2) LaTeX-minted-auto-newmint)) + +(defvar LaTeX-minted-auto-newmintinline nil) +(defvar LaTeX-minted-newmintinline-regexp + '("\\\\newmintinline\\(?:\\[\\([^]]+\\)\\]\\)?{\\([^}]+\\)}{[^}]*}" + (1 2) LaTeX-minted-auto-newmintinline)) + +(defvar LaTeX-minted-auto-newmintedfile nil) +(defvar LaTeX-minted-newmintedfile-regexp + '("\\\\newmintedfile\\(?:\\[\\([^]]+\\)\\]\\)?{\\([^}]+\\)}{[^}]*}" + (1 2) LaTeX-minted-auto-newmintedfile)) + +(defun LaTeX-minted-auto-prepare () + (setq LaTeX-minted-auto-newminted nil + LaTeX-minted-auto-newmint nil + LaTeX-minted-auto-newmintinline nil + LaTeX-minted-auto-newmintedfile nil + LaTeX-minted-language-list nil + LaTeX-minted-style-list nil)) + +(defun LaTeX-minted-auto-cleanup () + ;; \newminted{lang}{opts} => new langcode and langcode* envs. + ;; \newminted[envname]{lang}{opts} => new envname/envname* envs. + (dolist (name-lang LaTeX-minted-auto-newminted) + (let* ((env (if (> (length (car name-lang)) 0) + (car name-lang) + (concat (cadr name-lang) "code"))) + (env* (concat env "*"))) + (add-to-list 'LaTeX-auto-environment (list env)) + (add-to-list 'LaTeX-auto-environment + (list env* #'LaTeX-env-args + '(TeX-arg-key-val (LaTeX-minted-key-val-options)))) + (add-to-list 'LaTeX-indent-environment-list `(,env current-indentation) t) + (add-to-list 'LaTeX-indent-environment-list `(,env* current-indentation) t) + (add-to-list 'LaTeX-verbatim-environments-local env) + (add-to-list 'LaTeX-verbatim-environments-local env*))) + ;; \newmint{foo}{opts} => \foo[key=vals]|code| + ;; \newmint[macname]{foo}{opts} => \macname[key=vals]|code| + (dolist (name-lang LaTeX-minted-auto-newmint) + (let ((lang (if (> (length (car name-lang)) 0) + (car name-lang) + (cadr name-lang)))) + (add-to-list 'TeX-auto-symbol + `(,lang [TeX-arg-key-val (LaTeX-minted-key-val-options)] + TeX-arg-verb)) + (add-to-list 'LaTeX-verbatim-macros-with-delims-local lang) + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,lang "[")) 'textual)))) + ;; \newmintinline{foo}{opts} => \fooinline[key=vals]|code| or + ;; \fooinline[key=vals]{code} + ;; \newmintinline[macname]{foo}{opts} => \macname[key=vals]|code| or + ;; \macname[key=vals]{code} + (dolist (name-lang LaTeX-minted-auto-newmintinline) + (let ((lang (if (> (length (car name-lang)) 0) + (car name-lang) + (concat (cadr name-lang) "inline")))) + (add-to-list 'TeX-auto-symbol + `(,lang [TeX-arg-key-val (LaTeX-minted-key-val-options)] + TeX-arg-verb-delim-or-brace)) + (add-to-list 'LaTeX-verbatim-macros-with-delims-local lang) + (add-to-list 'LaTeX-verbatim-macros-with-braces-local lang) + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,lang "[")) 'textual)))) + ;; \newmintedfile{foo}{opts} => \foofile[key=vals]{file-name} + ;; \newmintedfile[macname]{foo}{opts} => \macname[key=vals]{file-name} + (dolist (name-lang LaTeX-minted-auto-newmintedfile) + (let ((lang (if (> (length (car name-lang)) 0) + (car name-lang) + (concat (cadr name-lang) "file")))) + (add-to-list 'TeX-auto-symbol + `(,lang [TeX-arg-key-val (LaTeX-minted-key-val-options)] + TeX-arg-file)))) + (when (and (fboundp 'font-latex-set-syntactic-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; Refresh font-locking so that the verbatim envs take effect. + (font-latex-set-syntactic-keywords))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-minted-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-minted-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun LaTeX-minted-add-syntactic-keywords-extra (type macro) + "Add MACRO from minted.sty to `font-latex-syntactic-keywords-extra'. +TYPE is one of the symbols `brace' or `delim' indicating how +verbatim text is enclosed after the macro. MACRO is a string or +a list of strings." + (let ((syntax (if (eq type 'brace) + '((1 "|") (2 "|")) + '((1 "\"") (2 ".") (3 "\"")))) + regexp) + (when (listp macro) + (setq macro (regexp-opt macro "\\(?:"))) + (setq regexp `(,(concat + ;; The backslash + (regexp-quote TeX-esc) + ;; Name of the macro(s) + macro + ;; The optional argument + "\\(?:\\[[^][]*\\(?:\\[[^][]*\\][^][]*\\)*\\]\\)?" + ;; The first mandatory argument + "\\(?:{[^}]+}\\)" + ;; With 'brace, allow braced sub-groups otherwise + ;; we stop matching too early. With 'delim, copy + ;; font-latex.el: + (if (eq type 'brace) + (concat "\\({\\)" + "\\(?:[^}{]*" + "\\(?:{[^}{]*" + "\\(?:{[^}{]*" + "\\(?:{[^}{]*}[^}{]*\\)*" + "}[^}{]*\\)*" + "}[^}{]*\\)*" + "\\)" + "\\(}\\)") + (concat + ;; Opening delimiter + "\\([^a-z@*\n\f{]\\).*?" + ;; Closing delimiter + "\\(" (regexp-quote TeX-esc) "*\\)\\(\\1\\)"))))) + (add-to-list 'font-latex-syntactic-keywords-extra (append regexp syntax)))) + +(TeX-add-style-hook + "minted" + (lambda () + + ;; New symbols + (TeX-add-symbols + '("mint" + [TeX-arg-key-val (LaTeX-minted-key-val-options)] + LaTeX-arg-minted-language TeX-arg-verb) + '("mintinline" + [TeX-arg-key-val (LaTeX-minted-key-val-options)] + LaTeX-arg-minted-language TeX-arg-verb-delim-or-brace) + '("newminted" ["Environment Name"] LaTeX-arg-minted-language + (TeX-arg-key-val (LaTeX-minted-key-val-options))) + '("newmint" ["Macro Name"] LaTeX-arg-minted-language + (TeX-arg-key-val (LaTeX-minted-key-val-options))) + '("newmintinline" ["Macro Name"] LaTeX-arg-minted-language + (TeX-arg-key-val (LaTeX-minted-key-val-options))) + '("newmintedfile" ["Macro Name"] LaTeX-arg-minted-language + (TeX-arg-key-val (LaTeX-minted-key-val-options))) + ;; 3.3 Formatting source code + '("inputminted" + [TeX-arg-key-val (LaTeX-minted-key-val-options)] + (LaTeX-arg-minted-language) + TeX-arg-file) + ;; 3.4 Using different styles + '("usemintedstyle" + [ LaTeX-arg-minted-language ] LaTeX-arg-minted-style) + ;; 5.2 Macro option usage + '("setminted" + [ LaTeX-arg-minted-language ] + (TeX-arg-key-val (LaTeX-minted-key-val-options))) + '("setmintedinline" + [ LaTeX-arg-minted-language ] + (TeX-arg-key-val (LaTeX-minted-key-val-options)))) + + ;; New environments + (LaTeX-add-environments + '("minted" LaTeX-env-args [TeX-arg-key-val (LaTeX-minted-key-val-options)] + LaTeX-arg-minted-language)) + + ;; 4 Floating listings: If option "newfloat" is given, run the + ;; style hook and use the interface provided by the style, + ;; otherwise add "listing" manually + (if (or (LaTeX-provided-package-options-member "minted" "newfloat") + (LaTeX-provided-package-options-member "minted" "newfloat=true")) + (progn + (TeX-run-style-hooks "newfloat") + (LaTeX-add-newfloat-DeclareFloatingEnvironments + '("listing" "verbatim"))) + (LaTeX-add-environments '("listing" ["Float Position"])) + (TeX-add-symbols '("listoflistings") + '("listingscaption") + '("listoflistingscaption")) + (add-to-list (make-local-variable 'LaTeX-indent-environment-list) + '("listing" current-indentation) t) + (add-to-list 'LaTeX-label-alist '("listing" . LaTeX-listing-label) t) + (when (fboundp 'reftex-add-label-environments) + (reftex-add-label-environments + '(("listing" ?l "lst:" "~\\ref{%s}" caption nil nil))))) + + ;; Add to the auto parser + (TeX-auto-add-regexp LaTeX-minted-newminted-regexp) + (TeX-auto-add-regexp LaTeX-minted-newmint-regexp) + (TeX-auto-add-regexp LaTeX-minted-newmintinline-regexp) + (TeX-auto-add-regexp LaTeX-minted-newmintedfile-regexp) + + ;; Filling + (add-to-list (make-local-variable 'LaTeX-indent-environment-list) + '("minted" current-indentation) t) + (add-to-list 'LaTeX-verbatim-environments-local "minted") + + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("usemintedstyle" "[{") + ("setminted" "[{") + ("setmintedinline" "[{") + ("newminted" "[{{") + ("newmint" "[{{") + ("newmintinline" "[{{") + ("newmintedfile" "[{{")) + 'function) + (font-latex-add-keywords '(("inputminted" "[{{") + ("mint" "[{") + ("mintinline" "[{")) + 'textual) + ;; Add \mint & \mintinline to + ;; `font-latex-syntactic-keywords-extra' and cater for their + ;; special syntax: \mint[optional]{lang}{verbatim} or + ;; \mint[optional]{lang}|verbatim| + (LaTeX-minted-add-syntactic-keywords-extra 'brace + '("mint" "mintinline")) + (LaTeX-minted-add-syntactic-keywords-extra 'delim + '("mint" "mintinline")) + ;; Tell font-lock about the update. + (font-latex-set-syntactic-keywords))) + TeX-dialect) + +(defvar LaTeX-minted-package-options '("chapter" "cache" + "cachedir" "finalizecache" + "frozencache" "draft" + "final" "kpsewhich" + "langlinenos" "newfloat" + "outputdir" "section") + "Package options for the minted package.") + +;;; minted.el ends here diff --git a/elpa/auctex-13.1.3/style/minted.elc b/elpa/auctex-13.1.3/style/minted.elc Binary files differnew file mode 100644 index 0000000..f89c28d --- /dev/null +++ b/elpa/auctex-13.1.3/style/minted.elc diff --git a/elpa/auctex-13.1.3/style/mn2e.el b/elpa/auctex-13.1.3/style/mn2e.el new file mode 100644 index 0000000..c923687 --- /dev/null +++ b/elpa/auctex-13.1.3/style/mn2e.el @@ -0,0 +1,183 @@ +;;; mn2e.el --- AUCTeX style for `mn2e.cls' version 2.2. -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <mose@gnu.org> +;; 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 `mn2e.cls' version 2.2. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "mn2e" + (lambda () + (if (LaTeX-provided-class-options-member "mn2e" "usegraphicx") + (TeX-run-style-hooks "graphicx")) + (if (LaTeX-provided-class-options-member "mn2e" "usenatbib") + (TeX-run-style-hooks "natbib")) + (if (LaTeX-provided-class-options-member "mn2e" "usedcolumn") + (TeX-run-style-hooks "dcolumn")) + (TeX-add-symbols + ;; 4.5.3 Bold Greek + "balpha" + "bbeta" + "bgamma" + "bdelta" + "bepsilon" + "bzeta" + "boldeta" + "btheta" + "biota" + "bkappa" + "blambda" + "bmu" + "bnu" + "bxi" + "bpi" + "brho" + "bsigma" + "btau" + "bupsilon" + "bphi" + "bchi" + "bpsi" + "bomega" + "bvarepsilon" + "bvartheta" + "bvarpi" + "bvarrho" + "bvarsigma" + "bvarphi" + ;; 4.5.5 Special symbols + "getsto" + "cor" + "lid" + "gid" + "sol" + "sog" + "lse" + "gse" + "grole" + "leogr" + "loa" + "goa" + "sun" + "earth" + "degr" + "diameter" + "sq" + "squareforqed" + "fd" + "fh" + "fm" + "fs" + "fdg" + "farcm" + "farcs" + "fp" + "arcmin" + "arcsec" + "micron" + ;; Authors' notes + '("title" ["Short title"] "Long title") + '("author" ["Short author(s)"] (LaTeX-arg-author "Long author(s)")) + "newauthor" + "nokeywords" + "plate" + "contcaption" + '("bmath" "Math text") + '("mathbfss" "Text") + '("textbfss" "Text") + '("mathbfit" "Text") + '("textbfit" "Text") + ;; Editors' notes + "pagerange" + "volume" + "pubyear" + "journal" + "bsp") + (if (LaTeX-provided-class-options-member "mn2e" "useAMS") + (TeX-add-symbols + ;; 4.5.4 Upright Greek characters + "upi" + "umu" + "upartial" + "leqslant" + "geqslant" + "la" + "ga")) + (LaTeX-add-environments + "keywords" + "abstract" + "proof") + (LaTeX-add-pagestyles + "headings" + "myheadings" + "titlepage" + "plate") + (LaTeX-add-counters + "part" + "section" + "subsection" + "subsubsection" + "paragraph" + "subparagraph" + "dummy" + "table" + "figure") + (LaTeX-add-lengths + "realparindent" + "bibhang") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("author" "[{") + ("title" "[{") + ("newauthor") + ("nokeywords" "{") + ("plate" "{") + ("contcaption" "{") + ("pagerange" "{") + ("volume" "{") + ("pubyear" "{") + ("journal") + ("bsp")) + 'function))) + TeX-dialect) + +(defvar LaTeX-mn2e-class-options + '("useAMS" "usegraphicx" "usenatbib" "usedcolumn" + "doublespacing" "galley" "landscape" "letters" "onecolumn" "referee") + "Package options for the mn2e package.") + +;; mn2e.el ends here diff --git a/elpa/auctex-13.1.3/style/mn2e.elc b/elpa/auctex-13.1.3/style/mn2e.elc Binary files differnew file mode 100644 index 0000000..ed5f3fb --- /dev/null +++ b/elpa/auctex-13.1.3/style/mn2e.elc diff --git a/elpa/auctex-13.1.3/style/mnras.el b/elpa/auctex-13.1.3/style/mnras.el new file mode 100644 index 0000000..7307f03 --- /dev/null +++ b/elpa/auctex-13.1.3/style/mnras.el @@ -0,0 +1,184 @@ +;;; mnras.el --- AUCTeX style for `mnras.cls' version 3.0. -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <mose@gnu.org> +;; 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 `mnras.cls' version 3.0. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "mnras" + (lambda () + (if (LaTeX-provided-class-options-member "mnras" "usegraphicx") + (TeX-run-style-hooks "graphicx")) + (if (LaTeX-provided-class-options-member "mnras" "usenatbib") + (TeX-run-style-hooks "natbib")) + (if (LaTeX-provided-class-options-member "mnras" "usedcolumn") + (TeX-run-style-hooks "dcolumn")) + (TeX-run-style-hooks + "geometry" + "fixltx2e" + "hyperref") + (TeX-add-symbols + ;; 5 Title page + '("title" ["Short title"] "Long title") + '("author" ["Short author(s)"] (LaTeX-arg-author "Long author(s)")) + "newauthor" + ;; 7.2 Special symbols + '("bmath" 1) + '("mathbfit" 1) + '("mathbfss" 1) + ;; 7.2 Special symbols -- Table 1 + "sun" + "earth" + "degr" + "diameter" + "sq" + "fd" + "fh" + "fm" + "fs" + "fdg" + "farcm" + "farcs" + "fp" + "arcmin" + "arcsec" + "micron" + ;; 7.2 Special symbols -- Table 2 + "upi" + "umu" + "upartial" + "leqslant" + "geqslant" + "la" + "ga" + "getsto" + "cor" + "lid" + "gid" + "sol" + "sog" + "lse" + "gse" + "grole" + "leogr" + "loa" + "goa" + ;; 7.3 Ions + '("ion" 2) + ;; A Journal abbreviations -- Table A1 + "aap" + "astap" + "aapr" + "aaps" + "actaa" + "afz" + "aj" + "ao" + "applopt" + "aplett" + "apj" + "apjl" + "apjlett" + "apjs" + "apjsupp" + "apss" + "araa" + "arep" + "aspc" + "azh" + "baas" + "bac" + "bain" + "caa" + "cjaa" + "fcp" + "gca" + "grl" + "iaucirc" + "icarus" + "japa" + "jcap" + "jcp" + "jgr" + "jqsrt" + "jrasc" + "memras" + "memsai" + "mnassa" + "na" + "nar" + "nat" + "nphysa" + "pra" + "prb" + "prc" + "prd" + "pre" + "prl" + "pasa" + "pasp" + "pasj" + "physrep" + "physscr" + "planss" + "procspie" + "rmxaa" + "qjras" + "sci" + "skytel" + "solphys" + "sovast" + "ssr" + "zap") + + (LaTeX-add-environments + "keywords" + "proof") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("author" "[{") + ("title" "[{") + ("newauthor")) + 'function)))) + +(defvar LaTeX-mnras-class-options + '("letters" "onecolumn" "doublespacing" "referee" "galley" "landscape" + "usenatbib" "usegraphicx" "useAMS" "usedcolumn") + "Package options for the mnras package.") + +;; mnras.el ends here diff --git a/elpa/auctex-13.1.3/style/mnras.elc b/elpa/auctex-13.1.3/style/mnras.elc Binary files differnew file mode 100644 index 0000000..1d77bb3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/mnras.elc diff --git a/elpa/auctex-13.1.3/style/moodle.el b/elpa/auctex-13.1.3/style/moodle.el new file mode 100644 index 0000000..ac5f286 --- /dev/null +++ b/elpa/auctex-13.1.3/style/moodle.el @@ -0,0 +1,222 @@ +;;; moodle.el --- AUCTeX style for `moodle.sty' (v0.5) -*- lexical-binding: t; -*- + +;; Copyright (C) 2017, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-06-10 +;; 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 `moodle.sty' (v0.5) from 2016/01/11. + +;; In multi environments, the correct answer is marked with `\item*'. +;; This style adds asterisk to the list of key=values queried after +;; \item in this environment in order to make the input procedure +;; easier. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-moodle-key-val-options + '(("points") + ("default grade") + ("penalty") + ("fraction") + ("feedback")) + "Key=value options for moodle macros and environments.") + +(defun LaTeX-moodle-question-env-with-args (env) + "Insert ENV provided by moodle.sty incl. arguments and first \\item." + (LaTeX-insert-environment + env + (let ((opts (TeX-read-key-val + t + (cond (;; 3.3.1 Multiple Choice + (string= env "multi") + (append '(("shuffle" ("true" "false")) + ("numbering" ("alph" "Alph" "arabic" + "roman" "Roman" "none")) + ("single" ("true" "false")) + ("multiple" ("true" "false"))) + (when (string= "cloze" (LaTeX-current-environment)) + '(("vertical" ("true" "false")) + ("horizonal" ("true" "false")))) + LaTeX-moodle-key-val-options)) + ;; 3.3.3 Short Answer + ((string= env "shortanswer") + (append '(("case sensitive" ("true" "false")) + ("usecase" ("true" "false"))) + (when (string= "cloze" (LaTeX-current-environment)) + '(("vertical" ("true" "false")) + ("horizonal" ("true" "false")))) + LaTeX-moodle-key-val-options)) + ;; 3.3.4 Essay Questions + ((string= env "essay") + (append '(("response required" ("true" "false")) + ("response format" ("html" "file" + "html+file" + "text" "monospaced")) + ("response field lines") + ("attachments allowed" ("0" "1" "2" "3" + "unlimited")) + ("attachments required" ("0" "1" "2" "3")) + ("response template")) + (when (string= "cloze" (LaTeX-current-environment)) + '(("vertical" ("true" "false")) + ("horizonal" ("true" "false")))) + LaTeX-moodle-key-val-options)) + ;; 3.4 Matching Questions + ((string= env "matching") + (append '(("shuffle" ("true" "false")) + ("drag and drop" ("true" "false")) + ("dd" ("true" "false"))) + LaTeX-moodle-key-val-options)) + (t (append + (when (string= "cloze" (LaTeX-current-environment)) + '(("vertical" ("true" "false")) + ("horizonal" ("true" "false")))) + LaTeX-moodle-key-val-options))))) + (qname (unless (string= "cloze" (LaTeX-current-environment)) + (TeX-read-string (TeX-argument-prompt nil nil "Question name"))))) + (concat + (when (and opts (not (string= opts ""))) + (format "[%s]" opts)) + (when (and qname (not (string= qname ""))) + (format "{%s}" qname))))) + (if (TeX-active-mark) + (progn + (LaTeX-find-matching-begin) + (end-of-line 1)) + (end-of-line 0)) + (delete-char 1) + (when (looking-at (concat "^[ \t]+$\\|" + "^[ \t]*" TeX-comment-start-regexp "+[ \t]*$")) + (delete-region (point) (line-end-position))) + (delete-horizontal-space) + ;; Deactivate the mark here in order to prevent `TeX-parse-macro' + ;; from swapping point and mark and the \item ending up right after + ;; \begin{...}. + (deactivate-mark) + ;; Query and insert the question text. + (let ((qtext (TeX-read-string (TeX-argument-prompt nil nil "Question Text")))) + (when (and qtext (not (string= qtext ""))) + (newline) + (indent-according-to-mode) + (insert qtext) + (when auto-fill-function (LaTeX-fill-paragraph)))) + (LaTeX-insert-item) + ;; The inserted \item may have outdented the first line to the + ;; right. Fill it, if appropriate. + (when (and auto-fill-function + (not (looking-at "$")) + (not (assoc env LaTeX-indent-environment-list)) + (> (- (line-end-position) (line-beginning-position)) + (current-fill-column))) + (LaTeX-fill-paragraph nil))) + +(defun LaTeX-moodle-item-argument () + "Insert an \\item with optional argument in environments of moodle package." + ;; Do not query for an optional argument here, this happens below: + (let ((TeX-insert-macro-default-style 'mandatory-args-only)) + (TeX-insert-macro "item")) + ;; Add * to `LaTeX-moodle-key-val-options' in multi environment and + ;; query for the key=values: + (let ((opts + (TeX-read-key-val t (if (string= "multi" (LaTeX-current-environment)) + (append '(("*")) LaTeX-moodle-key-val-options) + LaTeX-moodle-key-val-options)))) + ;; Insert key=values; if * is chosen, drop []: + (when (and opts (not (string= opts ""))) + (delete-horizontal-space) + (if (string= opts "*") + (insert opts) + (insert LaTeX-optop opts LaTeX-optcl)))) + (just-one-space) + ;; Bonus point: Insert the macro \answer in matching environment: + (when (string= "matching" (LaTeX-current-environment)) + (save-excursion + (insert TeX-esc "answer") + (just-one-space)))) + +(TeX-add-style-hook + "moodle" + (lambda () + + (LaTeX-add-environments + ;; 3.2 Quiz and Question Environments + '("quiz" + (lambda (environment) + (LaTeX-insert-environment + environment + (let ((opts (TeX-read-key-val t LaTeX-moodle-key-val-options)) + (bank (TeX-read-string (TeX-argument-prompt nil nil "Question bank name")))) + (concat + (when (and opts (not (string= opts ""))) + (format "[%s]" opts)) + (format "{%s}" bank)))))) + ;; 3.5 Cloze Questions + '("cloze" "Question bank name")) + + ;; Make other environments available to AUCTeX: + (dolist (env '("multi" "numerical" "shortanswer" "essay" "matching")) + (LaTeX-add-environments `(,env LaTeX-moodle-question-env-with-args)) + (add-to-list 'LaTeX-item-list `(,env . LaTeX-moodle-item-argument) t)) + + (TeX-add-symbols + '("moodleset" + (TeX-arg-eval + (lambda () + (let ((opts (TeX-read-key-val nil + (append '(("ppi")) LaTeX-moodle-key-val-options)))) + (format "%s" opts))))) + + ;; 5 Graphics + '("ghostscriptcommand" "File name") + '("imagemagickcommand" "File name") + '("opensslcommand" "File name")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("moodleset" "{") + ("ghostscriptcommand" "{") + ("imagemagickcommand" "{") + ("opensslcommand" "{")) + 'function) + (font-latex-add-keywords '(("answer" "") + ;; Cater for a fontified starred \item + ("item" "*[")) + 'textual))) + TeX-dialect) + +(defvar LaTeX-moodle-package-options + '("draft") + "Package options for the moodle package.") + +;;; moodle.el ends here diff --git a/elpa/auctex-13.1.3/style/moodle.elc b/elpa/auctex-13.1.3/style/moodle.elc Binary files differnew file mode 100644 index 0000000..01eea51 --- /dev/null +++ b/elpa/auctex-13.1.3/style/moodle.elc diff --git a/elpa/auctex-13.1.3/style/multicol.el b/elpa/auctex-13.1.3/style/multicol.el new file mode 100644 index 0000000..6fc65b9 --- /dev/null +++ b/elpa/auctex-13.1.3/style/multicol.el @@ -0,0 +1,92 @@ +;;; multicol.el --- AUCTeX style for `multicol.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2011, 2020, 2021 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2011-01-24 +;; 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 `multicol.sty' v1.9b from 2021/10/28. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "multicol" + (lambda () + (LaTeX-add-environments + '("multicols" "Number of columns" [ "Text across columns" ] + [ "Local value for \\premulticols" ]) + '("multicols*" "Number of columns" [ "Text across columns" ] + [ "Local value for \\premulticols" ])) + + (TeX-add-symbols + '("multicoltolerance" (TeX-arg-literal " = ")) + '("multicolpretolerance" (TeX-arg-literal " = ")) + "columnseprulecolor" + '("raggedcolumns" 0) + '("flushcolumns" 0) + ;; 2.3 Manually breaking columns + '("newcolumn" 0) + '("columnbreak" [ "How much [0 - 4]" ]) + + ;; Preface to version 1.7 + "RLmulticolcolumns" + "LRmulticolcolumns") + + ;; Preface to version 1.8 + (when (LaTeX-provided-package-options-member "multicol" "colaction") + (TeX-add-symbols '("docolaction" 3))) + + (LaTeX-add-lengths "premulticols" + "postmulticols" + "multicolsep" + "multicolbaselineskip" + "multicolovershoot" + "multicolundershoot") + + (LaTeX-add-counters "collectmore") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("columnbreak" "") + ("newcolumn" "") + ("LRmulticolcolumns" "") + ("RLmulticolcolumns" "")) + 'warning))) + TeX-dialect) + +(defvar LaTeX-multicol-package-options + '("errorshow" "infoshow" "balancingshow" "markshow" "debugshow" + "grid" "colaction") + "Package options for the multicol package.") + +;;; multicol.el ends here diff --git a/elpa/auctex-13.1.3/style/multicol.elc b/elpa/auctex-13.1.3/style/multicol.elc Binary files differnew file mode 100644 index 0000000..9266b9a --- /dev/null +++ b/elpa/auctex-13.1.3/style/multicol.elc diff --git a/elpa/auctex-13.1.3/style/multido.el b/elpa/auctex-13.1.3/style/multido.el new file mode 100644 index 0000000..ec92edc --- /dev/null +++ b/elpa/auctex-13.1.3/style/multido.el @@ -0,0 +1,54 @@ +;;; multido.el --- AUCTeX style for `multido.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2007, 2020 Free Software Foundation, Inc. + +;; Author: Holger Sparr <holger.sparr@gmx.net> +;; Created: 21 Jun 2007 +;; Based on: Jean-Philippe Georget's multido.el +;; Keywords: latex, pstricks, auctex, emacs + +;; 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 `multido.sty'. + +;;; TODO: +;; +;; -- better argument support for multido +;; -- parsing for fpAdd resp. fpSub + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "multido" + (lambda () + (TeX-add-symbols + '("multido" "\var=<start value>+-<inc>" "Repititions" t) + '("Multido" "\var=<start value>+-<inc>" "Repititions" t) + '("mmultido" "\var=<start value>+-<inc>" "Repititions" t) + '("MMultido" "\var=<start value>+-<inc>" "Repititions" t) + "multidostop" + "multidocount" + '("fpAdd" "Summand 1" "Summand 2" "Register") + '("fpSub" "Minuend" "Subtrahend" "Register"))) + TeX-dialect) + +;;; multido.el ends here diff --git a/elpa/auctex-13.1.3/style/multido.elc b/elpa/auctex-13.1.3/style/multido.elc Binary files differnew file mode 100644 index 0000000..0b762ad --- /dev/null +++ b/elpa/auctex-13.1.3/style/multido.elc diff --git a/elpa/auctex-13.1.3/style/multind.el b/elpa/auctex-13.1.3/style/multind.el new file mode 100644 index 0000000..68a4ab6 --- /dev/null +++ b/elpa/auctex-13.1.3/style/multind.el @@ -0,0 +1,66 @@ +;;; multind.el --- AUCTeX support for multiple indices with multind.sty. -*- lexical-binding: t; -*- + +;; Copyright (C) 1999, 2020 Free Software Foundation, Inc. + +;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl> +;; Maintainer: auctex-devel@gnu.org + +;; 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. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "multind" + (lambda () + + ;; Commands + (TeX-add-symbols + '("makeindex" "Indextag") + '("index" TeX-arg-index-tag TeX-arg-index) + '("printindex" TeX-arg-index-tag "Title") + "printindex" "indexspace") + + ;; Parsing index macros + (setq LaTeX-auto-regexp-list + (append + ;; The first regexp is faster, but less accurate + ;; '(("\\\\index\\*?{[^{}]*}{\\([^}]*\\)" 1 LaTeX-auto-index-entry)) + ;; The second regexp is very good, but slower + '(("\\\\index\\*?{[^{}]*}{\\([^}{]*\\({[^}{]*\\({[^}{]*\\({[^}{]*}[^}{]*\\)*}[^}{]*\\)*}[^}{]*\\)*\\)}" + 1 LaTeX-auto-index-entry)) + LaTeX-auto-regexp-list)) + + ;; Completion for index entries in the |see and \index commands + (setq TeX-complete-list + (append + '(("\\\\index{[^{}]*}{\\([^{}\n\r]*\\)" 1 LaTeX-index-entry-list) + ("|see{\\([^}]*\\)" 1 LaTeX-index-entry-list)) + TeX-complete-list)) + + ;; RefTeX support + (and (fboundp 'reftex-add-index-macros) + (reftex-add-index-macros '(multind)))) + TeX-dialect) + +(defvar LaTeX-multind-package-options nil + "Package options for the multind package.") + +;;; multind.el ends here diff --git a/elpa/auctex-13.1.3/style/multind.elc b/elpa/auctex-13.1.3/style/multind.elc Binary files differnew file mode 100644 index 0000000..bf1b783 --- /dev/null +++ b/elpa/auctex-13.1.3/style/multind.elc diff --git a/elpa/auctex-13.1.3/style/multirow.el b/elpa/auctex-13.1.3/style/multirow.el new file mode 100644 index 0000000..25d9f96 --- /dev/null +++ b/elpa/auctex-13.1.3/style/multirow.el @@ -0,0 +1,86 @@ +;;; multirow.el --- AUCTeX style for `multirow.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2011, 2018--2021 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; 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 `multirow.sty', v2.6 from 2021/01/02. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "multirow" + (lambda () + (TeX-add-symbols + ;; \multirow[<vpos>]{<nrows>}[<bigstruts>]{<width>}[<vmove>]{<text>} + '("multirow" + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Vertical position") + '("c" "b" "t")] + "Number of rows" + [ "Big struts" ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Width") + (append + '("*" "=") + (mapcar (lambda (x) + (concat TeX-esc (car x))) + (LaTeX-length-list)))) + [TeX-arg-length "Vertical fix-up"] + t) + "multirowsetup" + "multirowdebugtrue" + "multirowdebugfalse") + + ;; \bigstrutjot is a length defined both in multirow.sty and + ;; bigstrut.sty. It doesn't make a difference within AUCTeX since + ;; dupes are removed by the function `LaTeX-length-list'. + (LaTeX-add-lengths "bigstrutjot") + + ;; \STneed is only defined with package option `supertabular': + (when (LaTeX-provided-package-options-member "multirow" + "supertabular") + (TeX-add-symbols + '("STneed" TeX-arg-length))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("multirow" "[{[{[{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-multirow-package-options '("debug" + "longtable" + "supertabular") + "Package options for the multirow package.") + +;;; multirow.el ends here diff --git a/elpa/auctex-13.1.3/style/multirow.elc b/elpa/auctex-13.1.3/style/multirow.elc Binary files differnew file mode 100644 index 0000000..8157580 --- /dev/null +++ b/elpa/auctex-13.1.3/style/multirow.elc diff --git a/elpa/auctex-13.1.3/style/multitoc.el b/elpa/auctex-13.1.3/style/multitoc.el new file mode 100644 index 0000000..fb06c83 --- /dev/null +++ b/elpa/auctex-13.1.3/style/multitoc.el @@ -0,0 +1,50 @@ +;;; multitoc.el --- AUCTeX style for `multitoc.sty' (v2.01) -*- lexical-binding: t; -*- + +;; Copyright (C) 2019, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2019-09-07 +;; 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 `multitoc.sty' (v2.01) from 1999/06/08. +;; `multitoc.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "multitoc" + (lambda () + (TeX-run-style-hooks "multicol" "ifthen") + (TeX-add-symbols + "multicolumntoc" + "multicolumnlot" + "multicolumnlof")) + TeX-dialect) + +(defvar LaTeX-multitoc-package-options + '("toc" "lof" "lot") + "Package options for the multitoc package.") + +;;; multitoc.el ends here diff --git a/elpa/auctex-13.1.3/style/multitoc.elc b/elpa/auctex-13.1.3/style/multitoc.elc Binary files differnew file mode 100644 index 0000000..6d9143b --- /dev/null +++ b/elpa/auctex-13.1.3/style/multitoc.elc diff --git a/elpa/auctex-13.1.3/style/nameref.el b/elpa/auctex-13.1.3/style/nameref.el new file mode 100644 index 0000000..ffbb928 --- /dev/null +++ b/elpa/auctex-13.1.3/style/nameref.el @@ -0,0 +1,64 @@ +;;; nameref.el --- AUCTeX style for `nameref.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2013, 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; 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 `nameref.sty' + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "nameref" + (lambda () + (TeX-add-symbols + '("nameref" TeX-arg-ref) + '("nameref*" TeX-arg-ref) + '("Nameref" TeX-arg-ref)) + + (setq TeX-complete-list + (append + '(("\\\\\\(?:N\\|n\\)ameref\\*?{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}")) + TeX-complete-list)) + + ;, Fontification + (when (and (fboundp 'font-latex-add-keywords) + (fboundp 'font-latex-set-syntactic-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("nameref" "*{") + ("Nameref" "{")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-nameref-package-options nil + "Package options for nameref.") + +;; nameref.el ends here diff --git a/elpa/auctex-13.1.3/style/nameref.elc b/elpa/auctex-13.1.3/style/nameref.elc Binary files differnew file mode 100644 index 0000000..40b42f0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/nameref.elc diff --git a/elpa/auctex-13.1.3/style/natbib.el b/elpa/auctex-13.1.3/style/natbib.el new file mode 100644 index 0000000..ba6622a --- /dev/null +++ b/elpa/auctex-13.1.3/style/natbib.el @@ -0,0 +1,199 @@ +;;; natbib.el --- AUCTeX style for `natbib.sty' version 8.31b -*- lexical-binding: t; -*- + +;; Copyright (C) 1997, 1998, 2004, 2007, 2014--2020 Free Software Foundation, Inc. + +;; Authors: Berwin Turlach <statba@nus.edu.sg> +;; Carsten Dominik <dominik@strw.leidenuniv.nl> +;; Maintainer: auctex-devel@gnu.org +;; 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. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "natbib" + (lambda () + ;; The number in the cdr of the following list indicates how many + ;; optional note arguments we consider useful. Prompting for those + ;; arguments will still depend upon `TeX-arg-cite-note-p'. + (let ((citecmds + '(("cite" . 0) + ("citet" . 1) ("citet*" . 1) ("citealt" . 1) ("citealt*" . 1) + ("citep" . 2) ("citep*" . 2) ("citealp" . 2) ("citealp*" . 2) + ("citeauthor" . 0) ("citeauthor*" . 0) ("citefullauthor" . 0) + ("citeyear" . 0) ("citeyearpar" . 0) + ("shortcites" . 0) + ;; 2.4 Extended Citation Commands + ("citenum" . 0) + ;; 2.5 Forcing Upper Cased Name + ("Citet" . 1) ("Citet*" . 1) ("Citealt" . 1) ("Citealt*" . 1) + ("Citep" . 2) ("Citep*" . 2) ("Citealp" . 2) ("Citealp*" . 2) + ;; 2.6 Citation Aliasing + ("citetalias" . 1) ("citepalias" . 2)))) + + ;; Add these symbols + (apply + #'TeX-add-symbols + (mapcar + (lambda (cmd) + (cond + ((= (cdr cmd) 0) + ;; No optional arguments + (list (car cmd) #'TeX-arg-cite)) + ((= (cdr cmd) 1) + ;; Just one optional argument, the post note + (list + (car cmd) + '(TeX-arg-conditional TeX-arg-cite-note-p (["Post-note"]) nil) + #'TeX-arg-cite)) + ((= (cdr cmd) 2) + ;; Pre and post notes + (list + (car cmd) + '(TeX-arg-conditional TeX-arg-cite-note-p ([LaTeX-arg-natbib-notes]) nil) + #'TeX-arg-cite)))) + citecmds)) + + ;; Make an entry in TeX-complete-list + (add-to-list + 'TeX-complete-list + (list + (concat "\\\\\\(" + (mapconcat (lambda (x) (regexp-quote (car x))) + citecmds "\\|") + "\\)\\(\\[[^]\n\r\\%]*\\]\\)*{\\([^{}\n\r\\%,]*,\\)*\\([^{}\n\r\\%,]*\\)") + 4 'LaTeX-bibitem-list "}"))) + + ;; Add the other symbols + (TeX-add-symbols + ;; 2.4 Extended Citation Commands + '("citetext" "Text") + + ;; 2.6 Citation Aliasing + '("defcitealias" TeX-arg-cite "Alias") + + ;; 2.9 Selecting Citation Punctuation + '("setcitestyle" (TeX-arg-key-val + (;; Citation mode (fourth argument of \bibpunct): + ("authoryear") ("numbers") ("super") + ;; Braces (first and second arguments of \bibpunct): + ("round") ("square") ("open") ("close") + ;; Between citations (third argument of \bibpunct): + ("semicolon") ("comma") ("citesep") + ;; Between author and year (fifth argument of \bibpunct): + ("aysep") + ;; Between years with common author (sixth argument of \bibpunct): + ("yysep") + ;; Text before post-note (optional argument of \bibpunct): + ("notesep")))) + '("bibpunct" ["Post note separator"] + "Opening bracket" + "Closing bracket" + "Punctuation between multiple citations" + "style [n]umeric [s]uperscript [a]uthor-year" + "Punctuation between author and year" + "Punctuation between years for common authors") + + '("citestyle" (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Style") + '("plain" "plainnat" "agu" "egu" + "agms" "dcu" "kluwer" "cospar" "nature"))) + + ;; 2.12 Other Formatting Options + "bibsection" + "bibpreamble" + "bibfont" + "citenumfont" + "bibnumfmt" + + ;; 2.13 Automatic Indexing of Citations + '("citeindextrue") + '("citeindexfalse") + '("citeindextype")) + + ;; 2.12 Other Formatting Options + (LaTeX-add-lengths "bibhang" "bibsep") + + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("cite" "*[[{") + ("citet" "*[[{") + ("citealt" "*[[{") + ("citep" "*[[{") + ("citealp" "*[[{") + ("citeauthor" "*[[{") + ("citefullauthor" "[[{") + ("citeyear" "[[{") + ("citeyearpar" "[[{") + ("shortcites" "{") + ("citenum" "{") + ("Citet" "*[[{") + ("Citealt" "*[[{") + ("Citep" "*[[{") + ("Citealp" "*[[{") + ("Citeauthor" "*[[{") + ("citetalias" "*[[{") + ("citepalias" "*[[{")) + 'reference) + (font-latex-add-keywords '(("defcitealias" "{{") + ("bibpunct" "[{{{{{{") + ("setcitestyle" "{") + ("citestyle" "{")) + 'function)) + + ;; Tell RefTeX + (when (and LaTeX-reftex-cite-format-auto-activate + (fboundp 'reftex-set-cite-format)) + (reftex-set-cite-format 'natbib))) + TeX-dialect) + +(defun LaTeX-arg-natbib-notes (optional) + "Prompt for two note arguments a natbib citation command. +If OPTIONAL is non-nil, insert them in brackets, otherwise in +braces." + (let ((pre (TeX-read-string + (TeX-argument-prompt optional nil "Pre-note"))) + (post (TeX-read-string + (TeX-argument-prompt optional nil "Post-note")))) + (TeX-argument-insert pre optional) + (TeX-argument-insert post optional) + ;; pre is given, post is empty: Make sure that we insert an + ;; extra pair of `[]', otherwise pre becomes post + (when (and pre (not (string= pre "")) + (string= post "")) + (insert LaTeX-optop LaTeX-optcl)))) + +(defvar LaTeX-natbib-package-options '("numbers" "super" "authoryear" + "round" "square" "angle" "curly" + "comma" "colon" "nobibstyle" + "bibstyle" "openbib" "sectionbib" + "sort" "sort&compress" + "longnamesfirst" "nonamebreak") + "Package options for the natbib package.") + +;; natbib.el ends here diff --git a/elpa/auctex-13.1.3/style/natbib.elc b/elpa/auctex-13.1.3/style/natbib.elc Binary files differnew file mode 100644 index 0000000..2af4c3e --- /dev/null +++ b/elpa/auctex-13.1.3/style/natbib.elc diff --git a/elpa/auctex-13.1.3/style/naustrian.el b/elpa/auctex-13.1.3/style/naustrian.el new file mode 100644 index 0000000..63ca440 --- /dev/null +++ b/elpa/auctex-13.1.3/style/naustrian.el @@ -0,0 +1,42 @@ +;;; naustrian.el --- AUCTeX style for the `naustrian' babel option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2009, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2009-12-28 +;; 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: + +;; Set up AUCTeX for editing Austrian text in connection with the +;; `naustrian' babel option. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "naustrian" + (lambda () + (TeX-run-style-hooks "ngerman")) + TeX-dialect) + +;;; naustrian.el ends here diff --git a/elpa/auctex-13.1.3/style/naustrian.elc b/elpa/auctex-13.1.3/style/naustrian.elc Binary files differnew file mode 100644 index 0000000..2d1d0d9 --- /dev/null +++ b/elpa/auctex-13.1.3/style/naustrian.elc diff --git a/elpa/auctex-13.1.3/style/newfloat.el b/elpa/auctex-13.1.3/style/newfloat.el new file mode 100644 index 0000000..5cde1d4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/newfloat.el @@ -0,0 +1,215 @@ +;;; newfloat.el --- AUCTeX style for `newfloat.sty' (v1.1-109) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015--2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-09-19 +;; 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 `newfloat.sty' (v1.1-109) from 2015/09/17. +;; `newfloat.sty' is part of TeXLive. + +;; This style has some facilities to process the newly defined +;; floating environments within AUCTeX, e.g. indentation, label +;; addition etc. Currently it makes provision for `figure', `table' +;; and `verbatim' floating types. To make things work, the style +;; needs some help from the user. When a new floating environment is +;; defined, the user should pass the floating type as a comment to +;; AUCTeX, e.g. +;; +;; \DeclareFloatingEnvironment[ +;; name=Code, +;; listname={List of Codes}, +;; fileext=lol]{code} % {verbatim} +;; +;; Note the `{verbatim}' as a comment after the name of the float env. +;; Due to parsing reasons, this key-word must be in the same line as +;; the name of the float and enclosed in braces `{}'. +;; +;; Before the opening brace, only spaces and comment chars `%' are +;; allowed. Anything following the closing brace `}' is ignored. + +;; If things do not work or when in doubt, press `C-c C-n'. Comments +;; for improvement are welcome. + +;;; Code: + +;; Needed for auto-parsing: +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-newfloat-key-val-options + '(("fileext") + ("listname") + ("name") + ("placement" ("t" "b" "p" "tbp" "htbp")) + ("chapterlistsgaps" ("on" "off"))) + "Key=value options for newfloat macros.") + +(defun LaTeX-newfloat-key-val-options () + "Return newfloat key=vals based on variable `LaTeX-largest-level'." + (append + (if (< (LaTeX-largest-level) 2) + '(("within" ("chapter" "section" "none"))) + '(("within" ("section" "none")))) + LaTeX-newfloat-key-val-options)) + +;; Setup parsing for \DeclareFloatingEnvironment: +(TeX-auto-add-type "newfloat-DeclareFloatingEnvironment" "LaTeX") + +(defvar LaTeX-newfloat-DeclareFloatingEnvironment-regexp + `(,(concat "\\\\DeclareFloatingEnvironment" + "[ \t\n\r%]*" + "\\(?:" + (LaTeX-extract-key-value-label 'none) + "\\)?" + "[ \t\n\r%]*" + "{\\([^}]+\\)}" + "\\(?:[ %]*{\\(figure\\|table\\|verbatim\\)}\\)?") + (1 2) LaTeX-auto-newfloat-DeclareFloatingEnvironment) + "Matches the argument of `\\DeclareFloatingEnvironment' from `newfloat.sty'.") + +(defun LaTeX-newfloat-auto-prepare () + "Clear `LaTeX-auto-newfloat-DeclareFloatingEnvironment' before parsing." + (setq LaTeX-auto-newfloat-DeclareFloatingEnvironment nil)) + +(defun LaTeX-newfloat-auto-cleanup () + "Process definded floats with \\DeclareFloatingEnvironment. +Depending on floating type passed as a comment to +AUCTeX (\"figure\", \"table\" or \"verbatim\"), update +`LaTeX-figure-label' and `LaTeX-table-label'. If RefTeX is +loaded, add the new floating environment via +`reftex-add-label-environments'. For \"verbatim\" environments, +update `LaTeX-indent-environment-list' to suppress indentation. +If `caption.el' is loaded, add the new floating environment to +`LaTeX-caption-supported-float-types'. Also define the macros +\"listofENVs\" and \"listofENVes\"." + (dolist (flt-type (LaTeX-newfloat-DeclareFloatingEnvironment-list)) + (let ((flt (car flt-type)) + (type (cadr flt-type))) + (cond ((string-equal type "figure") + (LaTeX-add-environments `(,flt LaTeX-env-figure)) + (add-to-list 'LaTeX-label-alist `(,flt . LaTeX-figure-label) t) + (when (fboundp 'reftex-add-label-environments) + (reftex-add-label-environments + `((,flt ?f ,LaTeX-figure-label "~\\ref{%s}" caption nil nil))))) + ((string-equal type "table") + (LaTeX-add-environments `(,flt LaTeX-env-figure)) + (add-to-list 'LaTeX-label-alist `(,flt . LaTeX-table-label) t) + (when (fboundp 'reftex-add-label-environments) + (reftex-add-label-environments + `((,flt ?t ,LaTeX-table-label "~\\ref{%s}" caption nil nil))))) + ((string-equal type "verbatim") + (LaTeX-add-environments `(,flt ["Float Position"])) + (add-to-list (make-local-variable 'LaTeX-indent-environment-list) + `(,flt current-indentation) t) + (add-to-list 'LaTeX-label-alist `(,flt . LaTeX-listing-label) t) + (when (fboundp 'reftex-add-label-environments) + (reftex-add-label-environments + `((,flt ?l "lst:" "~\\ref{%s}" caption nil nil))))) + (t + (LaTeX-add-environments `(,flt ["Float Position"])))) + (when (boundp 'LaTeX-caption-supported-float-types) + (add-to-list (make-local-variable 'LaTeX-caption-supported-float-types) + flt)) + (if (string-equal "e" (substring flt -1)) + (TeX-add-symbols (concat "listof" flt "s")) + (TeX-add-symbols + (concat "listof" flt "s") + (concat "listof" flt "es")))))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-newfloat-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-newfloat-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "newfloat" + (lambda () + + ;; Add newfloat to the parser. + (TeX-auto-add-regexp LaTeX-newfloat-DeclareFloatingEnvironment-regexp) + + ;; Commands: + (TeX-add-symbols + '("DeclareFloatingEnvironment" + [TeX-arg-key-val (LaTeX-newfloat-key-val-options)] + (TeX-arg-eval + (lambda () + (let ((newfloat (TeX-read-string + (TeX-argument-prompt nil nil "Floating environment")))) + (LaTeX-add-newfloat-DeclareFloatingEnvironments newfloat) + (format "%s" newfloat))))) + + '("SetupFloatingEnvironment" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Floating environment") + (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list))) + (TeX-arg-key-val (LaTeX-newfloat-key-val-options-local))) + + '("ForEachFloatingEnvironment" t) + '("ForEachFloatingEnvironment*" t) + + '("PrepareListOf" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Floating environment") + (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list))) + t) + + '("newfloatsetup" + (TeX-arg-eval + (lambda () + (let ((keyvals (TeX-read-key-val + nil + (append '(("chapterlistsgap")) + (if (< (LaTeX-largest-level) 2) + '(("within" ("chapter" "section" "none"))) + '(("within" ("section" "none")))))))) + (format "%s" keyvals)))))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("DeclareFloatingEnvironment" "[{") + ("SetupFloatingEnvironment" "{{") + ("ForEachFloatingEnvironment" "*{") + ("PrepareListOf" "{{") + ("newfloatsetup" "{")) + 'function))) + TeX-dialect) + +(defun LaTeX-newfloat-package-options () + "Prompt for package options for the newfloat package." + (TeX-read-key-val + t + (append + '(("chapterlistsgap")) + (if (< (LaTeX-largest-level) 2) + '(("within" ("chapter" "section" "none"))) + '(("within" ("section" "none"))))))) + +;;; newfloat.el ends here diff --git a/elpa/auctex-13.1.3/style/newfloat.elc b/elpa/auctex-13.1.3/style/newfloat.elc Binary files differnew file mode 100644 index 0000000..8b69382 --- /dev/null +++ b/elpa/auctex-13.1.3/style/newfloat.elc diff --git a/elpa/auctex-13.1.3/style/newpxmath.el b/elpa/auctex-13.1.3/style/newpxmath.el new file mode 100644 index 0000000..8e8c0ac --- /dev/null +++ b/elpa/auctex-13.1.3/style/newpxmath.el @@ -0,0 +1,76 @@ +;;; newpxmath.el --- AUCTeX style for `newpxmath.sty' (v1.232) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-05-02 +;; 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 `newpxmath.sty' (v1.232) from 2015/04/07. +;; `newpxmath.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "newpxmath" + (lambda () + + ;; Run style hook for amsmath + (TeX-run-style-hooks "amsmath") + + ;; New symbols + (TeX-add-symbols + '("overgroup" t) + '("undergroup" t) + '("overgroupra" t) + '("overgroupla" t) + '("undergroupra" t) + '("undergroupla" t) + '("widering" t) + '("widearc" t) + '("wideOarc" t) + '("uppartial" 0) + '("upvarkappa" 0) + '("varmathbb" "Character") + '("vmathbb" "Character") + '("vvmathbb" "Character"))) + TeX-dialect) + +(defvar LaTeX-newpxmath-package-options + '("varg" + "cmintegrals" + "uprightGreek" + "slantedGreek" + "cmbraces" + "bigdelims" + "varbb" + "vvarbb" + "nosymbolsc" + "amssymbols" + "noamssymbols" + "frenchmath") + "Package options for the newpxmath package.") + +;;; newpxmath.el ends here diff --git a/elpa/auctex-13.1.3/style/newpxmath.elc b/elpa/auctex-13.1.3/style/newpxmath.elc Binary files differnew file mode 100644 index 0000000..e60668f --- /dev/null +++ b/elpa/auctex-13.1.3/style/newpxmath.elc diff --git a/elpa/auctex-13.1.3/style/newpxtext.el b/elpa/auctex-13.1.3/style/newpxtext.el new file mode 100644 index 0000000..3613e2c --- /dev/null +++ b/elpa/auctex-13.1.3/style/newpxtext.el @@ -0,0 +1,88 @@ +;;; newpxtext.el --- AUCTeX style for `newpxtext.sty' (v1.232) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-05-02 +;; 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 `newpxtext.sty' (v1.232) from 2015/04/15. +;; `newpxtext.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "newpxtext" + (lambda () + + ;; Run style hook for various packages loaded by newpxtext + (TeX-run-style-hooks "textcomp" "fontaxes") + + ;; New symbols + (TeX-add-symbols + '("useosf" 0) ; Only preamble command + '("useproportional" 0) ; Only preamble command + '("lfstyle" -1) ; lf declaration + '("tlfstyle" -1) ; tlf declaration + '("osfstyle" -1) ; osf declaration + '("tosfstyle" -1) ; tosf declaration + '("sustyle" -1) ; sup style declaration + '("textlf" t) ; lf command + '("texttlf" t) ; tlf command + '("textosf" t) ; osf command + '("texttosf" t) ; tosf command + '("textsu" t)) ; sup style command + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textlf" "{") + ("texttlf" "{") + ("textosf" "{") + ("texttosf" "{") + ("textsu" "{")) + 'type-command) + (font-latex-add-keywords '(("lfstyle" "") + ("tlfstyle" "") + ("osfstyle" "") + ("tosfstyle" "") + ("sustyle" "")) + 'type-declaration))) + TeX-dialect) + +(defvar LaTeX-newpxtext-package-options + '("defaultsups" "scosf" "largesc" + "scaled" "helvratio" + "tighter" "looser" "spacing" "stretch" "shrink" + "lining" "lf" "oldstyle" "osf" "tabular" + "p" "proportional" "theoremfont") + "Package options for the newpxtext package.") + +;;; newpxtext.el ends here diff --git a/elpa/auctex-13.1.3/style/newpxtext.elc b/elpa/auctex-13.1.3/style/newpxtext.elc Binary files differnew file mode 100644 index 0000000..0459bee --- /dev/null +++ b/elpa/auctex-13.1.3/style/newpxtext.elc diff --git a/elpa/auctex-13.1.3/style/newtxmath.el b/elpa/auctex-13.1.3/style/newtxmath.el new file mode 100644 index 0000000..cf09156 --- /dev/null +++ b/elpa/auctex-13.1.3/style/newtxmath.el @@ -0,0 +1,86 @@ +;;; newtxmath.el --- AUCTeX style for `newtxmath.sty' (v1.321) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-11-22 +;; 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 `newtxmath.sty' (v1.321) from 2014/11/16. +;; `newtxmath.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "newtxmath" + (lambda () + + ;; Run style hook for amsmath + (TeX-run-style-hooks "amsmath") + + ;; New symbols + (TeX-add-symbols + '("overgroup" t) + '("undergroup" t) + '("overgroupra" t) + '("overgroupla" t) + '("undergroupra" t) + '("undergroupla" t) + '("widering" t) + '("widearc" t) + '("wideOarc" t) + '("varnothing" 0) + '("emtysetAlt" 0) + '("forallAlt" 0) + '("existsAlt" 0) + '("nexistsAlt" 0) + '("vvmathbb" "Character"))) + TeX-dialect) + +(defvar LaTeX-newtxmath-package-options + '("varg" + "cmintegrals" + "uprightGreek" + "slantedGreek" + "cmbraces" + "bigdelims" + "varbb" + "vvarbb" + "nosymbolsc" + "amssymbols" + "noamssymbols" + "libaltvw" + "liby" + "timesmathacc" + "libertine" + "minion" + "garamondx" + "baskervaldx" + "utopia" "heuristica" + "erewhon" + "xcharter") + "Package options for the newtxmath package.") + +;;; newtxmath.el ends here diff --git a/elpa/auctex-13.1.3/style/newtxmath.elc b/elpa/auctex-13.1.3/style/newtxmath.elc Binary files differnew file mode 100644 index 0000000..5689c07 --- /dev/null +++ b/elpa/auctex-13.1.3/style/newtxmath.elc diff --git a/elpa/auctex-13.1.3/style/newtxsf.el b/elpa/auctex-13.1.3/style/newtxsf.el new file mode 100644 index 0000000..901c83b --- /dev/null +++ b/elpa/auctex-13.1.3/style/newtxsf.el @@ -0,0 +1,59 @@ +;;; newtxsf.el --- AUCTeX style for `newtxsf.sty' (v1.0) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-11-22 +;; 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 `newtxsf.sty' (v1.0) from 2014/11/14. +;; `newtxsf.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "newtxsf" + (lambda () + ;; Run style hook for amsmath + (TeX-run-style-hooks "amsmath") + + ;; New symbols + (TeX-add-symbols + '("upimath" 0) + '("upjmath" 0))) + TeX-dialect) + +(defvar LaTeX-newtxsf-package-options + '("scaled" + "nosymbolsc" + "cmintegrals" + "amssymbols" + "noamssymbols" + "uprightGreek" + "slantedGreek" + "frenchmath") + "Package options for the newtxsf package.") + +;;; newtxsf.el ends here diff --git a/elpa/auctex-13.1.3/style/newtxsf.elc b/elpa/auctex-13.1.3/style/newtxsf.elc Binary files differnew file mode 100644 index 0000000..9f32dc0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/newtxsf.elc diff --git a/elpa/auctex-13.1.3/style/newtxtext.el b/elpa/auctex-13.1.3/style/newtxtext.el new file mode 100644 index 0000000..f80c872 --- /dev/null +++ b/elpa/auctex-13.1.3/style/newtxtext.el @@ -0,0 +1,87 @@ +;;; newtxtext.el --- AUCTeX style for `newtxtext.sty' (v1.434) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-11-19 +;; 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 `newtxtext.sty' (v1.434) from 2015/04/07. +;; `newtxtext.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "newtxtext" + (lambda () + + ;; Run style hook for various packages loaded by newtxtext + (TeX-run-style-hooks "textcomp" "fontaxes") + + ;; New symbols + (TeX-add-symbols + '("useosf" 0) ; Only preamble command + '("useproportional" 0) ; Only preamble command + '("lfstyle" -1) ; lf declaration + '("tlfstyle" -1) ; tlf declaration + '("osfstyle" -1) ; osf declaration + '("tosfstyle" -1) ; tosf declaration + '("sustyle" -1) ; sup style declaration + '("textlf" t) ; lf command + '("texttlf" t) ; tlf command + '("textosf" t) ; osf command + '("texttosf" t) ; tosf command + '("textsu" t)) ; sup style command + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textlf" "{") + ("texttlf" "{") + ("textosf" "{") + ("texttosf" "{") + ("textsu" "{")) + 'type-command) + (font-latex-add-keywords '(("lfstyle" "") + ("tlfstyle" "") + ("osfstyle" "") + ("tosfstyle" "") + ("sustyle" "")) + 'type-declaration))) + TeX-dialect) + +(defvar LaTeX-newtxtext-package-options + '("defaultsups" "helvratio" "osf" "scaled" "scosf" + ;; New options since 1.4 + "largesc" "adobesc" "theoremfont" + "lining" "lf" "oldstyle" "tabular" "p" "proportional") + "Package options for the newtxtext package.") + +;;; newtxtext.el ends here diff --git a/elpa/auctex-13.1.3/style/newtxtext.elc b/elpa/auctex-13.1.3/style/newtxtext.elc Binary files differnew file mode 100644 index 0000000..e2eec9c --- /dev/null +++ b/elpa/auctex-13.1.3/style/newtxtext.elc diff --git a/elpa/auctex-13.1.3/style/newtxttt.el b/elpa/auctex-13.1.3/style/newtxttt.el new file mode 100644 index 0000000..1b63172 --- /dev/null +++ b/elpa/auctex-13.1.3/style/newtxttt.el @@ -0,0 +1,69 @@ +;;; newtxtt.el --- AUCTeX style for `newtxtt.sty' (v1.05) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-11-22 +;; 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 `newtxtt.sty' (v1.05) from 2014/11/18. +;; `newtxtt.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "newtxtt" + (lambda () + + ;; Run style hook for newtxtt + (TeX-run-style-hooks "textcomp") + + ;; New symbols + (TeX-add-symbols + '("textttz" t) + '("ttz" -1) + '("ttzdefault" -1)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textttz" "{")) + 'type-command) + (font-latex-add-keywords '(("ttzfamily" "") + ("ttz" "")) + 'type-declaration))) + TeX-dialect) + +(defvar LaTeX-newtxtt-package-options + '("scaled" "zerostyle" "nomono" "straightquotes" + "ttdefault" "ttzdefault") + "Package options for the newtxtt package.") + +;;; newtxtt.el ends here diff --git a/elpa/auctex-13.1.3/style/newtxttt.elc b/elpa/auctex-13.1.3/style/newtxttt.elc Binary files differnew file mode 100644 index 0000000..5b3fd0d --- /dev/null +++ b/elpa/auctex-13.1.3/style/newtxttt.elc diff --git a/elpa/auctex-13.1.3/style/newzealand.el b/elpa/auctex-13.1.3/style/newzealand.el new file mode 100644 index 0000000..9acead5 --- /dev/null +++ b/elpa/auctex-13.1.3/style/newzealand.el @@ -0,0 +1,42 @@ +;;; newzealand.el --- AUCTeX style for the `newzealand' babel option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2017, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-07-02 +;; 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: + +;; Set up AUCTeX for editing Newzealand text in connection with the +;; `newzealand' babel option. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "newzealand" + (lambda () + (TeX-run-style-hooks "english")) + TeX-dialect) + +;;; newzealand.el ends here diff --git a/elpa/auctex-13.1.3/style/newzealand.elc b/elpa/auctex-13.1.3/style/newzealand.elc Binary files differnew file mode 100644 index 0000000..3c0552f --- /dev/null +++ b/elpa/auctex-13.1.3/style/newzealand.elc diff --git a/elpa/auctex-13.1.3/style/ngerman.el b/elpa/auctex-13.1.3/style/ngerman.el new file mode 100644 index 0000000..6081615 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ngerman.el @@ -0,0 +1,46 @@ +;;; ngerman.el --- Setup AUCTeX for editing German text. -*- lexical-binding: t; -*- + +;;; Commentary: +;; +;; Cater for some specialities of `(n)german.sty', e.g. special quote +;; and hyphen strings or that `"' makes the following letter an +;; umlaut. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-quotes + "font-latex" + (quotes)) + +(declare-function font-latex-add-to-syntax-alist + "font-latex" + (list)) + +(defvar LaTeX-german-mode-syntax-table + (copy-syntax-table LaTeX-mode-syntax-table) + "Syntax table used in LaTeX mode when using `german.sty'.") + +(modify-syntax-entry ?\" "w" LaTeX-german-mode-syntax-table) + +(TeX-add-style-hook + "ngerman" + (lambda () + (set-syntax-table LaTeX-german-mode-syntax-table) + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language '("ngerman" "\"`" "\"'" t))) + (setq LaTeX-babel-hyphen-language "ngerman") + ;; Fontification + (when (and (eq TeX-install-font-lock 'font-latex-setup) + (featurep 'font-latex)) + (font-latex-add-quotes '("\"`" "\"'")) + (font-latex-add-quotes '("\">" "\"<" german)) + ;; Prevent "| from leading to color bleed. + (font-latex-add-to-syntax-alist (list (cons ?\" "\\")))) + (run-hooks 'TeX-language-de-hook)) + TeX-dialect) + +;;; ngerman.el ends here diff --git a/elpa/auctex-13.1.3/style/ngerman.elc b/elpa/auctex-13.1.3/style/ngerman.elc Binary files differnew file mode 100644 index 0000000..3612a76 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ngerman.elc diff --git a/elpa/auctex-13.1.3/style/nicefrac.el b/elpa/auctex-13.1.3/style/nicefrac.el new file mode 100644 index 0000000..ba2dadc --- /dev/null +++ b/elpa/auctex-13.1.3/style/nicefrac.el @@ -0,0 +1,54 @@ +;;; nicefrac.el --- AUCTeX style for the LaTeX package `nicefrac.sty' (v0.9b) -*- lexical-binding: t; -*- + +;; Copyright (C) 2004, 2005, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Christian Schlauer <cschl@arcor.de> +;; Maintainer: auctex-devel@gnu.org +;; 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 `nicefrac.sty'. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "nicefrac" + (lambda () + (TeX-add-symbols + '("nicefrac" [ "Font changing command" ] "Numerator" "Denominator")) + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("nicefrac" "[{{")) 'textual))) + TeX-dialect) + +(defvar LaTeX-nicefrac-package-options '("nice" "ugly") + "Package options for the nicefrac package.") + +;;; nicefrac.el ends here diff --git a/elpa/auctex-13.1.3/style/nicefrac.elc b/elpa/auctex-13.1.3/style/nicefrac.elc Binary files differnew file mode 100644 index 0000000..2b2513a --- /dev/null +++ b/elpa/auctex-13.1.3/style/nicefrac.elc diff --git a/elpa/auctex-13.1.3/style/nomencl.el b/elpa/auctex-13.1.3/style/nomencl.el new file mode 100644 index 0000000..5a57cda --- /dev/null +++ b/elpa/auctex-13.1.3/style/nomencl.el @@ -0,0 +1,78 @@ +;;; nomencl.el --- AUCTeX style for the nomencl class. -*- lexical-binding: t; -*- + +;; Copyright (C) 2007, 2018; 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2007-10-09 +;; 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 the nomencl package. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-nomencl-package-options + '("refeq" "norefeq" "refpage" "norefpage" "prefix" "noprefix" "cfg" "nocfg" + "intoc" "notintoq" "compatible" "noncompatible" "croatian" "danish" + "english" "french" "german" "italian" "polish" "portuguese" "russian" + "spanish" "ukrainian") + "Package options for the nomencl package.") + +(TeX-add-style-hook + "nomencl" + (lambda () + (TeX-add-symbols + '("makenomenclature" 0) + '("printnomenclature" ["Label width"]) + '("nomenclature" ["Prefix"] "Symbol" "Description") + "nomrefeq" + "nomrefpage" + "nomrefeqpage" + "nomnorefeq" + "nomnorefpage" + "nomnorefeqpage" + '("nomlabelwidth" 0) + '("nomname" 0) + '("nomgroup" 0) + '("nompreamble" 0) + '("nompostamble" 0) + '("nomitemsep" 0) + '("nomprefix" 0) + '("nomlabel" 0) + '("nomentryend" 0) + '("eqdeclaration" 0) + '("pagedeclaration" 0)) + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("nomenclature" "[{{")) + 'reference))) + TeX-dialect) + +;;; nomencl.el ends here diff --git a/elpa/auctex-13.1.3/style/nomencl.elc b/elpa/auctex-13.1.3/style/nomencl.elc Binary files differnew file mode 100644 index 0000000..4376b61 --- /dev/null +++ b/elpa/auctex-13.1.3/style/nomencl.elc diff --git a/elpa/auctex-13.1.3/style/ntheorem.el b/elpa/auctex-13.1.3/style/ntheorem.el new file mode 100644 index 0000000..cd8eff4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ntheorem.el @@ -0,0 +1,443 @@ +;;; ntheorem.el --- AUCTeX style for `ntheorem.sty' (v1.33) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015-2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-10-31 +;; 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 `ntheorem.sty' (v1.33) from 2011/08/15. +;; `ntheorem.sty' is and part of TeXLive. + +;; The style provides the function `LaTeX-ntheorem-env-label' which +;; enables new defined environments with "\newtheoreom" to interact +;; with AUCTeX and RefTeX mechanisms for inserting labels. Check +;; docstring of `LaTeX-ntheorem-env-label' for instructions. + +;;; Code + +(require 'crm) +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function LaTeX-color-definecolor-list + "color" + ()) + +(declare-function LaTeX-xcolor-definecolor-list + "xcolor" + ()) + +(defvar LaTeX-ntheorem-theoremstyle-list + '(("plain") ("break") ("change") ("changebreak") ("margin") + ("marginbreak") ("nonumberplain") ("nonumberbreak") ("empty")) + "List of theorem styles provided by `ntheorem.el' and new ones +defined with \"\\newtheoremstyle\".") + +(defvar LaTeX-ntheorem-listtype-list + '(("all") ("allname") ("opt") ("optname")) + "List of predefined formatting options available for +\"\\theoremlisttype\" provided by `ntheorem.el' and new ones +defined with \"\\newtheoremlisttype\".") + +(defvar LaTeX-ntheorem-fontdecl + '(;; family + "rmfamily" "sffamily" "ttfamily" + ;; series + "mdseries" "bfseries" + ;; shape + "upshape" "itshape" "slshape" "scshape" + ;; size + "tiny" "scriptsize" "footnotesize" + "small" "normalsize" "large" + "Large" "LARGE" "huge" "Huge" + ;; reset macro + "normalfont") + "List of font declaration commands for \"\\newtheoremstyle\".") + +(defun LaTeX-arg-ntheorem-fontdecl (optional &optional prompt) + "Prompt for font declaration commands in \"\\theorem(body|header)font\". +If OPTIONAL is non-nil, insert the resulting value as an optional +argument. Use PROMPT as the prompt string." + (let* ((crm-separator (regexp-quote TeX-esc)) + (fontdecl (mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt optional prompt "Font declaration: \\" t) + LaTeX-ntheorem-fontdecl) + TeX-esc))) + (TeX-argument-insert fontdecl + optional + (when (and fontdecl (not (string= fontdecl ""))) + TeX-esc)))) + +(defun LaTeX-ntheorem-env-label (environment) + "Insert ENVIRONMENT, query for an optional argument and prompt +for label. AUCTeX users should add ENVIRONMENT to +`LaTeX-label-alist' via customize or in init-file with: + + (add-to-list \\='LaTeX-label-alist \\='(\"lemma\" . \"lem:\")) + +RefTeX users should customize or add ENVIRONMENT to +`LaTeX-label-alist' and `reftex-label-alist', for example + + (add-to-list \\='LaTeX-label-alist \\='(\"lemma\" . \"lem:\")) + (add-to-list \\='reftex-label-alist + \\='(\"lemma\" ?m \"lem:\" \"~\\ref{%s}\" + nil (\"Lemma\" \"lemma\") nil))" + (let ((opthead (TeX-read-string + (TeX-argument-prompt t nil "Heading")))) + (LaTeX-insert-environment environment + (when (and opthead + (not (string= opthead ""))) + (format "[%s]" opthead)))) + (when (LaTeX-label environment 'environment) + (LaTeX-newline) + (indent-according-to-mode))) + +;; Setup parsing for \newtheorem +(TeX-auto-add-type "ntheorem-newtheorem" "LaTeX") + +;; Setup parsing for \newtheoremstyle +(TeX-auto-add-type "ntheorem-newtheoremstyle" "LaTeX") + +;; Setup parsing for \newtheoremlisttype +(TeX-auto-add-type "ntheorem-newtheoremlisttype" "LaTeX") + +(defun LaTeX-ntheorem-auto-prepare () + "Clear `LaTeX-auto-ntheorem-newtheorem' and +`LaTeX-auto-ntheorem-newtheoremstyle' before parsing." + (setq LaTeX-auto-ntheorem-newtheorem nil) + (setq LaTeX-auto-ntheorem-newtheoremstyle nil) + (setq LaTeX-auto-ntheorem-newtheoremlisttype nil)) + +(defun LaTeX-ntheorem-auto-cleanup () + "Move parsed results from `LaTeX-auto-ntheorem-newtheorem' and +make them available as new environments. Update +`LaTeX-ntheorem-theoremstyle-list' with styles defined with +\"\\newtheoremstyle\"." + (dolist (newthm (mapcar #'car (LaTeX-ntheorem-newtheorem-list))) + (LaTeX-add-environments (list newthm #'LaTeX-ntheorem-env-label)) + (LaTeX-add-environments (list (concat newthm "*") + #'LaTeX-ntheorem-env-label))) + (dolist (newthmstyle (LaTeX-ntheorem-newtheoremstyle-list)) + (add-to-list (make-local-variable 'LaTeX-ntheorem-theoremstyle-list) + newthmstyle)) + (dolist (newthmlist (LaTeX-ntheorem-newtheoremlisttype-list)) + (add-to-list (make-local-variable 'LaTeX-ntheorem-listtype-list) + newthmlist)) + (when (LaTeX-provided-package-options-member "ntheorem" "thmmarks") + (dolist (nthm (mapcar #'car (LaTeX-ntheorem-newtheorem-list))) + (TeX-add-symbols (concat nthm "Symbol")))) + (dolist (nthm (mapcar #'car (LaTeX-ntheorem-newtheorem-list))) + (TeX-add-symbols (concat nthm "name")))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-ntheorem-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-ntheorem-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "ntheorem" + (lambda () + + (TeX-auto-add-regexp + `(,(concat "\\\\newtheorem{\\(" TeX-token-char "+\\)}") + 1 LaTeX-auto-ntheorem-newtheorem)) + (TeX-auto-add-regexp + `(,(concat "\\\\newframedtheorem{\\(" TeX-token-char "+\\)}") + 1 LaTeX-auto-ntheorem-newtheorem)) + (TeX-auto-add-regexp + `(,(concat "\\\\newshadedtheorem{\\(" TeX-token-char "+\\)}") + 1 LaTeX-auto-ntheorem-newtheorem)) + (TeX-auto-add-regexp + `(,(concat "\\\\newtheoremstyle{\\(" TeX-token-char "+\\)}") + 1 LaTeX-auto-ntheorem-newtheoremstyle)) + (TeX-auto-add-regexp + `(,(concat "\\\\newtheoremlisttype{\\(" TeX-token-char "+\\)}") + 1 LaTeX-auto-ntheorem-newtheoremlisttype)) + + (TeX-add-symbols + ;; 2.2 Defining New Theorem Sets + ;; Overrule the defintion in `latex.el': + '("newtheorem" + (TeX-arg-eval + (lambda () + (let ((nthm (TeX-read-string + (TeX-argument-prompt nil nil "Environment")))) + (LaTeX-add-ntheorem-newtheorems nthm) + (LaTeX-add-environments (list nthm #'LaTeX-ntheorem-env-label)) + (LaTeX-add-environments (list (concat nthm "*") + #'LaTeX-ntheorem-env-label)) + (format "%s" nthm)))) + [ TeX-arg-environment "Numbered like" ] + t [ (TeX-arg-eval progn (if (eq (save-excursion + (backward-char 2) + (preceding-char)) ?\]) + () + (TeX-arg-counter t "Within counter")) + "") ]) + + '("renewtheorem" + (TeX-arg-eval completing-read "Environment: " + (LaTeX-ntheorem-newtheorem-list)) + [ TeX-arg-environment "Numbered like" ] + t [ (TeX-arg-eval progn (if (eq (save-excursion + (backward-char 2) + (preceding-char)) ?\]) + () + (TeX-arg-counter t "Within counter")) + "") ]) + + ;; 2.3 Defining the Layout of Theorem Sets + '("theoremstyle" + (TeX-arg-eval completing-read "Style: " + LaTeX-ntheorem-theoremstyle-list)) + + '("theorembodyfont" + (LaTeX-arg-ntheorem-fontdecl "Body font")) + + '("theoremheaderfont" + (LaTeX-arg-ntheorem-fontdecl "Header font")) + + '("theoremnumbering" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Numbering scheme") + '("arabic" "roman" "Roman" "alph" "Alph" + "greek" "Greek" "fnsymbol"))) + + '("theoremseparator" "Separator") + + '("theorempreskip" + (TeX-arg-length "Skip before theorem")) + + '("theorempostskip" + (TeX-arg-length "Skip after theorem")) + + '("theoremindent" + (TeX-arg-free "Theorem indent")) + + (when (LaTeX-provided-package-options-member "ntheorem" "thmmarks") + '("theoremsymbol" t)) + + '("theoremprework" t) + '("theorempostwork" t) + + '("theoremclass" + (TeX-arg-eval completing-read "Theorem type: " + (append '(("LaTeX")) + (LaTeX-ntheorem-newtheorem-list)))) + + ;; 2.3.6 A Standard Set of Theorems + (when (LaTeX-provided-package-options-member "ntheorem" "standard") + (let ((env '("Theorem" "Lemma" "Proposition" + "Corollary" "Satz" "Korollar" + "Definition" "Example" "Beispiel" + "Anmerkung" "Bemerkung" "Remark" + "Proof" "Beweis"))) + (dolist (elt env) + (LaTeX-add-ntheorem-newtheorems elt) + (LaTeX-add-environments (list elt #'LaTeX-ntheorem-env-label)) + (LaTeX-add-environments (list (concat elt "*") + #'LaTeX-ntheorem-env-label))))) + + ;; 2.3.7 Framed and Boxed Theorems + '("newframedtheorem" + (TeX-arg-eval + (lambda () + (let ((nthm (TeX-read-string + (TeX-argument-prompt nil nil "Environment")))) + (LaTeX-add-ntheorem-newtheorems nthm) + (LaTeX-add-environments (list nthm #'LaTeX-ntheorem-env-label)) + (LaTeX-add-environments (list (concat nthm "*") + #'LaTeX-ntheorem-env-label)) + (format "%s" nthm)))) + [ TeX-arg-environment "Numbered like" ] + t [ (TeX-arg-eval progn (if (eq (save-excursion + (backward-char 2) + (preceding-char)) ?\]) + () + (TeX-arg-counter t "Within counter")) + "") ]) + + '("newshadedtheorem" + (TeX-arg-eval + (lambda () + (let ((nthm (TeX-read-string + (TeX-argument-prompt nil nil "Environment")))) + (LaTeX-add-ntheorem-newtheorems nthm) + (LaTeX-add-environments (list nthm #'LaTeX-ntheorem-env-label)) + (LaTeX-add-environments (list (concat nthm "*") + #'LaTeX-ntheorem-env-label)) + (format "%s" nthm)))) + [ TeX-arg-environment "Numbered like" ] + t [ (TeX-arg-eval progn (if (eq (save-excursion + (backward-char 2) + (preceding-char)) ?\]) + () + (TeX-arg-counter t "Within counter")) + "") ]) + '("shadecolor" + (TeX-arg-eval + (lambda () + (let ((color (cond ((member "xcolor" (TeX-style-list)) + (completing-read "Color name: " (LaTeX-xcolor-definecolor-list))) + ((member "color" (TeX-style-list)) + (completing-read "Color name: " (LaTeX-color-definecolor-list))) + (t + (TeX-read-string "Color name: "))))) + (format "%s" color))))) + + '("theoremframepreskip" + (TeX-arg-length "Skip before framed theorem")) + + '("theoremframepostskip" + (TeX-arg-length "Skip after framed theorem")) + + '("theoreminframepreskip" + (TeX-arg-length "Skip inside framed theorem")) + + '("theoreminframepostskip" + (TeX-arg-length "Skip inside framed theorem")) + + ;; 2.4 Generating Theoremlists + '("listtheorems" + (TeX-arg-eval mapconcat #'identity + (TeX-completing-read-multiple + "Lists: " + (LaTeX-ntheorem-newtheorem-list)) ",")) + + ;; 2.4.2 Writing Extra Stuff to the Theorem File + '("addtheoremline" + (TeX-arg-eval completing-read "Environment: " + (LaTeX-ntheorem-newtheorem-list)) + t) + + '("addtheoremline*" + (TeX-arg-eval completing-read "Environment: " + (LaTeX-ntheorem-newtheorem-list)) + t) + + '("addtotheoremfile" + [ TeX-arg-eval completing-read "Environment: " + (LaTeX-ntheorem-newtheorem-list) ] + t) + + ;; 2.5.1 Defining New Theorem Layouts + '("newtheoremstyle" + (TeX-arg-eval + (lambda () + (let ((style (TeX-read-string + (TeX-argument-prompt nil nil "Style name")))) + (LaTeX-add-ntheorem-newtheoremstyles style) + (add-to-list (make-local-variable 'LaTeX-ntheorem-theoremstyle-list) + (list style)) + (format "%s" style)))) + 2) + + '("renewtheoremstyle" + (TeX-arg-eval completing-read "Style name: " + LaTeX-ntheorem-theoremstyle-list) + 2) + + ;; 2.5.2 Defining New Theorem List Layouts + '("newtheoremlisttype" + (TeX-arg-eval + (lambda () + (let ((layout (TeX-read-string + (TeX-argument-prompt nil nil "List layout name")))) + (LaTeX-add-ntheorem-newtheoremlisttypes layout) + (add-to-list (make-local-variable 'LaTeX-ntheorem-listtype-list) + (list layout)) + (format "%s" layout)))) + 3) + + '("renewtheoremlisttype" + (TeX-arg-eval completing-read "Style name: " + LaTeX-ntheorem-listtype-list) + 3) + + ;; 2.6 Setting End Marks + '("qedsymbol" t) + '("NoEndMark" 0) + + ;; 2.7 Extended Referencing Features + (when (LaTeX-provided-package-options-member "ntheorem" "thref") + '("thref" TeX-arg-ref)) ) + + ;; 2.6 Setting End Marks + ;; ... the endmark can manually be set by just saying \<name>Symbol. + (when (LaTeX-provided-package-options-member "ntheorem" "thmmarks") + (dolist (nthm (mapcar #'car (LaTeX-ntheorem-newtheorem-list))) + (TeX-add-symbols (concat nthm "Symbol")))) + + ;; 2.8 Miscellaneous + ;; Inside a theorem-like environment <env>, the name given as + ;; optional argument is accessible by \<env>name + (dolist (nthm (mapcar #'car (LaTeX-ntheorem-newtheorem-list))) + (TeX-add-symbols (concat nthm "name"))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("newtheorem" "{[{[") + ("renewtheorem" "{[{[") + ("theoremstyle" "{") + ("theorembodyfont" "{") + ("theoremheaderfont" "{") + ("theoremnumbering" "{") + ("theoremseparator" "{") + ("theorempreskip" "{") + ("theorempostskip" "{") + ("theoremsymbol" "{") + ("theoremindent" "") + ("theoremprework" "{") + ("theorempostwork" "{") + ("theoremclass" "{") + ("newframedtheorem" "{[{[") + ("newshadedtheorem" "*{[{[") + ("shadecolor" "{") + ("theoremframepreskip" "{") + ("theoremframepostskip" "{") + ("theoreminframepreskip" "{") + ("theoreminframepostskip" "{") + ("listtheorems" "{") + ("addtheoremline" "*{{") + ("addtotheoremfile" "[{") + ("newtheoremstyle" "{{{") + ("renewtheoremstyle" "{{{") + ("newtheoremlisttype" "{{{{") + ("renewtheoremlisttype" "{{{{")) + 'function) + (font-latex-add-keywords '(("thref" "{")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-ntheorem-package-options + '("standard" "noconfig" "framed" "thmmarks" "thref" "amsmath" "hyperref") + "Package options for the ntheorem package.") + +;;; ntheorem.el ends here diff --git a/elpa/auctex-13.1.3/style/ntheorem.elc b/elpa/auctex-13.1.3/style/ntheorem.elc Binary files differnew file mode 100644 index 0000000..47d93b3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ntheorem.elc diff --git a/elpa/auctex-13.1.3/style/ocg-p.el b/elpa/auctex-13.1.3/style/ocg-p.el new file mode 100644 index 0000000..d3ab40d --- /dev/null +++ b/elpa/auctex-13.1.3/style/ocg-p.el @@ -0,0 +1,203 @@ +;;; ocg-p.el --- AUCTeX style for `ocg-p.sty' (v0.4) -*- lexical-binding: t; -*- + +;; Copyright (C) 2018--2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2018-08-05 +;; 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 `ocg-p.sty' v0.4 from 2013/01/10. +;; `ocg-p.sty' is part of TeXLive. + +;;; Code: + +;; Needed for auto-parsing. +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +;; Setup for layer id's defined with +;; \begin{ocg}[<opt-arg>]{<layer name>}{<layer id>}{<initial visibility>}: + +(TeX-auto-add-type "ocgp-ocg-layer-id" "LaTeX") + +(defvar LaTeX-ocgp-ocg-layer-id-regexp + `(,(concat "\\\\begin{ocg}" + "[ \t\n\r%]*" + "\\(?:\\[[^]]*\\]\\)?" + "[ \t\n\r%]*" + "\\(?:{[^}]+}\\)" + "[ \t\n\r%]*" + "{\\([^}]+\\)}") + 1 LaTeX-auto-ocgp-ocg-layer-id)) + +(defun LaTeX-ocgp-auto-prepare () + "Clear `LaTeX-auto-ocgp-ocg-layer-id' before parsing." + (setq LaTeX-auto-ocgp-ocg-layer-id nil)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-ocgp-auto-prepare t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defvar LaTeX-ocgp-env-key-val-options + '(("printocg" ("always" "never" "ifvisible")) + ("exportocg" ("always" "never" "ifvisible")) + ("listintoolbar" ("always" "never" "iffirstuse"))) + "Key=value options for ocg environment from ocg-p package.") + +(defun LaTeX-env-ocgp-ocg (optional) + "Insert arguments for ocg environment from ocg-p package." + ;; The optional key-val argument: + (let ((TeX-arg-opening-brace LaTeX-optop) + (TeX-arg-closing-brace LaTeX-optcl)) + (TeX-argument-insert + (TeX-read-key-val t LaTeX-ocgp-env-key-val-options) + t)) + ;; Layer Name: + (TeX-argument-insert + (TeX-read-string + (TeX-argument-prompt optional nil "Layer name")) + optional) + ;; + ;; Layer id: Use completing read to show which id's are available. + ;; Then add the new id to list of know id's and insert it + (TeX-argument-insert + (let ((id (completing-read + (TeX-argument-prompt optional nil "Layer id") + (LaTeX-ocgp-ocg-layer-id-list)))) + (LaTeX-add-ocgp-ocg-layer-ids id) + id) + optional) + ;; + ;; Initial visibility: Insert 0 or 1 + (TeX-argument-insert + (TeX-read-string + (TeX-argument-prompt optional nil "Initial visibility (0 or 1)")) + optional)) + +(defvar LaTeX-ocgp-mac-key-val-options + '(("triggerocg" ("onareaenter" "onareaexit" "onmousedown" + "onmouseup" "allactions"))) + "Key=value options for macros provided by ocg-p package.") + +(defun LaTeX-arg-ocgp-layer-id (optional &optional prompt) + "Insert (multiple) defined layer id's for various macros from ocg-p package. +<SPC> key binding in minibuffer is removed temporarily. +Completion is still available with <TAB> key." + (let* ((crm-separator "[ \t]+") + (crm-local-completion-map + (remove (assoc 32 crm-local-completion-map) crm-local-completion-map)) + (ids (mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt optional prompt "Layer id ('s space separated)") + (LaTeX-ocgp-ocg-layer-id-list)) + " "))) + (TeX-argument-insert ids optional))) + +(defun LaTeX-env-ocgp-ocgtabular (environment) + "Insert ocgtabular ENVIRONMENT with position, column spec's and 2 more arguments. +Just like array and tabular." + (let ((pos (and LaTeX-default-position ; LaTeX-default-position can + ; be nil, i.e. do not prompt + (TeX-read-string "(Optional) Position: " LaTeX-default-position))) + (fmt (TeX-read-string + (if (string= LaTeX-default-format "") + "Format: " + (format "Format (default %s): " LaTeX-default-format)) + nil nil + (if (string= LaTeX-default-format "") + nil + LaTeX-default-format))) + (dbase (TeX-read-string "Database name: ")) + (opts (TeX-read-string "Additional options: "))) + (setq LaTeX-default-position pos) + (setq LaTeX-default-format fmt) + (LaTeX-insert-environment environment + (concat + (unless (zerop (length pos)) + (concat LaTeX-optop pos LaTeX-optcl)) + (concat TeX-grop fmt TeX-grcl) + (concat TeX-grop dbase TeX-grcl) + (concat TeX-grop opts TeX-grcl))) + (LaTeX-item-array t))) + +(TeX-add-style-hook + "ocg-p" + (lambda () + + ;; Add ocg-p to the parser + (TeX-auto-add-regexp LaTeX-ocgp-ocg-layer-id-regexp) + + ;; 2.3 The ocg environment + (LaTeX-add-environments + '("ocg" LaTeX-env-args LaTeX-env-ocgp-ocg)) + + ;; 2.4 The commands of the package + (TeX-add-symbols + '("toggleocgs" + [ TeX-arg-key-val LaTeX-ocgp-mac-key-val-options ] + LaTeX-arg-ocgp-layer-id + "Action button") + + '("showocgs" + [ TeX-arg-key-val LaTeX-ocgp-mac-key-val-options ] + LaTeX-arg-ocgp-layer-id + "Action button") + + '("hideocgs" + [ TeX-arg-key-val LaTeX-ocgp-mac-key-val-options ] + LaTeX-arg-ocgp-layer-id + "Action button") + + '("setocgs" + [ TeX-arg-key-val LaTeX-ocgp-mac-key-val-options ] + (LaTeX-arg-ocgp-layer-id "Toggle layer id ('s space separated)") + (LaTeX-arg-ocgp-layer-id "Show layer id ('s space separated)") + (LaTeX-arg-ocgp-layer-id "Hide layer id ('s space separated)") + "Action button")) + + ;; 2.5 The ocgtabular environment + (when (LaTeX-provided-package-options-member "ocg-p" "ocgtabular") + (LaTeX-add-environments + '("ocgtabular" LaTeX-env-ocgp-ocgtabular)) + + (TeX-add-symbols + '("setocgtabularheader" "Column name" "Displayed header"))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("toggleocgs" "[{{") + ("showocgs" "[{{") + ("hideocgs" "[{{") + ("setocgs" "[{{{{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-ocg-p-package-options '("ocgtabular") + "Package options for the ocg-p package.") + +;;; ocg-p.el ends here diff --git a/elpa/auctex-13.1.3/style/ocg-p.elc b/elpa/auctex-13.1.3/style/ocg-p.elc Binary files differnew file mode 100644 index 0000000..e08c35e --- /dev/null +++ b/elpa/auctex-13.1.3/style/ocg-p.elc diff --git a/elpa/auctex-13.1.3/style/ocgx.el b/elpa/auctex-13.1.3/style/ocgx.el new file mode 100644 index 0000000..340da52 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ocgx.el @@ -0,0 +1,75 @@ +;;; ocgx.el --- AUCTeX style for `ocgx.sty' (v0.5) -*- lexical-binding: t; -*- + +;; Copyright (C) 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2018-08-05 +;; 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 `ocgx.sty' v0.5 from 2012/11/14. +;; `ocgx.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "ocgx" + (lambda () + + ;; Run style hook for ocg-p package: + (TeX-run-style-hooks "ocg-p") + + ;; 1.2 Manage the visibility of OCGs + (TeX-add-symbols + '("switchocg" LaTeX-arg-ocgp-layer-id "Action button") + + '("showocg" LaTeX-arg-ocgp-layer-id "Action button") + + '("hideocg" LaTeX-arg-ocgp-layer-id "Action button") + + '("actionsocg" + (LaTeX-arg-ocgp-layer-id "Toggle layer id ('s space separated)") + (LaTeX-arg-ocgp-layer-id "Show layer id ('s space separated)") + (LaTeX-arg-ocgp-layer-id "Hide layer id ('s space separated)") + "Action button")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("switchocg" "{{") + ("showocg" "{{") + ("hideocg" "{{") + ("actionsocg" "{{{{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-ocgx-package-options nil + "Package options for the ocgx package.") + +;;; ocgx.el ends here diff --git a/elpa/auctex-13.1.3/style/ocgx.elc b/elpa/auctex-13.1.3/style/ocgx.elc Binary files differnew file mode 100644 index 0000000..8034185 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ocgx.elc diff --git a/elpa/auctex-13.1.3/style/overpic.el b/elpa/auctex-13.1.3/style/overpic.el new file mode 100644 index 0000000..52d51d0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/overpic.el @@ -0,0 +1,124 @@ +;;; overpic.el --- AUCTeX style for `overpic.sty' (v1.3) -*- lexical-binding: t; -*- + +;; Copyright (C) 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2020-02-23 +;; 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 `overpic.sty' (v1.3) from 2020/02/22. +;; `overpic.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(defvar LaTeX-graphicx-key-val-options) +(defvar LaTeX-graphicx-package-options) + +(defvar LaTeX-overpic-key-val-options + '(("abs" ("true" "false")) + ("percent" ("true" "false")) + ("permil" ("true" "false")) + ("rel") + ("grid" ("true" "false")) + ("tics") + ("unit")) + "Key=value options for overpic macro and environments.") + +(defun LaTeX-arg-overpic-key-val (optional) + "Insert key-val for optional argument of overpic environments. +If OPTIONAL is non-nil, insert argument in square brackets. + +This function is an variation of +`LaTeX-arg-graphicx-includegraphics-key-val' where the key-val's +in `LaTeX-overpic-key-val-options' are offered in addition to the +ones provided by `LaTeX-graphicx-key-val-options'." + (let ((crm-local-completion-map + (remove (assoc 32 crm-local-completion-map) + crm-local-completion-map)) + (minibuffer-local-completion-map + (remove (assoc 32 minibuffer-local-completion-map) + minibuffer-local-completion-map))) + (TeX-argument-insert + (TeX-read-key-val optional + (if (and (or (and (eq TeX-engine 'default) + (not (TeX-PDF-from-DVI))) + (eq TeX-engine 'luatex)) + TeX-PDF-mode) + (append '(("page") + ("pagebox" ("mediabox" + "cropbox" + "bleedbox" + "trimbox" + "artbox"))) + LaTeX-overpic-key-val-options + LaTeX-graphicx-key-val-options) + (append + LaTeX-overpic-key-val-options + LaTeX-graphicx-key-val-options))) + optional))) + + +(TeX-add-style-hook + "overpic" + (lambda () + + ;; overpic.sty loads graphicx.sty + (TeX-run-style-hooks "graphicx") + + (TeX-add-symbols + '("setOverpic" (TeX-arg-key-val LaTeX-overpic-key-val-options))) + + (LaTeX-add-environments + '("overpic" LaTeX-env-args + [ LaTeX-arg-overpic-key-val ] + LaTeX-arg-includegraphics) + + '("Overpic" LaTeX-env-args + [ LaTeX-arg-overpic-key-val ] + (TeX-arg-literal "{" "}"))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("setOverpic" "{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-overpic-package-options + (progn + (TeX-load-style "graphicx") + (append + LaTeX-graphicx-package-options + '("abs" + "percent" + "permil"))) + "Package options for the overpic package.") + +;;; overpic.el ends here diff --git a/elpa/auctex-13.1.3/style/overpic.elc b/elpa/auctex-13.1.3/style/overpic.elc Binary files differnew file mode 100644 index 0000000..150f914 --- /dev/null +++ b/elpa/auctex-13.1.3/style/overpic.elc diff --git a/elpa/auctex-13.1.3/style/paracol.el b/elpa/auctex-13.1.3/style/paracol.el new file mode 100644 index 0000000..3ed74b7 --- /dev/null +++ b/elpa/auctex-13.1.3/style/paracol.el @@ -0,0 +1,294 @@ +;;; paracol.el --- AUCTeX style for `paracol.sty' (v1.35) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016--2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-05-26 +;; 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 `paracol.sty' (v1.35) from 2018/12/31. +;; `paracol.sty' is part of TeXLive. + +;; `paracol.sty' provides an environment (paracol) and a command +;; (\switchcolumn) which take a star as the second (!) optional +;; argument. In order to make the input process easier for the users, +;; this style provides the environment `paracol*' and the command +;; `switchcolumn*' in the list of completion after entering C-c C-e or +;; C-c C-m (or C-c RET). + +;; Further, `\switchcolumn' takes a third optional argument containing +;; text which will be inserted spanned over the columns. This style +;; does not ask for this argument. If you need it, just enter it by +;; hand after the completion. This is a deliberate decision since I +;; think that over the time, the annoyance factor of hitting `RET' +;; will be larger than the number of times where this argument is +;; actually used. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defun TeX-arg-paracol-switchcolumn* (optional) + "Query and insert the column argument of \\switchcolum macro. +If OPTIONAL is non-nil, insert the result in square brackets." + (let ((col (TeX-read-string + (TeX-argument-prompt optional nil "Column")))) + (when (and col (not (string= col ""))) + (save-excursion + (backward-char 1) + (TeX-argument-insert col optional))))) + +(TeX-add-style-hook + "paracol" + (lambda () + + (LaTeX-add-environments + ;; 7.1 Environment paracol + ;; \begin{paracol}[numleft]{num}[text] body \end{paracol} + ;; \begin{paracol}[numleft]*{num}[text] body \end{paracol} + '("paracol" [ "Number left" ] "Number of columns" [ "Text across columns" ] ) + '("paracol*" + (lambda (_env) + (let ((numleft (TeX-read-string + (TeX-argument-prompt t nil "Number left"))) + (numcol (TeX-read-string + (TeX-argument-prompt nil nil "Number of columns"))) + (txt (TeX-read-string + (TeX-argument-prompt t nil "Text across columns")))) + (LaTeX-insert-environment + ;; Simply feed the function with "paracol", other option is + ;; something like: + ;; (replace-regexp-in-string (regexp-quote "*") "" env) + "paracol" + (concat + (when (and numleft (not (string= numleft ""))) + (format "[%s]" numleft)) + "*" + (format "{%s}" numcol) + (when (and txt (not (string= txt ""))) + (format "[%s]" txt))))))) + + ;; 7.2 Column-Switching Command and Environments + ;; \begin{column} body \end{column} + ;; \begin{column*}[text] body \end{column*} + '("column") + '("column*" [ "Text across columns" ] ) + + ;; \begin{nthcolumn}{col} body \end{nthcolumn} + ;; \begin{nthcolumn*}{col}[text] body \end{nthcolumn*} + '("nthcolumn" "Column") + '("nthcolumn*" "Column" [ "Text across columns" ] ) + + ;; \begin{leftcolumn} body \end{leftcolumn} + ;; \begin{leftcolumn*}[text] body \end{leftcolumn*} + ;; \begin{rightcolumn} body \end{rightcolumn} + ;; \begin{rightcolumn*}[text] body \end{rightcolumn*} + '("leftcolumn") + '("leftcolumn*" [ "Text across columns" ] ) + '("rightcolumn") + '("rightcolumn*" [ "Text across columns" ] )) + + (TeX-add-symbols + ;; 7.2 Column-Switching Command and Environments + ;; \switchcolumn[col] + ;; \switchcolumn[col]*[text] + '("switchcolumn" [ "Column" ] ) + '("switchcolumn*" [ TeX-arg-paracol-switchcolumn* ] ) + '("thecolumn") + '("definecolumnpreamble" "Column" t) + '("ensurevspace" TeX-arg-length) + + ;; 7.3 Commands for Column and Gap Width + ;; \columnratio{r0, r1, ... , rk}[r0', r1', ... , rk'] + '("columnratio" "Fraction(s)" [ "Fraction(s)" ] ) + + ;; \setcolumnwidth{s0, s1, ... , sk}[s0', s1', ... , sk'] + ;; with s as width/gap + '("setcolumnwidth" "Width/Gap" [ "Width/Gap" ] ) + + ;; 7.4 Commands for Two-Sided Typesetting and Marginal Note Placement + ;; \twosided[t1t2 ... tk] + '("twosided" [ "Features (combination of p, c, m, b)" ]) + + ;; \marginparthreshold{k}[k'] + '("marginparthreshold" "Number of columns" [ "Number of columns" ] ) + + ;; 7.5 Commands for Counters + ;; \globalcounter{ctr} + ;; \globalcounter* + '("globalcounter" TeX-arg-counter) + '("globalcounter*") + + ;; \localcounter{ctr} + '("localcounter" TeX-arg-counter) + + ;; \definethecounter{ctr}{col}{rep} + '("definethecounter" TeX-arg-counter "Column" t) + + ;; \synccounter{ctr} + '("synccounter" TeX-arg-counter) + '("syncallcounters") + + ;; 7.6 Page-Wise Footnotes + '("footnotelayout" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Layout") + '("c" "m" "p"))) + + ;; \footnote*[num]{text} + ;; \footnotemark*[num] + ;; \footnotetext*[num]{text} + ;; Copied from `latex.el' + '("footnote*" + (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil) + t) + '("footnotetext*" + (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil) + t) + '("footnotemark*" + (TeX-arg-conditional TeX-arg-footnote-number-p ([ "Number" ]) nil)) + + '("fncounteradjustment" 0) + '("nofncounteradjustment" 0) + + ;; 7.7 Commands for Coloring Texts and Column-Separating Rules + ;; \columncolor[mode]{color}[col] + ;; + ;; This clashes if colortbl.el is loaded since it provides a + ;; command with the same name but different arguments. We add + ;; the command only here but not for fontification + '("columncolor" (TeX-arg-conditional (member "xcolor" (TeX-style-list)) + (TeX-arg-xcolor) + (TeX-arg-color)) + [ "Column" ] ) + + ;; \normalcolumncolor[col] + '("normalcolumncolor" [ "Column" ] ) + '("coloredwordhyphenated" 0) + '("nocoloredwordhyphenated" 0) + + ;; \colseprulecolor[mode]{color}[col] + ;; \normalcolseprulecolor[col] + '("colseprulecolor" (TeX-arg-conditional (member "xcolor" (TeX-style-list)) + (TeX-arg-xcolor) + (TeX-arg-color)) + [ "Column" ] ) + '("normalcolseprulecolor" [ "Column" ] ) + + ;; 7.8 Commands for Background Painting + ;; \backgroundcolor{region}[mode]{color} + ;; \backgroundcolor{region(x0,y0)}[mode]{color} + ;; \backgroundcolor{region(x0,y0)(x1,y1)}[mode]{color} + '("backgroundcolor" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Region") + '("c" "g" "s" "f" "n" "p" "t" "b" "l" "r" + "C" "G" "S" "F" "N" "P" "T" "B" "L" "R")) + (TeX-arg-conditional (member "xcolor" (TeX-style-list)) + (TeX-arg-xcolor) + (TeX-arg-color))) + + ;; \nobackgroundcolor{region} + '("nobackgroundcolor" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Region") + '("c" "g" "s" "f" "n" "p" "t" "b" "l" "r" + "C" "G" "S" "F" "N" "P" "T" "B" "L" "R"))) + + ;; \resetbackgroundcolor + '("resetbackgroundcolor" 0) + + ;; 7.9 Control of Contents Output + ;; \addcontentsonly{file}{col} + '("addcontentsonly" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Content file") + '("toc" "lof" "lot")) + "Column") + + ;; 7.10 Page Flushing Commands + '("flushpage" 0)) + + ;; \belowfootnoteskip is a length: + (LaTeX-add-lengths "belowfootnoteskip") + + ;; \switchcolumn should get its own line: + (LaTeX-paragraph-commands-add-locally "switchcolumn") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("switchcolumn" "*[")) + ;; FIXME: Syntax is + ;; \switchcolumn[num]*[text]. + ;; font-latex.el doesn't handle the case + ;; where `*' comes after the first `['. + ;; Therefore, we use this compromise to + ;; get something fontified at least. + 'textual) + (font-latex-add-keywords '(("flushpage" "*[")) + 'warning) + (font-latex-add-keywords '(("footnote" "*[{") + ("footnotemark" "*[") + ("footnotetext" "*[{")) + 'reference) + (font-latex-add-keywords '(("definecolumnpreamble" "{{") + ("ensurevspace" "{") + ("columnratio" "{[") + ("setcolumnwidth" "{[") + ("twosided" "[") + ("marginparthreshold" "{[") + ;; FIXME: Syntax is + ;; \globalcounter{ctr} or + ;; \globalcounter* We ignore `{' since + ;; font-latex.el doesn't handle a + ;; missing bracket nicely. + ("globalcounter" "*") + ("definethecounter" "{{{") + ("synccounter" "{") + ("syncallcounters" "") + ("footnotelayout" "{") + ("fncounteradjustment" "") + ("nofncounteradjustment" "") + ("normalcolumncolor" "[") + ("coloredwordhyphenated" "") + ("nocoloredwordhyphenated" "") + ("colseprulecolor" "[{[") + ("normalcolseprulecolor" "[") + ("backgroundcolor" "{[{") + ("nobackgroundcolor" "{") + ("resetbackgroundcolor" "") + ("addcontentsonly" "{{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-paracol-package-options nil + "Package options for the paracol package.") + +;;; paracol.el ends here diff --git a/elpa/auctex-13.1.3/style/paracol.elc b/elpa/auctex-13.1.3/style/paracol.elc Binary files differnew file mode 100644 index 0000000..9df5f3f --- /dev/null +++ b/elpa/auctex-13.1.3/style/paracol.elc diff --git a/elpa/auctex-13.1.3/style/paralist.el b/elpa/auctex-13.1.3/style/paralist.el new file mode 100644 index 0000000..ee5cef8 --- /dev/null +++ b/elpa/auctex-13.1.3/style/paralist.el @@ -0,0 +1,115 @@ +;;; paralist.el -- AUCTeX style for paralist.sty -*- lexical-binding: t; -*- + +;; Copyright (C) 2003-2005, 2014, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@iwi.uni-sb.de> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2003-10-22 +;; 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 `paralist.sty'. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +;; Insert an itemize-ish environment and ask for an optional label +(defun LaTeX-paralist-env-item-opt-label (environment) + "Insert ENVIRONMENT, an optional label and the first item." + (LaTeX-insert-environment + environment + (let ((label (TeX-read-string "(Optional) Label: "))) + (concat (unless (zerop (length label)) + (format "[%s]" label))))) + (LaTeX-find-matching-begin) + (end-of-line 1) + (delete-char 1) + (delete-horizontal-space) + (LaTeX-insert-item)) + +(TeX-add-style-hook + "paralist" + (lambda () + + ;; Add compactdesc to the list of environments which have an optional + ;; argument for each item. + (add-to-list 'LaTeX-item-list '("compactdesc" . LaTeX-item-argument)) + + ;; New symbols + (TeX-add-symbols + '("pointedenum") + '("pointlessenum") + '("paradescriptionlabel") + '("setdefaultitem" "First level" "Second level" "Third level" + "Fourth level") + '("setdefaultenum" "First level" "Second level" "Third level" + "Fourth level") + '("setdefaultleftmargin" "First level" "Second level" "Third level" + "Fourth level" "Fifth level" "Sixth level")) + + ;; New environments + (LaTeX-add-environments + '("asparaenum" LaTeX-paralist-env-item-opt-label) + '("inparaenum" LaTeX-paralist-env-item-opt-label) + '("compactenum" LaTeX-paralist-env-item-opt-label) + '("asparaitem" LaTeX-paralist-env-item-opt-label) + '("inparaitem" LaTeX-paralist-env-item-opt-label) + '("compactitem" LaTeX-paralist-env-item-opt-label) + '("compactdesc" LaTeX-env-item)) + ;; Environments (re)defined only when the package is loaded with particular + ;; options. + (unless (LaTeX-provided-package-options-member "paralist" "olditem") + (LaTeX-add-environments + '("itemize" LaTeX-paralist-env-item-opt-label))) + (unless (LaTeX-provided-package-options-member "paralist" "oldenum") + (LaTeX-add-environments + '("enumerate" LaTeX-paralist-env-item-opt-label))) + (when (LaTeX-provided-package-options-member "paralist" "defblank") + (LaTeX-add-environments + '("asparablank" LaTeX-env-item) + '("inparablank" LaTeX-env-item))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("setdefaultitem" "{{{{") + ("setdefaultenum" "{{{{") + ("setdefaultleftmargin" "{{{{{{")) + 'variable))) + TeX-dialect) + +(defvar LaTeX-paralist-package-options '("newitem" "olditem" "newenum" + "oldenum" "alwaysadjust" + "neveradjust" "neverdecrease" + "increaseonly" "defblank" + "pointedenum" "pointlessenum" + "cfg" "nocfg" "flushright" + "flushleft") + "Package options for the paralist package.") + +;;; paralist.el ends here diff --git a/elpa/auctex-13.1.3/style/paralist.elc b/elpa/auctex-13.1.3/style/paralist.elc Binary files differnew file mode 100644 index 0000000..a3977e2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/paralist.elc diff --git a/elpa/auctex-13.1.3/style/pdflscape.el b/elpa/auctex-13.1.3/style/pdflscape.el new file mode 100644 index 0000000..8511663 --- /dev/null +++ b/elpa/auctex-13.1.3/style/pdflscape.el @@ -0,0 +1,46 @@ +;;; pdflscape.el --- AUCTeX style for `pdflscape.sty' (v0.11) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-07-31 +;; 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 `pdflscape.sty' (v0.11) from 2016/05/14. +;; `pdflscape.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "pdflscape" + (lambda () + ;; Load lscape.el and we are done + (TeX-run-style-hooks "lscape")) + TeX-dialect) + +(defvar LaTeX-pdflscape-package-options nil + "Package options for the pdflscape package.") + +;;; pdflscape.el ends here diff --git a/elpa/auctex-13.1.3/style/pdflscape.elc b/elpa/auctex-13.1.3/style/pdflscape.elc Binary files differnew file mode 100644 index 0000000..baf093d --- /dev/null +++ b/elpa/auctex-13.1.3/style/pdflscape.elc diff --git a/elpa/auctex-13.1.3/style/pdfpages.el b/elpa/auctex-13.1.3/style/pdfpages.el new file mode 100644 index 0000000..2fd44a7 --- /dev/null +++ b/elpa/auctex-13.1.3/style/pdfpages.el @@ -0,0 +1,144 @@ +;;; pdfpages.el --- AUCTeX style for `pdfpages.sty' (v0.4v) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-05-23 +;; 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 `pdfpages.sty' (v0.4v) from 2013/08/25. +;; `pdfpages.sty' is part of TeXLive. + +;; Thanks to Andreas Matthias for testing this style and writing +;; `pdfpages.sty' in the first place. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-pdfpages-key-val-options + '(;; Main options: + ("pages" ("-")) + ("nup") + ("landscape" ("true" "false")) + ;; Layout options: + ("delta") + ("offset") + ("frame" ("true" "false")) + ("column" ("true" "false")) + ("columnstrict" ("true" "false")) + ("openright" ("true" "false")) + ("pagecommand") + ("turn" ("true" "false")) + ("noautoscale" ("true" "false")) + ("fitpaper" ("true" "false")) + ("reflect" ("true" "false")) + ("signature") + ("signature*") + ("booklet" ("true" "false")) + ("picturecommand") + ("picturecommand*") + ("pagetemplate") + ("templatesize") + ("rotateoversize" ("true" "false")) + ("doublepages" ("true" "false")) + ("doublepagestwist" ("true" "false")) + ("doublepagestwistodd" ("true" "false")) + ("doublepagestwist*" ("true" "false")) + ("doublepagestwistodd*" ("true" "false")) + ("duplicatepages") + ;; Miscellaneous options: + ("lastpage") + ;; Hypertext options: + ("link" ("true" "false")) + ("linkname") + ("thread" ("true" "false")) + ("threadname") + ("linktodoc" ("true" "false")) + ;; Additional hypertext options: + ("linkfit" ("Fit" "FitH " "FitV " "FitB" "FitBH " "FitBV " "Region")) + ("linktodocfit" ("/Fit" "/FitH " "/FitV " "/FitB" "/FitBH " "/FitBV " "/Region")) + ("newwindow" ("true" "false")) + ("linkfilename") + ;; Experimental options: (Syntax may change in future versions!) + ("addtotoc") + ("addtolist") + ("survey" ("true" "false")) + ("survey-nolink" ("true" "false")) + ("xr-prefix")) + "Key=value options for pdfpages macros.") + +(TeX-add-style-hook + "pdfpages" + (lambda () + ;; Run style hook for packages loaded by pdfpages; all packages + ;; are required for running LaTeX, but not necessary within AUCTeX + (TeX-run-style-hooks "graphicx" "eso-pic" "everyshi" "ifthen" "calc") + + (TeX-add-symbols + ;; \includepdf[<options>]{<filename>} + '("includepdf" + [TeX-arg-key-val LaTeX-pdfpages-key-val-options] + (TeX-arg-eval + (lambda () + (let ((pdffile (file-relative-name + (read-file-name + "File to include: " nil nil nil nil + (lambda (pdfs) + (or (file-directory-p pdfs) + (string-match "\\.pdf\\'" pdfs)))) + (TeX-master-directory)))) + (format "%s" pdffile))))) + + ;; \includepdfmerge[<options>]{<file-page-list>} + ;; The mandatory argument is complex, we just insert a pair of + ;; braces and leave the rest to the user + '("includepdfmerge" + [TeX-arg-key-val LaTeX-pdfpages-key-val-options] t) + + ;; \includepdfset{<options>} + '("includepdfset" + (TeX-arg-key-val LaTeX-pdfpages-key-val-options)) + + '("threadinfodict" 0)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("includepdfset" "{")) + 'function) + (font-latex-add-keywords '(("includepdf" "[{") + ("includepdfmerge" "[{")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-pdfpages-package-options + '("final" "draft" "enable-survey") + "Prompt for package options for the pdfpages package.") + +;;; pdfpages.el ends here diff --git a/elpa/auctex-13.1.3/style/pdfpages.elc b/elpa/auctex-13.1.3/style/pdfpages.elc Binary files differnew file mode 100644 index 0000000..0ae6dc0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/pdfpages.elc diff --git a/elpa/auctex-13.1.3/style/pdfsync.el b/elpa/auctex-13.1.3/style/pdfsync.el new file mode 100644 index 0000000..122f0eb --- /dev/null +++ b/elpa/auctex-13.1.3/style/pdfsync.el @@ -0,0 +1,92 @@ +;;; pdfsync.el --- AUCTeX style for `pdfsync.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2005-2021 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@iwi.uni-sb.de> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2005-12-28 +;; 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 `pdfsync.sty'. + +;;; Code: + +(require 'tex) + +(defun LaTeX-pdfsync-output-page () + "Return page number in output file corresponding to buffer position." + (let* ((line (line-number-at-pos)) + (master (TeX-active-master)) + (file (file-name-sans-extension + (file-relative-name (buffer-file-name) + (file-name-directory master)))) + (pdfsync-file (concat master ".pdfsync")) + (buf-live-p (get-file-buffer pdfsync-file)) + (sync-record "0") + (sync-page "1") + last-match) + (when (file-exists-p pdfsync-file) + (with-current-buffer (find-file-noselect pdfsync-file) + (save-restriction + (goto-char (point-min)) + ;; Narrow region to file in question. + (when (not (string= file master)) + (re-search-forward (concat "^(" file "\\(.tex\\)?$") nil t) + (let ((beg (match-beginning 0))) + (goto-char beg) + (narrow-to-region (line-beginning-position 2) + (progn (forward-sexp) (point)))) + (goto-char (point-min))) + ;; Look for the record number. + (catch 'break + (while (re-search-forward "^(\\|^l \\([0-9]+\\) \\([0-9]+\\)" nil t) + (cond ((string= (match-string 0) "(") + (goto-char (match-beginning 0)) + (forward-sexp)) + ((> (string-to-number (match-string 2)) line) + (throw 'break nil)) + (t + (setq sync-record (match-string 1) + last-match (match-beginning 0)))))) + ;; Look for the page number. + (goto-char (or last-match (point-min))) + ;; There might not be any p or s lines for the current file, + ;; so make it possible to search further. + (widen) + (catch 'break + (while (re-search-forward "^p \\([0-9]+\\)" nil t) + (when (>= (string-to-number (match-string 1)) + (string-to-number sync-record)) + (re-search-backward "^s \\([0-9]+\\)" nil t) + (setq sync-page (match-string 1)) + (throw 'break nil))))) + ;; Kill the buffer if it was loaded by us. + (unless buf-live-p (kill-buffer (current-buffer))))) + sync-page)) + +(TeX-add-style-hook + "pdfsync" + (lambda () + (setq TeX-source-correlate-output-page-function #'LaTeX-pdfsync-output-page)) + TeX-dialect) + +;;; pdfsync.el ends here diff --git a/elpa/auctex-13.1.3/style/pdfsync.elc b/elpa/auctex-13.1.3/style/pdfsync.elc Binary files differnew file mode 100644 index 0000000..e6b87b6 --- /dev/null +++ b/elpa/auctex-13.1.3/style/pdfsync.elc diff --git a/elpa/auctex-13.1.3/style/placeins.el b/elpa/auctex-13.1.3/style/placeins.el new file mode 100644 index 0000000..1eee1b8 --- /dev/null +++ b/elpa/auctex-13.1.3/style/placeins.el @@ -0,0 +1,45 @@ +;;; placeins.el --- AUCTeX style for `placeins.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2013, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; 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 `placeins.sty' + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "placeins" + (lambda () + (TeX-add-symbols + '("FloatBarrier" 0))) + TeX-dialect) + +(defvar LaTeX-placeins-package-options + '("section" "above" "below" "verbose") + "Package options for placeins.") + +;; placeins.el ends here diff --git a/elpa/auctex-13.1.3/style/placeins.elc b/elpa/auctex-13.1.3/style/placeins.elc Binary files differnew file mode 100644 index 0000000..873b884 --- /dev/null +++ b/elpa/auctex-13.1.3/style/placeins.elc diff --git a/elpa/auctex-13.1.3/style/plext.el b/elpa/auctex-13.1.3/style/plext.el new file mode 100644 index 0000000..26e564e --- /dev/null +++ b/elpa/auctex-13.1.3/style/plext.el @@ -0,0 +1,90 @@ +;;; plext.el --- AUCTeX style for the plext package. -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2020, 2022 Free Software Foundation, Inc. + +;; Author: Ikumi Keita <ikumi@ikumi.que.jp> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-07-05 +;; Keywords: tex, japanese + +;; 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 the plext package. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "plext" + (lambda () + ;; plext.sty extends some environments to accept option, e.g. <t>, + ;; for vertical typesetting. + (LaTeX-add-environments + ;; TODO: Add support for minipage and picture + ;; environments extension. + '("array" LaTeX-plext-env-array) + '("tabular" LaTeX-plext-env-array) + '("tabular*" LaTeX-plext-env-array)) + + (set (make-local-variable 'LaTeX-array-skipping-regexp) + (concat "\\(?:<[tyz]>\\)?[ \t]*" (regexp-opt '("[t]" "[b]" "")))) + (set (make-local-variable 'LaTeX-tabular*-skipping-regexp) + (concat "\\(?:<[tyz]>\\)?[ \t]*{[^}]*}[ \t]*" + (regexp-opt '("[t]" "[b]" ""))))) + TeX-dialect) + +(defun LaTeX-plext-env-array (env) + (let ((dir (TeX-read-string "(Optional) Direction (t or y or z): ")) + (width (if (string= env "tabular*") + (TeX-read-string + (format "Width (default %s): " LaTeX-default-width) + nil nil LaTeX-default-width))) + (pos (and LaTeX-default-position ; LaTeX-default-position can + ; be nil, i.e. do not prompt + (TeX-read-string "(Optional) Position: " LaTeX-default-position))) + (fmt (TeX-read-string + (if (string= LaTeX-default-format "") + "Format: " + (format "Format (default %s): " LaTeX-default-format)) + nil nil + (if (string= LaTeX-default-format "") + nil + LaTeX-default-format)))) + (unless (zerop (length dir)) + (setq dir (concat "<" dir ">"))) + (if (string= env "tabular*") + (setq LaTeX-default-width width)) + (setq LaTeX-default-position pos) + (setq LaTeX-default-format fmt) + (LaTeX-insert-environment env + (concat + dir + (if (string= env "tabular*") + (concat TeX-grop width TeX-grcl)) + (unless (zerop (length pos)) + (concat LaTeX-optop pos LaTeX-optcl)) + (concat TeX-grop fmt TeX-grcl))) + (if (string= env "tabular*") + (LaTeX-item-tabular* t) + (LaTeX-item-array t)))) + +;;; plext.el ends here. diff --git a/elpa/auctex-13.1.3/style/plext.elc b/elpa/auctex-13.1.3/style/plext.elc Binary files differnew file mode 100644 index 0000000..0315874 --- /dev/null +++ b/elpa/auctex-13.1.3/style/plext.elc diff --git a/elpa/auctex-13.1.3/style/plfonts.el b/elpa/auctex-13.1.3/style/plfonts.el new file mode 100644 index 0000000..51c0a81 --- /dev/null +++ b/elpa/auctex-13.1.3/style/plfonts.el @@ -0,0 +1,34 @@ +;;; plfonts.el - Setup AUC TeX for editing Polish text with plfonts.sty -*- lexical-binding: t; -*- + +;;; Commentary: +;; +;; `plfonts.sty' use `"' to make next character Polish. +;; `plfonts.sty' <C> L. Holenderski, IIUW, lhol@mimuw.edu.pl + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-plfonts-mode-syntax-table + (copy-syntax-table LaTeX-mode-syntax-table) + "Syntax table used in LaTeX mode when using `plfonts.sty'.") + +(modify-syntax-entry ?\" "w" LaTeX-plfonts-mode-syntax-table) + +(TeX-add-style-hook + "plfonts" + (lambda () + (set-syntax-table LaTeX-plfonts-mode-syntax-table) + (make-local-variable 'TeX-open-quote) + (make-local-variable 'TeX-close-quote) + (make-local-variable 'TeX-quote-after-quote) + (make-local-variable 'TeX-command-default) + (setq TeX-open-quote "\"<") + (setq TeX-close-quote "\">") + (setq TeX-quote-after-quote t) + (setq TeX-command-default "plLaTeX") + (run-hooks 'TeX-language-pl-hook)) + TeX-dialect) + +;;; plfonts.el ends here diff --git a/elpa/auctex-13.1.3/style/plfonts.elc b/elpa/auctex-13.1.3/style/plfonts.elc Binary files differnew file mode 100644 index 0000000..efb66c8 --- /dev/null +++ b/elpa/auctex-13.1.3/style/plfonts.elc diff --git a/elpa/auctex-13.1.3/style/plhb.el b/elpa/auctex-13.1.3/style/plhb.el new file mode 100644 index 0000000..14d86ab --- /dev/null +++ b/elpa/auctex-13.1.3/style/plhb.el @@ -0,0 +1,34 @@ +;;; plhb.el - Setup AUC TeX for editing Polish text with plhb.sty -*- lexical-binding: t; -*- + +;;; Commentary: +;; +;; `plhb.sty' use `"' to make next character Polish. +;; `plhb.sty' <C> J. S. Bie\'n, IIUW, jsbien@mimuw.edu.pl + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-plhb-mode-syntax-table + (copy-syntax-table LaTeX-mode-syntax-table) + "Syntax table used in LaTeX mode when using `plhb.sty'.") + +(modify-syntax-entry ?\" "w" LaTeX-plhb-mode-syntax-table) + +(TeX-add-style-hook + "plhb" + (lambda () + (set-syntax-table LaTeX-plhb-mode-syntax-table) + (make-local-variable 'TeX-open-quote) + (make-local-variable 'TeX-close-quote) + (make-local-variable 'TeX-command-default) + (make-local-variable 'TeX-quote-after-quote) + (setq TeX-open-quote "\"<") + (setq TeX-close-quote "\">") + (setq TeX-quote-after-quote t) + (setq TeX-command-default "plLaTeX") + (run-hooks 'TeX-language-pl-hook)) + TeX-dialect) + +;;; plhb.el ends here diff --git a/elpa/auctex-13.1.3/style/plhb.elc b/elpa/auctex-13.1.3/style/plhb.elc Binary files differnew file mode 100644 index 0000000..44d3203 --- /dev/null +++ b/elpa/auctex-13.1.3/style/plhb.elc diff --git a/elpa/auctex-13.1.3/style/polish.el b/elpa/auctex-13.1.3/style/polish.el new file mode 100644 index 0000000..ab7936c --- /dev/null +++ b/elpa/auctex-13.1.3/style/polish.el @@ -0,0 +1,56 @@ +;;; polish.el --- AUCTeX style for the `polish' babel option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2007, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2007-01-08 +;; 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: + +;; Set up AUCTeX for editing Polish text in connection with the +;; `polish' babel option. + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-polish-mode-syntax-table + (copy-syntax-table LaTeX-mode-syntax-table) + "Syntax table used in LaTeX mode when using `polish.sty'.") + +(modify-syntax-entry ?\" "w" LaTeX-polish-mode-syntax-table) + +(TeX-add-style-hook + "polish" + (lambda () + (set-syntax-table LaTeX-polish-mode-syntax-table) + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language `("polish" "\"`" "\"'" ,TeX-quote-after-quote))) + ;; Fontification of quotation marks. + (when (fboundp 'font-latex-add-quotes) + (font-latex-add-quotes '("\"`" "\"'")) + (font-latex-add-quotes '("\"<" "\">" french))) + (run-hooks 'TeX-language-pl-hook)) + TeX-dialect) + +;;; polish.el ends here diff --git a/elpa/auctex-13.1.3/style/polish.elc b/elpa/auctex-13.1.3/style/polish.elc Binary files differnew file mode 100644 index 0000000..db583c4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/polish.elc diff --git a/elpa/auctex-13.1.3/style/polski.el b/elpa/auctex-13.1.3/style/polski.el new file mode 100644 index 0000000..e7b10ae --- /dev/null +++ b/elpa/auctex-13.1.3/style/polski.el @@ -0,0 +1,63 @@ +;;; polski.el --- AUCTeX style for `polski.sty'. -*- lexical-binding: t; -*- + +;; Copyright (C) 2007, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2007-01-11 +;; 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: + +;; Set up AUCTeX for editing Polish text in connection with +;; `polski.sty'. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-quotes + "font-latex" + (quotes)) + +(defvar LaTeX-polski-package-options + '("plmath" "nomathsymbols" "MeX" "T1" "QX" "OT1" "OT4" "prefixinginverb" + "noprefixinginverb" "roku" "r." "noroku") + "Package options for polski.sty.") + +(TeX-add-style-hook + "polski" + (lambda () + (TeX-add-symbols + ;; Dashes + "dywiz" + "pauza" + "ppauza") + ;; Quotation marks + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language `("polski" ",," "''" ,TeX-quote-after-quote))) + ;; Fontification of quotation marks. + (when (fboundp 'font-latex-add-quotes) + (font-latex-add-quotes '(",," "''"))) + (run-hooks 'TeX-language-pl-hook)) + TeX-dialect) + +;;; polski.el ends here diff --git a/elpa/auctex-13.1.3/style/polski.elc b/elpa/auctex-13.1.3/style/polski.elc Binary files differnew file mode 100644 index 0000000..afaa2c5 --- /dev/null +++ b/elpa/auctex-13.1.3/style/polski.elc diff --git a/elpa/auctex-13.1.3/style/polyglossia.el b/elpa/auctex-13.1.3/style/polyglossia.el new file mode 100644 index 0000000..cdfb03e --- /dev/null +++ b/elpa/auctex-13.1.3/style/polyglossia.el @@ -0,0 +1,366 @@ +;;; polyglossia.el --- AUCTeX style for `polyglossia.sty' version 1.42.0. -*- lexical-binding: t; -*- + +;; Copyright (C) 2015-2021 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <mose@gnu.org> +;; 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 `polyglossia.sty' version 1.42.0. + +;;; TODO: + +;; -- Create language specific styles with names `gloss-<lang>.el'. They +;; should add `text<lang>' macros, `<lang>' environments (`Arabic' for +;; `arabic' language), and the others language-specific commands. + +;;; Code: + +(require 'tex) ;Indispensable when compiling the call to `TeX-auto-add-type'. +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-auto-add-type "polyglossia-lang" "LaTeX") + +;; Self Parsing -- see (info "(auctex)Hacking the Parser"). +(defvar LaTeX-polyglossia-lang-regexp + (concat "\\\\set\\(defaultlanguage\\|mainlanguage\\|otherlanguages?\\)" + "[ \t\n\r]*\\(?:\\[\\(.*\\)\\]\\)?[ \t\n\r]*{\\([A-Za-z, ]+\\)}") + "Matches languages set with polyglossia macros.") + +(defvar LaTeX-polyglossia-setkeys-regexp + (concat "\\\\setkeys" + "[ \t\n\r]*{\\([A-Za-z]+\\)}[ \t\n\r]*{\\([^}]*\\)}") + "Matches polyglossia languages options set using \"\setkeys\".") + +(defvar LaTeX-auto-polyglossia-lang nil + "Temporary for parsing polyglossia languages.") + +(defvar LaTeX-auto-polyglossia-setkeys nil + "Temporary for parsing polyglossia language options.") + +(defun LaTeX-polyglossia-prepare () + "Clear some polyglossia variables before use." + (setq LaTeX-auto-polyglossia-lang nil + LaTeX-auto-polyglossia-setkeys nil + LaTeX-polyglossia-lang-list nil)) + +(defun LaTeX-polyglossia-cleanup () + "Move languages and their options from +`LaTeX-auto-polyglossia-lang' to `LaTeX-polyglossia-lang-list'." + ;; Example: now the value of `LaTeX-auto-polyglossia-lang' is something like + ;; '(("danish" "defaultlanguage" "") + ;; ("arabic" "otherlanguage" "locale=tunisia,numerals=maghrib") + ;; ("german" "otherlanguage" "spelling=new,script=latin") + ;; ("icelandic,brazil,sanskrit" "otherlanguages" "")) + ;; We want to end up with a list like + ;; '(("danish" "defaultlanguage") + ;; ("arabic" "otherlanguage" "locale=tunisia" "numerals=maghrib") + ;; ("german" "otherlanguage" "spelling=new" "script=latin") + ;; ("icelandic" "otherlanguages") + ;; ("brazil" "otherlanguages") + ;; ("sanskrit" "otherlanguages" "script=Devanagari")) + ;; with "script=Devanagari" option to "sanskrit" language set using + ;; "\setkeys". + ;; In each element of the alist, the key is the language, the second value is + ;; the polyglossia command which set the language, the rest of values is the + ;; list of options given to the language. + (let (opts otheropts) + (mapc + (lambda (elt) + (mapc + (lambda (language) + ;; `opts' is the string of options for `language', set using + ;; "\setdefaultlanguage" or "\setotherlanguage". + (setq opts (cdr (cdr elt))) + ;; `otheropts' is the string of options for `language' set using + ;; "\setkeys". + (setq otheropts + (car (cdr (assoc language LaTeX-auto-polyglossia-setkeys)))) + (add-to-list + 'LaTeX-polyglossia-lang-list + (append + (list language) (list (nth 1 elt)) + (unless (equal opts '("")) + (LaTeX-listify-package-options (car opts))) + (if otheropts (LaTeX-listify-package-options otheropts))) t)) + (LaTeX-listify-package-options (car elt)))) + LaTeX-auto-polyglossia-lang))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-polyglossia-prepare) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-polyglossia-cleanup) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) +;; Run style hooks for every active language. This *has* to be done after +;; `TeX-auto-parse'. +(add-hook 'TeX-update-style-hook #'LaTeX-polyglossia-load-languages t) + +(defvar LaTeX-polyglossia-language-list + '("albanian" "amharic" "arabic" "armenian" "asturian" "bahasai" "bahasam" + "basque" "bengali" "brazil" "breton" "bulgarian" "catalan" "coptic" + "croatian" "czech" "danish" "divehi" "dutch" "english" "esperanto" + "estonian" "farsi" "finnish" "french" "friulan" "galician" "german" "greek" + "hebrew" "hindi" "icelandic" "interlingua" "irish" "italian" "kannada" + "khmer" "korean" "lao" "latin" "latvian" "lithuanian" "lsorbian" "magyar" + "malayalam" "marathi" "nko" "norsk" "nynorsk" "occitan" "piedmontese" + "polish" "portuges" "romanian" "romansh" "russian" "samin" "sanskrit" + "scottish" "serbian" "slovak" "slovenian" "spanish" "swedish" "syriac" + "tamil" "telugu" "thai" "tibetan" "turkish" "turkmen" "ukrainian" "urdu" + "usorbian" "vietnamese" "welsh") + "List of languages supported by the polyglossia LaTeX package.") + +(defun LaTeX-polyglossia-active-languages () + "Return a list of polyglossia languages used in the document. +The last language is the default one." + (let (active-languages default) + (mapc + (lambda (elt) + (setq default (or (string-equal "defaultlanguage" (nth 1 elt)) + (string-equal "mainlanguage" (nth 1 elt)))) + ;; Append the language to the list if it's the default one. + (if default + (setq active-languages (append active-languages + (list (car elt)))) + (push active-languages (car elt)))) + LaTeX-polyglossia-lang-list) + active-languages)) + +(defun LaTeX-polyglossia-lang-option-member (language option) + "Return non-nil if OPTION has been given to polyglossia LANGUAGE. +The value is actually the tail of the list of options given to LANGUAGE." + (member option (cdr (cdr (assoc language LaTeX-polyglossia-lang-list))))) + +(defun LaTeX-arg-polyglossia-lang (_optional _default multiple setkeys) + "Prompt for language and its options with completion and insert them +as arguments. + +This function is triggered by \"\setdefaultlanguage\", +\"\setotherlanguage\", \"\setotherlanguages\", and \"\setkeys\" +macros by polyglossia package. + +OPTIONAL and DEFAULT are ignored, if MULTIPLE is non-nil prompt +for multiple languages, if SETKEYS is non-nil insert options as +second mandatory argument." + ;; DEFAULT = t , MULTIPLE = nil, SETKEYS = nil: "\setdefaultlanguage". + ;; DEFAULT = nil, MULTIPLE = nil, SETKEYS = nil: "\setotherlanguage". + ;; DEFAULT = nil, MULTIPLE = t , SETKEYS = nil: "\setotherlanguages". + ;; DEFAULT = nil, MULTIPLE = nil, SETKEYS = t : "\setkeys". + + ;; Note: `DEFAULT' is currently ignored because we don't really have a + ;; mechanism to identify the default polyglossia language. + (let ((language (funcall + (if multiple + #'TeX-completing-read-multiple + #'completing-read) + (if multiple "Languages: " "Language: ") + (if setkeys + (LaTeX-polyglossia-active-languages) + LaTeX-polyglossia-language-list))) + var options) + (if multiple + (mapc (lambda (elt) (TeX-run-style-hooks (concat "gloss-" elt))) + language) + (TeX-run-style-hooks (concat "gloss-" language))) + ;; "\setotherlanguages" doesn't take options, don't prompt for them. + (setq options + (if multiple "" + (setq var (intern (format "LaTeX-polyglossia-%s-options-list" language))) + (if (and (boundp var) (symbol-value var)) + ;; "\setdefaultlanguage" and "\setotherlanguage" use `options' + ;; as first optional argument; "\setkeys" uses `options' as + ;; second mandatory argument. + (TeX-read-key-val (not setkeys) (symbol-value var)) + ;; When `LaTeX-polyglossia-<lang>-options-list' is nil or not + ;; defined, don't prompt for options. + ""))) + (unless setkeys + (let ((TeX-arg-opening-brace LaTeX-optop) + (TeX-arg-closing-brace LaTeX-optcl)) + (TeX-argument-insert options t))) + (if multiple + (setq language (mapconcat #'identity language ","))) + (TeX-argument-insert language nil) + (if setkeys + (TeX-argument-insert options nil)))) + +(defun LaTeX-arg-polyglossiasetup-options (optional) + "Prompt for setup options of polyglossia package. +If OPTIONAL is non-nil, insert the resulting value as an optional +argument, otherwise as a mandatory one." + (TeX-arg-key-val optional + '(("language") ;; TODO: add completion in `fontspec.el', see + ;; "\newfontlanguage"s in `fontspec-xetex.sty'. + ("hyphennames") + ("script") ;; TODO: add completion in `fontspec.el', see + ;; "\newfontscript"s in `fontspec-xetex.sty'. + ("direction" ("RL" "LR")) + ("scripttag") + ("langtag") + ("hyphenmins") + ("frenchspacing" ("true" "false")) + ("indentfirst" ("true" "false")) + ("fontsetup" ("true" "false")) + ;; The following options aren't already implemented but are + ;; present in `polyglossia.sty' comments. + ;; ("nouppercase" ("true" "false")) + ;; ("localalph") + ;; ("localnumber") + ))) + +(defun LaTeX-polyglossia-load-languages () + "Load style files of babel active languages." + (mapc (lambda (elt) (TeX-run-style-hooks (concat "gloss-" elt))) + (LaTeX-polyglossia-active-languages))) + +(TeX-add-style-hook + "polyglossia" + (lambda () + (TeX-check-engine-add-engines 'luatex 'xetex) + (TeX-auto-add-regexp + `(,LaTeX-polyglossia-lang-regexp (3 1 2) LaTeX-auto-polyglossia-lang)) + (TeX-auto-add-regexp + `(,LaTeX-polyglossia-setkeys-regexp (1 2) LaTeX-auto-polyglossia-setkeys)) + (TeX-run-style-hooks "makecmds" "xkeyval" "fontspec") + (TeX-add-symbols + '("setdefaultlanguage" (LaTeX-arg-polyglossia-lang t nil nil)) + '("setmainlanguage" (LaTeX-arg-polyglossia-lang t nil nil)) + '("setotherlanguage" (LaTeX-arg-polyglossia-lang nil nil nil)) + '("setotherlanguages" (LaTeX-arg-polyglossia-lang nil t nil)) + '("setkeys" (LaTeX-arg-polyglossia-lang nil nil t )) + '("PolyglossiaSetup" (TeX-arg-eval completing-read "Language: " + (LaTeX-polyglossia-active-languages)) + LaTeX-arg-polyglossiasetup-options) + "selectbackgroundlanguage" + '("resetdefaultlanguage" ["argument"] 1) + "normalfontlatin" + "rmfamilylatin" + "sffamilylatin" + "ttfamilylatin" + "selectlanguage" + "foreignlanguage") + + (TeX-declare-expert-macros + "polyglossia" + "PolyglossiaSetup" "selectbackgroundlanguage" "resetdefaultlanguage" + "normalfontlatin" "rmfamilylatin" "sffamilylatin" "ttfamilylatin" + "selectlanguage" "foreignlanguage") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("setdefaultlanguage" "[{") + ("setmainlanguage" "[{") + ("setotherlanguage" "[{") + ("setotherlanguages" "{") + ("setkeys" "{{")) + 'function))) + TeX-dialect) + +;; TODO: move each option variable in its specific `gloss-<lang>.el' file. +(defvar LaTeX-polyglossia-arabic-options-list + '(("calendar" ("gregorian" "islamic")) + ("locale" ("default" "mashriq" "libya" "algeria" "tunisia" "morocco" "mauritania")) + ("numerals" ("mashriq" "maghrib")) + ("abjadjimnotail" ("false" "true"))) + "Arabic language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-bengali-options-list + '(("numerals" ("Western" "Devanagari")) + ("changecounternumbering" ("true" "false"))) + "Bengali language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-catalan-options-list + '(("babelshorthands" ("true" "false"))) + "Catalan language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-dutch-options-list + '(("babelshorthands" ("true" "false"))) + "Dutch language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-english-options-list + '(("variant" ("american" "usmax" "british" "australian" "newzealand")) + ("ordinalmonthday" ("true" "false"))) + "English language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-farsi-options-list + '(("numerals" ("western" "eastern")) + ;; ("locale") ;; not yet implemented + ;; ("calendar") ;; not yet implemented + ) + "Farsi language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-german-options-list + '(("variant" ("german" "austrian" "swiss")) + ("spelling" ("new" "old")) + ("latesthyphen" ("true" "false")) + ("babelshorthands" ("true" "false")) + ("script" ("latin" "fraktur"))) + "German language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-greek-options-list + '(("variant" ("monotonic" "polytonic" "ancient")) + ("numerals" ("greek" "arabic")) + ("attic" ("true" "false"))) + "Greek language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-hebrew-options-list + '(("numerals" ("hebrew" "arabic")) + ("calendar" ("hebrew" "gregorian"))) + "Hebrew language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-hindi-options-list + '(("numerals" ("Western" "Devanagari"))) + "Hindi language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-lao-options-list + '(("numerals" ("lao" "arabic"))) + "Lao language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-russian-options-list + '(("spelling" ("modern" "old")) + ("babelshorthands" ("true" "false"))) + "Russian language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-sanskrit-options-list + '(("Script" ("Devanagari"))) + "Sanskrit language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-serbian-options-list + '(("script" ("cyrillic" "latin"))) + "Serbian language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-syriac-options-list + '(("numerals" ("western" "eastern" "abjad"))) + "Syriac language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-thai-options-list + '(("numerals" ("thai" "arabic"))) + "Thai language options for the polyglossia package.") + +(defvar LaTeX-polyglossia-package-options + '("babelshorthands" "localmarks" "nolocalmarks" "quiet") + "Package options for the polyglossia package.") + +;;; polyglossia.el ends here diff --git a/elpa/auctex-13.1.3/style/polyglossia.elc b/elpa/auctex-13.1.3/style/polyglossia.elc Binary files differnew file mode 100644 index 0000000..330014d --- /dev/null +++ b/elpa/auctex-13.1.3/style/polyglossia.elc diff --git a/elpa/auctex-13.1.3/style/portuges.el b/elpa/auctex-13.1.3/style/portuges.el new file mode 100644 index 0000000..7c0cdb1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/portuges.el @@ -0,0 +1,37 @@ +;;; portuges.el --- Setup AUCTeX for editing Portuges text. -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-05-02 +;; 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. + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "portuges" + (lambda () + (TeX-run-style-hooks "portuguese")) + TeX-dialect) + +;;; portuges.el ends here diff --git a/elpa/auctex-13.1.3/style/portuges.elc b/elpa/auctex-13.1.3/style/portuges.elc Binary files differnew file mode 100644 index 0000000..ae31fa1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/portuges.elc diff --git a/elpa/auctex-13.1.3/style/portuguese.el b/elpa/auctex-13.1.3/style/portuguese.el new file mode 100644 index 0000000..6c93b5c --- /dev/null +++ b/elpa/auctex-13.1.3/style/portuguese.el @@ -0,0 +1,78 @@ +;;; portuguese.el --- Setup AUCTeX for editing Portuguese text. -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-05-02 +;; 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: + +;; Cater for some specialities of Portuguese language provided by +;; babel package, e.g. special quote and hyphen strings or `"' which +;; is an active character. + +;; Thanks to Gustavo Barros <gusbrs.2016@gmail.com> for requesting +;; this feature and reviewing the code. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-quotes + "font-latex" + (quotes)) + +(declare-function font-latex-add-to-syntax-alist + "font-latex" + (list)) + +(defvar LaTeX-portuguese-mode-syntax-table + (copy-syntax-table LaTeX-mode-syntax-table) + "Syntax table used in LaTeX mode when using `portuguese' language.") + +(modify-syntax-entry ?\" "w" LaTeX-portuguese-mode-syntax-table) + +(TeX-add-style-hook + "portuguese" + (lambda () + (set-syntax-table LaTeX-portuguese-mode-syntax-table) + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language + `("portuguese" "\"<" "\">" ,TeX-quote-after-quote))) + (setq LaTeX-babel-hyphen-language "portuguese") + (TeX-add-symbols + "ord" + "ro" + "orda" + "ra") + ;; Fontification + (when (and (eq TeX-install-font-lock 'font-latex-setup) + (featurep 'font-latex)) + (font-latex-add-quotes '("\"<" "\">" french)) + ;; Prevent "| from leading to color bleed. + (font-latex-add-to-syntax-alist (list (cons ?\" "\\")))) + (run-hooks 'TeX-language-pt-hook)) + TeX-dialect) + +;;; portuguese.el ends here diff --git a/elpa/auctex-13.1.3/style/portuguese.elc b/elpa/auctex-13.1.3/style/portuguese.elc Binary files differnew file mode 100644 index 0000000..72be1d6 --- /dev/null +++ b/elpa/auctex-13.1.3/style/portuguese.elc diff --git a/elpa/auctex-13.1.3/style/preview.el b/elpa/auctex-13.1.3/style/preview.el new file mode 100644 index 0000000..5431c09 --- /dev/null +++ b/elpa/auctex-13.1.3/style/preview.el @@ -0,0 +1,112 @@ +;;; preview.el --- AUCTeX style for `preview.sty' (v2010/02/14) -*- lexical-binding: t; -*- + +;; Copyright (C) 2017, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-02-05 +;; 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 `preview.sty' v2010/02/14. +;; `preview.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defun LaTeX-preview-arg-ifpreview (_optional) + "Insert \\else and \\fi part of \\ifPreview command from preview.sty. +OPTIONAL is ignored." + (indent-according-to-mode) + (LaTeX-newline) + (indent-according-to-mode) + (save-excursion + (LaTeX-newline) + (indent-according-to-mode) + (insert TeX-esc "else") + (LaTeX-newline) + (LaTeX-newline) + (indent-according-to-mode) + (insert TeX-esc "fi"))) + +(TeX-add-style-hook + "preview" + (lambda () + + (LaTeX-add-environments + '("preview") + '("nopreview")) + + (TeX-add-symbols + '("PreviewMacro" (TeX-arg-conditional (y-or-n-p "With optional arguments? ") + ( [ t ] [ nil ] ) + ()) + TeX-arg-macro) + + '("PreviewMacro*" (TeX-arg-conditional (y-or-n-p "With optional arguments? ") + ( [ t ] [ nil ] ) + ()) + TeX-arg-macro) + + '("PreviewEnvironment" (TeX-arg-conditional (y-or-n-p "With optional arguments? ") + ( [ t ] [ nil ] ) + ()) + TeX-arg-environment) + + '("PreviewEnvironment*" (TeX-arg-conditional (y-or-n-p "With optional arguments? ") + ( [ t ] [ nil ] ) + ()) + TeX-arg-environment) + + '("PreviewSnarfEnvironment" TeX-arg-environment) + + '("PreviewOpen") + '("PreviewClose") + + '("ifPreview" LaTeX-preview-arg-ifpreview)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("PreviewMacro" "*[[{") + ("PreviewEnvironment" "*[[{") + ("PreviewSnarfEnvironment" "[{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-preview-package-options + '("active" "noconfig" "psfixbb" + "dvips" "pdftex" "xetex" + "displaymath" "floats" "textmath" + "graphics" "sections" "delayed" + "auctex" "showlabels" "tightpage" + "lyx" "counters" "footnotes" + "tracingall" "showbox") + "Package options for the preview package.") + +;;; preview.el ends here diff --git a/elpa/auctex-13.1.3/style/preview.elc b/elpa/auctex-13.1.3/style/preview.elc Binary files differnew file mode 100644 index 0000000..30d1b9d --- /dev/null +++ b/elpa/auctex-13.1.3/style/preview.elc diff --git a/elpa/auctex-13.1.3/style/prosper.el b/elpa/auctex-13.1.3/style/prosper.el new file mode 100644 index 0000000..f1b7adc --- /dev/null +++ b/elpa/auctex-13.1.3/style/prosper.el @@ -0,0 +1,190 @@ +;;; prosper.el --- Prosper style file for AUCTeX -*- lexical-binding: t; -*- + +;; Copyright (C) 2001-2021 Free Software Foundation, Inc. + +;; Authors: Phillip Lord<p.lord@russet.org.uk> +;; Nevin Kapur <nevin@jhu.edu> +;; Keywords: tex, wp, prosper +;; Version: 0.6 +;; URL: http://www.mts.jhu.edu/~kapur/emacs/prosper.el + +;; This 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. + +;;; Commentary: + +;; This is a propser (http://prosper.sourceforge.net/) style file for +;; AUCTeX. + +;;; Installation: +;; +;; For this file to work you need to have a working installation of +;; AucTeX. After that installtion is simple. Put this file into one of +;; the directories specified in `TeX-style-path', with the name +;; "style" rather than "auto" as it might get over written in the +;; latter. +;; +;; Then stick the current for into your .emacs +;; (eval-after-load "latex" +;; '(add-to-list 'LaTeX-style-list '("prosper"))) +;; +;; +;; And that should be it. You check whether it's worked or not by +;; opening a prosper document, and trying `LaTeX-environment'. "slide" +;; should be available by tab completion and it should ask you about +;; overlays. +;; +;; The environment "prosper" should be inserted immediately after the +;; document environment. It will prompt you for options available +;; under prosper and create a skeleton document. + +;;; Bugs: +;; +;; Currently the documentclass expansion doesn't work, unless you +;; enter a documentclass line to let auctex know which style files to +;; load. Then delete this and do it again. Not good. I know no way +;; around this. + +;;; Code: + +;; Constants: + + +;; This is partly working now, and it a little neater than it +;; was. The main problem is that the redefinition of "documentclass" +;; does not happen until its all too late, so that stuff never +;; happens correctly. This is easy enough to fix by fiddling with +;; auctex. I shall have to download the latest version, and see if +;; its already been fixed. + +(require 'tex) +(require 'latex) + +(defconst LaTeX-prosper-version "2008-05-25" + "prosper.el version.") + +(defconst LaTeX-prosper-transition-styles '("Split" + "Blinds" + "Box" + "Wipe" + "Dissolve" + "Glitter" + "Replace") + "List of transition styles provided by prosper.") + +(defconst LaTeX-prosper-slide-styles + '("alienglow" "autumn" "azure" + "contemporain" "darkblue" "default" "frames" + "lignesbleues" "nuancegris" "troispoints" + "alcatel" "gyom" "pascal" "rico" + )) + +(defun LaTeX-prosper-insert-title (_optional) + (newline) + (mapc (lambda(f) + (TeX-insert-macro f) + (newline)) + '("title" "subtitle" "author" "email" "institution" "slideCaption" + "Logo" "DefaultTransition")) + (LaTeX-insert-environment "document") + (TeX-insert-macro "maketitle")) + + +;; Utility functions +(defun LaTeX-prosper-arg-pdftransition (_environment) + (let ((default + (if (boundp 'LaTeX-prosper-transition-history) + (car LaTeX-prosper-transition-history) + "Replace"))) + (TeX-argument-insert + (completing-read + (TeX-argument-prompt nil + (format "Transition (Default %s) " default) + t) + (mapcar #'list LaTeX-prosper-transition-styles) + nil + t + nil + 'LaTeX-prosper-transition-history + default) + nil))) + +(defun LaTeX-prosper-slide-style-prompt() + (completing-read + "Slide Style?" + LaTeX-prosper-slide-styles + nil nil nil nil "default" )) + + +(defun LaTeX-prosper-insert-options(_environment) + (insert "[" ) + (insert (LaTeX-prosper-slide-style-prompt) " ") + (mapc (lambda(f) + (if (y-or-n-p (car f)) + (insert (car (cdr f)) " "))) + '(("Draft?" "draft") + ("Color Slides?" "slideColor") + ("Disable running total on each slide?" "nototal") + ("Is the final version going to be PDF?" "pdf") + ("Are you going to use Adobe Distiller" "distiller"))) + (delete-char -1) + (insert "]")) + +(defun LaTeX-prosper-insert-slide (_environment) + (if (y-or-n-p "Surround with overlay? ") + (progn (TeX-insert-macro "overlays") + (if (search-backward "{" 0 t) + (progn + (goto-char (+ 1 (point))) + (insert "%\n"))))) + (let ((title (TeX-read-string "Title: "))) + (LaTeX-insert-environment "slide" (concat TeX-grop title TeX-grcl)))) + +;; AUCTeX configuration +(TeX-add-style-hook + "prosper" + (lambda () + (LaTeX-add-environments + '("slide" LaTeX-prosper-insert-slide) + '("itemstep" LaTeX-env-item) + '("Itemize" LaTeX-env-item)) + (TeX-add-symbols + '("documentclass" + LaTeX-prosper-insert-options + LaTeX-prosper-insert-title) + '("title" "Title of the presentation") + '("subtitle" "Subtitle of the presentation") + '("author" "Author name") + '("email" "Author email") + '("institution" "Author institution") + '("slideCaption" "Caption for slide") + '("Logo" "Logo") + '("displayVersion" TeX-arg-free) + '("DefaultTransition" + LaTeX-prosper-arg-pdftransition) + '("NoFrenchBabelItemize" TeX-arg-free) + '("part" LaTeX-prosper-arg-part) + '("overlays" "Number of overlays" t) + '("FontTitle" "Color slides" "Black & White Slides") + '("FontText" "Color slides" "Black & White Slides") + '("fontTitle" "Text") + '("fontText" "Text") + '("ColorFoot" "Color") + '("PDFtransition" LaTeX-prosper-arg-pdftransition) + '("myitem" "Level" "Definition") + '("fromSlide" "Number" t) + '("fromSlide*" "Number" t) + '("onlySlide" "Number" t) + '("onlySlide*" "Number" t) + '("OnlySlide" "Number") + '("UntilSlide" "Number") + '("untilSlide*" "Number") + '("PDForPS" TeX-arg-conditional) + '("onlyInPS" t) + '("onlyInPDF" t) + '("FromSlide" "Number"))) + TeX-dialect) + +;;; prosper.el ends here diff --git a/elpa/auctex-13.1.3/style/prosper.elc b/elpa/auctex-13.1.3/style/prosper.elc Binary files differnew file mode 100644 index 0000000..53ec9af --- /dev/null +++ b/elpa/auctex-13.1.3/style/prosper.elc diff --git a/elpa/auctex-13.1.3/style/psfig.el b/elpa/auctex-13.1.3/style/psfig.el new file mode 100644 index 0000000..09b2ad2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/psfig.el @@ -0,0 +1,83 @@ +;;; psfig.el - Support for the psfig style option. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013-2014, 2020 Free Software Foundation, Inc. + +;; Contributed by Marc Gemis <makke@wins.uia.ac.be> +;; Please direct comments to him. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "psfig" + (lambda () + ;; probable some of the following symbols may be removed + (TeX-add-symbols "protect" "figurepath" "fbox" + "other" "letter" "other" "then" "Sine" "Cosine" + "psdraft" "psfull" "psscalefirst" "psrotatefirst" + "psnodraftbox" "psdraftbox" "pssilent" "psnoisy" + "minmaxtest" + '("psfig" TeX-arg-psfig) + '("psfigurepath" t) + ) + (LaTeX-add-environments + '("psfigure" LaTeX-env-psfigure))) + TeX-dialect) + +(defun TeX-arg-psfig (_optional) + "Ask for file, width and length. Insert psfig macro" + (let ((psfile (read-file-name "PS-file: " "" "" nil)) + (figwidth (TeX-read-string "Figure width: ")) + (figheight (TeX-read-string "Figure height: ")) + ) + + (insert TeX-grop "figure=" psfile) + (if (not (zerop (length figwidth))) + (insert ",width=" figwidth)) + (if (not (zerop (length figheight))) + (insert ",height=" figheight)) + (insert TeX-grcl))) + + +(defun LaTeX-env-psfigure (_environment) + "Create with \\label and \\caption and \\psfig commands." + (let* ((float (TeX-read-string "Float to: " LaTeX-float)) + (caption (TeX-read-string "Caption: ")) + (short-caption (when (>= (length caption) LaTeX-short-caption-prompt-length) + (TeX-read-string "(Optional) Short caption: "))) + (label (TeX-read-string "Label: " LaTeX-figure-label)) + ; gf: ask if this should be centered + (psfile (read-file-name "PS-file: " "" "" nil)) + (figwidth (TeX-read-string "Figure width: ")) + (figheight (TeX-read-string "Figure height: ")) + ) + + (setq LaTeX-float (if (zerop (length float)) + LaTeX-float + float)) + + (LaTeX-insert-environment "figure" + (concat LaTeX-optop LaTeX-float LaTeX-optcl)) + + (insert TeX-esc "centerline" TeX-grop TeX-esc "psfig" TeX-grop + "figure=" psfile) + (if (not (zerop (length figwidth))) + (insert ",width=" figwidth)) + (if (not (zerop (length figheight))) + (insert ",height=" figheight)) + (insert TeX-grcl TeX-grcl) + (if (zerop (length caption)) + () + (newline-and-indent) + (insert (LaTeX-compose-caption-macro caption short-caption))) + (if (or (zerop (length label)) + (equal LaTeX-figure-label label)) + () + (newline-and-indent) + (insert TeX-esc "label" TeX-grop label TeX-grcl)) + + (forward-line 2))) + +;;; psfig.el ends here diff --git a/elpa/auctex-13.1.3/style/psfig.elc b/elpa/auctex-13.1.3/style/psfig.elc Binary files differnew file mode 100644 index 0000000..13e2053 --- /dev/null +++ b/elpa/auctex-13.1.3/style/psfig.elc diff --git a/elpa/auctex-13.1.3/style/pst-grad.el b/elpa/auctex-13.1.3/style/pst-grad.el new file mode 100644 index 0000000..0426a73 --- /dev/null +++ b/elpa/auctex-13.1.3/style/pst-grad.el @@ -0,0 +1,73 @@ +;;; pst-grad.el --- AUCTeX style for `pst-grad.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2007, 2020 Free Software Foundation, Inc. + +;; Author: Holger Sparr <holger.sparr@gmx.net> +;; Created: 21 Jun 2007 +;; Keywords: latex, pstricks, auctex, emacs + +;; 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 `pst-grad.sty'. + +;;; TODO: +;; +;; -- + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(defvar LaTeX-pst-fillstyle-list) +(defvar LaTeX-pst-parameters-completion-regexp) +(defvar LaTeX-pst-parameters-name-list) + +;;; Parameters +(defvar LaTeX-pstgrad-parameters-name-list + '("gradangle" "gradbegin" "gradend" "gradlines" "gradmidpoint" + "gradientHSB" "GradientCircle" "GradientPos" "GradientScale") + "A list of parameter names in pst-grad.") + +;;; Aliases +(defvaralias 'LaTeX-pst-gradbegin-list 'LaTeX-pst-color-list) +(defvaralias 'LaTeX-pst-gradend-list 'LaTeX-pst-color-list) + +;;; Hook +(TeX-add-style-hook + "pst-grad" + (function + (lambda () + (TeX-run-style-hooks + "pstricks") + (unless (member "gradient" LaTeX-pst-fillstyle-list) + (setq LaTeX-pst-fillstyle-list (append LaTeX-pst-fillstyle-list + '("gradient"))) + (setq LaTeX-pst-parameters-completion-regexp + (concat + (substring LaTeX-pst-parameters-completion-regexp 0 -2) + "\\|gradbegin\\|gradend\\)"))) + (make-local-variable 'LaTeX-pst-parameters-name-list) + (setq LaTeX-pst-parameters-name-list + (append LaTeX-pstgrad-parameters-name-list + LaTeX-pst-parameters-name-list)))) + TeX-dialect) + +;;; pst-grad.el ends here diff --git a/elpa/auctex-13.1.3/style/pst-grad.elc b/elpa/auctex-13.1.3/style/pst-grad.elc Binary files differnew file mode 100644 index 0000000..e34b48d --- /dev/null +++ b/elpa/auctex-13.1.3/style/pst-grad.elc diff --git a/elpa/auctex-13.1.3/style/pst-node.el b/elpa/auctex-13.1.3/style/pst-node.el new file mode 100644 index 0000000..86a87e4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/pst-node.el @@ -0,0 +1,207 @@ +;;; pst-node.el --- AUCTeX style for `pst-node.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2007-2021 Free Software Foundation, Inc. + +;; Author: Holger Sparr <holger.sparr@gmx.net> +;; Created: 21 Jun 2007 +;; Based on: Jean-Philippe Georget's pst-plot.el +;; Keywords: latex, pstricks, auctex, emacs + +;; 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 `pst-node.sty'. + +;;; TODO: +;; +;; -- self parsing of possible node names +;; -- adding more macro support + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function LaTeX-package-parameter-value + "pstricks" (param pname)) +(declare-function LaTeX-package-parameters-pref-and-chosen + "pstricks" (param pname noskip)) +(declare-function LaTeX-package-parameters + "pstricks" (optional pname preparam param)) +(declare-function LaTeX-pst-angle "pstricks" ()) +(declare-function LaTeX-pst-point "pstricks" ()) +(declare-function LaTeX-pst-arrows "pstricks" ()) + +(defalias 'LaTeX-pst-node #'LaTeX-pst-point) + +(defvar LaTeX-pstnode-parameters-completion-regexp + "\\(npos\\|nrot\\)" + "Regexp for `string-match'ing a parameter.") + +(defvar LaTeX-pstnode-parameters-boolean-regexp "show\\([a-zA-Z]+\\)" + "Regexp for `string-match'ing a parameter.") + +(defvar LaTeX-pstnode-npos-list '(".25" ".5" ".75" "1" "1.5" "2") + "A list of values for npos in nput.") + +(defvar LaTeX-pstnode-nrot-list '(":U" ":D" ":R" ":L") + "A list of values for nrot in nput.") + +(defvar LaTeX-pstnode-psmatrix-list + '("mnode" "emnode" "name" "nodealign" "mocl" "rowsep" "colsep" + "mnodesize") + "A list of values for trimode in pstribox.") + +;;; Parameters +(defvar LaTeX-pstnode-parameters-history nil + "History of values for parameters in pst-node.") + +(defvar LaTeX-pstnode-parameters-value-history nil + "History of parameter values in pst-node.") + +(defvar LaTeX-pstnode-parameters-name-list + '("angle" "angleA" "angleB" "arcangle" "arcangleA" "arcangleB" "arm" + "armA" "armB" "boxsize" "colsep" "framesize" "href" "loopsize" + "ncurv" "ncurvA" "ncurvB" "nodesepA" "nodesepB" "npos" "nrot" + "offset" "offsetA" "offsetB" "radius" "vref" "Xnodesep" "XnodesepA" + "XnodesepB" "Ynodesep" "YnodesepA" "YnodesepB") + "A list of parameters' name in pst-node.") + +(defvar LaTeX-pstnode-parameters-name-history nil + "History of parameter names in pst-node.") + +;;; Derived Functions from pstricks.el defuns +(defun LaTeX-pstnode-parameter-value (param) + "See documentation of `LaTeX-package-parameter-value'." + (LaTeX-package-parameter-value param "pstnode")) + +(defun LaTeX-pstnode-parameters-pref-and-chosen (param &optional noskip) + "See documentation of `LaTeX-package-parameters-pref-and-chosen'." + (LaTeX-package-parameters-pref-and-chosen param "pstnode" noskip)) + +(defun LaTeX-pstnode-parameters (optional &optional preparam param) + "See documentation of `LaTeX-package-parameters-pref-and-chosen'." + (LaTeX-package-parameters optional "pstnode" preparam param)) + +;;; Macros +(defun LaTeX-pstnode-macro-nput (_optional &optional _arg) + "Return \\nput arguments after querying." + (insert "[rot=" (LaTeX-pst-angle) "]{" (LaTeX-pst-angle) "}{" + (LaTeX-pst-node) "}")) + +(defun LaTeX-pstnode-macro-cnodeput (_optional &optional _arg) + "Return \\cnodeput arguments after querying." + (let ((rotation (if current-prefix-arg (LaTeX-pst-angle) nil)) + (pnt (if current-prefix-arg (LaTeX-pst-point) nil))) + (insert (if rotation (format "{%s}" rotation) "") + (if pnt (format "(%s)" pnt) "") "{" (LaTeX-pst-node) "}"))) + +(defun LaTeX-pstnode-macro-nc (_optional &optional _arg) + "Return \\nc* arguments after querying." + (let ((arrows (LaTeX-pst-arrows))) + (insert (if arrows (format "{%s}" arrows) "") "{" (LaTeX-pst-node) + "}{" (LaTeX-pst-node) "}"))) + +(defun LaTeX-pstnode-macro-pc (_optional &optional _arg) + "Return \\pc* arguments after querying." + (let ((arrows (LaTeX-pst-arrows))) + (insert (if arrows (format "{%s}" arrows) "") "(" (LaTeX-pst-point) + ")(" (LaTeX-pst-point) ")"))) + +(defun LaTeX-pstnode-macro-tnabcput (optional &optional _arg) + "Return \\t?put or \\n?put arguments after querying." + (TeX-argument-insert (LaTeX-pstnode-parameters-pref-and-chosen + '("nrot" "npos")) + optional)) + +;;; Environments +(defun LaTeX-pstnode-env-psmatrix (env) + "Return psmatrix environment with arguments." + (let ((opt (TeX-completing-read-multiple "Options: " + LaTeX-pstnode-psmatrix-list))) + (LaTeX-insert-environment env opt))) + +(TeX-add-style-hook + "pst-node" + (function + (lambda () + (LaTeX-add-environments + '("psmatrix" LaTeX-pstnode-env-psmatrix)) + (TeX-add-symbols + '("MakeShortNab" 2) '("MakeShortTablr" 4) '("PSTnodesLoaded" 0) + '("nput" LaTeX-pstnode-macro-nput TeX-arg-macro) + '("cnodeput" [LaTeX-pst-parameters] LaTeX-pstnode-macro-cnodeput t) + '("Cnode" [LaTeX-pstnode-parameters] LaTeX-pst-point-in-parens t) + '("cnode" [LaTeX-pstnode-parameters] "Radius" t) + '("fnode" [LaTeX-pstnode-parameters] LaTeX-pst-point-in-parens t) + '("fnode*" [LaTeX-pstnode-parameters] LaTeX-pst-point-in-parens t) + '("dotnode" [LaTeX-pstnode-parameters] LaTeX-pst-point-in-parens t) + '("pnode" LaTeX-pst-point-in-parens t) + '("Rnode" [LaTeX-pstnode-parameters ("href" "vref")] + (TeX-arg-eval LaTeX-pst-point) t) + '("rnode" [LaTeX-pstnode-parameters ("ref")] + (TeX-arg-eval LaTeX-pst-point) t) + '("circlenode" [LaTeX-pst-parameters] + (TeX-arg-eval LaTeX-pst-point) t) + '("dianode" [LaTeX-pst-parameters] "Node Name" t) + '("ovalnode" [LaTeX-pst-parameters] "Node Name" t) + '("trinode" [LaTeX-pst-parameters] "Node Name" t) + '("dotnode" [LaTeX-pst-parameters] LaTeX-pst-point-in-parens + "Node Name") + '("naput" [LaTeX-pstnode-macro-tnabcput] t) + '("nbput" [LaTeX-pstnode-macro-tnabcput] t) + '("ncput" [LaTeX-pstnode-macro-tnabcput] t) + '("taput" [LaTeX-pstnode-macro-tnabcput] t) + '("tbput" [LaTeX-pstnode-macro-tnabcput] t) + '("thput" [LaTeX-pstnode-macro-tnabcput] t) + '("tlput" [LaTeX-pstnode-macro-tnabcput] t) + '("trput" [LaTeX-pstnode-macro-tnabcput] t) + '("tvput" [LaTeX-pstnode-macro-tnabcput] t) + '("ncline" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc) + '("ncarc" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc) + '("ncdiag" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc) + '("ncdiagg" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc) + '("ncbar" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc) + '("ncangle" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc) + '("ncangles" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc) + '("ncloop" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc) + '("nccurve" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc) + '("nccircle" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc) + '("ncbox" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc) + '("ncarcbox" [LaTeX-pst-parameters] LaTeX-pstnode-macro-nc) + '("pcline" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc) + '("pccurve" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc) + '("pcarc" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc) + '("pcbar" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc) + '("pcdiag" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc) + '("pcdiagg" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc) + '("pcangle" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc) + '("pcangles" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc) + '("pcloop" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc) + '("pcbox" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc) + '("pcarcbox" [LaTeX-pst-parameters] LaTeX-pstnode-macro-pc) + '("psspan" (TeX-arg-eval LaTeX-pst-input-int)) + '("psrowhook" t) + '("pscolhook" t)) + (TeX-run-style-hooks + "pstricks"))) + TeX-dialect) + +;;; pst-node.el ends here diff --git a/elpa/auctex-13.1.3/style/pst-node.elc b/elpa/auctex-13.1.3/style/pst-node.elc Binary files differnew file mode 100644 index 0000000..322f805 --- /dev/null +++ b/elpa/auctex-13.1.3/style/pst-node.elc diff --git a/elpa/auctex-13.1.3/style/pst-plot.el b/elpa/auctex-13.1.3/style/pst-plot.el new file mode 100644 index 0000000..cfad30b --- /dev/null +++ b/elpa/auctex-13.1.3/style/pst-plot.el @@ -0,0 +1,150 @@ +;;; pst-plot.el --- AUCTeX style for `pst-plot.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2007, 2014, 2015, 2019, 2020 Free Software Foundation, Inc. + +;; Author: Holger Sparr <holger.sparr@gmx.net> +;; Created: 21 Jun 2007 +;; Based on: Jean-Philippe Georget's pst-plot.el +;; Keywords: latex, pstricks, auctex, emacs + +;; 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 `pst-plot.sty'. + +;;; TODO: +;; +;; -- improve symbol support (especially the pstScalePoints macros) +;; -- check for multido.el necessity + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function LaTeX-pst-arrows "pstricks" ()) +(declare-function LaTeX-pst-point "pstricks" ()) +(declare-function TeX-arg-compl-list + "pstricks" (list &optional prompt hist)) + +(defvar LaTeX-pst-parameters-completion-regexp) +(defvar LaTeX-pst-parameters-name-list) + +;;; Parameters +(defvar LaTeX-pstplot-datasets nil + "List of parsed data sets defined with \\savedata or \\readdata.") + +(defvar LaTeX-pstplot-parameters-name-list + '("axesstyle" "labels" "plotpoints" "plotstyle" "showorigin" "ticks" + "ticksize" "tickstyle") + "A list of parameters' name in pst-plot.") + +(defvaralias 'LaTeX-pst-labels-list 'LaTeX-pst-ticks-list) + +(defvar LaTeX-pst-ticks-list '(t "none" "all" "x" "y") + "A list of values for ticks in pst-plot.") + +(defvar LaTeX-pst-plotstyle-list + '(t "dots" "line" "polygon" "curve" "ecurve" "ccurve") + "A list of values for tickstyles in pst-plot.") + +(defvar LaTeX-pst-tickstyle-list '(t "full" "top" "bottom") + "A list of values for tickstyles in pst-plot.") + +(defvar LaTeX-pst-axesstyle-list '(t "axes" "frame" "none") + "A list of values for axesstyles in pst-plot.") + +;; Self Parsing -- see (info "(auctex)Hacking the Parser") +(defvar LaTeX-auto-pstplot-regexp-list + '(("\\\\\\(save\\|read\\)data{?\\(\\\\[a-zA-Z]+\\)}?" + 2 LaTeX-auto-pstplot)) + "List of regular expressions to extract arguments of \\*data + macros.") + +(defvar LaTeX-auto-pstplot nil + "Temporary for parsing \\*data definitions.") + +(defun LaTeX-pstplot-cleanup () + "Move symbols from `LaTeX-auto-pstplot' to `TeX-auto-symbol'." + (mapcar (lambda (symbol) + ;; (setq TeX-symbol-list (cons (list symbol 0) TeX-symbol-list)) + ;; (setq TeX-auto-symbol (cons (list symbol 0) TeX-auto-symbol))) + (add-to-list 'LaTeX-pstplot-datasets symbol)) + LaTeX-auto-pstplot)) + +(defun LaTeX-pstplot-prepare () + "Clear `LaTeX-auto-pstplot' before use." + (setq LaTeX-auto-pstplot nil)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-pstplot-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-pstplot-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +;;; Macros +(defun LaTeX-pst-macro-psaxes (_optional &optional _arg) + "Return \\psaxes arguments after querying." + (let* ((cpref (if current-prefix-arg (car current-prefix-arg) 0)) + (arrows (LaTeX-pst-arrows)) + (pnt1 (if (> cpref 4) (LaTeX-pst-point) nil)) + (pnt2 (if (> cpref 0) (LaTeX-pst-point) nil)) + (pnt3 (LaTeX-pst-point))) + ;; Insert \psaxes arguments. + (insert (if arrows (format "{%s}" arrows) "") + (if pnt1 (format "(%s)" pnt1) "") + (if pnt2 (format "(%s)" pnt2) "") "(" pnt3 ")"))) + +;;; Derived defuns +(defun LaTeX-pstplot-datasets-read () + (TeX-arg-compl-list "Datasets" LaTeX-pstplot-datasets)) + +;;; Hook +(TeX-add-style-hook + "pst-plot" + (function + (lambda () + (mapc #'TeX-auto-add-regexp LaTeX-auto-pstplot-regexp-list) + (TeX-add-symbols + '("readdata" "Macro Name" TeX-arg-file) + '("savedata" "Macro Name" ["Values"]) + '("dataplot" ["Options"] + (TeX-arg-eval LaTeX-pstplot-datasets-read)) + '("fileplot" ["Options"] TeX-arg-file) + '("listplot" ["Options"] "Values") + '("pstScalePoints" "X-Mod" "Y-Mod") + '("psplot" [LaTeX-pst-parameter] "xmin" "xmax" t) + '("parametricplot" [LaTeX-pst-parameter] "xmin" "xmax" t) + '("psaxes" [LaTeX-pst-parameters] LaTeX-pst-macro-psaxes) + "pshlabel" + "psvlabel") + (TeX-run-style-hooks + "pstricks" + "multido") + (unless (string-match "plotstyle" + LaTeX-pst-parameters-completion-regexp) + (setq LaTeX-pst-parameters-completion-regexp + (concat + (substring LaTeX-pst-parameters-completion-regexp 0 -2) + "\\|plotstyle\\|ticks\\|tickstyle\\|axesstyle\\|labels\\)"))) + (make-local-variable 'LaTeX-pst-parameters-name-list) + (setq LaTeX-pst-parameters-name-list + (append LaTeX-pstplot-parameters-name-list + LaTeX-pst-parameters-name-list)))) + TeX-dialect) + +;;; pst-plot.el ends here diff --git a/elpa/auctex-13.1.3/style/pst-plot.elc b/elpa/auctex-13.1.3/style/pst-plot.elc Binary files differnew file mode 100644 index 0000000..b8de071 --- /dev/null +++ b/elpa/auctex-13.1.3/style/pst-plot.elc diff --git a/elpa/auctex-13.1.3/style/pst-slpe.el b/elpa/auctex-13.1.3/style/pst-slpe.el new file mode 100644 index 0000000..e9f78e6 --- /dev/null +++ b/elpa/auctex-13.1.3/style/pst-slpe.el @@ -0,0 +1,74 @@ +;;; pst-slpe.el --- AUCTeX style for `pst-slpe.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2007, 2020 Free Software Foundation, Inc. + +;; Author: Holger Sparr <holger.sparr@gmx.net> +;; Created: 21 Jun 2007 +;; Keywords: latex, pstricks, auctex, emacs + +;; 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 `pst-slpe.sty'. + +;;; TODO: +;; +;; -- + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(defvar LaTeX-pst-fillstyle-list) +(defvar LaTeX-pst-parameters-completion-regexp) +(defvar LaTeX-pst-parameters-name-list) + +;;; Parameters +(defvar LaTeX-pstslpe-parameters-name-list + '("slopeangle" "slopecenter" "slopecolors" "slopebegin" "slopeend" + "sloperadius" "slopesteps") + "A list of parameter names in pst-slpe.") + +;;; Aliases +(defvaralias 'LaTeX-pst-slopebegin-list 'LaTeX-pst-color-list) +(defvaralias 'LaTeX-pst-slopeend-list 'LaTeX-pst-color-list) + +;;; Define hook +(TeX-add-style-hook + "pst-slpe" + (lambda () + (TeX-run-style-hooks + "pstricks") + (unless (member "slope" LaTeX-pst-fillstyle-list) + (setq LaTeX-pst-fillstyle-list + (append LaTeX-pst-fillstyle-list + '("slope" "slopes" "ccslope" "ccslopes" "radslope" + "radslopes"))) + (setq LaTeX-pst-parameters-completion-regexp + (concat + (substring LaTeX-pst-parameters-completion-regexp 0 -2) + "\\|slopebegin\\|slopeend\\)"))) + (make-local-variable 'LaTeX-pst-parameters-name-list) + (setq LaTeX-pst-parameters-name-list + (append LaTeX-pstslpe-parameters-name-list + LaTeX-pst-parameters-name-list))) + TeX-dialect) + +;;; pst-slpe.el ends here diff --git a/elpa/auctex-13.1.3/style/pst-slpe.elc b/elpa/auctex-13.1.3/style/pst-slpe.elc Binary files differnew file mode 100644 index 0000000..13dd057 --- /dev/null +++ b/elpa/auctex-13.1.3/style/pst-slpe.elc diff --git a/elpa/auctex-13.1.3/style/pstricks.el b/elpa/auctex-13.1.3/style/pstricks.el new file mode 100644 index 0000000..6a6707f --- /dev/null +++ b/elpa/auctex-13.1.3/style/pstricks.el @@ -0,0 +1,880 @@ +;;; pstricks.el --- AUCTeX style for the `pstricks' package. -*- lexical-binding: t; -*- + +;; Copyright (C) 2007-2022 Free Software Foundation, Inc. + +;; Author: Holger Sparr <holger.sparr@gmx.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2007-06-14 +;; 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: +;; +;; AUCTeX style file for PSTricks +;; +;; Support for basic PSTricks macros and their arguments. Separate +;; history variables for point, angle, ... arguments. +;; +;; Parameter input completion together with input completion for certain +;; parameters (e.g. linestyle, linecolor and the like). +;; +;; There is a PSTricks-specific support for adding new parameters to +;; existing parameter lists or changing existing ones in optional +;; macro arguments. You might want to make those available through +;; key bindings by using something like +;; (define-key LaTeX-mode-map (kbd "C-c p a") +;; 'LaTeX-pst-parameter-add) +;; (define-key LaTeX-mode-map (kbd "C-c p c") +;; 'LaTeX-pst-parameter-change-value) +;; in a personal style file for PSTricks. + +;;; History: +;; +;; 14/06/2007 rewrite of pstricks.el based on Jean-Philippe Georget's +;; pstricks.el version found on <URI: +;; https://www.emacswiki.org/emacs/pstricks.el> + +;;; TODO: +;; +;; -- Use alist or hash-table for parameter input +;; -- Add more regularly used PSTricks macros +;; -- Prevent errors in AUCTeX modes other than LaTeX mode. +;; -- Check if the functionality for adding and changing parameters +;; can be generalized. + +;;; Code: + +(require 'tex) +(require 'latex) +(eval-when-compile + (require 'cl-lib)) + +;;; General Functions + +(defun TeX-arg-compl-list (list &optional prompt hist) + "Input a value after PROMPT with completion from LIST and HISTORY." + (let ((first (car list))) + (if (and first (listp first)) + (let ((func (nth 0 first)) + (prompt (concat (or (nth 1 first) prompt) ": ")) + (compl (nth 2 first)) + (hist (or (nth 3 first) hist)) + (crm-separator (nth 4 first)) + res) + (setq list (cdr list)) + (cond ((eq func #'completing-read-multiple) + (setq res (funcall func prompt list nil compl nil hist)) + (mapconcat #'identity res crm-separator)) + ((eq func #'completing-read) + (setq res + (funcall func prompt list nil compl nil hist))))) + (completing-read (concat prompt ": ") list nil nil nil hist)))) + +;; XXX: Show default value in prompt. Perhaps extend +;; `TeX-argument-prompt' to do that. +(defun LaTeX-pst-what (what prompt default &optional arg) + "Ask for WHAT with PROMPT with DEFAULT. +The corresponding lists LaTeX-pst-<what>-\\(list\\|history\\) +have to exist. + +\(Used to define functions named LaTeX-pst-<what>.\))" + (let ((list (intern (concat "LaTeX-pst-" what "-list"))) + (hist (intern (concat "LaTeX-pst-" what "-history")))) + (if (not arg) + (setq arg (TeX-arg-compl-list (symbol-value list) prompt hist))) + (if (string= arg "") + default + (add-to-list list arg) + arg))) + +(defun LaTeX-pst-input-int (prompt arg) + "Return number as string asked for with PROMPT if no number +passed with ARG." + (unless (numberp arg) + (setq arg (read-number (concat prompt ": ") 2))) + (number-to-string arg)) + +(defun LaTeX-pst-enclose-obj (symbol op cl) + "Enclose string returned by the `funcall' SYMBOL in OP and CL +character." + (let ((str (funcall symbol))) + (if str (insert (char-to-string op) str (char-to-string cl))))) + +(defun LaTeX-package-parameter-value (param pname) + "Ask for possible value of parameter PARAM given as string +available through package name PNAME and return \"param=value\"." + (add-to-list (intern (concat "LaTeX-" pname "-parameters-name-list")) + param) + ;; select predefined set + (let* ((cregexp + (symbol-value + (intern (concat "LaTeX-" pname + "-parameters-completion-regexp")))) + (bregexp + (symbol-value (intern (concat "LaTeX-" pname + "-parameters-boolean-regexp")))) + (parlist (cond + ((string-match cregexp param) + (intern (concat "LaTeX-" pname "-" + (match-string 0 param) "-list"))) + ((string-match bregexp param) + 'LaTeX-pst-boolean-list))) + val compl) + ;; ask for value + (setq val (TeX-arg-compl-list + (symbol-value parlist) + (concat "(Press TAB for completions) " param) + (intern (concat "LaTeX-" pname + "-parameters-value-history")))) + ;; FIXME: This looks broken. `compl' is never set and unless "" + ;; is added to parlist (at least in the Boolean case), the prompt + ;; shown by `TeX-arg-compl-list' will be incorrect. + (if (and (not compl) parlist) (add-to-list parlist val)) + (if (string= val "") "" (concat param "=" val)))) + +(defun LaTeX-package-parameters-pref-and-chosen (param pname noskip) + "Set values for elements of PARAM from package PNAME and +further explicitly typed in parameters and return a comma +separated list as string." + (let ((allpars "") + (fask (intern (concat "LaTeX-" pname "-parameter-value"))) + tpara parval) + (when param + (while param + (setq tpara (pop param)) + (setq parval (funcall fask tpara)) + (setq allpars + (concat allpars + (if (or (string= "" allpars) (string= "" parval)) + "" ",") parval)))) + ;; ask for parameter names as long as none is given + (when noskip + (while + (not + (string= + "" + (setq tpara + (completing-read + "Parameter name (RET to stop): " + (symbol-value (intern + (concat "LaTeX-" pname + "-parameters-name-list"))) + nil nil nil (intern + (concat "LaTeX-" pname + "-parameters-name-history")))))) + (setq parval (funcall fask tpara)) + ;; concat param=value with other ones + (setq allpars + (concat allpars + (if (or (string= "" allpars) (string= "" parval)) + "" + ",") + parval)))) + (add-to-list + (intern (concat "LaTeX-" pname "-parameters-history")) allpars) + allpars)) + +(defun LaTeX-package-parameters (optional pname preparam param) + "Ask for parameters and manage several parameter lists for +package PNAME" + (let ((fask (intern + (concat "LaTeX-" pname "-parameters-pref-and-chosen"))) + (hlist (intern (concat "LaTeX-" pname "-parameters-history"))) + (nlist + (symbol-value + (intern (concat "LaTeX-" pname "-parameters-name-list"))))) + ;; + (when (and preparam (listp preparam)) + (setq preparam (funcall fask preparam))) + ;; + (setq param + (TeX-completing-read-multiple + (concat + "Params (use <Up,Down> for history or RET for choices): ") + nlist nil nil nil hlist)) + ;; + (if (not param) + (setq param (funcall fask nil t)) + (setq param (car (symbol-value hlist)))) + (TeX-argument-insert + (if (or (string= "" preparam) (eq preparam nil)) + param + (concat preparam (if (string= "" param) "" (concat "," param)))) + optional))) + +;;; Points +(defvar LaTeX-pst-point-list (list "0,0") + "A list of values for point in pstricks.") + +(defvar LaTeX-pst-point-history LaTeX-pst-point-list + "History of values for point in pstricks.") + +(defun LaTeX-pst-point () + "Ask for a point and manage point list." + (LaTeX-pst-what "point" + (concat "Point (default " (car LaTeX-pst-point-history) ")") + (car LaTeX-pst-point-history))) + +(defun LaTeX-pst-point-in-parens (_optional) + "Enclose point in parentheses." + (LaTeX-pst-enclose-obj 'LaTeX-pst-point ?\( ?\))) + +;;; Angles +(defvar LaTeX-pst-angle-list (list "0") + "A list of values for angle in pstricks.") + +(defvar LaTeX-pst-angle-history nil + "History of values for angle in pstricks.") + +(defun LaTeX-pst-angle () + "Ask for a angle and manage angle list" + (LaTeX-pst-what "angle" + (concat "Angle (default " (car LaTeX-pst-angle-list) ")") + (car LaTeX-pst-angle-list))) + +;;; Extension in one Direction +(defvar LaTeX-pst-extdir-list (list "1") + "A list of values for extdir in pstricks.") + +(defvar LaTeX-pst-extdir-history nil + "History of values for extdir in pstricks.") + +(defun LaTeX-pst-extdir (descr) + "Ask for a extdir and manage extdir list" + (LaTeX-pst-what "extdir" + (concat descr " (default " (car LaTeX-pst-extdir-list) ")") + (car LaTeX-pst-extdir-list))) + +;;; Relative Points +(defvar LaTeX-pst-delpoint-list nil + "A list of values for delpoint in pstricks.") + +(defvar LaTeX-pst-delpoint-history nil + "History of values for delpoint in pstricks.") + +;;; Arrows +(defvar LaTeX-pst-arrows-list + '("->" "<-" "<->" ">-<" ">-" "-<" "<<->>" "<<-" "->>" "|-|" "|-" "-|" + "|*-|*" "[-]" "[-" "-]" "(-)" "(-" "-)" "*-*" "*-" "-*" "0-0" "0-" + "-0" "c-c" "c-" "-c" "C-C" "C-" "-C" "cc-cc" "cc-" "-cc" "|<->|" "|<-" + "->|" "|<*->|*" "|<*-" "->|*" "-") + "A list of values for arrows in pstricks.") + +(defvar LaTeX-pst-arrows-history nil + "History of values for arrows in pstricks.") + +;; XXX: Better ask for arrow start and end separately? +;; `LaTeX-pst-arrows-list' is not exhaustive. +(defun LaTeX-pst-arrows () + "Ask for a arrow type and manage arrow type list" + (or (LaTeX-pst-what "arrows" "Arrow type" nil) "")) + +;;; Dots +(defvar LaTeX-pst-dotstyle-list + '((completing-read "Dot style" nil LaTeX-pst-dotstyle-history) + "*" "o" "+" "|" "triangle" "triangle*" "square" "square*" "pentagon" + "pentagon*") + "A list of values for dotstyle in pstricks.") + +(defvar LaTeX-pst-dotstyle-history nil + "History of values for dotstyle in pstricks.") + +;;; Reference Point +(defvar LaTeX-pst-refpoint-list + '((completing-read "Reference point" t LaTeX-pst-refpoint-history) + "l" "r" "t" "tl" "lt" "tr" "rt" "b" "bl" "br" "lb" "rb" "B" "Bl" + "Br" "lB" "rB") + "A list of values for refpoint in pstricks.") + +(defvar LaTeX-pst-refpoint-history nil + "History of values for refpoint in pstricks.") + +(defun LaTeX-pst-refpoint () + "Ask for a refpoint and manage refpoint list" + (LaTeX-pst-what "refpoint" "Reference point" nil)) + +;;; Color + +;; FIXME: Still used? +(defvar LaTeX-pst-color-history nil + "History of values for color in pstricks.") + +;;; Others without History in Completion + +(defvar LaTeX-pst-style-list + '((completing-read "Defined Style" t)) + "A list of values for user defined styles in pstricks.") + +;;; Parameters + +(defvar LaTeX-pst-parameters-history nil + "History of values for parameters in pstricks.") + +(defvar LaTeX-pst-parameters-value-history nil + "History of parameter values in pstricks.") + +(defvar LaTeX-pst-basic-parameters-name-list + '("arcsep" "arcsepA" "arcsepB" "arrowinset" "arrowlength" "arrows" + "arrowscale" "arrowsize" "border" "bordercolor" "boxsep" + "bracketlength" "cornersize" "curvature" "dash" "dimen" "dotangle" + "dotscale" "dotsep" "dotsize" "dotstyle" "doublecolor" "doubleline" + "doublesep" "doubleset" "fillcolor" "fillstyle" "framearc" + "framesep" "gangle" "gridcolor" "griddots" "gridlabelcolor" + "gridlabels" "gridwidth" "hatchangle" "hatchcolor" "hatchsep" + "hatchsepinc" "hatchwidth" "hatchwidthinc" "header" "labelsep" + "liftpen" "linearc" "linecolor" "linestyle" "linetype" "linewidth" + "rbracketlength" "ref" "runit" "shadow" "shadowangle" "shadowcolor" + "shadowsize" "showgrid" "showpoints" "style" "subgridcolor" + "subgriddiv" "subgriddots" "subgridwidth" "swapaxes" "tbarsize" + "trimode" "unit" "xunit" "yunit") + "A list of parameter names in pstricks.") + + +(defvar LaTeX-pst-boolean-list '("true" "false") + "List of binary values for key=value completion.") + +;; XXX: Colors can actually be given as [-]<color>[!<num>]. +(defvar LaTeX-pst-color-list + '("black" "darkgray" "gray" "lightgray" "white" + "red" "green" "blue" "cyan" "magenta" "yellow") + "List of colors predefined in PSTricks.") + +(defvar LaTeX-pst-fillstyle-list + '("none" "solid" "vlines" "vlines*" "hlines" "hlines*" "crosshatch" + "crosshatch*" "boxfill") + "List of fill styles defined in PSTricks.") + +;; From PSTricks: PostScript macros for Generic TeX, User's Guide, +;; Timothy Van Zandt, 25 July 2003, Version 97. +;; FIXME: Provide separate variables tailored to the different macros. +(defvar LaTeX-pst-basic-parameters-list + '(;; Dimensions, coordinates and angles + ("unit") + ("xunit") + ("yunit") + ("runit") + ;; Basic graphics parameters + ("linewidth") + ("linecolor" LaTeX-pst-color-list) + ("fillstyle" LaTeX-pst-fillstyle-list) + ("fillcolor" LaTeX-pst-color-list) + ("arrows" LaTeX-pst-arrows-list) + ("showpoints" LaTeX-pst-boolean-list) + ;; Lines and polygons + ("linearc") + ("framearc") + ("cornersize" ("relative" "absolute")) + ("gangle") + ;; Arcs, circles and ellipses + ("arcsepA") + ("arcsepB") + ("arcsep") + ;; Curves + ("curvature") + ;; Dots + ("dotstyle" ("*" "o" "Bo" "x" "+" "B+" "asterisk" "Basterisk" "oplus" + "otimes" "|" "B|" "square" "Bsquare" "square*" "diamond" + "Bdiamond" "diamond*" "triangle" "Btriangle" "triangle*" + "pentagon" "Bpentagon" "pentagon*")) + ("dotsize") + ("dotscale") + ("dotangle") + ;; Grids + ("gridwidth") + ("gridcolor" LaTeX-pst-color-list) + ("griddots") + ("gridlabels") + ("gridlabelcolor" LaTeX-pst-color-list) + ("subgriddiv") + ("subgridwidth") + ("subgridcolor" LaTeX-pst-color-list) + ("subgriddots") + ;; Plots + ("plotstyle" ("dots" "line" "polygon" "curve" "ecurve" "ccurve")) + ("plotpoints") + ;; Coordinate systems + ("origin") + ("swapaxes" LaTeX-pst-boolean-list) + ;; Line styles + ("linestyle" ("none" "solid" "dashed" "dotted")) + ("dash") + ("dotsep") + ("border") + ("bordercolor" LaTeX-pst-color-list) + ("doubleline" LaTeX-pst-boolean-list) + ("doublesep") + ("doublecolor" LaTeX-pst-color-list) + ("shadow" LaTeX-pst-boolean-list) + ("shadowsize") + ("shadowangle") + ("shadowcolor" LaTeX-pst-color-list) + ("dimen" ("outer" "inner" "middle")) + ;; Fill styles + ("hatchwidth") + ("hatchsep") + ("hatchcolor" LaTeX-pst-color-list) + ("hatchangle") + ("addfillstyle" LaTeX-pst-fillstyle-list) + ;; Arrowheads and such + ("arrowsize") + ("arrowlength") + ("arrowwinset") + ("tbarsize") + ("bracketlength") + ("rbracketlength") + ("arrowscale") + ;; Parameters + ("linetype") + ;; Graphics objects + ("liftpen") + ;; Placing and rotating whatever + ("labelsep") + ;; Axes + ("labels" ("all" "x" "y" "none")) + ("showorigin" LaTeX-pst-boolean-list) + ("ticks" ("all" "x" "y" "none")) + ("tickstyle" ("full" "top" "bottom")) + ("ticksize") + ("axesstyle" ("axes" "frame" "none")) + ;; Framed boxes + ("framesep") + ("boxsep") + ("trimode" ("*" "U" "D" "R" "L")) + ;; Nodes + ("href") + ("vref") + ("radius") + ;; Node connections + ("nodesep") + ("arcangle") + ("angle") + ("arm") + ("loopsize") + ("ncurv") + ("boxsize") + ("offset") + ;; Node connections labels: I + ("ref") + ("nrot") + ("npos") + ("shortput" ("none" "nab" "tablr" "tab")) + ;; Node connection labels: II + ("tpos") + ;; Attaching labels to nodes + ("rot") + ;; Mathematical diagrams and graphs + ("mnode" ("R" "r" "C" "f" "p" "circle" "oval" "dia" "tri" "dot" "none")) + ("emnode" ("R" "r" "C" "f" "p" "circle" "oval" "dia" "tri" "dot" "none")) + ("name") + ("nodealign" LaTeX-pst-boolean-list) + ("mcol" ("l" "r" "c")) + ("rowsep") + ("colsep") + ("mnodesize") + ;; ... + ) + "List of keys and values for PSTricks macro arguments.") + +(defvar LaTeX-pst-parameters-name-list + LaTeX-pst-basic-parameters-name-list + "A list of all parameters with completion.") + +(defvar LaTeX-pst-parameters-name-history nil + "History of parameter names in pstricks.") + +(defvar LaTeX-pst-parameters-completion-regexp + "\\(arrows\\|linestyle\\|fillstyle\\|color\\|trimode\\|dotstyle\\|\\<style\\)" + "Regexp for `string-match'ing a parameter.") + +(defvar LaTeX-pst-parameters-boolean-regexp + "\\(doubleline\\|shadow\\>\\|show[a-zA-Z]+\\)" + "Regexp for `string-match'ing a parameter.") + +(defun LaTeX-pst-parameter-value (param) + "See documentation of `LaTeX-package-parameter-value'." + (LaTeX-package-parameter-value param "pst")) + +(defun LaTeX-pst-parameters-pref-and-chosen (param &optional noskip) + "See documentation of `LaTeX-package-parameters-pref-and-chosen'." + (LaTeX-package-parameters-pref-and-chosen param "pst" noskip)) + +;; FIXME: This is likely only a transitional function used until all +;; macros got their calls to `TeX-arg-key-val' with tailored parameter +;; lists. +(defun LaTeX-pst-parameters (optional) + "Prompt for general parameters of a PSTricks argument." + (TeX-arg-key-val optional LaTeX-pst-basic-parameters-list)) + +;;; Macros +(defun LaTeX-pst-macro-psarc (_optional &optional _arg) + "Return \\psarc arguments after querying." + (let ((arrows (LaTeX-pst-arrows)) + (pnt (if current-prefix-arg nil (LaTeX-pst-point)))) + (insert (if arrows (format "{%s}" arrows) "") + (if pnt (format "(%s)" pnt) "") + "{" (LaTeX-pst-extdir "Radius") "}{" (LaTeX-pst-angle) "}{" + (LaTeX-pst-angle) "}"))) + +(defun LaTeX-pst-macro-pscircle (_optional &optional _arg) + "Return \\pscircle arguments after querying." + (insert "(" (LaTeX-pst-point) "){" (LaTeX-pst-extdir "Radius") "}")) + +(defun LaTeX-pst-macro-rput (_optional &optional _arg) + "Return \\rput arguments after querying." + (let ((refpoint (LaTeX-pst-refpoint)) + (rotation (if current-prefix-arg (LaTeX-pst-angle) nil))) + (insert (if refpoint (concat "[" refpoint "]") "") + (if rotation + (concat "{" rotation "}") + "") "(" (LaTeX-pst-point) ")"))) + +(defun LaTeX-pst-macro-uput (_optional &optional _arg) + "Return \\uput arguments after querying." + (let ((dist (LaTeX-pst-extdir "Distance")) + (refpoint (LaTeX-pst-refpoint))) + (insert (if dist (concat "{" dist "}") "") + (if refpoint + (concat "[" (LaTeX-pst-refpoint) "]") + "[]") + "{" (LaTeX-pst-angle) "}(" (LaTeX-pst-point) ")"))) + +(defun LaTeX-pst-macro-multirputps (_optional &optional _arg) + "Return \\multirput or \\multips arguments after querying." + (let ((refpoint (LaTeX-pst-refpoint)) + (rotation (if current-prefix-arg (LaTeX-pst-angle) nil)) + (pnt (LaTeX-pst-point)) + (dpnt (LaTeX-pst-what "delpoint" "Increment (default 1,1)" "1,1")) + (repi (LaTeX-pst-input-int "Repetitions" nil))) + (insert (if refpoint (format "[%s]" refpoint) "") + (if rotation (format "{%s}" rotation) "") + "(" pnt ")(" dpnt "){" repi "}"))) + +(defun LaTeX-pst-macro-psline (_optional &optional _arg) + "Return \\psline or \\ps[ce]?curve[*] arguments after querying." + (let ((arrows (LaTeX-pst-arrows)) + (pnt1 (LaTeX-pst-point)) + (pnt2 (LaTeX-pst-point))) + (insert (if arrows (format "{%s}" arrows) "") "(" pnt1 ")" ) + (while (and (not (string= pnt2 "")) (not (string= pnt1 pnt2))) + (insert "(" pnt2 ")") + (setq pnt1 pnt2) + (setq pnt2 (LaTeX-pst-point))))) + +(defun LaTeX-pst-macro-psdots (_optional single) + "Return \\psdot[s]? arguments after querying." + (let* ((pnt1 (LaTeX-pst-point)) + (pnt2 (if single pnt1 (LaTeX-pst-point)))) + (insert "(" pnt1 ")") + (while (and (not (string= pnt2 "")) (not (string= pnt1 pnt2))) + (setq pnt1 pnt2) + (insert "(" pnt1 ")") + (setq pnt2 (LaTeX-pst-point))))) + +(defun LaTeX-pst-macro-parabola (_optional &optional _arg) + "Return \\parabola arguments after querying." + (let ((arrows (LaTeX-pst-arrows))) + (insert (if arrows (format "{%s}" arrows) "") + "(" (LaTeX-pst-point) ")(" (LaTeX-pst-point) ")"))) + +(defun LaTeX-pst-macro-pnt-twolen (_optional prompt1 prompt2) + "Return point and 2 paired lengths in separate parens as arguments." + ;; insert \psellipse[*]?, \psdiamond or \pstriangle arguments + (let ((pnt (if current-prefix-arg nil (LaTeX-pst-point)))) + (insert (if pnt (format "(%s)" pnt) "") + "(" (LaTeX-pst-extdir prompt1) "," + (LaTeX-pst-extdir prompt2) ")"))) + +(defun LaTeX-pst-macro-psbezier (_optional &optional _arg) + "Return \\psbezier arguments after querying." + (let ((arrows (LaTeX-pst-arrows)) + (pnt1 (LaTeX-pst-point)) + (pnt2 (LaTeX-pst-point)) + (pnt3 (LaTeX-pst-point))) + (insert (if arrows (format "{%s}" arrows) "") + "(" pnt1 ")(" pnt2 ")") + (while (not (string= pnt2 pnt3)) + (insert "(" pnt3 ")") + (setq pnt2 pnt3) + (setq pnt3 (LaTeX-pst-point))))) + +(defun LaTeX-pst-macro-pspolygon (_optional &optional _arg) + "Return \\pspolygon arguments after querying." + (let ((pnt1 (LaTeX-pst-point)) + (pnt2 (LaTeX-pst-point)) + (pnt3 (LaTeX-pst-point))) + (insert "(" pnt1 ")(" pnt2 ")") + (while (not (string= pnt2 pnt3)) + (insert "(" pnt3 ")") + (setq pnt2 pnt3) + (setq pnt3 (LaTeX-pst-point))))) + +(defun LaTeX-pst-macro-psframe (_optional &optional _arg) + "Return \\psframe arguments after querying." + (let ((pnt1 (if current-prefix-arg nil (LaTeX-pst-point))) + (pnt2 (LaTeX-pst-point))) + (insert (if pnt1 (format "(%s)" pnt1) "") "(" pnt2 ")"))) + +(defun LaTeX-pst-macro-psgrid (_optional &optional _arg) + "Return \\psgrid arguments after querying." + (let* ((cpref (if current-prefix-arg (car current-prefix-arg) 0)) + (pnt1 (if (> cpref 4) (LaTeX-pst-point) nil)) + (pnt2 (if (> cpref 0) (LaTeX-pst-point) nil)) + (pnt3 (if (> cpref 0) (LaTeX-pst-point) nil))) + (insert (if pnt1 (format "(%s)" pnt1) "") + (if pnt2 (format "(%s)(%s)" pnt2 pnt3) "")))) + +(defun LaTeX-pst-macro-newpsobject (&optional _arg) + "Return \\newpsobject arguments after querying." + (insert "{" (TeX-read-string "New PSObject Name: ") "}" + ;; FIXME: It would be better to use something more confined + ;; than `TeX-symbol-list'. + "{" (completing-read "Parent Object: " (TeX-symbol-list)) + "}")) + +;;; Environments +(defun LaTeX-pst-env-pspicture (env) + "Create new pspicure environment." + (let ((opt (multi-prompt-key-value + (TeX-argument-prompt t "Options" nil) + '(("showgrid") ("shift")))) + (p0 (LaTeX-pst-what "point" "Lower left (default 0,0)" "0,0")) + (p1 (LaTeX-pst-what "point" "Upper right (default 1,1)" "1,1")) + corn) + (setq corn (concat (unless (string= "" opt) (format "[%s]" opt)) + (if (string= "0,0" p0) "" (format "(%s)" p0)) + "(" p1 ")")) + (LaTeX-insert-environment env corn))) + +;;; Self Parsing -- see (info "(auctex)Hacking the Parser") +(defvar LaTeX-auto-pstricks-regexp-list + '(("\\\\newps\\(object\\){\\([a-zA-Z]+\\)}{\\([a-zA-Z]+\\)}" (1 2 3) + LaTeX-auto-pstricks) + ("\\\\newps\\(fontdot\\){\\([a-zA-Z]+\\)}" (1 2) + LaTeX-auto-pstricks) + ("\\\\newps\\(style\\){\\([a-zA-Z]+\\)}" (1 2) + LaTeX-auto-pstricks) + ("\\\\define\\(color\\){\\([a-zA-Z]+\\)}{\\(rgb\\|cmyk\\)}" (1 2 3) + LaTeX-auto-pstricks) + ("\\\\new\\(rgb\\|hsb\\|cmyk\\)\\(color\\){\\([a-zA-Z]+\\)}" (2 3 1) + LaTeX-auto-pstricks)) + "List of regular expressions to extract arguments of \\newps* macros.") + +(defvar LaTeX-auto-pstricks nil + "Temporary for parsing \\newps* definitions.") + +(defun LaTeX-pst-cleanup () + "Move symbols from `LaTeX-auto-pstricks' to `TeX-auto-symbol'." + (mapcar + (lambda (list) + (let ((type (car list))) + (cond ((string= type "object") + (setq TeX-auto-symbol + (cons (list (nth 1 list) + (cl-caddr (assoc (nth 2 list) + (TeX-symbol-list)))) + TeX-auto-symbol))) + ((string= type "fontdot") + (add-to-list 'LaTeX-pst-dotstyle-list (nth 1 list) t)) + ((string= type "style") + (add-to-list 'LaTeX-pst-style-list (nth 1 list) t)) + ((string= type "color") + (add-to-list 'LaTeX-pst-color-list (nth 1 list) t) + ;; FIXME: Why is an entry with "-" in front added? + (add-to-list 'LaTeX-pst-color-list + (concat "-" (nth 1 list)) t))))) + LaTeX-auto-pstricks)) + +(defun LaTeX-pst-prepare () + "Clear `LaTeX-auto-pstricks' before use." + (setq LaTeX-auto-pstricks nil)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-pst-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-pst-cleanup ) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +;;; Additional Functionality +(defun LaTeX-pst-parameters-add (&optional arg) + "With ARG as prefix-argument insert new parameter\(s\) behind +nearest backward LaTeX macro in brackets. Without ARG add +parameter\(s\) to the already existing ones at the end of the +comma separated list. Point has to be within the sexp to modify." + (interactive "P") + (let ((newpara (LaTeX-pst-parameters-pref-and-chosen nil t)) + (regexp "\\(") end check) + (if arg + (progn + (re-search-backward "\\\\\\([a-zA-Z]\\)") + (forward-word 1) + (insert-pair nil ?\[ ?\])) + (up-list 1) + (backward-char 1) + (save-excursion + (setq end (point)) + (up-list -1) + (while (re-search-forward "\\([a-zA-Z]+\\)=" end 'limit) + (setq regexp (concat regexp + (match-string-no-properties 1) "\\|"))) + (setq regexp (concat (substring regexp 0 -1) ")")) + (setq check (string-match regexp newpara)))) + (when newpara + (insert (if arg "" ",") newpara) + (when check + (message + "At least one Parameters appears twice. PLEASE CHECK!"))))) +;; FIXME: Only define a key for this once it is a general-purpose +;; facility, i.e. not just for pstricks but all types of macros. +;; (define-key LaTeX-mode-map "\C-c\C-x\C-a" 'LaTeX-pst-parameters-add) + +(defvar LaTeX-pst-value-regexp + "\\([-!.a-zA-Z0-9]*\\s\\?[-!.a-zA-Z0-9]+\\)" + "Expression matching a parameter value.") + +(defun LaTeX-pst-parameter-remove-value () + "Remove value of current parameter and return parameter name." + (re-search-backward + (concat "\\(\\s(\\|,\\)[a-zA-Z]+\\([a-zA-Z]\\|=\\|=" + LaTeX-pst-value-regexp "\\)")) + (re-search-forward "\\([a-zA-Z]+\\)=") + (let ((para (match-string-no-properties 1))) + (re-search-forward LaTeX-pst-value-regexp) + (delete-region (match-beginning 1) (match-end 1)) + para)) + +(defun LaTeX-pst-parameter-change-value () + "Replace parameter value with a new one." + (interactive) + (let* ((para (LaTeX-pst-parameter-remove-value)) + (symb + (when (and + (string-match + LaTeX-pst-parameters-completion-regexp para) + (boundp + (intern + (concat "LaTeX-pst-" (match-string 0 para) "-list")))) + (intern (concat "LaTeX-pst-" (match-string 0 para) + "-list"))))) + (insert (TeX-arg-compl-list (symbol-value symb) "New Value" + 'LaTeX-pst-parameters-value-history)))) +;; FIXME: Only define a key for this once it is a general-purpose +;; facility, i.e. not just for pstricks but all types of macros. (See +;; also `LaTeX-pst-parameters-add'. Note that a parameter change +;; should better be made available through a `C-u' prefix of the +;; binding for the function doing the parameter addition.) +;; (define-key LaTeX-mode-map "\C-c\C-x\C-v" 'LaTeX-pst-parameter-change-value) + +(TeX-add-style-hook + "pstricks" + (lambda () + (unless (or (member "pst-pdf" TeX-active-styles) + (eq TeX-engine 'xetex)) + ;; Leave at user's choice whether to disable `TeX-PDF-mode' or + ;; not. Instead set up `TeX-PDF-from-DVI' option so that AUCTeX + ;; takes dvips+ps2pdf route when `TeX-PDF-mode' is enabled. + ;; (TeX-PDF-mode-off) + (setq TeX-PDF-from-DVI "Dvips")) + (mapc #'TeX-auto-add-regexp LaTeX-auto-pstricks-regexp-list) + (LaTeX-add-environments + '("pspicture" LaTeX-pst-env-pspicture) + "overlaybox" "psclip") + (TeX-add-symbols + '("AltClipMode" 0) '("DontKillGlue" 0) '("KillGlue" 0) + '("NormalCoor" 0) '("SpecialCoor" 0) '("PSTricksLoaded" 0) + '("PSTricksOff" 0) '("altcolormode" 0) '("pslinecolor" 0) + '("pslinestyle" 0) '("pslinetype" 0) '("pslinewidth" 0) + '("pslabelsep" 0) '("radian" 0) '("psunit" 0) '("psrunit" 0) + '("psxunit" 0) '("psyunit" 0) + '("arrows" (TeX-arg-eval LaTeX-pst-arrows)) + '("clipbox" ["Border"] t) + '("closedshadow" [LaTeX-pst-parameters]) + '("openshadow" [LaTeX-pst-parameters]) + "closepath" "code" "coor" "curveto" "degrees" "dim" "endpsclip" + "file" "fill" "grestore" "gsave" "lineto" "movepath" "moveto" + "mrestore" "msave" "newpath" "rcoor" "rcurveto" "rlineto" "rotate" + "scale" "stroke" "swapaxes" "translate" + '("newcmykcolor" "Name" "Quadruple") + '("newrgbcolor" "Name" "Triple") '("newhsbcolor" "Name" "Triple") + '("newgray" "Name" "Value") + '("newpsobject" LaTeX-pst-macro-newpsobject LaTeX-pst-parameters) + '("newpsstyle" "New PSStyle Name" LaTeX-pst-parameters) + '("newpsfontdot" "New PSDot Name" ["Factors"] + "Fontname" "Character Number (Hex)") + '("parabola" [LaTeX-pst-parameters] LaTeX-pst-macro-parabola) + '("parabola*" [LaTeX-pst-parameters] LaTeX-pst-macro-parabola) + '("psarc" [LaTeX-pst-parameters] LaTeX-pst-macro-psarc) + '("psarc*" [LaTeX-pst-parameters] LaTeX-pst-macro-psarc) + '("psarcn" [LaTeX-pst-parameters] LaTeX-pst-macro-psarc) + '("pswedge" [LaTeX-pst-parameters] LaTeX-pst-macro-psarc) + '("psbezier" [LaTeX-pst-parameters] LaTeX-pst-macro-psbezier) + '("psbezier*" [LaTeX-pst-parameters] LaTeX-pst-macro-psbezier) + '("pscbezier" [LaTeX-pst-parameters] LaTeX-pst-macro-pspolygon) + '("pscircle" [LaTeX-pst-parameters] LaTeX-pst-macro-pscircle) + '("psccurve" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) + '("psccurve*" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) + '("pscurve" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) + '("pscurve*" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) + '("pscustom" [LaTeX-pst-parameters]) + '("psdiamond" [LaTeX-pst-parameters] + (LaTeX-pst-macro-pnt-twolen "Width" "Height")) + '("pstriangle" [LaTeX-pst-parameters] + (LaTeX-pst-macro-pnt-twolen "Width" "Height")) + '("psdot" [LaTeX-pst-parameters] (LaTeX-pst-macro-psdots t)) + '("psdots" [LaTeX-pst-parameters] (LaTeX-pst-macro-psdots nil)) + '("psecurve" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) + '("psecurve*" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) + '("psellipse" [LaTeX-pst-parameters] + (LaTeX-pst-macro-pnt-twolen "Radius x" "Radius y")) + '("psellipse*" [LaTeX-pst-parameters] + (LaTeX-pst-macro-pnt-twolen "Radius x" "Radius y")) + '("psframe" [LaTeX-pst-parameters] LaTeX-pst-macro-psframe) + '("psframe*" [LaTeX-pst-parameters] LaTeX-pst-macro-psframe) + '("psframebox" [LaTeX-pst-parameters] t) + '("pscirclebox" [LaTeX-pst-parameters] t) + '("psdblframebox" [LaTeX-pst-parameters] t) + '("psdiabox" [LaTeX-pst-parameters] t) + '("psovalbox" [LaTeX-pst-parameters] t) + '("psshadowbox" [LaTeX-pst-parameters] t) + '("pstribox" [LaTeX-pst-parameters] t) + '("psscalebox" "Scaling Factor(s)" t) + '("psscaleboxto" LaTeX-pst-point-in-parens t) + '("psgrid" [LaTeX-pst-parameters] LaTeX-pst-macro-psgrid 0) + '("psline" [LaTeX-pst-parameters] LaTeX-pst-macro-psline) + '("psoverlay" t) + '("pspolygon" [LaTeX-pst-parameters] LaTeX-pst-macro-pspolygon) + '("pspolygon*" [LaTeX-pst-parameters] LaTeX-pst-macro-pspolygon) + '("psset" LaTeX-pst-parameters) + '("pssetlength" TeX-arg-macro "Length") + '("psaddtolength" TeX-arg-macro "Length") + '("degrees" ["Full Circle"]) + '("qdisk" LaTeX-pst-point-in-parens "Radius") + '("qline" LaTeX-pst-point-in-parens LaTeX-pst-point-in-parens) + "pslongbox" "psrotatedown" "psrotateleft" "psrotateright" + '("rput" LaTeX-pst-macro-rput t) + '("rput*" LaTeX-pst-macro-rput t) + '("cput" [LaTeX-pst-parameters] + (TeX-arg-eval LaTeX-pst-angle) LaTeX-pst-point-in-parens t) + '("uput" LaTeX-pst-macro-uput t) + '("multirput" (LaTeX-pst-macro-multirputps t) t) + '("multips" (LaTeX-pst-macro-multirputps nil) t))) + TeX-dialect) + +(defvar LaTeX-pstricks-package-options + '("97" "plain" "DIA" "vtex" "distiller" "noxcolor") + "Package options for pstricks.") + +;;; pstricks.el ends here diff --git a/elpa/auctex-13.1.3/style/pstricks.elc b/elpa/auctex-13.1.3/style/pstricks.elc Binary files differnew file mode 100644 index 0000000..2ba6337 --- /dev/null +++ b/elpa/auctex-13.1.3/style/pstricks.elc diff --git a/elpa/auctex-13.1.3/style/pythontex.el b/elpa/auctex-13.1.3/style/pythontex.el new file mode 100644 index 0000000..01c6ed9 --- /dev/null +++ b/elpa/auctex-13.1.3/style/pythontex.el @@ -0,0 +1,569 @@ +;;; pythontex.el --- AUCTeX style for `pythontex.sty' (v0.16) -*- lexical-binding: t; -*- + +;; Copyright (C) 2018--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2018-12-01 +;; 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 `pythontex.sty' v0.16 from +;; 2017/07/20. `pythontex.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: + +;; The function `LaTeX-fancyvrb-key-val-options' will be defined after +;; loading `fvextra.el' which loads `fancyvrb.el' in return: +(declare-function LaTeX-fancyvrb-key-val-options "fancyvrb" ()) + +;; These are provided by `font-latex.el': +(defvar font-latex-syntactic-keywords-extra) +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(declare-function font-latex-set-syntactic-keywords + "font-latex") + +;; The next two are provided by `newfloat.el': +(declare-function LaTeX-add-newfloat-DeclareFloatingEnvironments + "newfloat" + (&rest newfloat-declarefloatingenvironments)) +(declare-function LaTeX-newfloat-auto-cleanup + "newfloat" ()) + +(defvar LaTeX-pythontex-pygmentize-program (executable-find "pygmentize") + "Path to pygmentize executable.") + +(defvar LaTeX-pythontex-language-list nil + "List containing languages provided by pymentize program.") + +(defun LaTeX-pythontex-language-list (&rest _ignored) + "Return a list of languages provided by pymentize program. +Update the variable `LaTeX-pythontex-language-list' if still nil." + (or LaTeX-pythontex-language-list + (when LaTeX-pythontex-pygmentize-program + (with-temp-buffer + (shell-command (concat LaTeX-pythontex-pygmentize-program " -L lexers") + (current-buffer)) + (goto-char (point-min)) + (let (languages) + (while (re-search-forward "^\\*[[:space:]]\\([^:]+\\):" nil t) + (dolist (lang (split-string (match-string 1) "[[:space:],]" t)) + (push lang languages))) + (setq LaTeX-pythontex-language-list languages)))))) + +(defvar LaTeX-pythontex-package-options-list + `(("usefamily" ("py" "sympy" "pylab" "rb" "ruby" "jl" "julia" "octave")) + ("gobble" ("none" "auto")) + ("beta" ("true" "false")) + ("runall" ("true" "false")) + ("rerun" ("never" "modified" "errors" "warnings" "always")) + ("hashdependencies" ("true" "false")) + ("autoprint" ("true" "false")) + ("autostdout" ("true" "false")) + ("debug") + ("makestderr" ("true" "false")) + ("stderrfilename" ("full" "session" "genericfile" "genericscript")) + ("pyfuture" ("none" "all" "default")) + ("pyconfuture" ("none" "all" "default")) + ("upquote" ("true" "false")) + ("fixlr" ("true" "false")) + ("keeptemps" ("all" "code" "none")) + ("prettyprinter" ("pygments" "fancyvrb")) + ("prettyprintinline" ("true" "false")) + ("pygments" ("true" "false")) + ("pyginline" ("true" "false")) + ("pyglexer" ,(LaTeX-pythontex-language-list)) + ("pygopt" ("style" "texcomments" "mathescape")) + ("fvextfile") + ("pyconbanner" ("none" "standard" "default" "pyversion")) + ("pyconfilename" ("stdin" "console")) + ("depythontex" ("true" "false"))) + "Package options for the pythontex package.") + +(defun LaTeX-pythontex-package-options () + "Prompt for package options for the pythontex package." + (TeX-read-key-val t LaTeX-pythontex-package-options-list)) + +(defvar LaTeX-pythontex-family-list + '("py" "sympy" "pylab" "rb" "ruby" "jl" "julia" "octave") + "List of language families provided by pythontex package.") + +(defun LaTeX-env-pythontex (environment) + "Insert ENVIRONMENT provided by pythontex package." + (let ((session (TeX-read-string + (TeX-argument-prompt t nil "Session"))) + (fvkeyval (TeX-read-key-val t (LaTeX-fancyvrb-key-val-options)))) + (LaTeX-insert-environment environment + (concat + (when (and session (not (string= session ""))) + (concat LaTeX-optop session LaTeX-optcl)) + ;; We need an extra pair of brackets + ;; when no session is given but + ;; key=vals are available + (when (and session (string= session "") + fvkeyval (not (string= fvkeyval ""))) + (concat LaTeX-optop LaTeX-optcl)) + (when (and fvkeyval (not (string= fvkeyval ""))) + (concat LaTeX-optop fvkeyval LaTeX-optcl)))))) + +;; Setup for \saveprintpythontex & \savestdoutpythontex & +;; \savestderrpythontex +(TeX-auto-add-type "pythontex-savecontent" "LaTeX") + +(defvar LaTeX-pythontex-savecontent-regexp + `(,(concat "\\\\" + (regexp-opt '("saveprintpythontex" + "savestdoutpythontex" + "savestderrpythontex") + "\\(?:") + "{\\([^}]+\\)}") + 1 LaTeX-auto-pythontex-savecontent) + "Matches the argument of \\save(print|stdout|stderr)pythontex macros.") + +;; Setup for \setpythontexlistingenv: +(TeX-auto-add-type "pythontex-setpythontexlistingenv" "LaTeX") + +(defvar LaTeX-pythontex-setpythontexlistingenv-regexp + '("\\\\setpythontexlistingenv{\\([^}]+\\)}" + 1 LaTeX-auto-pythontex-setpythontexlistingenv) + "Matches the argument of \\setpythontexlistingenv macro.") + +(defun LaTeX-pythontex-auto-prepare () + "Clear various `LaTeX-auto-pythontex-*' before parsing." + (setq LaTeX-auto-pythontex-savecontent nil + LaTeX-auto-pythontex-setpythontexlistingenv nil)) + +(defun LaTeX-pythontex-auto-cleanup () + "Process the parsing results for \\setpythontexlistingenv macro." + ;; Use `LaTeX-add-newfloat-DeclareFloatingEnvironments' on parsed + ;; elements and then run `LaTeX-newfloat-auto-cleanup'. + (dolist (env (mapcar #'car (LaTeX-pythontex-setpythontexlistingenv-list))) + (LaTeX-add-newfloat-DeclareFloatingEnvironments `(,env "verbatim"))) + (LaTeX-newfloat-auto-cleanup)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-pythontex-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-pythontex-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun LaTeX-pythontex-add-syntactic-keywords-extra (type macro) + "Add MACRO from pythontex.sty to `font-latex-syntactic-keywords-extra'. +TYPE is one of the symbols `brace' or `delim' indicating how +verbatim text is enclosed after the macro. MACRO is a string or +a list of strings." + (let ((syntax (if (eq type 'brace) + '((1 "|") (2 "|")) + '((1 "\"") (2 ".") (3 "\"")))) + regexp) + (when (listp macro) + (setq macro (regexp-opt macro "\\(?:"))) + (setq regexp `(,(concat + ;; The backslash + (regexp-quote TeX-esc) + ;; Name of the macro(s) + macro + ;; The first mandatory argument is the lexer + "\\(?:{[^}]+}\\)" + ;; With 'brace, allow braced sub-groups otherwise + ;; we stop matching too early. With 'delim, copy + ;; font-latex.el: + (if (eq type 'brace) + (concat "\\({\\)" + "\\(?:[^}{]*" + "\\(?:{[^}{]*" + "\\(?:{[^}{]*" + "\\(?:{[^}{]*}[^}{]*\\)*" + "}[^}{]*\\)*" + "}[^}{]*\\)*" + "\\)" + "\\(}\\)") + (concat + ;; Opening delimiter + "\\([^a-z@*\n\f{]\\).*?" + ;; Closing delimiter + "\\(" (regexp-quote TeX-esc) "*\\)\\(\\1\\)"))))) + (add-to-list 'font-latex-syntactic-keywords-extra (append regexp syntax)))) + +(TeX-add-style-hook + "pythontex" + (lambda () + + ;; Load only the relevant style hooks within AUCTeX + (TeX-run-style-hooks "fvextra" "newfloat") + + ;; Add pythontex to the parser: + (TeX-auto-add-regexp LaTeX-pythontex-savecontent-regexp) + (TeX-auto-add-regexp LaTeX-pythontex-setpythontexlistingenv-regexp) + + ;; We need this for Filling: + (make-local-variable 'LaTeX-indent-environment-list) + + ;; 4.2.4 Default families + (let* ((verb-macs '(;; python + "py" "pyc" "pys" "pyv" "pyb" + "pycon" "pyconc" "pyconv" + ;; Python + pylab (matplotlib module) + "pylab" "pylabc" "pylabs" "pylabv" "pylabb" + "pylabcon" "pylabconc" "pylabconv" + ;; Python + SymPy + "sympy" "sympyc" "sympys" "sympyv" "sympyb" + "sympycon" "sympyconc" "sympyconv")) + (verb-envs '(;;python + "pycode" "pysub" "pyverbatim" "pyblock" + "pyconsole" "pyconcode" "pyconverbatim" + ;; Python + pylab (matplotlib module) + "pylabcode" "pylabsub" "pylabverbatim" "pylabblock" + "pylabconsole" "pylabconcode" "pylabconverbatim" + ;; Python + SymPy + "sympycode" "sympysub" "sympyverbatim" "sympyblock" + "sympyconsole" "sympyconcode" "sympyconverbatim")) + (verb-envs-regexp (regexp-opt verb-envs "\\(?:"))) + (apply #'TeX-add-symbols + (mapcar (lambda (mac) + (list mac [ "Session" ] #'TeX-arg-verb-delim-or-brace)) + verb-macs)) + (apply #'LaTeX-add-environments + (mapcar (lambda (env) + (list env #'LaTeX-env-pythontex)) + verb-envs)) + ;; Filling: + (dolist (mac verb-macs) + (add-to-list 'LaTeX-verbatim-macros-with-delims-local mac) + (add-to-list 'LaTeX-verbatim-macros-with-braces-local mac)) + (dolist (env verb-envs) + (add-to-list 'LaTeX-indent-environment-list + `(,env current-indentation) t)) + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (fboundp 'font-latex-set-syntactic-keywords) + (boundp 'font-latex-syntactic-keywords-extra) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords (mapcar (lambda (mac) + (list mac "[")) + verb-macs) + 'textual) + ;; We can't use the fontification provided when verbatim + ;; environments are added to + ;; `LaTeX-verbatim-environments-local' -- pythontex + ;; environments have 2 optional arguments and `font-latex.el' + ;; recognizes only 1 optional which breaks the fontification. + ;; We add the envs to `font-latex-syntactic-keywords-extra' and + ;; define a customized regexp to match 2 optional arguments. + (add-to-list 'font-latex-syntactic-keywords-extra + `(,(concat + "^[ \t]*\\\\begin *{\\(?:" + verb-envs-regexp + "\\)}" + "[ \t]*\\(?:%.*\n[ \t]*\\)?" + "\\(?:\\[[^][]*\\(?:\\[[^][]*\\][^][]*\\)*\\]\\)\\{0,2\\}" + "\\(\n\\|.\\)") + (1 "|" t))) + (add-to-list 'font-latex-syntactic-keywords-extra + `(,(concat "\\(\\\\\\)end *{\\(?:" + verb-envs-regexp + "\\)}") + (1 "|" t)))) + ;; Tell font-lock about the update. + (font-latex-set-syntactic-keywords)) + + (TeX-add-symbols + ;; 4.2.5 Custom code + ;; pythontexcustomc[<position>]{<family>}{<code>} + '("pythontexcustomc" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Position") + '("begin" "end") ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Family") + LaTeX-pythontex-family-list) + t) + + ;; 4.2.7 Formatting of typeset code + ;; \setpythontexfv[<family>]{<fancyvrb settings>} + '("setpythontexfv" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Family") + LaTeX-pythontex-family-list ] + (TeX-arg-key-val (LaTeX-fancyvrb-key-val-options))) + + ;; \setpythontexprettyprinter[<family>]{<printer>} + '("setpythontexprettyprinter" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Family") + (cons "auto" LaTeX-pythontex-family-list) ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Printer") + '("text" "bw" "fancyvrb" "pygments"))) + + ;; \setpythontexpyglexer[<family>]{<pygments lexer>} + '("setpythontexpyglexer" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Family") + LaTeX-pythontex-family-list ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Pygments lexer") + (LaTeX-pythontex-language-list))) + + ;; \setpythontexpygopt[<family>]{<pygments options>} + '("setpythontexpygopt" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Family") + LaTeX-pythontex-family-list ] + (TeX-arg-key-val + (("style") ("texcomments") ("mathescape")))) + + ;; 4.2.8 Access to printed content (stdout) + ;; \printpythontex[<mode>][<options>] + '("printpythontex" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Mode") + '("raw" "verb" "verbatim") ] + [ TeX-arg-key-val (LaTeX-fancyvrb-key-val-options) ] ) + + ;; \stdoutpythontex[<mode>][<options>] + '("stdoutpythontex" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Mode") + '("raw" "verb" "verbatim") ] + [ TeX-arg-key-val (LaTeX-fancyvrb-key-val-options) ] ) + + ;;\saveprintpythontex{<name>} + '("saveprintpythontex" + (TeX-arg-eval (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-pythontex-savecontents name) + (format "%s" name))))) + + ;;\savestdoutpythontex{<name>} + '("savestdoutpythontex" + (TeX-arg-eval (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-pythontex-savecontents name) + (format "%s" name))))) + + ;; \useprintpythontex[<verbatim options>][<fancyvrb options>]{<name>} + ;; I assume <verbatim options> is meant to be <mode> + '("useprintpythontex" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Mode") + '("raw" "verb" "verbatim") ] + [ TeX-arg-key-val (LaTeX-fancyvrb-key-val-options) ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + (LaTeX-pythontex-savecontent-list))) + + ;; \usestdoutpythontex[<verbatim options>][<fancyvrb options>]{<name>} + ;; I assume <verbatim options> is meant to be <mode> + '("usestdoutpythontex" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Mode") + '("raw" "verb" "verbatim") ] + [ TeX-arg-key-val (LaTeX-fancyvrb-key-val-options) ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + (LaTeX-pythontex-savecontent-list))) + + ;; \stderrpythontex[<mode>][<fancyvrb options>] + '("stderrpythontex" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Mode") + '("raw" "verb" "verbatim") ] + [ TeX-arg-key-val (LaTeX-fancyvrb-key-val-options) ] ) + + + ;;\savestderrpythontex{<name>} + '("savestderrpythontex" + (TeX-arg-eval (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Name")))) + (LaTeX-add-pythontex-savecontents name) + (format "%s" name))))) + + ;; \usestderrpythontex[<mode>][<fancyvrb options>]{<name>} + '("usestderrpythontex" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Mode") + '("raw" "verb" "verbatim") ] + [ TeX-arg-key-val (LaTeX-fancyvrb-key-val-options) ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Name") + (LaTeX-pythontex-savecontent-list))) + + ;;\setpythontexautoprint{<boolean>} + '("setpythontexautoprint" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Boolean value") + '("true" "false"))) + + ;; \setpythontexautostdout{<boolean>} + '("setpythontexautostdout" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Boolean value") + '("true" "false"))) + + ;; 4.3 Pygments commands and environments + ;; \pygment{<lexer>}<opening delim><code><closing delim> + '("pygment" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Lexer") + (LaTeX-pythontex-language-list)) + TeX-arg-verb-delim-or-brace) + + ;; \inputpygments[<fancyvrb settings>]{<lexer>}{<external file>} + '("inputpygments" + [ TeX-arg-eval (LaTeX-fancyvrb-key-val-options) ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Lexer") + (LaTeX-pythontex-language-list)) + TeX-arg-file-name) + + ;; \setpygmentsfv[<lexer>]{<fancyvrb settings>} + '("setpygmentsfv" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Lexer") + (LaTeX-pythontex-language-list) ] + (TeX-arg-eval (LaTeX-fancyvrb-key-val-options))) + + ;; \setpygmentspygopt[<lexer>]{<pygments options>} + '("setpygmentspygopt" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Lexer") + (LaTeX-pythontex-language-list) ] + (TeX-arg-key-val + (("style") ("texcomments") ("mathescape")))) + + ;; \setpygmentsprettyprinter{<printer>} + '("setpygmentsprettyprinter" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Printer") + '("text" "bw" "fancyvrb" "pygments"))) + + ;; 4.5 Advanced PythonTeX usage + ;; \setpythontexcontext{<key-value pairs>} + '("setpythontexcontext" t) + + ;; \restartpythontexsession{<counter value(s)>} + '("restartpythontexsession" t) + + ;; \setpythontexoutputdir{<output directory>} + '("setpythontexoutputdir" t) + + ;; \setpythontexworkingdir{<working directory>} + '("setpythontexworkingdir" t) + + ;; 4.5 Advanced PythonTeX usage + '("setpythontexcontext" t) + '("restartpythontexsession" TeX-arg-counter) + '("setpythontexoutputdir" t) + '("setpythontexworkingdir" t) ) + + ;; 4.4.1 Listings float + ;; Only add it if not already defined somewhere else. + (unless (assoc-string "listing" (LaTeX-environment-list)) + (LaTeX-add-newfloat-DeclareFloatingEnvironments + '("listing" "verbatim"))) + + ;; Cater for \setpythontexlistingenv: + (TeX-add-symbols + '("setpythontexlistingenv" + (TeX-arg-eval + (lambda () + (let ((name (TeX-read-string + (TeX-argument-prompt nil nil "Listing environment name")))) + (LaTeX-add-newfloat-DeclareFloatingEnvironments `(,name "verbatim")) + (LaTeX-newfloat-auto-cleanup) + (format "%s" name)))))) + + (LaTeX-add-environments + ;; 4.2.5 Custom code + '("pythontexcustomcode" LaTeX-env-args + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Position") + '("begin" "end") ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Family") + LaTeX-pythontex-family-list)) + + ;; \begin{pygments}[<fancyvrb settings>]{<lexer>} + '("pygments" LaTeX-env-args + [TeX-arg-eval (LaTeX-fancyvrb-key-val-options)] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Lexer") + (LaTeX-pythontex-language-list))) ) + + ;; Filling + (add-to-list 'LaTeX-indent-environment-list + '("pythontexcustomcode" current-indentation) t) + (add-to-list 'LaTeX-indent-environment-list + '("pygments" current-indentation) t) + (add-to-list 'LaTeX-verbatim-environments-local "pythontexcustomcode") + (add-to-list 'LaTeX-verbatim-environments-local "pygments") + + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("pythontexcustomc" "[{{") + ("setpythontexfv" "[{") + ("setpythontexprettyprinter" "[{") + ("setpythontexpyglexer" "[{") + ("setpythontexpygopt" "[{") + ("printpythontex" "[[") + ("stdoutpythontex" "[[") + ("saveprintpythontex" "{") + ("savestdoutpythontex" "{") + ("useprintpythontex" "[[{") + ("usestdoutpythontex" "[[{") + ("stderrpythontex" "[[") + ("savestderrpythontex" "{") + ("usestderrpythontex" "[[{") + ("setpythontexautoprint" "{") + ("setpythontexautostdout" "{") + ("inputpygments" "[{{") + ("setpygmentsfv" "[{") + ("setpygmentspygopt" "[{") + ("setpygmentsprettyprinter" "{") + ("setpythontexcontext" "{") + ("restartpythontexsession" "{") + ("setpythontexoutputdir" "{") + ("setpythontexworkingdir" "{") + ("setpythontexlistingenv" "{") + ("setpythontexcontext" "{") + ("restartpythontexsession" "{") + ("setpythontexoutputdir" "{") + ("setpythontexworkingdir" "{")) + 'function) + (font-latex-add-keywords '(("pygment" "{")) + 'textual) + (LaTeX-pythontex-add-syntactic-keywords-extra 'brace "pygment") + (LaTeX-pythontex-add-syntactic-keywords-extra 'delim "pygment") + ;; Tell font-lock about the update. + (font-latex-set-syntactic-keywords))) + TeX-dialect) + +;;; pythontex.el ends here diff --git a/elpa/auctex-13.1.3/style/pythontex.elc b/elpa/auctex-13.1.3/style/pythontex.elc Binary files differnew file mode 100644 index 0000000..fd13b1d --- /dev/null +++ b/elpa/auctex-13.1.3/style/pythontex.elc diff --git a/elpa/auctex-13.1.3/style/ragged2e.el b/elpa/auctex-13.1.3/style/ragged2e.el new file mode 100644 index 0000000..f5cf7eb --- /dev/null +++ b/elpa/auctex-13.1.3/style/ragged2e.el @@ -0,0 +1,82 @@ +;;; ragged2e.el --- AUCTeX style for `ragged2e.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2011, 2015, 2019, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Created: 2011-04-16 +;; 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 `ragged2e.sty'. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "ragged2e" + (lambda () + (TeX-add-symbols + "Centering" + "justifying" + "RaggedRight" + "RaggedLeft") + + (LaTeX-add-environments + "FlushLeft" "FlushRight" "Center" "justify") + + (LaTeX-add-lengths + ;; \Centering + "CenteringLeftskip" "CenteringRightskip" + "CenteringParfillskip" "CenteringParindent" + ;; \RaggedLeft + "RaggedLeftLeftskip" "RaggedLeftRightskip" + "RaggedLeftParfillskip" "RaggedLeftParindent" + ;; \RaggedRight + "RaggedRightLeftskip" "RaggedRightRightskip" + "RaggedRightParindent" "RaggedRightParfillskip" + ;; \justifying + "JustifyingParfillskip" "JustifyingParindent") + + (TeX-run-style-hooks "footmisc" "everysel") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("Centering" "") + ("justifying" "") + ("RaggedRight" "") + ("RaggedLeft" "")) + 'function))) + TeX-dialect) + +(defvar LaTeX-ragged2e-package-options + '("originalcommands" "newcommands" "originalparameters" "document" + "newparameters" "footnotes" "raggedrightboxes") + "Package options for the ragged2e package.") + +;;; ragged2e.el ends here diff --git a/elpa/auctex-13.1.3/style/ragged2e.elc b/elpa/auctex-13.1.3/style/ragged2e.elc Binary files differnew file mode 100644 index 0000000..9f29f3f --- /dev/null +++ b/elpa/auctex-13.1.3/style/ragged2e.elc diff --git a/elpa/auctex-13.1.3/style/relsize.el b/elpa/auctex-13.1.3/style/relsize.el new file mode 100644 index 0000000..985c514 --- /dev/null +++ b/elpa/auctex-13.1.3/style/relsize.el @@ -0,0 +1,76 @@ +;;; relsize.el --- AUCTeX style for `relsize.sty' version v4.1 -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-12-14 +;; 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 `relsize.sty' version v4.1 from +;; 2013/03/29. `relsize.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "relsize" + (lambda () + (TeX-add-symbols + ;; Declarations and commands + '("relsize" "Steps" ) + '("relscale" "Scale factor" ) + '("larger" [ "Steps (default 1)" ] -1) + '("smaller" [ "Steps (default 1)" ] -1) + '("textlarger" [ "Steps" ] t) + '("textsmaller" [ "Steps" ] t) + '("textscale" "Scale factor" t) + '("mathlarger" t) + '("mathsmaller" t)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; This is not easy, are the first 2 'variable oder rather + ;; 'type-declaration? I start with 'type-declaration, let the + ;; users decide + (font-latex-add-keywords '(("relsize" "") + ("relscale" "") + ("larger" "") + ("smaller" "")) + 'type-declaration) + (font-latex-add-keywords '(("textlarger" "[{") + ("textsmaller" "[{") + ("textscale" "{{")) + 'type-command))) + TeX-dialect) + +(defvar LaTeX-relsize-package-options nil + "Package options for the relsize package.") + +;;; relsize.el ends here diff --git a/elpa/auctex-13.1.3/style/relsize.elc b/elpa/auctex-13.1.3/style/relsize.elc Binary files differnew file mode 100644 index 0000000..55d8d94 --- /dev/null +++ b/elpa/auctex-13.1.3/style/relsize.elc diff --git a/elpa/auctex-13.1.3/style/report.el b/elpa/auctex-13.1.3/style/report.el new file mode 100644 index 0000000..0248374 --- /dev/null +++ b/elpa/auctex-13.1.3/style/report.el @@ -0,0 +1,25 @@ +;;; report.el - Special code for report style. -*- lexical-binding: t; -*- + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-report-class-options + '("a4paper" "a5paper" "b5paper" "letterpaper" "legalpaper" "executivepaper" + "landscape" "10pt" "11pt" "12pt" "oneside" "twoside" "draft" "final" + "titlepage" "notitlepage" "openright" "openany" "onecolumn" "twocolumn" + "leqno" "fleqn" "openbib") + "Package options for the report class.") + +(TeX-add-style-hook + "report" + (lambda () + (LaTeX-largest-level-set "chapter") + (LaTeX-add-counters "part" "chapter" "section" "subsection" "subsubsection" + "paragraph" "subparagraph" "figure" "table") + (LaTeX-add-pagestyles "headings" "myheadings") + (LaTeX-add-environments "abstract")) + TeX-dialect) + +;;; report.el ends here diff --git a/elpa/auctex-13.1.3/style/report.elc b/elpa/auctex-13.1.3/style/report.elc Binary files differnew file mode 100644 index 0000000..64717f0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/report.elc diff --git a/elpa/auctex-13.1.3/style/revtex4-2.el b/elpa/auctex-13.1.3/style/revtex4-2.el new file mode 100644 index 0000000..26a5eff --- /dev/null +++ b/elpa/auctex-13.1.3/style/revtex4-2.el @@ -0,0 +1,263 @@ +;;; revtex4-2.el --- AUCTeX style for `revtex4-2.cls' (v4.2c) -*- lexical-binding: t; -*- + +;; Copyright (C) 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2019-12-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 `revtex4-2.cls' (v4.2c) from 2019/01/18. +;; `revtex4-2.cls' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(defvar LaTeX-natbib-package-options) +(defvar LaTeX-url-package-options) + +(defun LaTeX-env-revtex4-2-video (environment) + "Create ENVIRONMENT with \\caption and \\label commands. +This function is meant to be used for \"video\" environment +provided by REVTeX class." + (let* ((float (and LaTeX-float ; LaTeX-float can be nil, i.e. do not prompt + (TeX-read-string + (TeX-argument-prompt t nil "Float position") + LaTeX-float))) + (caption (TeX-read-string + (TeX-argument-prompt nil nil "Caption"))) + (short-caption (when (>= (length caption) LaTeX-short-caption-prompt-length) + (TeX-read-string + (TeX-argument-prompt t nil "Short caption"))))) + (setq LaTeX-float float) + (LaTeX-insert-environment environment + (unless (zerop (length float)) + (concat LaTeX-optop float LaTeX-optcl))) + ;; Save the place where we've started: + (save-excursion + ;; Add a new line and add the \setfloatlink macro: + (LaTeX-newline) + (indent-according-to-mode) + (TeX-insert-macro "setfloatlink") + ;; Insert caption and ask for a label, do nothing if user skips + ;; caption: + (when (and caption (not (string= caption ""))) + (LaTeX-newline) + (indent-according-to-mode) + (insert (LaTeX-compose-caption-macro caption short-caption)) + ;; If `auto-fill-mode' is active, fill the caption. + (when auto-fill-function (LaTeX-fill-paragraph)) + (LaTeX-newline) + (indent-according-to-mode) + ;; Ask for a label and indent only if it is inserted: + (when (LaTeX-label environment 'environment) + (indent-according-to-mode)))))) + +(TeX-add-style-hook + "revtex4-2" + (lambda () + + ;; Add standard stuff taken from `article.el': + (LaTeX-largest-level-set "section") + (LaTeX-add-counters "part" "section" "subsection" "subsubsection" + "paragraph" "subparagraph" "figure" "table") + (LaTeX-add-environments "abstract") + + ;; Run style hooks for packages loaded by default: + (TeX-run-style-hooks "url" "natbib") + + ;; Check for other class options and load AUCTeX style + ;; respectively. car of the cons is the REVTeX class option, cdr + ;; the name of AUCTeX style: + (let ((opt-style '(("amsfonts" . "amsfonts") + ("amsmath" . "amsmath") + ("linenumbers" . "lineno"))) + (opt-cls (cdar LaTeX-provided-class-options))) + (dolist (opt opt-style) + (when (member (car opt) opt-cls) + (TeX-run-style-hooks (cdr opt))))) + + (TeX-add-symbols + ;; IV.3. Specifying authors and affiliations + '("affiliation" "Affliation") + '("noaffiliation") + ;; Because collaborations don't normally have affiiations, one + ;; needs to follow the \collaboration with \noaffiliation: + '("collaboration" "Collaboration" + (TeX-arg-literal "\n") + (TeX-arg-literal "\\noaffiliation")) + '("email" ["Text"] "E-Mail Address") + '("homepage" ["Text"] "URL") + '("altaffiliation" ["Text"] "Affliation") + ;; Specifying first names and surnames + '("surname" "Surname") + + ;; IV.6. Keywords + '("keywords" t) + + ;; IV.7. Institutional report numbers + '("preprint" 0) + + ;; V.3. One-column vs. two-column layouts + '("onecolumngrid" 0) + '("twocolumngrid" 0) + + ;; V.6. Appendices + '("appendix*" 0) + + ;; VIII.1. Citing a reference + '("onlinecite" + (TeX-arg-conditional TeX-arg-cite-note-p ([LaTeX-arg-natbib-notes]) nil) + TeX-arg-cite) + '("textcite" + (TeX-arg-conditional TeX-arg-cite-note-p ([LaTeX-arg-natbib-notes]) nil) + TeX-arg-cite) + + ;; IX.2 video environment + '("setfloatlink" "URL") + + ;; X.3. Dealing with Long Tables + '("squeezetable" 0) + + ;; XI. Placement of Figures, Tables, and other floats + '("printtables" 0) + '("printtables*" 0) + '("printfigures" 0) + '("printfigures*" 0)) + + ;; V.3. One-column vs. two-column layouts + (LaTeX-add-environments + '("widetext") + '("acknowledgments") + + ;; IX.2. video environment + '("video" LaTeX-env-revtex4-2-video) + + ;; X. Tables + '("ruledtabular") + + ;; XII. Rotating Floats + '("turnpage")) + + ;; Append entry for `video' to `LaTeX-label-alist': + (add-to-list 'LaTeX-label-alist + (cons "video" 'LaTeX-revtex4-2-video-label) + t) + + ;; Tell RefTeX about `video' environment: + (when (fboundp 'reftex-add-label-environments) + (reftex-add-label-environments + `(("video" + ,LaTeX-revtex4-2-video-reftex-quick-id-key + ,LaTeX-revtex4-2-video-label + "~\\ref{%s}" caption)))) + + ;; X.3. Dealing with Long Tables + (when (member "longtable" (TeX-style-list)) + (LaTeX-add-environments + '("longtable*" LaTeX-env-longtable))) + + ;; Verbatim-like macros with braces as delimiters: + (add-to-list 'LaTeX-verbatim-macros-with-braces-local "email") + (add-to-list 'LaTeX-verbatim-macros-with-braces-local "homepage") + (add-to-list 'LaTeX-verbatim-macros-with-braces-local "setfloatlink") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("fbox" "*[{") + ("keywords" "{") + ("preprint" "") + ("onecolumngrid" "") + ("twocolumngrid" "") + ("squeezetable" "") + ("printtables" "*") + ("printfigures" "*")) + 'function) + (font-latex-add-keywords '(("affiliation" "{") + ("noaffiliation" "") + ("collaboration" "{") + ("altaffiliation" "[{")) + 'textual) + (font-latex-add-keywords '(("email" "[") + ("homepage" "[") + ("onlinecite" "[[{") + ("textcite" "[[{") + ("setfloatlink" "")) + 'reference) + (font-latex-add-keywords '(("appendix*" "")) + 'warning))) + TeX-dialect) + +(defvar LaTeX-revtex4-2-class-options + (progn + (TeX-load-style "natbib") + (TeX-load-style "url") + (append + LaTeX-natbib-package-options + LaTeX-url-package-options + '("aps" "aip" "aapm" "sor" + "prl" "pra" "prb" "prc" "prd" "pre" + "prab" "prper" "prx" "prapplied" "prfluids" + "prmaterials" "physrev" "rmp" + "apl" "bmf" "cha" "jap" "jcp" "jmp" "rse" + "pof" "pop" "rsi" "apm" "adv" "sd" + "mph" "jor" + "10pt" "11pt" "12pt" + "groupedaddress" "superscriptaddress" + "draft" "linenumbers" "longbibliography" + "amsfonts" "noamsfonts" + "amssymb" "noamssymb" + "amsmath" "noamsmath" + "preprintnumbers" "nopreprintnumbers" + "floatfix" + "bibnotes" "nobibnotes" + "footinbib" "nofootinbib" + "eprint" "noeprint" + "altaffilletter" "altaffillsymbol" + "unsortedaddress" + "runinaddress" + "showkeys" "noshowkeyws" + "tightenlines" + "floats" + "endfloats" + "endfloats*" + "titlepage" "notitlepage" + "final" + "letterpaper" "a4paper" "a5paper" + "oneside" "twoside" + "fleqn" + "eqsecnum" + "balancelastpage" "nobalancelastpage" + "raggedbottom" "flushbottom" + "raggedfooter" "noraggedfooter" + "byrevtex" + "citeautoscript" "galley" "nomerge"))) + "Options for the revtex4-2 document class.") + +;;; revtex4-2.el ends here diff --git a/elpa/auctex-13.1.3/style/revtex4-2.elc b/elpa/auctex-13.1.3/style/revtex4-2.elc Binary files differnew file mode 100644 index 0000000..0212561 --- /dev/null +++ b/elpa/auctex-13.1.3/style/revtex4-2.elc diff --git a/elpa/auctex-13.1.3/style/rotating.el b/elpa/auctex-13.1.3/style/rotating.el new file mode 100644 index 0000000..fddda47 --- /dev/null +++ b/elpa/auctex-13.1.3/style/rotating.el @@ -0,0 +1,87 @@ +;;; rotating.el --- AUCTeX style for `rotating.sty' (v2.16d) -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-12-11 +;; 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 `rotating.sty' (v2.16d) from 2016/08/11. +;; `rotating.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(defvar LaTeX-graphicx-package-options) + +(TeX-add-style-hook + "rotating" + (lambda () + + ;; Environments provided by the package: + (LaTeX-add-environments + '("sidewaysfigure" LaTeX-env-figure) + '("sidewaysfigure*" LaTeX-env-figure) + '("sidewaystable" LaTeX-env-figure) + '("sidewaystable*" LaTeX-env-figure) + "sideways" + '("turn" "Angle") + '("rotate" "Angle")) + + ;; Add the float environments to `LaTeX-label-alist': + (dolist (env '("sidewaysfigure" "sidewaysfigure*")) + (add-to-list 'LaTeX-label-alist `(,env . LaTeX-figure-label) t)) + + (dolist (env '("sidewaystable" "sidewaystable*")) + (add-to-list 'LaTeX-label-alist `(,env . LaTeX-table-label) t)) + + ;; The skips: + (LaTeX-add-lengths "rotFPtop" "rotFPbot") + + ;; New symbols + (TeX-add-symbols + '("turnbox" ["Angle"] "Argument")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("turnbox" "[{")) + 'textual))) + TeX-dialect) + +(defvar LaTeX-rotating-package-options + (progn + (TeX-load-style "graphicx") + (append LaTeX-graphicx-package-options + '("clockwise" "counterclockwise" "anticlockwise" + "figuresleft" "figuresright" + "quiet" "log" "chatter"))) + "Package options for the rotating package.") + +;;; rotating.el ends here diff --git a/elpa/auctex-13.1.3/style/rotating.elc b/elpa/auctex-13.1.3/style/rotating.elc Binary files differnew file mode 100644 index 0000000..b636fb2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/rotating.elc diff --git a/elpa/auctex-13.1.3/style/ruby.el b/elpa/auctex-13.1.3/style/ruby.el new file mode 100644 index 0000000..9c18fa3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ruby.el @@ -0,0 +1,52 @@ +;;; ruby.el --- AUCTeX style for the ruby package. -*- lexical-binding: t; -*- + +;; Copyright (C) 2009, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2009-01-04 +;; 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 the ruby package. + +;;; Code: + +(require 'tex) + +(defvar LaTeX-ruby-package-options + '("overlap" "nooverlap" "CJK" "latin") + "Package options for the ruby package.") + +(TeX-add-style-hook + "ruby" + (lambda () + (TeX-add-symbols + '("rubyoverlap" 0) + '("rubynooverlap" 0) + '("rubyCJK" 0) + '("rubylatin" 0) + '("rubysize" 0) + '("rubysep" 0) + '("ruby" t nil))) + TeX-dialect) + +;;; ruby.el ends here diff --git a/elpa/auctex-13.1.3/style/ruby.elc b/elpa/auctex-13.1.3/style/ruby.elc Binary files differnew file mode 100644 index 0000000..caf660a --- /dev/null +++ b/elpa/auctex-13.1.3/style/ruby.elc diff --git a/elpa/auctex-13.1.3/style/scholax.el b/elpa/auctex-13.1.3/style/scholax.el new file mode 100644 index 0000000..4a6e22a --- /dev/null +++ b/elpa/auctex-13.1.3/style/scholax.el @@ -0,0 +1,106 @@ +;;; scholax.el --- AUCTeX style for `scholax.sty' (v1.027) -*- lexical-binding: t; -*- + +;; Copyright (C) 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2020-11-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 `scholax.sty' (v1.027) from 2020/11/30. +;; `scholax.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "scholax" + (lambda () + + ;; Run style hook for various packages loaded by scholax + (TeX-run-style-hooks "textcomp" "fontaxes") + + ;; New symbols + (TeX-add-symbols + + ;; Only preamble commands + '("useosf" 0) + '("useproportional" 0) + '("thfamily" 0) + + ;; Text commands + '("textsu" t) ; superior figures + '("sustyle" -1) + '("textin" t) ; inferior figures + '("instyle" -1) + + '("textlf" t) ; lining figures + '("lfstyle" -1) + + '("texttlf" t) ; tabular lining figures + '("tlfstyle" -1) + + '("textosf" t) ; oldstyle figures + '("osfstyle" -1) + + '("texttosf" t) ; tabular oldstyle figures + '("tosfstyle" -1) + + '("textfrac" "Numerator" "Denominator")) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("textsu" "{") + ("textin" "{") + ("textlf" "{") + ("texttlf" "{") + ("textosf" "{") + ("texttosf" "{") + ("textfrac" "{{")) + 'type-command) + (font-latex-add-keywords '(("sustyle" "") + ("instyle" "") + ("lfstyle" "") + ("tlfstyle" "") + ("osfstyle" "") + ("tosfstyle" "")) + 'type-declaration))) + TeX-dialect) + +(defvar LaTeX-scholax-package-options + '("scale" "scaled" + "spacing" "stretch" "shrink" + "foresolidus" "aftsolidus" "raisefrac" + "theoremfont" + "scosf" "sups" "lining" "lf" + "oldstyle" "osf" "tabular" "p" "proportional" + "looser" "loosest") + "Package options for the scholax package.") + +;;; scholax.el ends here diff --git a/elpa/auctex-13.1.3/style/scholax.elc b/elpa/auctex-13.1.3/style/scholax.elc Binary files differnew file mode 100644 index 0000000..c427446 --- /dev/null +++ b/elpa/auctex-13.1.3/style/scholax.elc diff --git a/elpa/auctex-13.1.3/style/scrartcl.el b/elpa/auctex-13.1.3/style/scrartcl.el new file mode 100644 index 0000000..49509fb --- /dev/null +++ b/elpa/auctex-13.1.3/style/scrartcl.el @@ -0,0 +1,30 @@ +;;; scrartcl.el -- AUCTeX style for scrartcl.cls -*- lexical-binding: t; -*- + +;; Copyright (C) 2002, 2005, 2020 Free Software Foundation +;; License: GPL, see the file COPYING in the base directory of AUCTeX + +;; Author: Mark Trettin <Mark.Trettin@gmx.de> +;; Created: 2002-09-26 +;; Keywords: tex + +;;; Commentary: + +;; This file adds support for `scrartcl.cls'. This file needs +;; `scrbase.el'. + +;; This file is part of AUCTeX. + +(require 'tex) +(require 'latex) + +;;; Code: +(TeX-add-style-hook + "scrartcl" + (lambda () + (LaTeX-largest-level-set "section") + ;; load basic definitons + (TeX-run-style-hooks "scrbase") + (LaTeX-add-environments "abstract")) + TeX-dialect) + +;;; scrartcl.el ends here diff --git a/elpa/auctex-13.1.3/style/scrartcl.elc b/elpa/auctex-13.1.3/style/scrartcl.elc Binary files differnew file mode 100644 index 0000000..b88c241 --- /dev/null +++ b/elpa/auctex-13.1.3/style/scrartcl.elc diff --git a/elpa/auctex-13.1.3/style/scrbase.el b/elpa/auctex-13.1.3/style/scrbase.el new file mode 100644 index 0000000..e5cc853 --- /dev/null +++ b/elpa/auctex-13.1.3/style/scrbase.el @@ -0,0 +1,228 @@ +;;; scrbase.el --- AUCTeX style for the KOMA-Script bundle. -*- lexical-binding: t; -*- + +;; Copyright (C) 2002, 2004, 2005, 2007, 2014, 2018-2021 Free Software Foundation, Inc. + +;; Author: Mark Trettin <Mark.Trettin@gmx.de> +;; Created: 2002-09-26 +;; 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 the KOMA-Script bundle. This file +;; contains the base definitions that work with all KOMA-Script +;; classes (scrarctl.cls, scrreprt.cls, scrbook.cls and scrlttr2.cls). +;; You need this file since it's loaded from the class-styles. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook "scrbase" + (lambda () + (TeX-add-symbols + "appendixmore" + "autodot" + '("addtokomafont" TeX-arg-KOMA-fontelements t) + '("areaset" [ "BCOR" ] "Width" "Height") + '("captionabove" [ "Lof entry" ] "Caption") + '("captionbelow" [ "Lof entry" ] "Caption") + '("cleardoubleemptypage") + '("cleardoubleplainpage") + '("cleardoublestandardpage") + '("dedication" t) + '("deffootnote" [ "Mark width" ] "Indent" "Parindent" "Definition") + '("deffootnotemark" "Definition") + '("extratitle" t) + '("ifpdfoutput" t nil) + '("ifthispageodd" t nil) + '("lowertitleback" t) + '("maketitle" [ "Pagenumber" ]) + '("marginline" t) + '("publishers" "Publishers") + '("setbibpreamble" "Preamble") + '("setcaphanging") + '("setcapindent" "Indent") + '("setcapindent*" "X-Indent") + '("setcapmargin" [ "Margin left" ] "Margin") + '("setcapmargin*" [ "Margin inside" ] "Margin") + '("setcapwidth" [ TeX-arg-KOMA-capjust ] "Width") + '("setindexpreamble" "Preamble") + '("setkomafont" TeX-arg-KOMA-fontelements t) + '("subject" "Subject") + '("thanks" "Footnote") + '("thefootnotemark") + '("titlehead" t) + '("uppertitleback" t) + '("usekomafont" TeX-arg-KOMA-fontelements)) + (LaTeX-add-environments + '("labeling" (lambda (env &rest ignore) + (LaTeX-insert-environment + env + (let ((delim (TeX-read-string "(Optional) Delimiter: ")) + (width (TeX-read-string "Longest item: "))) + (concat + (if (not (zerop (length delim))) + (format "[%s]" delim)) + (format "{%s}" width)))) + (LaTeX-find-matching-begin) + (end-of-line 1) + (LaTeX-insert-item))) + '("addmargin" (lambda (env &rest ignore) + (LaTeX-insert-environment + env + (let ((leftin (TeX-read-string "(Optional) Left Indentation: ")) + (indent (TeX-read-string "Indentation: "))) + (concat + (if (not (zerop (length leftin))) + (format "[%s]" leftin)) + (format "{%s}" indent)))))) + '("addmargin*" (lambda (env &rest ignore) + (LaTeX-insert-environment + env + (let ((innin (TeX-read-string "(Optional) Inner Indentation: ")) + (indent (TeX-read-string "Indentation: "))) + (concat + (if (not (zerop (length innin))) + (format "[%s]" innin)) + (format "{%s}" indent)))))) + '("captionbeside" (lambda (env &rest ignore) + (LaTeX-insert-environment + env + (let ((lofent (TeX-read-string "(Optional) Lof Entry: ")) + (title (TeX-read-string "Caption: ")) + (place (TeX-read-string "(Optional) Placement (l,r,o,i): ")) + (width (TeX-read-string "(Optional) Width: ")) + (offset (TeX-read-string "(Optional) Offset: "))) + (concat + (if (not (zerop (length lofent))) + (format "[%s]" lofent)) + (format "{%s}" title) + (if (not (zerop (length place))) + (format "[%s]" place)) + (if (not (zerop (length width))) + (format "[%s]" width)) + (and + (not (zerop (length place))) + (not (zerop (length offset))) + (format "[%s]%s" offset + (if (y-or-n-p "Starred? ") + "*" ""))))))))) + (LaTeX-section-list-add-locally '(("addpart" 0) + ("addsec" 2) + ("minisec" 7))) + ;; This doesn't work. Maybe it's RefTeX's label insertion? + (make-local-variable 'LaTeX-section-label) + (setq LaTeX-section-label (append + LaTeX-section-label + '(("addpart" . nil) + ("addsec" . nil) + ("minisec" . nil)))) + ;; Fill \minisec{...} like normal sectioning commands + (LaTeX-paragraph-commands-add-locally "minisec") + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; Textual keywords + (font-latex-add-keywords '(("captionabove" "[{") + ("captionbelow" "[{") + ("dedication" "{") + ("extratitle" "{") + ("lowertitleback" "{") + ("maketitle" "[") + ("marginline" "{") + ("publishers" "{") + ("subject" "{") + ("setbibpreamble" "{") + ("setindexpreamble" "{") + ("titlehead" "{") + ("uppertitleback" "{")) + 'textual) + ;; Function keywords + (font-latex-add-keywords '(("deffootnote" "[{{{") + ("deffootnotemark" "{") + ("ifpdfoutput" "{{") + ("ifthispageodd" "{{")) + 'function) + ;; Variable keywords + (font-latex-add-keywords '(("addtokomafont" "{{") + ("areaset" "[{{") + ("setcaphanging" "") + ("setcapindent" "{") + ("setcapmargin" "*[{") + ("setcapwidth" "[{") + ("setkomafont" "{{") + ("typearea" "[{") + ("usekomafont" "{")) + 'variable) + ;; Warning keywords + (font-latex-add-keywords '("cleardoublestandardpage" + "cleardoubleplainpage" + "cleardoubleemptypage") + 'warning) + ;; Sectioning keywords + (font-latex-add-keywords '(("addpart" "[{")) 'sectioning-1) + (font-latex-add-keywords '(("addsec" "[{")) 'sectioning-2) + (font-latex-add-keywords '(("minisec" "[{")) 'sectioning-4))) + TeX-dialect) + +(defun TeX-arg-KOMA-setpreamble (optional &optional prompt) + "Prompt for KOMA-Script's \\set*preamble position with completion." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional prompt "Position") + '(("") ("l") ("r") ("c") ("o") ("u") + ("lo") ("lu") ("ro") ("ru") ("co") ("cu")) + nil t) + optional)) + +(defun TeX-arg-KOMA-capjust (optional &optional prompt) + "Prompt for KOMA-Script's \\setcapwidth justification with completion." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional prompt "Justification") + '(("") ("l") ("r") ("c") ("i") ("o")) + nil t) + optional)) + +(defun TeX-arg-KOMA-fontelements (optional &optional prompt) + "Prompt for KOMA-Script's fontelements with completion." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional prompt "Element") + '(("") + ("caption") ("captionlabel") + ("descriptionlabel") ("dictum") ("dictumauthor") ("dictumtext") + ("footnote") ("footnotelabel") ("footnotereference") + ("pagefoot") ("pagehead") ("pagenumber") ("pagination") + ("sectioning") ("part") ("partnumber") ("chapter") ("section") + ("subsection") ("subsubsection") ("paragraph") ("subparagraph") + ("title") ("disposition") ("minisec")) + nil t) + optional)) + +(add-to-list 'LaTeX-item-list '("labeling" . LaTeX-item-argument)) + +;;; scrbase.el ends here diff --git a/elpa/auctex-13.1.3/style/scrbase.elc b/elpa/auctex-13.1.3/style/scrbase.elc Binary files differnew file mode 100644 index 0000000..8833ac4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/scrbase.elc diff --git a/elpa/auctex-13.1.3/style/scrbook.el b/elpa/auctex-13.1.3/style/scrbook.el new file mode 100644 index 0000000..c3a7be5 --- /dev/null +++ b/elpa/auctex-13.1.3/style/scrbook.el @@ -0,0 +1,71 @@ +;;; scrbook.el --- AUCTeX style for scrbook.cls -*- lexical-binding: t; -*- + +;; Copyright (C) 2002, 2005, 2018, 2020 Free Software Foundation + +;; Author: Mark Trettin <Mark.Trettin@gmx.de> +;; Created: 2002-09-26 +;; 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 `scrbook.cls'. This file needs +;; `scrbase.el'. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook "scrbook" + (lambda () + (LaTeX-largest-level-set "chapter") + ;; load basic definitons + (TeX-run-style-hooks "scrbase") + (TeX-add-symbols + "chapapp" + "raggeddictum" + '("chapappifchapterprefix" "Additional text") + '("setpartpreamble" [ TeX-arg-KOMA-setpreamble ] [ "Width" ] t) + '("setchapterpreamble" [ TeX-arg-KOMA-setpreamble ] [ "Width" ] t) + '("dictum" [ "Author" ] t)) + (LaTeX-section-list-add-locally '("addchap" 1)) + (make-local-variable 'LaTeX-section-label) + (setq LaTeX-section-label (append + LaTeX-section-label + '(("addchap" . nil)))) + ;; Definitions for font-latex + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; Textual keywords + (font-latex-add-keywords '(("addchap" "[{") + ("setpartpreamble" "[[{") + ("setchapterpreamble" "[[{") + ("dictum" "[{")) + 'textual) + ;; Sectioning keywords + (font-latex-add-keywords '(("addchap" "[{")) 'sectioning-1))) + TeX-dialect) + +;;; scrbook.el ends here diff --git a/elpa/auctex-13.1.3/style/scrbook.elc b/elpa/auctex-13.1.3/style/scrbook.elc Binary files differnew file mode 100644 index 0000000..ef068f5 --- /dev/null +++ b/elpa/auctex-13.1.3/style/scrbook.elc diff --git a/elpa/auctex-13.1.3/style/scrlttr2.el b/elpa/auctex-13.1.3/style/scrlttr2.el new file mode 100644 index 0000000..5a0f667 --- /dev/null +++ b/elpa/auctex-13.1.3/style/scrlttr2.el @@ -0,0 +1,249 @@ +;;; scrlttr2.el --- AUCTeX style for scrlttr2.cls. -*- lexical-binding: t; -*- + +;; Copyright (C) 2002, 2007, 2014, 2018, 2020 Free Software Foundation + +;; Author: Mark Trettin <Mark.Trettin@gmx.de> +;; Created: 2002-10-26 +;; 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 `scrlttr2.cls'. + +;; Since I just recently switched from `g-brief.cls' to the +;; KOMA-Script letter class *and* I don't really write many +;; snailmails, there are probably some superflous macros included and +;; important ones left out. Comments appreciated. + +;; I left out any length and positioning macros since those should be +;; set in a personal `*.lco'-File. IMHO. + +;;; Code + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "scrlttr2" + (lambda () + (TeX-add-symbols + '("AtBeginLetter" t) + '("KOMAoptions" t) + '("LetterOptionNeedsPapersize" "Name of lco file" "Paper size") + '("LoadLetterOption" "Name of lco file") + '("addrchar" "Initial letter") + '("addrentry" "Lastname" "Firstname" "Address" "Telephone" "F1" + "F2" "F3" "F4" "Key") + '("addtokomafont" TeX-arg-KOMA-scrlttr-fontelements t) + '("addtolengthplength" [ "Factor" ] "Name of length" + "Name of pseudo length") + '("addtoreffields" TeX-arg-KOMA-scrlttr-vars) + '("adrchar" "Initial letter") + '("adrentry" "Lastname" "Firstname" "Address" "Telephone" "F1" + "F2" "Comment" "Key") + '("bankname" t) + '("captionsUKenglish" nil) + '("captionsUSenglish" nil) + '("captionsamerican" nil) + '("captionsaustrian" nil) + '("captionsbritish" nil) + '("captionscroatian" nil) + '("captionsdutch" nil) + '("captionsenglish" nil) + '("captionsfrench" nil) + '("captionsgerman" nil) + '("captionsitalian" nil) + '("captionsngerman" nil) + '("captionsspanish" nil) + '("cc" t) + '("ccname" t) + '("cleardoubleemptypage") + '("cleardoubleplainpage") + '("cleardoublestandardpage") + '("closing" "Closing Phrase") + '("customername" t) + '("dateUKenglish" nil) + '("dateUSenglish" nil) + '("dateamerican" nil) + '("dateaustrian" nil) + '("datebritish" nil) + '("datecroatian" nil) + '("datedutch" nil) + '("dateenglish" nil) + '("datefrench" nil) + '("dategerman" nil) + '("dateitalian" nil) + '("datename" t) + '("datengerman" nil) + '("datespanish" nil) + '("emailname" t) + '("encl" t) + '("enclname" t) + '("faxname" t) + '("firstfoot" t) + '("firsthead" t) + '("headfromname" t) + '("headtoname" t) + '("ifkomavarempty" TeX-arg-KOMA-scrlttr-vars 2) + '("ifkomavarempty*" TeX-arg-KOMA-scrlttr-vars 2) + '("invoicename" t) + '("myrefname" t) + '("newcaptionname" "Language" "Term" "Definition") + '("newkomavar" [ "Description" ] "Name") + '("newkomavar*" [ "Description" ] "Name") + '("nextfoot" t) + '("nexthead" t) + '("opening" "Opening") + '("pagename" t) + '("phonename" t) + '("providecaptionname" "Language" "Term" "Definition") + '("ps") + '("raggedsignature" nil) + '("renewcaptionname" "Language" "Term" "Definition") + '("setkomafont" TeX-arg-KOMA-scrlttr-fontelements t) + '("setkomavar" TeX-arg-KOMA-scrlttr-vars [ "Description" ] t) + '("setkomavar*" TeX-arg-KOMA-scrlttr-vars "Description") + '("setlengthtoplength" [ "Factor" ] "Name of length" + "Name of pseudo length") + '("subjectname" t) + '("usekomafont" TeX-arg-KOMA-scrlttr-fontelements) + '("usekomavar" [ "Command" ] TeX-arg-KOMA-scrlttr-vars) + '("usekomavar*" [ "Command" ] TeX-arg-KOMA-scrlttr-vars) + '("useplength" "Name") + '("wwwname" t) + '("yourmailname" t) + '("yourrefname" t)) + (LaTeX-add-environments + '("letter" (lambda (env &rest ignore) + (LaTeX-insert-environment + env + (let ((options (TeX-read-string "Optional options: ")) + (recip (TeX-read-string "Recipient: "))) + (concat + (if (not (zerop (length options))) + (format "[%s]" options)) + (format "{%s}" recip))))))) + ;; Definitions for font-latex + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; Textual keywords + (font-latex-add-keywords '(("addrentry" "{{{{{{{{{") + ("adrentry" "{{{{{{{{") + ("bankname" "{") + ("cc" "{") + ("ccname" "{") + ("closing" "{") + ("customername" "{") + ("datename" "{") + ("emailname" "{") + ("encl" "{") + ("enclname" "{") + ("faxname" "{") + ("firstfoot" "{") + ("firsthead" "{") + ("headfromname" "{") + ("headtoname" "{") + ("invoicename" "{") + ("myrefname" "{") + ("nextfoot" "{") + ("nexthead" "{") + ("opening" "{") + ("pagename" "{") + ("phonename" "{") + ("ps" "") + ("subjectname" "{") + ("wwwname" "{") + ("yourmailname" "{") + ("yourrefname" "{")) + 'textual) + ;; Function keywords + (font-latex-add-keywords '(("AtBeginLetter" "{") + ("LetterOptionNeedsPapersize" "{{") + ("LoadLetterOption" "{") + ("addrchar" "{") + ("adrchar" "{") + ("ifkomavarempty" "*{{{")) + 'function) + ;; Variable keywords + (font-latex-add-keywords '(("KOMAoptions" "{") + ("addtokomafont" "{{") + ("addtolengthplength" "[{{") + ("addtoreffields" "{") + ("newcaptionname" "{{{") + ("newkomavar" "*[{") + ("providecaptionname" "{{{") + ("renewcaptionname" "{{{") + ("setkomafont" "{{") + ("setkomavar" "*{[{") + ("setlengthtoplength" "[{{") + ("usekomafont" "{") + ("usekomavar" "*[{") + ("useplength" "{")) + 'variable) + ;; Warning keywords + (font-latex-add-keywords '("cleardoublestandardpage" + "cleardoubleplainpage" + "cleardoubleemptypage") + 'warning))) + TeX-dialect) + +(defun TeX-arg-KOMA-scrlttr-vars (optional &optional prompt) + "Prompt for KOMA-Script's scrlttr2 predefined variables with completion." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional prompt "Variable") + '(("") + ("backaddress") ("backaddressseparator") + ("ccseparator") ("customer") + ("date") + ("emailseparator") ("enclseparator") + ("faxseparator") ("frombank") ("fromaddress") ("fromemail") + ("fromfax") ("fromlogo") ("fromname") ("fromphone") ("fromurl") + ("invoice") + ("location") + ("myref") + ("place") ("placeseparator") ("phoneseparator") + ("signature") ("specialmail") ("subject") ("subjectseparator") + ("title") ("toname") ("toaddress") + ("yourmail") ("yourref")) + nil nil) + optional)) + +(defun TeX-arg-KOMA-scrlttr-fontelements (optional &optional prompt) + "Prompt for KOMA-Script's scrlttr2 fontelements with completion." + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional prompt "Element") + '(("") + ("backaddress") + ("descriptionlabel") + ("fromaddress") ("fromname") + ("pagefoot") ("pagehead") ("pagenumber") + ("subject") + ("title")) + nil t) + optional)) + +;;; scrlttr2.el ends here diff --git a/elpa/auctex-13.1.3/style/scrlttr2.elc b/elpa/auctex-13.1.3/style/scrlttr2.elc Binary files differnew file mode 100644 index 0000000..6ecda54 --- /dev/null +++ b/elpa/auctex-13.1.3/style/scrlttr2.elc diff --git a/elpa/auctex-13.1.3/style/scrpage2.el b/elpa/auctex-13.1.3/style/scrpage2.el new file mode 100644 index 0000000..dca5590 --- /dev/null +++ b/elpa/auctex-13.1.3/style/scrpage2.el @@ -0,0 +1,139 @@ +;;; scrpage2.el --- AUCTeX style for scrpage2.sty. -*- lexical-binding: t; -*- + +;; Author: Ralf Angeli <angeli@iwi.uni-sb.de> +;; Created: 2003-11-01 +;; 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 `scrpage2.sty'. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "scrpage2" + (lambda () + + ;; New symbols + (TeX-add-symbols + '("lehead" [ "scrplain-left-even" ] "scrheadings-left-even") + '("cehead" [ "scrplain-center-even" ] "scrheadings-center-even") + '("rehead" [ "scrplain-right-even" ] "scrheadings-right-even") + '("lefoot" [ "scrplain-left-even" ] "scrheadings-left-even") + '("cefoot" [ "scrplain-center-even" ] "scrheadings-center-even") + '("refoot" [ "scrplain-right-even" ] "scrheadings-right-even") + '("lohead" [ "scrplain-left-odd" ] "scrheadings-left-odd") + '("cohead" [ "scrplain-center-odd" ] "scrheadings-center-odd") + '("rohead" [ "scrplain-right-odd" ] "scrheadings-right-odd") + '("lofoot" [ "scrplain-left-odd" ] "scrheadings-left-odd") + '("cofoot" [ "scrplain-center-odd" ] "scrheadings-center-odd") + '("rofoot" [ "scrplain-right-odd" ] "scrheadings-right-odd") + '("ihead" [ "scrplain-inside" ] "scrheadings-inside") + '("chead" [ "scrplain-center" ] "scrheadings-center") + '("ohead" [ "scrplain-outside" ] "scrheadings-outside") + '("ifoot" [ "scrplain-inside" ] "scrheadings-inside") + '("cfoot" [ "scrplain-center" ] "scrheadings-center") + '("ofoot" [ "scrplain-outside" ] "scrheadings-outside") + '("clearscrheadfoot") + '("clearscrheadings") + '("clearscrplain") + '("automark" [ "Right page" ] "Left page") + '("headmark") + '("manualmark") + '("pagemark") + '("setfootwidth" [ "Offset" ] "Width") + '("setheadwidth" [ "Offset" ] "Width") + '("setfootbotline" [ "Length" ] "Thickness") + '("setfootsepline" [ "Length" ] "Thickness") + '("setheadtopline" [ "Length" ] "Thickness") + '("setheadsepline" [ "Length" ] "Thickness") + '("deftripstyle" "Name" [ "Thickness of outer line" ] + [ "Thickness of inner line" ] "Inner box of page head" + "Center box of page head" "Outer box of page head" + "Inner box of page foot" "Center box of page foot" + "Outer box of page foot") + '("defpagestyle" "Name" "Head definition" "Foot definition") + '("newpagestyle" "Name" "Head definition" "Foot definition") + '("renewpagestyle" "Name" "Head definition" "Foot definition") + '("providepagestyle" "Name" "Head definition" "Foot definition")) + + ;; Don't increase indent at \ifoot: + (add-to-list 'LaTeX-indent-begin-exceptions-list "ifoot" t) + (LaTeX-indent-commands-regexp-make) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("lehead" "[{") + ("cehead" "[{") + ("rehead" "[{") + ("lefoot" "[{") + ("cefoot" "[{") + ("refoot" "[{") + ("lohead" "[{") + ("cohead" "[{") + ("rohead" "[{") + ("lofoot" "[{") + ("cofoot" "[{") + ("rofoot" "[{") + ("ihead" "[{") + ("chead" "[{") + ("ohead" "[{") + ("ifoot" "[{") + ("cfoot" "[{") + ("ofoot" "[{") + ("automark" "[{") + ("setfootwidth" "[{") + ("setheadwidth" "[{") + ("setfootbotline" "[{") + ("setfootsepline" "[{") + ("setheadtopline" "[{") + ("setheadsepline" "[{")) + 'variable) + (font-latex-add-keywords '(("deftripstyle" "{[[{{{{{{") + ("defpagestyle" "{{{") + ("newpagestyle" "{{{") + ("renewpagestyle" "{{{") + ("providepagestyle" "{{{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-scrpage2-package-options '("headinclude" "headexclude" + "footinclude" "footexclude" + "mpinclude" "mpexclude" + "headtopline" "headsepline" + "footsepline" "footbotline" + "plainheadtopline" "plainheadsepline" + "plainfootsepline" "plainfootbotline" + "ilines" "clines" "olines" + "automark" "manualmark" + "autooneside" "markuppercase" + "markusedcase" "nouppercase" + "komastyle" "standardstyle") + "Package options for the scrpage2 package.") + +;;; scrpage2.el ends here diff --git a/elpa/auctex-13.1.3/style/scrpage2.elc b/elpa/auctex-13.1.3/style/scrpage2.elc Binary files differnew file mode 100644 index 0000000..70f7ece --- /dev/null +++ b/elpa/auctex-13.1.3/style/scrpage2.elc diff --git a/elpa/auctex-13.1.3/style/scrreprt.el b/elpa/auctex-13.1.3/style/scrreprt.el new file mode 100644 index 0000000..a2f5273 --- /dev/null +++ b/elpa/auctex-13.1.3/style/scrreprt.el @@ -0,0 +1,73 @@ +;;; scrreprt.el --- AUCTeX style for scrreprt.cls. -*- lexical-binding: t; -*- + +;; Copyright (C) 2002, 2005, 2018, 2020 Free Software Foundation + +;; Author: Mark Trettin <Mark.Trettin@gmx.de> +;; Created: 2002-09-26 +;; 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 `scrreprt.cls'. This file needs +;; `scrbase.el'. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "scrreprt" + (lambda () + (LaTeX-largest-level-set "chapter") + ;; load basic definitons + (TeX-run-style-hooks "scrbase") + (TeX-add-symbols + "chapapp" + "raggeddictum" + '("chapappifchapterprefix" "Additional text") + '("setpartpreamble" [ TeX-arg-KOMA-setpreamble ] [ "Width" ] t) + '("setchapterpreamble" [ TeX-arg-KOMA-setpreamble ] [ "Width" ] t) + '("dictum" [ "Author" ] t)) + (LaTeX-add-environments "abstract") + (LaTeX-section-list-add-locally '("addchap" 1)) + (make-local-variable 'LaTeX-section-label) + (setq LaTeX-section-label (append + LaTeX-section-label + '(("addchap" . nil)))) + ;; Definitions for font-latex + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; Textual keywords + (font-latex-add-keywords '(("addchap" "[{") + ("setpartpreamble" "[[{") + ("setchapterpreamble" "[[{") + ("dictum" "[{")) + 'textual) + ;; Sectioning keywords + (font-latex-add-keywords '(("addchap" "[{")) 'sectioning-1))) + TeX-dialect) + +;;; scrreprt.el ends here diff --git a/elpa/auctex-13.1.3/style/scrreprt.elc b/elpa/auctex-13.1.3/style/scrreprt.elc Binary files differnew file mode 100644 index 0000000..48bea2c --- /dev/null +++ b/elpa/auctex-13.1.3/style/scrreprt.elc diff --git a/elpa/auctex-13.1.3/style/setspace.el b/elpa/auctex-13.1.3/style/setspace.el new file mode 100644 index 0000000..be0867d --- /dev/null +++ b/elpa/auctex-13.1.3/style/setspace.el @@ -0,0 +1,70 @@ +;;; setspace.el --- AUCTeX style for `setspace.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2011, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Created: 2011-04-16 +;; 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 `setspace.sty'. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "setspace" + (lambda () + (TeX-add-symbols + '("setstretch" "Stretch") + '("setdisplayskipstretch" "Stretch") + '("SetSinglespace" "Stretch") + '("onehalfspacing" 0) + '("doublespacing" 0) + '("singlespacing" 0)) + + (LaTeX-add-environments + '("spacing" "Stretch") + "singlespace" + "singlespace*" + "onehalfspace" + "doublespace") + + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("singlespacing" "") + ("doublespacing" "") + ("onehalfspacing" "")) + 'function))) + TeX-dialect) + +(defvar LaTeX-setspace-package-options + '("doublespacing" "onehalfspacing" "singlespacing" "nodisplayskipstretch") + "Package options for the setspace package.") + +;;; setspace.el ends here diff --git a/elpa/auctex-13.1.3/style/setspace.elc b/elpa/auctex-13.1.3/style/setspace.elc Binary files differnew file mode 100644 index 0000000..bcd1f63 --- /dev/null +++ b/elpa/auctex-13.1.3/style/setspace.elc diff --git a/elpa/auctex-13.1.3/style/shortvrb.el b/elpa/auctex-13.1.3/style/shortvrb.el new file mode 100644 index 0000000..5f8df92 --- /dev/null +++ b/elpa/auctex-13.1.3/style/shortvrb.el @@ -0,0 +1,73 @@ +;;; shortvrb.el --- AUCTeX style for `shortvrb.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2009, 2014, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2009-12-23 +;; 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 `shortvrb.sty'. + +;; XXX: We might want provide users with the possibility to activate +;; something like this for any file (incl. Plain TeX). That would +;; bring us one step closer to the goal of displaying texbook.tex +;; without font locking going haywire. + +;; FIXME: The code does not work for preview.dtx because in that file +;; the style list is empty. In its master file, preview.drv, it +;; works, however. However, even if the style file is loaded by hand, +;; it fails to fontify verbatim text in the documentation parts of the +;; file. + +;;; Code: + +(require 'tex) +(require 'tex-style) + +;; Silence the compiler: +(declare-function font-latex-add-to-syntax-alist + "font-latex" + (list)) + +(TeX-add-style-hook + "shortvrb" + (lambda () + + ;; Ispell: Add entries to `ispell-tex-skip-alist': + (when LaTeX-shortvrb-chars + (TeX-ispell-skip-setcar + (mapcar (lambda (char) + (let ((str (char-to-string char))) + (cons str str))) + LaTeX-shortvrb-chars))) + + ;; Fontification + (when (and LaTeX-shortvrb-chars + (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-to-syntax-alist + (mapcar (lambda (char) (cons char "|")) + LaTeX-shortvrb-chars)))) + TeX-dialect) + +;;; shortvrb.el ends here diff --git a/elpa/auctex-13.1.3/style/shortvrb.elc b/elpa/auctex-13.1.3/style/shortvrb.elc Binary files differnew file mode 100644 index 0000000..e9599fa --- /dev/null +++ b/elpa/auctex-13.1.3/style/shortvrb.elc diff --git a/elpa/auctex-13.1.3/style/sidecap.el b/elpa/auctex-13.1.3/style/sidecap.el new file mode 100644 index 0000000..ff17517 --- /dev/null +++ b/elpa/auctex-13.1.3/style/sidecap.el @@ -0,0 +1,131 @@ +;;; sidecap.el --- AUCTeX style for `sidecap.sty' (v1.6f) -*- lexical-binding: t; -*- + +;; Copyright (C) 2021, 2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-12-11 +;; 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 `sidecap.sty' (v1.6f) from 2003/06/06. +;; `sidecap.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +(defun LaTeX-env-sidecap-float (environment) + "Create ENVIRONMENT with \\caption and \\label commands. +This function runs `LaTeX-env-figure' and inserts the first +optional argument 'relwidth' provided by environments of the +package sidecap." + (let ((relwidth (TeX-read-string + (TeX-argument-prompt t nil "Relative caption width"))) + (sc-active-mark (and (TeX-active-mark) + (not (eq (mark) (point))))) + (p (point-marker)) + s) + ;; Run `LaTeX-env-figure' which does the major part of the job: + (LaTeX-env-figure environment) + ;; Now save the position: + (setq s (point-marker)) + ;; Search backwards to see if an optional float-placement arg is + ;; inserted; this would be the 2nd arg for sidecap environments: + (save-excursion + (re-search-backward (concat (regexp-quote TeX-esc) + "begin" + "[ \t]*" + TeX-grop + (regexp-quote environment) + "\\(" TeX-grcl "\\)" + "[ \t]*" + "\\(" + (regexp-quote LaTeX-optop) + ;; Float placement: + "\\([a-zA-Z!]*\\)" + (regexp-quote LaTeX-optcl) + "\\)?") + p t)) + (cond (;; Insert the first optional arg at any rate if non-empty: + (and relwidth (not (string= relwidth ""))) + (goto-char (match-end 1)) + (insert LaTeX-optop relwidth LaTeX-optcl)) + ;; Insert a pair of empty brackets if relwidth is empty and + ;; float-placement is given: + ((and (or (null relwidth) + (string= relwidth "")) + (match-string 3)) + (goto-char (match-beginning 2)) + (insert LaTeX-optop LaTeX-optcl)) + (t nil)) + ;; Go back to where we started if we have moved at all: + (unless (= s (point)) + (goto-char s)) + ;; Insert a tabular stored in `LaTeX-default-tabular-environment': + (when (and (member environment '("SCtable" "SCtable*")) + (not sc-active-mark)) + (LaTeX-environment-menu LaTeX-default-tabular-environment)) + ;; Clean up the markers: + (set-marker s nil) + (set-marker p nil))) + +(TeX-add-style-hook + "sidecap" + (lambda () + + ;; Add the environments provided by the package: + (LaTeX-add-environments + '("SCtable" LaTeX-env-sidecap-float) + '("SCtable*" LaTeX-env-sidecap-float) + '("SCfigure" LaTeX-env-sidecap-float) + '("SCfigure*" LaTeX-env-sidecap-float) + '("wide")) + + ;; Add the float environments to `LaTeX-label-alist': + (dolist (env '("SCfigure" "SCfigure*")) + (add-to-list 'LaTeX-label-alist `(,env . LaTeX-figure-label) t)) + + (dolist (env '("SCtable" "SCtable*")) + (add-to-list 'LaTeX-label-alist `(,env . LaTeX-table-label) t)) + + ;; The next 2 can be set with '\renewcommand': + (TeX-add-symbols + "sidecaptionsep" + "sidecaptionrelwidth") + + ;; Run the style hook for 'ragged2e' if necessary: + (when (or (LaTeX-provided-package-options-member "sidecap" "raggedright") + (LaTeX-provided-package-options-member "sidecap" "raggedleft") + (LaTeX-provided-package-options-member "sidecap" "ragged")) + (TeX-run-style-hooks "ragged2e"))) + + TeX-dialect) + +(defvar LaTeX-sidecap-package-options + '("outercaption" "innercaption" + "leftcaption" "rightcaption" + "wide" + "raggedright" "raggedleft" "ragged") + "Package options for the sidecap package.") + +;;; sidecap.el ends here diff --git a/elpa/auctex-13.1.3/style/sidecap.elc b/elpa/auctex-13.1.3/style/sidecap.elc Binary files differnew file mode 100644 index 0000000..d7e42bc --- /dev/null +++ b/elpa/auctex-13.1.3/style/sidecap.elc diff --git a/elpa/auctex-13.1.3/style/siunitx.el b/elpa/auctex-13.1.3/style/siunitx.el new file mode 100644 index 0000000..b1164a1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/siunitx.el @@ -0,0 +1,522 @@ +;;; siunitx.el --- AUCTeX style for `siunitx.sty' version 3.3.36. -*- lexical-binding: t; -*- + +;; Copyright (C) 2012-2021 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <mose@gnu.org> +;; 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 `siunitx.sty' version 3.0.36 from +;; 2021/22/18. + +;;; Code: + +(require 'tex) ;Indispensable when compiling the call to `TeX-auto-add-type'. +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(declare-function LaTeX-color-definecolor-list "color" ()) +(declare-function LaTeX-xcolor-definecolor-list "xcolor" ()) + +(TeX-auto-add-type "siunitx-unit" "LaTeX") + +;; Self Parsing -- see (info "(auctex)Hacking the Parser"). +;; `\\(?:\\[[^]]*\\]\\)?' matches possible options (actually used only +;; by `DeclareSIUnit' macro), wrapped in `[...]'. +(defvar LaTeX-siunitx-regexp + `(,(concat "\\\\DeclareSI\\(Unit\\|Prefix\\|Power\\|Qualifier\\)" + "[ \t\n\r]*" + ;; The optional argument + "\\(?:\\[[^]]*\\]\\)?" + "[ \t\n\r]*" + ;; First mandatory argument + "{?\\\\\\([A-Za-z]+\\)}?" + "[ \t\n\r]*" + ;; Second mandatory argument needed for '\DeclareSIPower': + "{?\\\\\\([A-Za-z]+\\)}?") + (2 3 1) LaTeX-auto-siunitx-unit) + "Matches new siunitx unit, prefix, power, and qualifier definitions.") + +(defun LaTeX-siunitx-prepare () + "Clear `LaTex-auto-siunitx-unit' before use." + (setq LaTeX-auto-siunitx-unit nil)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-siunitx-prepare t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defvar LaTeX-siunitx-unit-history nil + "History of units in siunitx.") + +(defun LaTeX-siunitx-unit-list-parsed () + "Return a list of units incl. the user defined ones. +This function should be preferred over the function +`LaTeX-siunitx-unit-list' since it knows about the 2 macros +defined with '\\DeclareSIPower'." + (let (result) + (dolist (unit (LaTeX-siunitx-unit-list) result) + (push (car unit) result) + (when (and (> (safe-length unit) 1) + (string-equal (nth 2 unit) "Power")) + (push (cadr unit) result))))) + +(defun LaTeX-arg-siunitx-unit (optional &optional prompt initial-input + definition prefix) + "Prompt for siunitx units, prefixes, powers, and qualifiers. +If OPTIONAL is non-nil, insert the resulting value as an optional +argument, otherwise as a mandatory one. Use PROMPT as the prompt +string. If INITIAL-INPUT is non-nil, insert it in the minibuffer +initially, with point positioned at the end. If DEFINITION is +non-nil, add the chosen unit to the list of defined units. If +PREFIX is non-nil, insert it before the given input." + ;; Remove <SPC> key binding from map used in `TeX-completing-read-multiple' + ;; with `require-match' set to `nil' (it's `crm-local-completion-map' if + ;; `completing-read-multiple' is bound, `minibuffer-local-completion-map' + ;; otherwise) and set completion separator to the TeX escape character. + (let* ((crm-local-completion-map + (remove (assoc 32 crm-local-completion-map) crm-local-completion-map)) + (minibuffer-local-completion-map + (remove (assoc 32 minibuffer-local-completion-map) + minibuffer-local-completion-map)) + (crm-separator (regexp-quote TeX-esc)) + (unit (mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt optional prompt "Unit: " t) + (LaTeX-siunitx-unit-list-parsed) + nil nil initial-input + 'LaTeX-siunitx-unit-history) + TeX-esc))) + (if (and definition (not (string-equal "" unit))) + (LaTeX-add-siunitx-units unit)) + (TeX-argument-insert unit optional prefix))) + +(defun LaTeX-arg-define-siunitx-unit (optional &optional prompt) + "Prompt for a LaTeX siunitx unit, prefix, power, and qualifier. +If OPTIONAL is non-nil, insert the resulting value as an optional +argument, otherwise as a mandatory one. Use PROMPT as the prompt +string." + (LaTeX-arg-siunitx-unit optional + (unless prompt (concat "Unit: " TeX-esc)) + nil t TeX-esc)) + +(defvar LaTeX-siunitx-package-options + '(;; Table 10: Print options + ("color") + ("mode" ("match" "math" "text")) + ("number-color") + ("number-mode" ("match" "math" "text")) + ("propagate-math-font" ("true" "false")) + ("reset-math-version" ("true" "false")) + ("reset-text-family" ("true" "false")) + ("reset-text-series" ("true" "false")) + ("reset-text-shape" ("true" "false")) + ("text-family-to-math" ("true" "false")) + ("text-font-command") + ("text-series-to-math" ("true" "false")) + ("unit-color") + ("unit-mode" ("match" "math" "text")) + ;; Table 11: Options for number parsing + ("evaluate-expression" ("true" "false")) + ("expression") + ("input-close-uncertainty") + ("input-comparators") + ("input-decimal-markers") + ("input-digits") + ("input-exponent-markers") + ("input-ignore") + ("input-open-uncertainty") + ("input-signs") + ("input-uncertainty-signs") + ("parse-numbers" ("true" "false")) + ("retain-explicit-plus" ("true" "false")) + ("retain-zero-uncertainty" ("true" "false")) + ;; Table 12: Number post-processing options + ("drop-exponent" ("true" "false")) + ("drop-uncertainty" ("true" "false")) + ("drop-zero-decimal" ("true" "false")) + ("exponent-mode" ("input" "fixed" "engineering" "scientific")) + ("fixed-exponent") + ("minimum-integer-digits") + ("minimum-decimal-digits") + ("round-half" ("up" "even")) + ("round-minimum") + ("round-mode" ("off" "figures" "places" "uncertainty")) + ("round-pad" ("true" "false")) + ("round-precision") + ;; Table 13: Output options for numbers + ("bracket-negative-numbers" ("true" "false")) + ("exponent-base") + ("exponent-product") + ("group-digits" ("all" "none" "decimal" "integer")) + ("group-minimum-digits") + ("group-separator") + ("negative-color") + ("output-close-uncertainty") + ("output-decimal-marker") + ("output-exponent-marker") + ("output-open-uncertainty") + ("print-implicit-plus" ("true" "false")) + ("print-unity-mantissa" ("true" "false")) + ("print-zero-exponent" ("true" "false")) + ("tight-spacing" ("true" "false")) + ("uncertainty-mode" ("compact" "full" "compact-marker")) + ("uncertainty-separator") + ;; Table 14: Output options for lists, products and ranges of + ;; numbers and quantities + ("list-exponents" ("individual" "combine-bracket" "combine")) + ("list-final-separator") + ("list-pair-separator") + ("list-separator") + ("list-units" ("repeat" "bracket" "single")) + ("product-exponents" ("individual" "combine-bracket" "combine")) + ("product-mode" ("symbol" "phrase")) + ("product-phrase") + ("product-symbol") + ("product-units" ("repeat" "bracket" "single")) + ("range-exponents" ("individual" "combine-bracket" "combine")) + ("range-phrase") + ("range-units" ("repeat" "bracket" "single")) + ;; Table 15: Options for complex numbers + ("complex-root-position" ("after-number" "before-number")) + ("output-complex-root") + ("input-complex-root") + ;; Table 16: Angle options + ("angle-mode" ("input" "arc" "decimal")) + ("angle-symbol-degree") + ("angle-symbol-minute") + ("angle-symbol-over-decimal" ("true" "false")) + ("angle-symbol-second") + ("angle-separator") + ("fill-angle-degrees" ("true" "false")) + ("fill-angle-minutes" ("true" "false")) + ("fill-angle-seconds" ("true" "false")) + ("number-angle-product") + ;; Table 17: Unit creation options + ("free-standing-units" ("true" "false")) + ("overwrite-command" ("true" "false")) + ("space-before-unit" ("true" "false")) + ("unit-optional-argument" ("true" "false")) + ("use-xspace" ("true" "false")) + ;; Table 18: Unit output options + ("bracket-unit-denominator" ("true" "false")) + ("forbid-literal-units" ("true" "false")) + ("fraction-command") + ("inter-unit-product") + ("parse-units" ("true" "false")) + ("per-mode" ("power" "fraction" "symbol" + "repeated-symbol" "symbol-or-fraction")) + ("per-symbol") + ("qualifier-mode" ("subscript" "brackets" + "combine" "phrase")) + ("qualifier-phrase") + ("sticky-per" ("true" "false")) + ("unit-font-command") + ;; Table 19: Options for quantities + ("allow-number-unit-breaks" ("true" "false")) + ("extract-mass-in-kilograms" ("true" "false")) + ("prefix-mode" ("input" "combine-exponent" + "extract-exponent")) + ("quantity-product") + ("separate-uncertainty-units") + ;; Table 20: Options for tabular material + ("table-align-comparator" ("true" "false")) + ("table-align-exponent" ("true" "false")) + ("table-align-text-after" ("true" "false")) + ("table-align-text-before" ("true" "false")) + ("table-align-uncertainty" ("true" "false")) + ("table-alignment" ("center" "left" "right" "none")) + ("table-alignment-mode" ("format" "marker" "none")) + ("table-auto-round" ("true" "false")) + ("table-column-width") + ("table-fixed-width" ("true" "false")) + ("table-format") + ("table-number-alignment" ("center" "left" "right")) + ("table-text-alignment" ("center" "left" "right")) + ;; 4.13 Locale options + ("locale" ("FR" "DE" "UK" "US" "ZA"))) + "Package options for the siunitx package.") + +(defun LaTeX-siunitx-key-val-options () + "Return an updated list of key=vals from siunitx package." + (append + (when (and (or (member "xcolor" (TeX-style-list)) + (member "color" TeX-active-styles))) + (let* ((colorcmd (if (member "xcolor" TeX-active-styles) + #'LaTeX-xcolor-definecolor-list + #'LaTeX-color-definecolor-list)) + (colors (mapcar #'car (funcall colorcmd))) + (keys '("color" + "number-color" + "unit-color" + "negative-color")) + result) + (dolist (key keys result) + (push (list key colors) result)))) + LaTeX-siunitx-package-options)) + +(TeX-add-style-hook + "siunitx" + (lambda () + + (TeX-auto-add-regexp LaTeX-siunitx-regexp) + + (TeX-add-symbols + '("sisetup" (TeX-arg-key-val (LaTeX-siunitx-key-val-options))) + + ;; 3.1 Numbers + '("num" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] "Number") + '("numlist" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] "Numbers") + '("numproduct" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] "Numbers") + '("numrange" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] + "Number 1" "Number 2") + + ;; 3.2 Angles + '("ang" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] "Angle") + + ;; 3.3 Units + ;; For 'qty' and 'units', see 8 Compatibility with other packages + '("qtylist" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] + "Numbers" LaTeX-arg-siunitx-unit) + '("qtyproduct" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] + "Numbers" LaTeX-arg-siunitx-unit) + '("qtyrange" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] + "Number 1" "Number 2" LaTeX-arg-siunitx-unit) + + ;; 3.4 Complex numbers and quantities + '("complexnum" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] + "Number") + '("complexqty" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] + "Number" LaTeX-arg-siunitx-unit) + + ;; 3.7 Creating new macros + '("DeclareSIUnit" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] + (LaTeX-arg-define-siunitx-unit) "Symbol") + + '("DeclareSIPrefix" (LaTeX-arg-define-siunitx-unit "Prefix") + "Symbol" "Powers of 10") + + '("DeclareSIPower" + (LaTeX-arg-define-siunitx-unit "Symbol before") + (LaTeX-arg-define-siunitx-unit "Symbol after") + "Power") + + '("DeclareSIQualifier" (LaTeX-arg-define-siunitx-unit "Qualifier") "Symbol") + + ;; 3.8 Tabular material + '("tablenum" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] "Number") + + ;; 5 Upgrading from version 2 + ;; The next set of macros are still available in siunitx.sty v3 + ;; but are not recommended for use in new documents. We provide + ;; them in this file anyway since they are also needed when other + ;; packages like physics or units are loaded: + '("si" [TeX-arg-key-val (LaTeX-siunitx-package-options)] LaTeX-arg-siunitx-unit) + '("SI" [TeX-arg-key-val (LaTeX-siunitx-package-options)] + "Value" ["Pre-unit"] LaTeX-arg-siunitx-unit) + '("SIlist" [TeX-arg-key-val (LaTeX-siunitx-package-options)] + "Values" LaTeX-arg-siunitx-unit) + '("SIrange" [TeX-arg-key-val (LaTeX-siunitx-package-options)] + "Value 1" "Value 2" LaTeX-arg-siunitx-unit)) + + ;; 8 Compatibility with other packages + ;; Avoid clash with other packages which define macros with the + ;; same name: + (let ((styles (TeX-style-list))) + (unless (member "physics" styles) + (TeX-add-symbols + '("qty" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] + "Number" LaTeX-arg-siunitx-unit))) + (unless (member "units" styles) + (TeX-add-symbols + '("unit" [TeX-arg-key-val (LaTeX-siunitx-key-val-options)] + LaTeX-arg-siunitx-unit)))) + + ;; The unit macros + (LaTeX-add-siunitx-units + ;; Table 1: SI base units. + "ampere" + "candela" + "kelvin" + "kilogram" + "meter" + "metre" + "second" + ;; Table 2: Coherent derived units in the SI with special names + ;; and symbols + "becquerel" + ;; "celsius" + "degreeCelsius" + "coulomb" + "farad" + "gray" + "hertz" + "henry" + "joule" + "lumen" + "katal" + "lux" + "newton" + "ohm" + "pascal" + "radian" + "siemens" + "sievert" + "steradian" + "tesla" + "volt" + "watt" + "weber" + ;; Table 3: Non-SI units accepted for use with the International + ;; System of Units + "astronomicalunit" + "bel" + "dalton" + "day" + "decibel" + "degree" + "electronvolt" + "hectare" + "hour" + "liter" + "litre" + "arcminute" + "minute" + "arcsecond" + "neper" + "tonne" + ;; 3.5 The unit macros + "percent" + "square" + "squared" + "cubic" + "cubed" + "tothe" + "raiseto" + "per" + "of" + "highlight" ; Defined by siunitx.sty + ;; Table 4: SI prefixes + "yocto" + "zepto" + "atto" + "femto" + "pico" + "nano" + "micro" + "milli" + "centi" + "deci" + "deca" + "deka" + "hecto" + "kilo" + "mega" + "giga" + "tera" + "peta" + "exa" + "zetta" + "yotta") + + ;; 3.6 Unit abbreviations are always defined: + (LaTeX-add-siunitx-units + "fg" "pg" "ng" "ug" "mg" "g" "kg" + "pm" "nm" "um" "mm" "cm" "dm" "m" "km" + "as" "fs" "ps" "ns" "us" "ms" "s" + "fmol" "pmol" "nmol" "umol" "mmol" "mol" "kmol" + "pA" "nA" "uA" "mA" "A" "kA" + "ul" "ml" "l" "hl" "uL" "mL" "L" "hL" + "mHz" "Hz" "kHz" "MHz" "GHz" "THz" + "mN" "N" "kN" "MN" + "Pa" "kPa" "MPa" "GPa" + "mohm" "kohm" "Mohm" + "pV" "nV" "uV" "mV" "V" "kV" + "uW" "mW" "W" "kW" "MW" "GW" + "J" "uJ" "mJ" "kJ" + "eV" "meV" "keV" "MeV" "GeV" "TeV" "kWh" + "F" "fF" "pF" "nF" "uF" + "H" "mH" "uH" + "K" "dB" + "kibi" "mebi" "gibi" "tebi" "pebi" + "exbi" "zebi" "yobi" "bit" "byte") + + ;; \cancel is only available when cancel.sty is loaded: + (when (member "cancel" (TeX-style-list)) + (LaTeX-add-siunitx-units "cancel")) + + ;; FIXME: 'siunitx.sty' adds only one new column specification + ;; letter 'S' in v3 and 's' is removed. We keep 's' for older + ;; documents and remove it sometimes later. + (set (make-local-variable 'LaTeX-array-column-letters) + (concat LaTeX-array-column-letters "S" "s")) + + (TeX-run-style-hooks "l3keys2e" + "array" + "amstext" + "xparse" + "expl3") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("num" "[{") + ("numlist" "[{") + ("numproduct" "[{") + ("numrange" "[{{") + ("ang" "[{") + ("qtylist" "[{{") + ("qtyrange" "[{{{") + ("complexnum" "[{") + ("complexqty" "[{") + ("DeclareSIUnit" "[|{\\{") + ("DeclareSIPrefix" "|{\\{{") + ("DeclareSIPower" "|{\\|{\\{") + ("DeclareSIQualifier" "|{\\{") + ("tablenum" "[{") + ("highlight" "{") + ("sisetup" "{") + ;; These macros are deprecated in v3 but + ;; still available: + ("si" "[{") + ("SI" "[{[{") + ("SIlist" "[{{") + ("SIrange" "[{{{")) + 'function) + (let ((styles (TeX-style-list))) + (unless (member "physics" styles) + (font-latex-add-keywords '(("qty" "[{{")) + 'function)) + (unless (member "units" styles) + (font-latex-add-keywords '(("unit" "[{")) + 'function))))) + TeX-dialect) + +(defun LaTeX-siunitx-package-options nil + "Prompt for package options for the siunitx package." + (TeX-read-key-val t (append + ;; 'table-column-type' is a preamble only: + '(("table-column-type")) + LaTeX-siunitx-package-options))) + +;; siunitx.el ends here diff --git a/elpa/auctex-13.1.3/style/siunitx.elc b/elpa/auctex-13.1.3/style/siunitx.elc Binary files differnew file mode 100644 index 0000000..0d73570 --- /dev/null +++ b/elpa/auctex-13.1.3/style/siunitx.elc diff --git a/elpa/auctex-13.1.3/style/slides.el b/elpa/auctex-13.1.3/style/slides.el new file mode 100644 index 0000000..4abd53f --- /dev/null +++ b/elpa/auctex-13.1.3/style/slides.el @@ -0,0 +1,54 @@ +;;; slides.el --- AUCTeX style for the `slides' document class -*- lexical-binding: t; -*- + +;; Copyright (C) 2004, 2013, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@iwi.uni-sb.de> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2004-04-21 +;; 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 the `slides' document class. Currently +;; the support is very limited. You are welcome to improve it. + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-slides-class-options + '("a4paper" "a5paper" "b5paper" "letterpaper" "legalpaper" "executivepaper" + "landscape" "clock" "draft" "final" "titlepage" "notitlepage" "onecolumn" + "twocolumn" "leqno" "fleqn") + "Package options for the slides class.") + +(TeX-add-style-hook + "slides" + (lambda () + (LaTeX-add-environments "slide" + "overlay" + "note") + (LaTeX-add-counters "minutes" "seconds") + (LaTeX-add-pagestyles "headings" "slide" "overlay" "note") + (setq LaTeX-default-document-environment "slide")) + TeX-dialect) + +;;; slides.el ends here diff --git a/elpa/auctex-13.1.3/style/slides.elc b/elpa/auctex-13.1.3/style/slides.elc Binary files differnew file mode 100644 index 0000000..4f59be0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/slides.elc diff --git a/elpa/auctex-13.1.3/style/slovak.el b/elpa/auctex-13.1.3/style/slovak.el new file mode 100644 index 0000000..4909613 --- /dev/null +++ b/elpa/auctex-13.1.3/style/slovak.el @@ -0,0 +1,19 @@ +;;; slovak.el --- Setup AUCTeX for editing Slovak text. -*- lexical-binding: t; -*- + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-quotes + "font-latex" + (quotes)) + +(TeX-add-style-hook + "slovak" + (lambda () + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language `("slovak" "\\uv{" "}" ,TeX-quote-after-quote))) + (when (fboundp 'font-latex-add-quotes) + (font-latex-add-quotes '("\"`" "\"'")) + (font-latex-add-quotes '("\"<" "\">" french))) + (run-hooks 'TeX-language-sk-hook)) + TeX-dialect) diff --git a/elpa/auctex-13.1.3/style/slovak.elc b/elpa/auctex-13.1.3/style/slovak.elc Binary files differnew file mode 100644 index 0000000..a506c6f --- /dev/null +++ b/elpa/auctex-13.1.3/style/slovak.elc diff --git a/elpa/auctex-13.1.3/style/sourcecodepro.el b/elpa/auctex-13.1.3/style/sourcecodepro.el new file mode 100644 index 0000000..ab1dcbb --- /dev/null +++ b/elpa/auctex-13.1.3/style/sourcecodepro.el @@ -0,0 +1,88 @@ +;;; sourcecodepro.el --- AUCTeX style for `sourcecodepro.sty' (v2.6) -*- lexical-binding: t; -*- + +;; Copyright (C) 2017, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-02-18 +;; 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 `sourcecodepro.sty' (v2.6) from 2016/04/18. +;; `sourcecodepro.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "sourcecodepro" + (lambda () + + ;; Load "fontspec" with package options "opentype" or "otf": + (when (or (LaTeX-provided-package-options-member "sourcecodepro" "opentype") + (LaTeX-provided-package-options-member "sourcecodepro" "opentype=true") + (LaTeX-provided-package-options-member "sourcecodepro" "otf") + (LaTeX-provided-package-options-member "sourcecodepro" "otf=true")) + (TeX-run-style-hooks "fontspec")) + + ;; The next set of macros is only available when package "fontspec" + ;; is loaded, by this style or by user. We just check against + ;; "fontspec" and do not go through a check of `TeX-engine': + (when (member "fontspec" (TeX-style-list)) + (TeX-add-symbols + '("sourcecodepro" -1) + '("sourcecodepromedium" -1) + '("sourcecodeprolight" -1) + '("sourcecodeproextreme" -1) + '("sourcecodeprolf" -1))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup) + (member "fontspec" (TeX-style-list))) + (font-latex-add-keywords '(("sourcecodepro" "") + ("sourcecodepromedium" "") + ("sourcecodeprolight" "") + ("sourcecodeproextreme" "") + ("sourcecodeprolf" "")) + 'type-declaration))) + TeX-dialect) + +(defvar LaTeX-sourcecodepro-package-options + '("lining" "nf" "lf" + "oldstyle" "osf" + "black" "semibold" "bold" + "light" "extralight" + "regular" "medium" + "scale" "scaled" + "default" "ttdefault" "nottdefault" + "type1" "t1" + "opentype" "otf") + "Prompt for package options for the sourcecodepro package.") + +;;; sourcecodepro.el ends here diff --git a/elpa/auctex-13.1.3/style/sourcecodepro.elc b/elpa/auctex-13.1.3/style/sourcecodepro.elc Binary files differnew file mode 100644 index 0000000..94935af --- /dev/null +++ b/elpa/auctex-13.1.3/style/sourcecodepro.elc diff --git a/elpa/auctex-13.1.3/style/splitidx.el b/elpa/auctex-13.1.3/style/splitidx.el new file mode 100644 index 0000000..edf52c2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/splitidx.el @@ -0,0 +1,315 @@ +;;; splitidx.el --- AUCTeX style for `splitidx.sty' (v1.2a) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-09-19 +;; 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 `splitidx.sty' (v1.2a) from 2013/04/09. +;; `splitidx.sty' is part of TeXLive. + +;; The main index macro provided by `splitidx.sty' is +;; +;; \sindex[<shortcut>]{<index-entry>} +;; +;; where <shortcut> identifies the target where <index-entry> is going +;; into. This style checks if RefTeX is loaded and adds "\sindex" to +;; index macros known by RefTeX; this is described in RefTeX manual +;; section 5.5 Defining Index Macros: +;; +;; (setq reftex-index-macros '(("\\sindex[]{*}" 1 ?s "" nil t))) +;; +;; To make things more user friendly, this style does not hard-code +;; the key `?s' and offers a customizable variable called +;; `LaTeX-splitidx-sindex-reftex-quick-id-key'. Customize this +;; variable to another unique key if you have other preference. Also +;; note the integer 1 after "\\sindex[]{*}". This tells RefTeX to +;; look in first optional argument to find out which index the entry +;; belongs to. If omitted, RefTeX puts the index entry into "idx". + +;; `splitidx.sty' provides also the option `idxcommands' where a +;; command with the name of the <shortcut> is defined for each +;; declared index. An example from splitidx.pdf: +;; +;; \documentclass{article} +;; \usepackage[idxcommands]{splitidx} +;; +;; \newindex[General Index]{idx} % Name and shortcut of the 1st index +;; \newindex[Index of Animals]{ani} % ... 2nd index +;; \newindex[Index of Fruits]{fru} % ... 3rd index +;; \newindex[Index of Vegetables]{veg} % ... 4th index +;; ... +;; +;; Now four index commands \idx, \ani, \fru and \veg are available. +;; This style adds these commands to AUCTeX and RefTeX (check function +;; `LaTeX-splitidx-auto-cleanup'). The only thing missing is adding +;; these commands to `reftex-index-macros' since the unique keys must +;; be set by user. To get full advantage from RefTeX, remember that +;; ?i, ?I, and ?g are reserved and set something like this in your +;; init-file: +;; +;; (add-to-list 'reftex-index-macros '("\\idx" "idx" ?x "" nil t)) +;; (add-to-list 'reftex-index-macros '("\\ani" "ani" ?a "" nil t)) +;; (add-to-list 'reftex-index-macros '("\\fru" "fru" ?f "" nil t)) +;; (add-to-list 'reftex-index-macros '("\\veg" "veg" ?v "" nil t)) +;; +;; Or you can do this in your tex file: +;; +;; %%% Local Variables: +;; %%% mode: latex +;; %%% TeX-master: t +;; %%% eval: (add-to-list 'reftex-index-macros '("\\idx" "idx" ?x "" nil t)) +;; %%% eval: (add-to-list 'reftex-index-macros '("\\ani" "ani" ?a "" nil t)) +;; %%% eval: (add-to-list 'reftex-index-macros '("\\fru" "fru" ?f "" nil t)) +;; %%% eval: (add-to-list 'reftex-index-macros '("\\veg" "veg" ?v "" nil t)) +;; %%% End: +;; + +;;; Code: + +;; Needed for auto-parsing: +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +;; Setup parsing for \newindex: +(TeX-auto-add-type "splitidx-newindex" "LaTeX" "splitidx-newindices") + +(defvar LaTeX-splitidx-newindex-regex + `(,(concat "\\\\new\\(?:protected\\)?index" + "\\(?:\\[[^]]*\\]\\)?" + "{\\([^}]+\\)}") + 1 LaTeX-auto-splitidx-newindex) + "Matches the argument of `\\newindex' from `splitidx.sty'.") + +(defun LaTeX-splitidx-auto-prepare () + "Clear `LaTeX-auto-splitidx-newindex' before parsing." + (setq LaTeX-auto-splitidx-newindex nil)) + +(defun LaTeX-splitidx-auto-cleanup () + "Process parsed results for \"splitidx.sty\"." + (when (LaTeX-provided-package-options-member "splitidx" "idxcommands") + (dolist (elt (mapcar #'car (LaTeX-splitidx-newindex-list))) + ;; Make every element available as a command + (TeX-add-symbols `(,elt TeX-arg-index)) + ;; Add new macros's to `ispell-tex-skip-alist': skip one argument + (TeX-ispell-skip-setcar `((,elt ispell-tex-arg-end))) + ;; font-locking + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,elt "{")) + 'reference)) + ;; Prepare for parsing + (add-to-list 'LaTeX-auto-regexp-list + `(,(concat + "\\\\" + elt + "{\\([^}{]*\\({[^}{]*\\({[^}{]*\\({[^}{]*}[^}{]*\\)*" + "}[^}{]*\\)*}[^}{]*\\)*\\)}") + 1 LaTeX-auto-index-entry)) + ;; Cater for completion + (add-to-list 'TeX-complete-list + `(,(concat "\\\\" elt "{\\([^{}\n\r]*\\)") + 1 LaTeX-index-entry-list "}")) ))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-splitidx-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-splitidx-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "splitidx" + (lambda () + + (TeX-add-symbols + + ;; 3.1 Setup + '("newindex" + [ "Index name" ] + (TeX-arg-eval + (lambda () + (let ((shortcut (TeX-read-string + (TeX-argument-prompt nil nil "Short cut")))) + (LaTeX-add-splitidx-newindices shortcut) + (format "%s" shortcut))))) + + ;; 3.2 Marking up index entries + '("sindex" + ;; I don't use `[ TeX-arg-index-tag ]' here + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Short cut") + (LaTeX-splitidx-newindex-list) ] + TeX-arg-index) + + ;; 3.4 Customizing index entries + '("AtWriteToIndex" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Short cut") + (LaTeX-splitidx-newindex-list)) + t) + + '("AtNextWriteToIndex" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Short cut") + (LaTeX-splitidx-newindex-list)) + t) + + ;; 3.6 Preventing premature expansion of index entries + '("newprotectedindex" + [ "Index name" ] + (TeX-arg-eval + (lambda () + (let ((shortcut (TeX-read-string + (TeX-argument-prompt nil nil "Short cut")))) + (LaTeX-add-splitidx-newindices shortcut) + (format "%s" shortcut))))) + + ;; 3.7 Including the generated indices in your document + '("printindex" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Short cut") + (LaTeX-splitidx-newindex-list) ] + [ "Index name" ]) + + '("printindex*" 0) + + '("printsubindex" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Short cut") + (LaTeX-splitidx-newindex-list) ] + [ "Index name" ]) + + '("printsubindex*" 0) + + '("setindexpreamble" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Short cut") + (LaTeX-splitidx-newindex-list) ] + t) + + '("useindexpreamble" [ TeX-arg-macro ]) + + '("indexshortcut" 0) + + '("extendtheindex" 4) ) + + ;; Add splitidx to the parser. + (TeX-auto-add-regexp LaTeX-splitidx-newindex-regex) + + ;; Borrowed from index.el + (add-to-list 'LaTeX-auto-regexp-list + `(,(concat "\\\\sindex\\(?:\\[[^{}]*\\]\\)?" + "{\\([^}{]*\\({[^}{]*\\({[^}{]*\\({[^}{]*}[^}{]*\\)*" + "}[^}{]*\\)*}[^}{]*\\)*\\)}") + 1 LaTeX-auto-index-entry)) + + ;; Completion for \sindex entries + (add-to-list 'TeX-complete-list + '("\\\\sindex\\(\\[[^][{}]*\\]\\)?{\\([^{}\n\r]*\\)" + 2 LaTeX-index-entry-list "}")) + + ;; Completion for the |see macro + (add-to-list 'TeX-complete-list + '("|see{\\([^{}\n\r]*\\)" 1 LaTeX-index-entry-list)) + + ;; Tell RefTeX with `reftex-add-index-macros' + (when (fboundp 'reftex-add-index-macros) + (reftex-add-index-macros + `(("\\sindex[]{*}" 1 ,LaTeX-splitidx-sindex-reftex-quick-id-key "" nil t)))) + + ;; 3.2 Marking up index entries + ;; \index should be an alias for \sindex + (when (LaTeX-provided-package-options-member "splitidx" "useindex") + (TeX-add-symbols + '("index" + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Short cut") + (LaTeX-splitidx-newindex-list) ] + (TeX-arg-index))) + ;; Tell RefTeX to look in the optional arg. for the index short cut + (when (fboundp 'reftex-add-index-macros) + (reftex-add-index-macros '(("\\index[]{*}" 1 ?i "" nil t)))) + (add-to-list 'LaTeX-auto-regexp-list + `(,(concat + "\\\\index\\(?:\\[[^{}]*\\]\\)?" + "{\\([^}{]*\\({[^}{]*\\({[^}{]*\\({[^}{]*}[^}{]*\\)*" + "}[^}{]*\\)*}[^}{]*\\)*\\)}") + 1 LaTeX-auto-index-entry)) + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("index" "[{")) + 'reference))) + + ;; 3.5 Automatic custom index commands + ;; With package option `idxcommands', one can write \foo{<entry>} + ;; instead of \sindex[foo]{<entry>} + (when (and (LaTeX-provided-package-options-member "splitidx" "idxcommands") + (LaTeX-splitidx-newindex-list)) + (dolist (elt (mapcar #'car (LaTeX-splitidx-newindex-list))) + ;; Make every `foo' available as a command + (TeX-add-symbols `(,elt TeX-arg-index)) + ;; Add new macros's to `ispell-tex-skip-alist': skip one argument + (TeX-ispell-skip-setcar `((,elt ispell-tex-arg-end))) + ;; Cater for font-locking + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords `((,elt "{")) + 'reference)) + ;; Add defined <entry> to `LaTeX-index-entry-list' + (add-to-list 'LaTeX-auto-regexp-list + `(,(concat + "\\\\" + elt + "{\\([^}{]*\\({[^}{]*\\({[^}{]*\\({[^}{]*}[^}{]*\\)*" + "}[^}{]*\\)*}[^}{]*\\)*\\)}") + 1 LaTeX-auto-index-entry)) )) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("newindex" "[{") + ("AtWriteToIndex" "{{") + ("AtNextWriteToIndex" "{{") + ("newprotectedindex" "[{") + ("setindexpreamble" "[{") + ("useindexpreamble" "[") + ("extendtheindex" "{{{{")) + 'function) + (font-latex-add-keywords '(("sindex" "[{")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-splitidx-package-options + '("makeindex" + "useindex" + "allintoone" + "split" + "protected" + "idxcommands") + "Prompt for package options for the splitidx package.") + +;;; splitidx.el ends here diff --git a/elpa/auctex-13.1.3/style/splitidx.elc b/elpa/auctex-13.1.3/style/splitidx.elc Binary files differnew file mode 100644 index 0000000..ea1de12 --- /dev/null +++ b/elpa/auctex-13.1.3/style/splitidx.elc diff --git a/elpa/auctex-13.1.3/style/stabular.el b/elpa/auctex-13.1.3/style/stabular.el new file mode 100644 index 0000000..4b4eb96 --- /dev/null +++ b/elpa/auctex-13.1.3/style/stabular.el @@ -0,0 +1,74 @@ +;;; stabular.el --- AUCTeX style for `stabular.sty' (v2.1) -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-12-11 +;; 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 `stabular.sty' (v2.1) from 2021/10/04. +;; `stabular.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "stabular" + (lambda () + + ;; Load array.el if the package option is given: + (when (LaTeX-provided-package-options-member "stabular" "array") + (TeX-run-style-hooks "array")) + + ;; Add the environments provided by the package: + (LaTeX-add-environments + '("stabular" LaTeX-env-array) + '("stabular*" LaTeX-env-tabular*)) + + ;; Use the enhanced tabular indentation. Append to + ;; `LaTeX-indent-environment-list' in order not to override custom + ;; settings. + (make-local-variable 'LaTeX-indent-environment-list) + (add-to-list 'LaTeX-indent-environment-list + '("stabular" LaTeX-indent-tabular) + t) + (add-to-list 'LaTeX-indent-environment-list + '("stabular*" LaTeX-indent-tabular) + t) + + ;; Append the environments to `LaTeX-item-list': + (add-to-list 'LaTeX-item-list + '("stabular" . LaTeX-item-array) + t) + (add-to-list 'LaTeX-item-list + '("stabular*" . LaTeX-item-tabular*) + t)) + + TeX-dialect) + +(defvar LaTeX-stabular-package-options '("array") + "Package options for the stabular package.") + +;;; stabular.el ends here diff --git a/elpa/auctex-13.1.3/style/stabular.elc b/elpa/auctex-13.1.3/style/stabular.elc Binary files differnew file mode 100644 index 0000000..a9bc24d --- /dev/null +++ b/elpa/auctex-13.1.3/style/stabular.elc diff --git a/elpa/auctex-13.1.3/style/stfloats.el b/elpa/auctex-13.1.3/style/stfloats.el new file mode 100644 index 0000000..9e80bbf --- /dev/null +++ b/elpa/auctex-13.1.3/style/stfloats.el @@ -0,0 +1,65 @@ +;;; stfloats.el --- AUCTeX style for `stfloats.sty' (v3.3d) -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-12-11 +;; 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 `stfloats.sty' (v3.3d) from 2017/03/27. +;; `stfloats.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "stfloats" + (lambda () + + ;; New symbols + (TeX-add-symbols + "fnbelowfloat" + "fnunderfloat" + "setbaselinefloat" + "setbaselinefixed") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("fnbelowfloat" "") + ("fnunderfloat" "") + ("setbaselinefloat" "") + ("setbaselinefixed" "")) + 'function))) + TeX-dialect) + +(defvar LaTeX-stfloats-package-options nil + "Package options for the stfloats package.") + +;;; stfloats.el ends here diff --git a/elpa/auctex-13.1.3/style/stfloats.elc b/elpa/auctex-13.1.3/style/stfloats.elc Binary files differnew file mode 100644 index 0000000..36af473 --- /dev/null +++ b/elpa/auctex-13.1.3/style/stfloats.elc diff --git a/elpa/auctex-13.1.3/style/subcaption.el b/elpa/auctex-13.1.3/style/subcaption.el new file mode 100644 index 0000000..cd3312d --- /dev/null +++ b/elpa/auctex-13.1.3/style/subcaption.el @@ -0,0 +1,205 @@ +;;; subcaption.el --- AUCTeX style for `subcaption.sty' (v1.3) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015--2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-09-19 +;; 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 `subcaption.sty' (v1.3) from 2019-08-31. +;; `subcaption.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(defvar LaTeX-caption-key-val-options) + +(defvar LaTeX-subcaption-key-val-options + '(("subrefformat" ("default" "empty" "simple" "brace" "parens"))) + "Key=value options for subcaption package. +This key takes the same values as \"labelformat\" from caption +package.") + +(defun LaTeX-arg-subcaption-subcaption (optional &optional star) + "Query for the arguments of \"\\subcaption\" incl. a label and insert them. +If OPTIONAL is non-nil, indicate it while reading the caption. +If STAR is non-nil, then do not query for a \\label and a short +caption, insert only a caption." + (let* (;; \subcaption needs an environment, "minipage" will be + ;; popular. If so, check next higher environment to find out + ;; where we are + (currenv (if (string= (LaTeX-current-environment) "minipage") + (LaTeX-current-environment 2) + (LaTeX-current-environment))) + (caption (TeX-read-string + (TeX-argument-prompt optional nil "Sub-caption"))) + (short-caption + (when (and (not star) + (>= (length caption) LaTeX-short-caption-prompt-length)) + (TeX-read-string + (TeX-argument-prompt t nil "Short caption"))))) + (indent-according-to-mode) + (when (and short-caption (not (string= short-caption ""))) + (insert LaTeX-optop short-caption LaTeX-optcl)) + (insert TeX-grop caption TeX-grcl) + ;; Fill the \subcaption paragraph before inserting the \label: + (when auto-fill-function (LaTeX-fill-paragraph)) + (when (and (not star) + (save-excursion (LaTeX-label currenv 'environment))) + ;; Move \label into next line if we have one: + (LaTeX-newline) + (indent-according-to-mode) + (end-of-line)))) + +(defun LaTeX-arg-subcaption-subcaptionbox (optional &optional star) + "Query for the arguments of \"\\subcaptionbox\" incl. a label and insert them. +If OPTIONAL is non-nil, indicate it while reading the caption. +If STAR is non-nil, then do not query for a \\label and a short +caption, insert only a caption." + (let* ((currenv (LaTeX-current-environment)) + (caption (TeX-read-string + (TeX-argument-prompt optional nil "Sub-caption"))) + (short-caption + (when (and (not star) + (>= (length caption) LaTeX-short-caption-prompt-length)) + (TeX-read-string + (TeX-argument-prompt t nil "Short Sub-caption"))))) + (indent-according-to-mode) + (when (and short-caption (not (string= short-caption ""))) + (insert LaTeX-optop short-caption LaTeX-optcl)) + (insert TeX-grop caption) + (unless star (LaTeX-label currenv 'environment)) + (insert TeX-grcl)) + (let* ((TeX-arg-opening-brace "[") + (TeX-arg-closing-brace "]") + (width (completing-read (TeX-argument-prompt t nil "Width") + (mapcar (lambda (elt) (concat TeX-esc (car elt))) + (LaTeX-length-list)))) + (inpos (if (and width (not (string-equal width ""))) + (completing-read (TeX-argument-prompt t nil "Inner position") + '("c" "l" "r" "s")) + ""))) + (TeX-argument-insert width t) + (TeX-argument-insert inpos t)) + ;; Fill the paragraph before inserting {}. We use this function + ;; since we add \subcaption to `paragraph-start' in the style hook + ;; below. + (when auto-fill-function (LaTeX-fill-paragraph))) + +(TeX-add-style-hook + "subcaption" + (lambda () + ;; Run style hook for caption.el + (TeX-run-style-hooks "caption") + + + (TeX-add-symbols + ;; Basic commands + '("subcaption" (LaTeX-arg-subcaption-subcaption)) + '("subcaption*" (LaTeX-arg-subcaption-subcaption t) ) + '("subcaptionbox" (LaTeX-arg-subcaption-subcaptionbox) t) + '("subcaptionbox*" (LaTeX-arg-subcaption-subcaptionbox t) t) + '("subref" TeX-arg-ref) + ;; \subref* is only available with hyperref.sty loaded, we don't + ;; check if hyperref.el is loaded and make it available directly. + '("subref*" TeX-arg-ref) + '("phantomcaption" 0) + '("phantomsubcaption" 0) + '("subfloat" [ "List entry" ] [ "Sub-caption" ] t)) + + ;; The next 2 macros are part of the kernel of caption.sty, but we + ;; load them within subcaption.el. + (TeX-add-symbols + '("DeclareCaptionSubType" + [TeX-arg-eval + completing-read (TeX-argument-prompt t nil "Numbering scheme") + '("arabic" "roman" "Roman" "alph" "Alph" "fnsymbol")] + (TeX-arg-eval + completing-read + (TeX-argument-prompt nil nil "Type") + (append + (when (and (fboundp 'LaTeX-newfloat-DeclareFloatingEnvironment-list) + (LaTeX-newfloat-DeclareFloatingEnvironment-list)) + (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list))) + '("figure" "table")))) + + '("DeclareCaptionSubType*" + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Numbering scheme") + '("arabic" "roman" "Roman" "alph" "Alph" "fnsymbol")] + (TeX-arg-eval + completing-read + (TeX-argument-prompt nil nil "Type") + (append + (when (and (fboundp 'LaTeX-newfloat-DeclareFloatingEnvironment-list) + (LaTeX-newfloat-DeclareFloatingEnvironment-list)) + (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list))) + '("figure" "table"))))) + + ;; \subcaption(box)? and \subfloat macros should get their own lines + (LaTeX-paragraph-commands-add-locally + '("subcaption" "subcaptionbox" "subfloat")) + + ;; The subfigure & subtable environments + (LaTeX-add-environments + '("subfigure" LaTeX-env-minipage) + '("subtable" LaTeX-env-minipage)) + + ;; Append them to `LaTeX-label-alist': + (add-to-list 'LaTeX-label-alist '("subfigure" . LaTeX-figure-label) t) + (add-to-list 'LaTeX-label-alist '("subtable" . LaTeX-table-label) t) + + ;; Introduce env's to RefTeX if loaded + (when (fboundp 'reftex-add-label-environments) + (reftex-add-label-environments + `(("subfigure" ?f ,LaTeX-figure-label "~\\ref{%s}" caption) + ("subtable" ?t ,LaTeX-table-label "~\\ref{%s}" caption)))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("subcaption" "*[{") + ("subcaptionbox" "*[{[[") + ("phantomcaption" "") + ("phantomsubcaption" "") + ("subfloat" "[[")) + 'textual) + (font-latex-add-keywords '(("subref" "*{")) + 'reference) + (font-latex-add-keywords '(("DeclareCaptionSubType" "*[{")) + 'function)) ) + TeX-dialect) + +(defun LaTeX-subcaption-package-options () + "Prompt for package options for the subcaption package." + (TeX-load-style "caption") + (TeX-read-key-val t (append LaTeX-subcaption-key-val-options + LaTeX-caption-key-val-options))) + +;;; subcaption.el ends here diff --git a/elpa/auctex-13.1.3/style/subcaption.elc b/elpa/auctex-13.1.3/style/subcaption.elc Binary files differnew file mode 100644 index 0000000..18e28d3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/subcaption.elc diff --git a/elpa/auctex-13.1.3/style/subfigure.el b/elpa/auctex-13.1.3/style/subfigure.el new file mode 100644 index 0000000..181b17c --- /dev/null +++ b/elpa/auctex-13.1.3/style/subfigure.el @@ -0,0 +1,87 @@ +;;; subfigure.el --- AUCTeX style file for subfigure.sty -*- lexical-binding: t; -*- + +;; Copyright (C) 2003, 2005, 2013, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Reiner Steib <Reiner.Steib@gmx.de> +;; Maintainer: auctex-devel@gnu.org +;; 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: + +;; AUCTeX style file for `subfigure.sty' + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "subfigure" + (lambda () + (TeX-add-symbols + '("subfigure" [ "List entry" ] [ "Sub caption" ] "Figure") + '("subtable" [ "List entry" ] [ "Sub caption" ] "Figure") + '("Subref" TeX-arg-ref) + '("subref" TeX-arg-ref) + '("subcapsize" 0) + '("subcapfont" 0) + '("subcaplabelfont" 0)) + + (LaTeX-add-lengths "subfigtopskip" "subfigcapskip" "subfigcaptopadj" + "subfigbottomskip" "subfigcapmargin" "subfiglabelskip") + + ;; Install completion for labels: + (setq TeX-complete-list + (append + '(("\\\\[Ss]ubref{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}")) + TeX-complete-list)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("subfigure" "[[{") + ("subtable" "[[{")) + 'textual) + (font-latex-add-keywords '(("Subref" "{") + ("subref" "{")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-subfigure-package-options '("normal" "hang" "center" + "centerlast" "nooneline" + "raggedright" "isu" "anne" + "scriptsize" "footnotesize" + "small" "normalsize" "large" + "Large" "rm" "sf" "tt" "md" + "bf" "up" "it" "sl" "sc" "RM" + "SF" "TT" "MD" "BF" "IT" "SL" + "SC" "UP" "figbotcap" + "figtopcap" "tabbotcap" + "tabtopcap" "FIGBOTCAP" + "FIGTOPCAP" "TABBOTCAP" + "TABTOPCAP" "loose" "tight") + "Package options for the subfigure package.") + +;;; subfigure.el ends here diff --git a/elpa/auctex-13.1.3/style/subfigure.elc b/elpa/auctex-13.1.3/style/subfigure.elc Binary files differnew file mode 100644 index 0000000..621661a --- /dev/null +++ b/elpa/auctex-13.1.3/style/subfigure.elc diff --git a/elpa/auctex-13.1.3/style/subfiles.el b/elpa/auctex-13.1.3/style/subfiles.el new file mode 100644 index 0000000..49df08c --- /dev/null +++ b/elpa/auctex-13.1.3/style/subfiles.el @@ -0,0 +1,107 @@ +;;; subfiles.el --- AUCTeX style for the subfiles package. -*- lexical-binding: t; -*- + +;; Copyright (C) 2016, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Uwe Brauer <oub@mat.ucm.es> +;; Created: 07 Nov 2016 +;; 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. + +;; Acknowledgements +;; Mosè Giordano <mose@gnu.org> +;; Arash Esbati <arash@gnu.org> + +;;; Commentary: + +;; This file adds support for the subfiles package. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function reftex-compile-variables + "reftex" + ()) + +(defvar LaTeX-subfiles-package-options nil + "Package options for the subfiles package.") + +(defun LaTeX-subfiles-class-options () + "Return name of the main file relative to current subfile." + (file-relative-name + (read-file-name + "Main file: " nil nil nil nil + (lambda (texfiles) + (string-match "\\.tex\\'" texfiles))) + (TeX-master-directory))) + +(TeX-add-style-hook + "subfiles" + (lambda () + + ;; The following code will run `TeX-run-style-hooks' on the subfile + ;; master file. Thanks to Mosè Giordano <mose@gnu.org> for + ;; presenting a better solution using `assoc'. + (let ((master-file (cadr (assoc "subfiles" LaTeX-provided-class-options)))) + (when (stringp master-file) + (TeX-run-style-hooks + (file-name-sans-extension master-file)))) + + (TeX-add-symbols + '("subfile" TeX-arg-file) + '("subfileinclude" TeX-arg-file)) + + ;; Ensure that \subfile and \subfileinclude stay in one line + (LaTeX-paragraph-commands-add-locally '("subfile" "subfileinclude")) + + ;; Tell AUCTeX that \subfile loads a file. regexp is the same as + ;; for \input or \include. This will run `TeX-run-style-hooks' on + ;; subfile(s) when master file is loaded. + (TeX-auto-add-regexp + `(,(concat + "\\\\subfile\\(?:include\\)?" + "{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}") + 1 TeX-auto-file)) + + ;; Tell RefTeX the same thing. + (when (and (boundp 'reftex-include-file-commands) + (not (string-match "subfile" + (mapconcat #'identity + reftex-include-file-commands + "|")))) + (make-local-variable 'reftex-include-file-commands) + (add-to-list 'reftex-include-file-commands "subfile\\(?:include\\)?" t) + (reftex-compile-variables)) + + ;; The following code will fontify \subfile{} and + ;; \subfileinclude{} like \input. + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("subfile" "{") + ("subfileinclude" "{")) + 'reference))) + TeX-dialect) + +;;; subfiles.el ends here diff --git a/elpa/auctex-13.1.3/style/subfiles.elc b/elpa/auctex-13.1.3/style/subfiles.elc Binary files differnew file mode 100644 index 0000000..fada17f --- /dev/null +++ b/elpa/auctex-13.1.3/style/subfiles.elc diff --git a/elpa/auctex-13.1.3/style/swedish.el b/elpa/auctex-13.1.3/style/swedish.el new file mode 100644 index 0000000..120e67a --- /dev/null +++ b/elpa/auctex-13.1.3/style/swedish.el @@ -0,0 +1,18 @@ +;;; swedish.el --- Setup AUCTeX for editing Swedish text. -*- lexical-binding: t; -*- + +;;; Commentary: +;; +;; Apparently the Swedes use ''this style'' quotations. + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "swedish" + (lambda () + (unless (eq (car TeX-quote-language) 'override) + (setq TeX-quote-language + `("swedish" "''" ,TeX-close-quote ,TeX-quote-after-quote))) + (setq LaTeX-babel-hyphen-language "swedish") + (run-hooks 'TeX-language-sv-hook)) + TeX-dialect) diff --git a/elpa/auctex-13.1.3/style/swedish.elc b/elpa/auctex-13.1.3/style/swedish.elc Binary files differnew file mode 100644 index 0000000..b901103 --- /dev/null +++ b/elpa/auctex-13.1.3/style/swedish.elc diff --git a/elpa/auctex-13.1.3/style/tabularx.el b/elpa/auctex-13.1.3/style/tabularx.el new file mode 100644 index 0000000..970f698 --- /dev/null +++ b/elpa/auctex-13.1.3/style/tabularx.el @@ -0,0 +1,73 @@ +;;; tabularx.el --- AUCTeX style for the tabularx package. -*- lexical-binding: t; -*- + +;; Copyright (C) 2009, 2013-2016, 2020 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@caeruleus.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2009-02-22 +;; 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 the tabularx package. + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-tabularx-package-options + '("infoshow" "debugshow") + "Package options for the tabularx package.") + +(TeX-add-style-hook + "tabularx" + (lambda () + ;; Make tabularx the default tabular environment + (setq LaTeX-default-tabular-environment "tabularx") + ;; Use the enhanced tabular indentation. Append to + ;; `LaTeX-indent-environment-list' in order not to override custom settings. + (add-to-list (make-local-variable 'LaTeX-indent-environment-list) + '("tabularx" LaTeX-indent-tabular) t) + + ;; Append tabularx to `LaTeX-item-list' with `LaTeX-item-tabular*' + (add-to-list 'LaTeX-item-list '("tabularx" . LaTeX-item-tabular*) t) + + ;; New symbols + (TeX-add-symbols + "tracingtabularx" + '("tabularxcolumn" 0)) + ;; New environments + (LaTeX-add-environments + ;; XXX: The tabularx environment takes the same arguments as the + ;; tabular* environment. However, the supported tokens in the + ;; format can differ, so at some point in time we might want to + ;; separate tabular* and tabularx. + '("tabularx" LaTeX-env-tabular*)) + + ;; `tabularx' requires array to define the column types + (TeX-run-style-hooks "array") + + ;; `tabularx.sty' adds one new column specification letter. + (set (make-local-variable 'LaTeX-array-column-letters) + (concat LaTeX-array-column-letters "X"))) + TeX-dialect) + +;;; tabularx.el ends here diff --git a/elpa/auctex-13.1.3/style/tabularx.elc b/elpa/auctex-13.1.3/style/tabularx.elc Binary files differnew file mode 100644 index 0000000..1a68144 --- /dev/null +++ b/elpa/auctex-13.1.3/style/tabularx.elc diff --git a/elpa/auctex-13.1.3/style/tabulary.el b/elpa/auctex-13.1.3/style/tabulary.el new file mode 100644 index 0000000..6b309e0 --- /dev/null +++ b/elpa/auctex-13.1.3/style/tabulary.el @@ -0,0 +1,73 @@ +;;; tabulary.el --- AUCTeX style for the tabulary package. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013-2016, 2020, 2021 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2013-07-14 +;; 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 the tabulary package. + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-tabulary-package-options + '("debugshow") + "Package options for the tabulary package.") + +(TeX-add-style-hook + "tabulary" + (lambda () + ;; Make tabulary the default tabular environment + (setq LaTeX-default-tabular-environment "tabulary") + + ;; Use the enhanced tabular indentation. Append to + ;; `LaTeX-indent-environment-list' in order not to override custom + ;; settings. + (add-to-list (make-local-variable 'LaTeX-indent-environment-list) + '("tabulary" LaTeX-indent-tabular) + t) + + ;; Append tabulary to `LaTeX-item-list' with `LaTeX-item-tabular*' + (add-to-list 'LaTeX-item-list '("tabulary" . LaTeX-item-tabular*) t) + + ;; New symbols + (TeX-add-symbols + "tymax" "tymin" "tyformat") + ;; New environments + (LaTeX-add-environments + ;; TODO: tabulary defines some new column types, but there is no completion + ;; so far in `LaTeX-env-tabular*' + '("tabulary" LaTeX-env-tabular*)) + + ;; `tabulary' requires the array package + (TeX-run-style-hooks "array") + + ;; `tabulary.sty' adds some new column specification letters. + (set (make-local-variable 'LaTeX-array-column-letters) + (concat LaTeX-array-column-letters "L" "C" "R" "J"))) + TeX-dialect) + +;;; tabulary.el ends here diff --git a/elpa/auctex-13.1.3/style/tabulary.elc b/elpa/auctex-13.1.3/style/tabulary.elc Binary files differnew file mode 100644 index 0000000..45ef5b5 --- /dev/null +++ b/elpa/auctex-13.1.3/style/tabulary.elc diff --git a/elpa/auctex-13.1.3/style/tarticle.el b/elpa/auctex-13.1.3/style/tarticle.el new file mode 100644 index 0000000..c4381d3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/tarticle.el @@ -0,0 +1,45 @@ +;;; tarticle.el - Special code for tarticle class. -*- lexical-binding: t; -*- + +;; Copyright (C) 2017, 2020 Free Software Foundation, Inc. + +;; Author: Ikumi Keita <ikumi@ikumi.que.jp> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-03-23 +;; 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: + +;; Please write me. + +;;; Code: + +(require 'tex) + +(TeX-load-style "jarticle") +(defvar LaTeX-tarticle-class-options LaTeX-jarticle-class-options + "Class options for the tarticle class.") + +(TeX-add-style-hook + "tarticle" + (lambda () + (TeX-run-style-hooks "jarticle" "plext")) + TeX-dialect) + +;;; tarticle.el ends here diff --git a/elpa/auctex-13.1.3/style/tarticle.elc b/elpa/auctex-13.1.3/style/tarticle.elc Binary files differnew file mode 100644 index 0000000..362b4cd --- /dev/null +++ b/elpa/auctex-13.1.3/style/tarticle.elc diff --git a/elpa/auctex-13.1.3/style/tbook.el b/elpa/auctex-13.1.3/style/tbook.el new file mode 100644 index 0000000..6b36056 --- /dev/null +++ b/elpa/auctex-13.1.3/style/tbook.el @@ -0,0 +1,45 @@ +;;; tbook.el - Special code for tbook class. -*- lexical-binding: t; -*- + +;; Copyright (C) 2017, 2020 Free Software Foundation, Inc. + +;; Author: Ikumi Keita <ikumi@ikumi.que.jp> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-03-23 +;; 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: + +;; Please write me. + +;;; Code: + +(require 'tex) + +(TeX-load-style "jbook") +(defvar LaTeX-tbook-class-options LaTeX-jbook-class-options + "Class options for the tbook class.") + +(TeX-add-style-hook + "tbook" + (lambda () + (TeX-run-style-hooks "jbook" "plext")) + TeX-dialect) + +;;; tbook.el ends here diff --git a/elpa/auctex-13.1.3/style/tbook.elc b/elpa/auctex-13.1.3/style/tbook.elc Binary files differnew file mode 100644 index 0000000..4419afe --- /dev/null +++ b/elpa/auctex-13.1.3/style/tbook.elc diff --git a/elpa/auctex-13.1.3/style/tcolorbox.el b/elpa/auctex-13.1.3/style/tcolorbox.el new file mode 100644 index 0000000..5ba44bb --- /dev/null +++ b/elpa/auctex-13.1.3/style/tcolorbox.el @@ -0,0 +1,714 @@ +;;; tcolorbox.el --- AUCTeX style for `tcolorbox.sty' (v4.00) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015--2021 Free Software Foundation, Inc. + +;; Author: Tassilo Horn <tsdh@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-01-04 +;; 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 `tcolorbox.sty' (v4.00) from 2017/02/16. + +;; This style file adds support for core macros and environments and +;; their options provided by `tcolorbox.sty'. Macros and environments +;; provided by libraries should go in their own style files where the +;; file is prefixed with `tcolorboxlib-', +;; e.g. `tcolorboxlib-raster.el'. + +;; Libraries should also prepend a symbol containing their key=val +;; options to the variable `LaTeX-tcolorbox-keyval-options-full'. +;; This variable is used by the function of the same name called when +;; inserting `\tcbset' macro. + +;;; Code: + +;; Needed for compiling `cl-pushnew': +(eval-when-compile + (require 'cl-lib)) + +;; Needed for auto-parsing: +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function LaTeX-xcolor-definecolor-list "xcolor" ()) + +;; FIXME: Anything missing? +(defvar LaTeX-tcolorbox-keyval-options + '(;; 4.1 Title + ("title") + ("notitle") + ("adjusted title") + ("adjust text") + ("squeezed title") + ("squeezed title*") + ("detach title") + ("attach title") + ("attach title to upper") + ;; 4.2 Subtitle + ("subtitle style") + ;; 4.3 Upper Part + ("upperbox" ("visible" "invisible")) + ("visible") + ("invisible") + ("saveto") + ;; 4.4 Lower Part + ("lowerbox" ("visible" "invisible" "ignored")) + ("savelowerto") + ("lower separated" ("true" "false")) + ("savedelimiter") + ;; 4.5 Colors and Fonts + ("colframe") + ("colback") + ("title filled" ("true" "false")) + ("colbacktitle") + ("colupper") + ("collower") + ("coltext") + ("coltitle") + ("fontupper" ("\\rmfamily" "\\sffamily" "\\ttfamily" "\\mdseries" "\\bfseries" + "\\upshape" "\\itshape" "\\slshape" "\\scshape" + "\\tiny" "\\scriptsize" "\\footnotesize" + "\\small" "\\normalsize" "\\large" + "\\Large" "\\LARGE" "\\huge" "\\Huge" "\\normalfont")) + ("fontlower" ("\\rmfamily" "\\sffamily" "\\ttfamily" "\\mdseries" "\\bfseries" + "\\upshape" "\\itshape" "\\slshape" "\\scshape" + "\\tiny" "\\scriptsize" "\\footnotesize" + "\\small" "\\normalsize" "\\large" + "\\Large" "\\LARGE" "\\huge" "\\Huge" "\\normalfont")) + ("fonttitle" ("\\rmfamily" "\\sffamily" "\\ttfamily" "\\mdseries" "\\bfseries" + "\\upshape" "\\itshape" "\\slshape" "\\scshape" + "\\tiny" "\\scriptsize" "\\footnotesize" + "\\small" "\\normalsize" "\\large" + "\\Large" "\\LARGE" "\\huge" "\\Huge" "\\normalfont")) + ;; 4.6 Text Alignment + ("halign" ("justify" "left" "flush left" "right" + "flush right" "center" "flush center")) + ("halign lower" ("justify" "left" "flush left" "right" + "flush right" "center" "flush center")) + ("halign title" ("justify" "left" "flush left" "right" + "flush right" "center" "flush center")) + ("flushleft upper") + ("center upper") + ("flushright upper") + ("flushleft lower") + ("center lower") + ("flushright lower") + ("flushleft title") + ("center title") + ("flushright title") + ("valign" ("top" "center" "bottom" "scale" "scale*")) + ("valign upper" ("top" "center" "bottom" "scale" "scale*")) + ("valign lower" ("top" "center" "bottom" "scale" "scale*")) + ("valign scale limit") + ;; 4.7 Geometry: + ;; 4.7.1 Width + ("width") + ("text width") + ("add to width") + ;; 4.7.2 Rules + ("toprule") + ("bottomrule") + ("leftrule") + ("rightrule") + ("titlerule") + ("boxrule") + ;; 4.7.3 Arcs + ("arc") + ("circular arc") + ("bean arc") + ("octogon arc") + ("arc is angular") + ("arc is curved") + ("outer arc") + ("auto outer arc") + ;; 4.7.4 Spacing + ("boxsep") + ("left") + ("left*") + ("lefttitle") + ("leftupper") + ("leftlower") + ("right") + ("right*") + ("righttitle") + ("rightupper") + ("rightlower") + ("top") + ("toptitle") + ("bottom") + ("bottomtitle") + ("middle") + ;; 4.7.5 Size Shortcuts + ("size" ("normal" "title" "small" "fbox" "tight" "minimal")) + ("oversize") + ("toggle left and right" ("none" "forced" "evenpage")) + ;; 4.8 Corners + ("sharp corners" ("northwest" "northeast" "southwest" "southeast" + "north" "south" "east" "west" "downhill" "uphill" "all")) + ("rounded corners" ("northwest" "northeast" "southwest" "southeast" + "north" "south" "east" "west" "downhill" "uphill" "all")) + ("sharpish corners") + ;; 4.9 Transparency + ("opacityframe") + ("opacityback") + ("opacitybacktitle") + ("opacityfill") + ("opacityupper") + ("opacitylower") + ("opacitytext") + ("opacitytitle") + ;; 4.10 Height Control + ("natural height") + ("height") + ("height plus") + ("height from") + ("text height") + ("add to height") + ("add to natural height") + ("height fill" ("true" "false" "maximum")) + ("square") + ("space") + ("space to upper") + ("space to lower") + ("space to both") + ("space to") + ("split") + ("equal height group") + ("minimum for equal height group") + ("minimum for current equal height group") + ("use height from group") + ;; 4.11 Box Content Additions + ("before title") + ("after title") + ("before upper") + ("after upper") + ("after upper*") + ("before lower") + ("after lower") + ("after lower*") + ("text fill") + ("tabularx") + ("tabularx*") + ("tikz upper") + ("tikz lower") + ("tikznode upper") + ("tikznode lower") + ("tikznode") + ("varwidth upper") + ;; 4.12 Overlays + ("overlay") + ("no overlay") + ("overlay broken") + ("overlay unbroken") + ("overlay first") + ("overlay middle") + ("overlay last") + ("overlay unbroken and first") + ("overlay middle and last") + ("overlay unbroken and last") + ("overlay first and middle") + ;; 4.13 Floating Objects + ("floatplacement" ("htbp" "t" "b" "h" "p")) + ("float" ("htbp" "t" "b" "h" "p")) + ("float*" ("htbp" "t" "b" "h" "p")) + ("nofloat") + ("every float" ("\\centering" "\\raggedleft" "\\raggedright")) + ;; 4.14 Embedding into the Surroundings + ("before") + ("after") + ("parskip") + ("noparskip") + ("autoparskip") + ("nobeforeafter") + ("forces nobeforeafter") + ("baseline") + ("box align" ("bottom" "top" "center" "base" )) + ("before skip") + ("after skip") + ("beforeafter skip") + ("left skip") + ("right skip") + ("leftright skip") + ("ignore nobreak" ("true" "false")) + ("before nobreak") + ;; 4.15 Bounding Box + ("enlarge top initially by") + ("enlarge bottom finally by") + ("enlarge top at break by") + ("enlarge bottom at break by") + ("enlarge top by") + ("enlarge bottom by") + ("enlarge left by") + ("enlarge right by") + ("enlarge by") + ("flush left") + ("flush right") + ("center") + ("grow to left by") + ("grow to right by") + ("toggle enlargement" ("none" "forced" "evenpage")) + ("spread inwards") + ("spread outwards") + ("move upwards") + ("move upwards*") + ;; FIXME: This one should be added w/ `breakable' lib: + ;; ("fill downwards") + ("spread upwards") + ("spread upwards*") + ("spread sidewards") + ("spread") + ("spread downwards") + ("shrink tight") + ("extrude left by") + ("extrude right by") + ("extrude top by") + ("extrude bottom by") + ("extrude by") + ;; 4.16 Layered Boxes and Every Box Settings + ("every box") + ("every box on layer 1") + ("every box on layer 2") + ("every box on layer 3") + ("every box on layer 4") + ("every box on higher layers") + ;; 4.17 Capture Mode + ("capture" ("minipage" "hbox" "fitbox")) + ("hbox") + ("minipage") + ;; 4.18 Text Characteristics + ("parbox" ("true" "false")) + ("hyphenationfix" ("true" "false")) + ;; 4.19 Files + ("tempfile") + ;; 4.21 Counters, Labels, and References + ("phantom") + ("nophantom") + ("label") + ("phantomlabel") + ;; FIXME: Are these types documented somewhere in cleveref.pdf? + ("label type") + ("no label type") + ("step") + ("step and label") + ("list entry") + ("list text") + ("add to list") + ("nameref") + ;; 4.22 Even and Odd Pages + ("check odd page" ("true" "false")) + ("if odd page") + ("if odd page or oneside") + ;; FIXME: These two should be added w/ `breakable' lib: + ;; ("if odd page*") + ;; ("if odd page or oneside*") + ;; 4.24 Miscellaneous + ("reset") + ("only") + ("code") + ("void") + ;; 6 Side by Side + ("sidebyside" ("true" "false")) + ("sidebyside align" ("center" "top" "bottom" "center seam" + "top seam" "bottom seam")) + ("sidebyside gap") + ("lefthand width") + ("righthand width") + ("lefthand ratio") + ("righthand ratio") + ;; 8 Recording options + ("record") + ("no recording")) + "Key=value options for tcolorbox macros and environments.") + +(defun LaTeX-tcolorbox-keyval-options () + "Return an updated list of key=vals from tcolorbox package." + (append + ;; This style runs `xcolor.el', so we use + ;; `LaTeX-xcolor-definecolor-list' right away: + (let ((colors (mapcar #'car (LaTeX-xcolor-definecolor-list))) + (keys '("colframe" + "colback" + "colbacktitle" + "colupper" + "collower" + "coltext" + "coltitle")) + result) + (dolist (key keys result) + (cl-pushnew (list key colors) result :test #'equal))) + LaTeX-tcolorbox-keyval-options)) + +(defvar LaTeX-tcolorbox-keyval-options-full + '(LaTeX-tcolorbox-keyval-options) + "Buffer-local list of symbols containing key=val options. +tcolorbox libraries should add their key=val options to this +list. Key=val options might be a variable or a function. This +variable is initialized with the function +`LaTeX-tcolorbox-keyval-options'. Please add entries on top of +this list so that this item always comes last.") +(make-variable-buffer-local 'LaTeX-tcolorbox-keyval-options-full) + +(defun LaTeX-tcolorbox-keyval-options-full () + "Return an updated list of full key=vals for tcolorbox and libraries. +Each symbol is a variable or a function. If a symbol name +contains a function and a variable value, the function is +preferred. This function processes symbols in the variable +`LaTeX-tcolorbox-keyval-options-full'." + (let (result) + (dolist (elt (reverse LaTeX-tcolorbox-keyval-options-full) result) + (if (functionp elt) + (setq result (append (funcall elt) result)) + (setq result (append (symbol-value elt) result)))))) + +(defvar LaTeX-tcolorbox-tcbox-options + '(;; 4.20 \tcbox Specials + ("tcbox raise") + ("tcbox raise base") + ("on line") + ("tcbox width" ("auto" "auto limited" "forced center" + "forced left" "forced right" "minimum center" + "minimum left" "minimum right"))) + "Key=value options only for \\tcbox and \\tcboxmath from tcolorbox.sty.") + +(defvar LaTeX-tcolorbox-init-options + '(;; 5 Initialization Option Keys + ;; 5.1 Numbered Boxes + ("auto counter") + ("use counter from") + ("use counter") + ("use counter*") + ("no counter") + ("number within" ("part" "chapter" "section" "subsection")) + ("number format" ("\\arabic" "\\roman" "\\Roman" "\\Alph" "\\alph")) + ("number freestyle") + ("crefname") + ("Crefname") + ("blend into" ("figures" "tables" "listings")) + ("blend before title" ("colon" "dash" "colon hang" "dash hang")) + ("blend before title code") + ;; 5.2 Lists of tcolorboxes + ("list inside") + ("list type")) + "Initialization key=value options for tcolorbox macros.") + +(defvar LaTeX-tcolorbox-library-list + '("skins" + "vignette" + "raster" + "listings" + "listingsutf8" + "minted" + "theorems" + "breakable" + "magazine" + "fitting" + "hooks" + "xparse" + "external" + "documentation" + "many" "most" "all") + "List with libraries provided by tcolorbox package.") + +;; Setup for \newtcolorbox: +(TeX-auto-add-type "tcolorbox-newtcolorbox" "LaTeX" "tcolorbox-newtcolorboxes") + +(defvar LaTeX-tcolorbox-newtcolorbox-regexp + `(,(concat "\\\\\\(re\\)?newtcolorbox" + "[ \t\n\r%]*" + "\\(?:" + (LaTeX-extract-key-value-label 'none) + "\\)?" + "[ \t\n\r%]*" + "{\\([a-zA-Z0-9]+\\)}" + "[ \t\n\r%]*" + "\\(?:\\[\\([0-9]*\\)\\]\\)?" + "[ \t\n\r%]*" + "\\(\\[\\)?") + (2 3 4 1) LaTeX-auto-tcolorbox-newtcolorbox) + "Matches the arguments of \\newtcolorbox from tcolorbox package.") + +;; Setup for \newtcbox: +(TeX-auto-add-type "tcolorbox-newtcbox" "LaTeX" "tcolorbox-newtcboxes") + +(defvar LaTeX-tcolorbox-newtcbox-regexp + `(,(concat "\\\\\\(re\\)?newtcbox" + "[ \t\n\r%]*" + "\\(?:" + (LaTeX-extract-key-value-label 'none) + "\\)?" + "[ \t\n\r%]*" + "{\\\\\\([a-zA-Z]+\\)}" + "[ \t\n\r%]*" + "\\(?:\\[\\([0-9]*\\)\\]\\)?" + "[ \t\n\r%]*" + "\\(\\[\\)?") + (2 3 4 1) LaTeX-auto-tcolorbox-newtcbox) + "Matches the arguments of \\newtcbox from tcolorbox package.") + +;; Setup for \tcbuselibrary: +(TeX-auto-add-type "tcolorbox-tcbuselibrary" + "LaTeX" "tcolorbox-tcbuselibraries") + +(defvar LaTeX-tcolorbox-tcbuselibrary-regexp + '("\\\\tcbuselibrary{\\([^}]+\\)}" + 1 LaTeX-auto-tcolorbox-tcbuselibrary) + "Matches the arguments of \\tcbuselibrary from tcolorbox package.") + +(defun LaTeX-tcolorbox-load-used-libraries () + "Check which tcolorbox libraries are loaded and run respective style hooks. +This functions checks the arguments of \\tcbuselibrary and the +name of libraries given in the optional argument of \\usepackage +call for tcolorbox and runs the style hook for them. The file +for style must have the prefix \"tcolorboxlib-\" in the name, +for example \"tcolorboxlib-raster.el\"." + (when (LaTeX-tcolorbox-tcbuselibrary-list) + (let (libs) + (dolist (x (LaTeX-tcolorbox-tcbuselibrary-list)) + (push (replace-regexp-in-string "[ %\n\r\t]" "" (car x)) libs)) + (setq libs (mapconcat #'identity libs ",")) + (dolist (x (split-string libs "," t)) + (TeX-run-style-hooks (concat "tcolorboxlib-" x))))) + (when (assoc "tcolorbox" LaTeX-provided-package-options) + (let ((opts (cdr (assoc "tcolorbox" LaTeX-provided-package-options)))) + (dolist (x opts) + (when (member x LaTeX-tcolorbox-library-list) + (TeX-run-style-hooks (concat "tcolorboxlib-" x))))))) + +(defun LaTeX-tcolorbox-auto-prepare () + "Clear various LaTeX-tcolorbox-* variables before parsing." + (setq LaTeX-auto-tcolorbox-newtcolorbox nil + LaTeX-auto-tcolorbox-newtcbox nil + LaTeX-auto-tcolorbox-tcbuselibrary nil)) + +(defun LaTeX-tcolorbox-auto-cleanup () + "Process parsed results." + ;; Process new env's from \newtcolorbox + (dolist (newtcbox (apply #'append LaTeX-tcolorbox-newtcolorbox-list)) + (let ((box (nth 0 newtcbox)) + (arg (nth 1 newtcbox)) + (opt (nth 2 newtcbox)) + (renew (when (string= (nth 3 newtcbox) "re") + (nth 3 newtcbox)))) + ;; When renew'ing, delete any entry from + ;; `LaTeX-environment-list' first: + (when renew + (setq LaTeX-environment-list + (assq-delete-all + (car (assoc box (LaTeX-environment-list))) + LaTeX-environment-list))) + (cond (;; opt. 1st argument and mandatory argument(s) + (and arg (not (string= arg "")) + opt (not (string= opt ""))) + (LaTeX-add-environments + (list box + #'LaTeX-env-args + [TeX-arg-key-val (LaTeX-tcolorbox-keyval-options)] + (1- (string-to-number arg))))) + (;; mandatory argument(s) only + (and arg (not (string= arg "")) + (string-equal opt "")) + (LaTeX-add-environments + (list box (string-to-number arg)))) + (t ; No args + (LaTeX-add-environments (list box)))))) + ;; + ;; Process new macros from \newtcbox + (dolist (newtcbox (apply #'append LaTeX-tcolorbox-newtcbox-list)) + (let ((box (nth 0 newtcbox)) + (arg (nth 1 newtcbox)) + (opt (nth 2 newtcbox)) + (renew (when (string= (nth 3 newtcbox) "re") + (nth 3 newtcbox)))) + ;; When renew'ing, delete any entry from `TeX-symbol-list' + ;; first: + (when renew + (setq TeX-symbol-list + (assq-delete-all + (car (assoc box (TeX-symbol-list))) + TeX-symbol-list))) + (cond (;; opt. 1st argument and mandatory argument(s) + (and arg (not (string= arg "")) + opt (not (string= opt ""))) + (TeX-add-symbols (list box + [TeX-arg-key-val (LaTeX-tcolorbox-keyval-options)] + (1- (string-to-number arg))))) + (;; mandatory argument(s) only + (and arg (not (string= arg "")) + (string-equal opt "")) + (TeX-add-symbols (list box (string-to-number arg)))) + (t ; No args -- in pratice, this will probably never happen + (TeX-add-symbols (list box)))))) + ;; + ;; Load style hooks for libraries, if any. + (LaTeX-tcolorbox-load-used-libraries)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-tcolorbox-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-tcolorbox-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "tcolorbox" + (lambda () + + ;; Add tcolorbox to the parser. + (TeX-auto-add-regexp LaTeX-tcolorbox-newtcolorbox-regexp) + (TeX-auto-add-regexp LaTeX-tcolorbox-newtcbox-regexp) + (TeX-auto-add-regexp LaTeX-tcolorbox-tcbuselibrary-regexp) + + ;; We just run the style hook for `xcolor' which is loaded by pgf.sty + (TeX-run-style-hooks "xcolor") + + ;; FIXME: Anything missing? + (TeX-add-symbols + + ;; 1.3 Libraries + '("tcbuselibrary" + (TeX-arg-eval + (lambda () + (let ((libs (mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt nil nil "Libraries") + LaTeX-tcolorbox-library-list) + ","))) + (LaTeX-add-tcolorbox-tcbuselibraries libs) + (LaTeX-tcolorbox-load-used-libraries) + (format "%s" libs))))) + + ;; 3 Macros for Box Creation + '("tcblower" 0) + + '("tcbset" + (TeX-arg-key-val (LaTeX-tcolorbox-keyval-options-full))) + + '("tcbsetforeverylayer" + (TeX-arg-key-val (LaTeX-tcolorbox-keyval-options))) + + '("tcbox" + [TeX-arg-eval TeX-read-key-val t + (append + LaTeX-tcolorbox-tcbox-options + (LaTeX-tcolorbox-keyval-options))] + t) + + '("newtcolorbox" + [ TeX-arg-key-val LaTeX-tcolorbox-init-options ] + "Name" + [ TeX-arg-define-macro-arguments ] + (TeX-arg-key-val (LaTeX-tcolorbox-keyval-options))) + + '("renewtcolorbox" + [ TeX-arg-key-val LaTeX-tcolorbox-init-options ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Color box") + (LaTeX-tcolorbox-newtcolorbox-list)) + [ TeX-arg-define-macro-arguments ] + (TeX-arg-key-val (LaTeX-tcolorbox-keyval-options))) + + '("newtcbox" + [ TeX-arg-key-val LaTeX-tcolorbox-init-options ] + TeX-arg-macro + [ TeX-arg-define-macro-arguments ] + (TeX-arg-key-val (LaTeX-tcolorbox-keyval-options))) + + '("renewtcbox" + [ TeX-arg-key-val LaTeX-tcolorbox-init-options ] + (TeX-arg-eval + (lambda () + (let ((macro (completing-read + (TeX-argument-prompt nil nil "Macro: \\" t) + (LaTeX-tcolorbox-newtcbox-list)))) + (concat TeX-esc macro)))) + [ TeX-arg-define-macro-arguments ] + (TeX-arg-key-val (LaTeX-tcolorbox-keyval-options))) + + '("tcolorboxenvironment" + TeX-arg-environment + (TeX-arg-key-val (LaTeX-tcolorbox-keyval-options))) + + ;; 4.16 Layered Boxes and Every Box Settings + '("tcbsetmanagedlayer" "Number") + + ;; 4.22 Even and Odd Pages + '("tcbifoddpage" 2) + '("tcbifoddpageoroneside" 2) + '("thetcolorboxnumber" 0) + '("thetcolorboxpage" 0) + + ;; 5.2 Lists of tcolorboxes + '("tcblistof" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Macro") + (if (< (LaTeX-largest-level) 2) + '("\\chapter" "\\section" "\\subsection" "\\subsubsection") + '("\\section" "\\subsection" "\\subsubsection")) ] + 2) + + ;; 7 Saving and Loading of Verbatim Texts + '("tcbusetemp") + + ;; 8 Recording + '("tcbstartrecording" [ "File name" ]) + '("tcbstoprecording") + '("tcbrecord" t) + '("tcbinputrecords" [ TeX-arg-file ]) ) ; Terminate TeX-add-symbols + + (LaTeX-add-environments + ;; 3 Macros for Box Creation: Main env + '("tcolorbox" LaTeX-env-args + [ TeX-arg-key-val (LaTeX-tcolorbox-keyval-options) ]) + + ;; 7 Saving and Loading of Verbatim Texts + '("tcbverbatimwrite" "File name") + '("tcbwritetemp")) + + ;; Do not indent text in verbatim environments: + (make-local-variable 'LaTeX-indent-environment-list) + (add-to-list 'LaTeX-indent-environment-list + '("tcbverbatimwrite" current-indentation) t) + (add-to-list 'LaTeX-indent-environment-list + '("tcbwritetemp" current-indentation) t) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("tcbuselibrary" "{") + ("tcbset" "{") + ("tcbsetforeverylayer" "{") + ("tcbox" "[{") + ("newtcolorbox" "[{[[{") + ("renewtcolorbox" "[{[[{") + ("newtcbox" "[{[[{") + ("renewtcbox" "[{[[{") + ("tcolorboxenvironment" "{{") + ("tcbsetmanagedlayer" "{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-tcolorbox-package-options LaTeX-tcolorbox-library-list + "Package options for the tcolorbox package.") + +;;; tcolorbox.el ends here diff --git a/elpa/auctex-13.1.3/style/tcolorbox.elc b/elpa/auctex-13.1.3/style/tcolorbox.elc Binary files differnew file mode 100644 index 0000000..f6c7577 --- /dev/null +++ b/elpa/auctex-13.1.3/style/tcolorbox.elc diff --git a/elpa/auctex-13.1.3/style/tcolorboxlib-raster.el b/elpa/auctex-13.1.3/style/tcolorboxlib-raster.el new file mode 100644 index 0000000..db61a03 --- /dev/null +++ b/elpa/auctex-13.1.3/style/tcolorboxlib-raster.el @@ -0,0 +1,202 @@ +;;; tcolorboxlib-raster.el --- AUCTeX style for `raster' library from tcolorbox -*- lexical-binding: t; -*- + +;; Copyright (C) 2016--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; 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 `raster' library from tcolorbox.sty. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(declare-function LaTeX-tcolorbox-keyval-options "tcolorbox" ()) +(defvar LaTeX-tcolorbox-keyval-options-full) + +(defvar LaTeX-tcolorbox-lib-raster-keyval-options + '(;; 14.3 Option Keys of the Library + ("raster columns") + ("raster rows") + ("raster width") + ("raster height") + ("raster before skip") + ("raster after skip") + ("raster equal skip") + ("raster left skip") + ("raster right skip") + ("raster column skip") + ("raster row skip") + ("raster halign" ("left" "center" "right")) + ("raster valign" ("top" "center" "bottom")) + ("raster equal height" ("noe" "rows" "all")) + ("raster equal height group") + ("raster force size" ("true" "false")) + ("raster reset") + ;; 14.4 Adding Styles for Specific Boxes + ("raster every box") + ("raster odd column") + ("raster even column") + ("raster column 1") + ("raster column 2") + ("raster column 3") + ("raster column 4") + ("raster odd row") + ("raster even row") + ("raster row 1") + ("raster row 2") + ("raster row 3") + ("raster row 4") + ("raster odd number") + ("raster even number") + ;; raster row m column n is left to user + ("raster number 1") + ("raster number 2") + ("raster number 3") + ("raster number 4") + ;; 14.5 Combining Columns or Rows + ("raster multicolumn") + ("raster multirow")) + "Key=value options for raster library from tcolorbox.") + +(defun LaTeX-tcolorbox-lib-raster-env-item (environment) + "Insert ENVIRONMENT, ask for arguments and the first item." + (LaTeX-insert-environment + environment + (let ((opts (TeX-read-key-val t (append + LaTeX-tcolorbox-lib-raster-keyval-options + (LaTeX-tcolorbox-keyval-options)) + (when (string= environment "tcboxeditemize") + "Raster options (k=v)"))) + (box-opts (when (string= environment "tcboxeditemize") + (TeX-read-key-val nil (LaTeX-tcolorbox-keyval-options) + "Box options (k=v)")))) + (concat + (when (and opts (not (string= opts ""))) + (format "[%s]" opts)) + (when (string= environment "tcboxeditemize") + (format "{%s}" box-opts))))) + (if (TeX-active-mark) + (progn + (LaTeX-find-matching-begin) + (end-of-line 1)) + (end-of-line 0)) + (delete-char 1) + (when (looking-at (concat "^[ \t]+$\\|" + "^[ \t]*" TeX-comment-start-regexp "+[ \t]*$")) + (delete-region (point) (line-end-position))) + (delete-horizontal-space) + ;; Deactivate the mark here in order to prevent `TeX-parse-macro' + ;; from swapping point and mark and the \item ending up right after + ;; \begin{...}. + (deactivate-mark) + (LaTeX-insert-item) + ;; The inserted \item may have outdented the first line to the + ;; right. Fill it, if appropriate. + (when (and auto-fill-function + (not (looking-at "$")) + (not (assoc environment LaTeX-indent-environment-list)) + (> (- (line-end-position) (line-beginning-position)) + (current-fill-column))) + (LaTeX-fill-paragraph nil))) + +(defun LaTeX-tcolorbox-lib-raster-insert-item () + "Insert \"tcbitem\" and query for optional argument." + (TeX-insert-macro "tcbitem")) + +(TeX-add-style-hook + "tcolorboxlib-raster" + (lambda () + + ;; Register key-vals from library to `LaTeX-tcolorbox-keyval-options-full': + (add-to-list 'LaTeX-tcolorbox-keyval-options-full + 'LaTeX-tcolorbox-lib-raster-keyval-options) + + (TeX-add-symbols + ;; 14.2 Macros of the Library + '("tcbitem" + [TeX-arg-key-val (LaTeX-tcolorbox-keyval-options) "Item options (k=v)" ] + (TeX-arg-literal " "))) + + (LaTeX-add-environments + ;; 14.2 Macros of the Library + '("tcbraster" + (lambda (env) + (LaTeX-insert-environment + env + (let ((raster-opts + (TeX-read-key-val t (append + LaTeX-tcolorbox-lib-raster-keyval-options + (LaTeX-tcolorbox-keyval-options))))) + (when (and raster-opts (not (string= raster-opts ""))) + (concat LaTeX-optop raster-opts LaTeX-optcl)))))) + + '("tcbitemize" LaTeX-tcolorbox-lib-raster-env-item) + + '("tcboxedraster" + (lambda (env) + (LaTeX-insert-environment + env + (let ((raster-opts + (TeX-read-key-val t (append + LaTeX-tcolorbox-lib-raster-keyval-options + (LaTeX-tcolorbox-keyval-options)) + "Raster options (k=v)")) + (box-opts + (TeX-read-key-val nil (LaTeX-tcolorbox-keyval-options) + "Box options (k=v)"))) + (concat + (when (and raster-opts (not (string= raster-opts ""))) + (concat LaTeX-optop raster-opts LaTeX-optcl)) + TeX-grop box-opts TeX-grcl))))) + + '("tcboxeditemize" LaTeX-tcolorbox-lib-raster-env-item)) + + ;; Append tcb(oxed)?itemize to `LaTeX-item-list': + (add-to-list 'LaTeX-item-list + '("tcbitemize" . LaTeX-tcolorbox-lib-raster-insert-item) t) + (add-to-list 'LaTeX-item-list + '("tcboxeditemize" . LaTeX-tcolorbox-lib-raster-insert-item) t) + + ;; Append tcbitem to `LaTeX-item-regexp': + (unless (string-match "tcbitem" LaTeX-item-regexp) + (set (make-local-variable 'LaTeX-item-regexp) + (concat + LaTeX-item-regexp + "\\|" + "tcbitem\\b")) + (LaTeX-set-paragraph-start)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("tcbitem" "[")) + 'textual))) + TeX-dialect) + +;;; tcolorboxlib-raster.el ends here diff --git a/elpa/auctex-13.1.3/style/tcolorboxlib-raster.elc b/elpa/auctex-13.1.3/style/tcolorboxlib-raster.elc Binary files differnew file mode 100644 index 0000000..ac8f0ac --- /dev/null +++ b/elpa/auctex-13.1.3/style/tcolorboxlib-raster.elc 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 diff --git a/elpa/auctex-13.1.3/style/tex-live.elc b/elpa/auctex-13.1.3/style/tex-live.elc Binary files differnew file mode 100644 index 0000000..05ef3b2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/tex-live.elc diff --git a/elpa/auctex-13.1.3/style/textcomp.el b/elpa/auctex-13.1.3/style/textcomp.el new file mode 100644 index 0000000..c48316c --- /dev/null +++ b/elpa/auctex-13.1.3/style/textcomp.el @@ -0,0 +1,41 @@ +;;; textcomp.el --- AUCTeX style for `textcomp.sty' (v2.0n) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2017, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-10-25 +;; 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 `textcomp.sty' (v2.0n) from 2020/02/02. +;; With this version, the package mainly no-op as the macros are moved +;; into LaTeX kernel. `textcomp.sty' is a standard LaTeX package and +;; part of TeXLive. + +;;; Code: + +(defvar LaTeX-textcomp-package-options + '("full" "almostfull" "euro" "safe" "error" + "warn" "info" "quiet" "force") + "Package options for the textcomp package.") + +;;; textcomp.el ends here diff --git a/elpa/auctex-13.1.3/style/textcomp.elc b/elpa/auctex-13.1.3/style/textcomp.elc Binary files differnew file mode 100644 index 0000000..c5c66bc --- /dev/null +++ b/elpa/auctex-13.1.3/style/textcomp.elc diff --git a/elpa/auctex-13.1.3/style/textpos.el b/elpa/auctex-13.1.3/style/textpos.el new file mode 100644 index 0000000..0f02efb --- /dev/null +++ b/elpa/auctex-13.1.3/style/textpos.el @@ -0,0 +1,126 @@ +;;; textpos.el --- AUCTeX style for `textpos.sty' version v1.7j -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2016, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-07-04 +;; 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 `textpos.sty' version v1.7j from +;; 2014/01/03. `textpos.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function LaTeX-color-definecolor-list "color" ()) +(declare-function LaTeX-xcolor-definecolor-list "xcolor" ()) + +(defun LaTeX-env-arg-textpos-textblock (env) + "Query for the arguments of `textblock' environment and insert +them." + (let* ((hsize (TeX-read-string "Width: ")) + (ho (TeX-read-string "(Optional) X reference point: ")) + (vo (when (not (string-equal ho "")) + (TeX-read-string "Y reference point: "))) + (hpos (TeX-read-string "X placement point: ")) + (vpos (TeX-read-string "Y placement point: "))) + (LaTeX-insert-environment + env + (concat + (when (and hsize (not (string-equal hsize ""))) + (format "{%s}" hsize)) + (when (and ho (not (string-equal ho "")) + vo (not (string-equal vo ""))) + (format "[%s,%s]" ho vo)) + (when (and hpos (not (string-equal hpos "")) + vpos (not (string-equal vpos ""))) + (format "(%s,%s)" hpos vpos)))))) + +(defun LaTeX-arg-textpos-tpgrid (optional) + "Query and insert the optional argument of `\\TPGrid'." + (let* ((x (TeX-read-string "(Optional) X start coordinate: ")) + (y (when (not (string-equal x "")) + (TeX-read-string "Y start coordinate: ")))) + (when (and (not (string-equal x "")) + (not (string-equal y ""))) + (TeX-argument-insert (format "%s,%s" x y) optional)))) + +(TeX-add-style-hook + "textpos" + (lambda () + + (TeX-run-style-hooks "everyshi") + + (LaTeX-add-environments + ;; \begin{textblock}{<hsize>}[<ho>,<vo>](<hpos>,<vpos>) ... \end{textblock} + '("textblock" LaTeX-env-arg-textpos-textblock) + '("textblock*" LaTeX-env-arg-textpos-textblock)) + + (TeX-add-symbols + '("TPGrid" [ LaTeX-arg-textpos-tpgrid ] + "Horizontal fraction" "Vertical fraction") + + '("TPMargin" (TeX-arg-length "Margin around textblock")) + '("TPMargin*" (TeX-arg-length "Margin around textblock")) + + ;; We ignore the `\textblock...color' (i.e. without `u') versions + '("textblockcolour" + (TeX-arg-eval + (lambda () + (let ((color (cond ((member "xcolor" (TeX-style-list)) + (completing-read "Color name: " (LaTeX-xcolor-definecolor-list))) + ((member "color" (TeX-style-list)) + (completing-read "Color name: " (LaTeX-color-definecolor-list))) + (t + (TeX-read-string "Color name: "))))) + (format "%s" color))))) + + '("textblockrulecolour" + (TeX-arg-eval + (lambda () + (let ((color (cond ((member "xcolor" (TeX-style-list)) + (completing-read "Color name: " (LaTeX-xcolor-definecolor-list))) + ((member "color" (TeX-style-list)) + (completing-read "Color name: " (LaTeX-color-definecolor-list))) + (t + (TeX-read-string "Color name: "))))) + (format "%s" color))))) + + '("TPshowboxestrue") + '("TPshowboxesfalse") + + '("textblocklabel" t) + '("textblockorigin" "Horizontal position" "Vertical position")) + + ;; Add the lengths defined by textpos.sty + (LaTeX-add-lengths "TPHorizModule" "TPVertModule" "TPboxrulesize")) + TeX-dialect) + +(defvar LaTeX-textpos-package-options + '("showboxes" "noshowtext" "absolute" "overlay" "verbose" "quiet") + "Package options for the textpos package.") + +;;; textpos.el ends here diff --git a/elpa/auctex-13.1.3/style/textpos.elc b/elpa/auctex-13.1.3/style/textpos.elc Binary files differnew file mode 100644 index 0000000..aa132ff --- /dev/null +++ b/elpa/auctex-13.1.3/style/textpos.elc diff --git a/elpa/auctex-13.1.3/style/theorem.el b/elpa/auctex-13.1.3/style/theorem.el new file mode 100644 index 0000000..219e864 --- /dev/null +++ b/elpa/auctex-13.1.3/style/theorem.el @@ -0,0 +1,180 @@ +;;; theorem.el --- AUCTeX style for `theorem.sty' (v2.2c) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015-2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-10-31 +;; 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 `theorem.sty' (v2.2c) from 2014/10/28. +;; `theorem.sty' is a standard LaTeX package and part of TeXLive. + +;; The style provides the function `LaTeX-theorem-env-label' which +;; enables new defined environments with "\newtheoreom" to interact +;; with AUCTeX and RefTeX mechanisms for inserting labels. Check +;; docstring of `LaTeX-theorem-env-label' for instructions. + +;;; Code: + +(require 'crm) +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-theorem-theoremstyle-list + '(("plain") ("break") ("margin") ("change") + ("marginbreak") ("changebreak")) + "List of theorem styles provided by `theorem.sty'.") + +(defvar LaTeX-theorem-fontdecl + '(;; family + "rmfamily" "sffamily" "ttfamily" + ;; series + "mdseries" "bfseries" + ;; shape + "upshape" "itshape" "slshape" "scshape" + ;; size + "tiny" "scriptsize" "footnotesize" + "small" "normalsize" "large" + "Large" "LARGE" "huge" "Huge" + ;; reset macro + "normalfont") + "List of font declaration commands for \"\\theorem(body|header)font\".") + +(defun LaTeX-arg-theorem-fontdecl (optional &optional prompt) + "Prompt for font declaration commands in \"\\theorem(body|header)font\". +If OPTIONAL is non-nil, insert the resulting value as an optional +argument. Use PROMPT as the prompt string." + ;; `INITIAL-INPUT' (5th argument to `TeX-completing-read-multiple') + ;; is hard-coded to `TeX-esc'. + (let* ((crm-separator (regexp-quote TeX-esc)) + (fontdecl (mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt optional prompt "Font") + LaTeX-theorem-fontdecl nil nil TeX-esc) + TeX-esc))) + (TeX-argument-insert fontdecl optional))) + +(defun LaTeX-theorem-env-label (environment) + "Insert ENVIRONMENT, query for an optional argument and prompt +for label. AUCTeX users should add ENVIRONMENT to +`LaTeX-label-alist' via customize or in init-file with: + + (add-to-list \\='LaTeX-label-alist \\='(\"lemma\" . \"lem:\")) + +RefTeX users should customize or add ENVIRONMENT to +`LaTeX-label-alist' and `reftex-label-alist', for example + + (add-to-list \\='LaTeX-label-alist \\='(\"lemma\" . \"lem:\")) + (add-to-list \\='reftex-label-alist + \\='(\"lemma\" ?m \"lem:\" \"~\\ref{%s}\" + nil (\"Lemma\" \"lemma\") nil))" + (let ((opthead (TeX-read-string + (TeX-argument-prompt t nil "Heading")))) + (LaTeX-insert-environment environment + (when (and opthead + (not (string= opthead ""))) + (format "[%s]" opthead)))) + (when (LaTeX-label environment 'environment) + (LaTeX-newline) + (indent-according-to-mode))) + +;; Setup parsing for \newtheorem +(TeX-auto-add-type "theorem-newtheorem" "LaTeX") + +(defun LaTeX-theorem-auto-prepare () + "Clear `LaTeX-auto-theorem-newtheorem' before parsing." + (setq LaTeX-auto-theorem-newtheorem nil)) + +(defun LaTeX-theorem-auto-cleanup () + "Move parsed results from `LaTeX-auto-theorem-newtheorem' and +make them available as new environments." + (dolist (newthm (mapcar #'car (LaTeX-theorem-newtheorem-list))) + (LaTeX-add-environments (list newthm #'LaTeX-theorem-env-label)))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-theorem-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-theorem-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "theorem" + (lambda () + + (TeX-auto-add-regexp + `(,(concat "\\\\newtheorem{\\(" TeX-token-char "+\\)}") + 1 LaTeX-auto-theorem-newtheorem)) + + (TeX-add-symbols + ;; Overrule the defintion in `latex.el': + '("newtheorem" + (TeX-arg-eval + (lambda () + (let ((nthm (TeX-read-string + (TeX-argument-prompt nil nil "Environment")))) + (LaTeX-add-theorem-newtheorems nthm) + (LaTeX-add-environments (list nthm #'LaTeX-theorem-env-label)) + (format "%s" nthm)))) + [ TeX-arg-environment "Numbered like" ] + t [ (TeX-arg-eval progn (if (eq (save-excursion + (backward-char 2) + (preceding-char)) ?\]) + () + (TeX-arg-counter t "Within counter")) + "") ]) + + '("theoremstyle" + (TeX-arg-eval completing-read + "Style: " + LaTeX-theorem-theoremstyle-list)) + + '("theorembodyfont" + (LaTeX-arg-theorem-fontdecl "Body font")) + + '("theoremheaderfont" + (LaTeX-arg-theorem-fontdecl "Header font")) + + '("theorempreskipamount" + (TeX-arg-length "Skip before theorem")) + + '("theorempostskipamount" + (TeX-arg-length "Skip after theorem"))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("theoremstyle" "{") + ("theorembodyfont" "{") + ("theoremheaderfont" "{") + ("theorempreskipamount" "{") + ("theorempostskipamount" "{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-theorem-package-options nil + "Package options for the theorem package.") + +;;; theorem.el ends here diff --git a/elpa/auctex-13.1.3/style/theorem.elc b/elpa/auctex-13.1.3/style/theorem.elc Binary files differnew file mode 100644 index 0000000..ec52032 --- /dev/null +++ b/elpa/auctex-13.1.3/style/theorem.elc diff --git a/elpa/auctex-13.1.3/style/thm-restate.el b/elpa/auctex-13.1.3/style/thm-restate.el new file mode 100644 index 0000000..15d33a9 --- /dev/null +++ b/elpa/auctex-13.1.3/style/thm-restate.el @@ -0,0 +1,120 @@ +;;; thm-restate.el --- AUCTeX style for `thm-restate.sty' (v66) -*- lexical-binding: t; -*- + +;; Copyright (C) 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2018-07-07 +;; 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 `thm-restate.sty'. `thm-restate.sty' is +;; part of `thmtools' package (v66) from 2014/04/21. `thmtools.sty' +;; is part of TeXLive. + +;;; Code: + +;; Needed for auto-parsing. +(require 'tex) +(require 'latex) + +;; Silence the parser: +(declare-function LaTeX-thmtools-declaretheorem-list + "thmtools" ()) + +;; Setup for macro names defined with +;; \begin{restatable}[<Heading>]{<env-name>}{<macro name>}: + +(TeX-auto-add-type "thmrestate-restatable-macro" "LaTeX") + +(defvar LaTeX-thmrestate-restatable-marco-regexp + `(,(concat "\\\\begin{restatable}" + "[ \t\n\r%]*" + "\\(?:\\[[^]]*\\]\\)?" + "[ \t\n\r%]*" + "\\(?:{[^}]+}\\)" + "[ \t\n\r%]*" + "{\\([^}]+\\)}") + 1 LaTeX-auto-thmrestate-restatable-macro)) + +(defun LaTeX-thmrestate-auto-prepare () + "Clear `LaTeX-auto-thmrestate-restatable-macro' before parsing." + (setq LaTeX-auto-thmrestate-restatable-macro nil)) + +(defun LaTeX-thmrestate-auto-cleanup () + "Process parsed elements from thm-restate package." + (dolist (newmac (mapcar #'car (LaTeX-thmrestate-restatable-macro-list))) + (TeX-add-symbols `(,newmac 0) + `(,(concat newmac "*") 0)))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-thmrestate-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-thmrestate-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun LaTeX-env-thmrestate-restatable (optional) + "Insert arguments for restatable environment from thm-restate package." + ;; The optional heading argument: + (let ((TeX-arg-opening-brace LaTeX-optop) + (TeX-arg-closing-brace LaTeX-optcl)) + (TeX-argument-insert + (TeX-read-string + (TeX-argument-prompt t nil "Heading")) + t)) + ;; Name of the environment we are referring to; this can be defined + ;; via amsthm.sty, ntheorem.sty or thmtools.sty: + (TeX-argument-insert + (completing-read + (TeX-argument-prompt optional nil "Environment") + (append + ;; Cater for environments defined with amsthm's \newtheorem + (when (and (fboundp 'LaTeX-amsthm-newtheorem-list) + (LaTeX-amsthm-newtheorem-list)) + (LaTeX-amsthm-newtheorem-list)) + ;; Cater for environments defined with ntheorem's \newtheorem + (when (and (fboundp 'LaTeX-ntheorem-newtheorem-list) + (LaTeX-ntheorem-newtheorem-list)) + (LaTeX-ntheorem-newtheorem-list)) + ;; Environments defined with \declaretheorem + (LaTeX-thmtools-declaretheorem-list))) + optional) + (let ((mac (TeX-read-string + (TeX-argument-prompt optional nil "Macro")))) + (TeX-add-symbols `(,mac 0) + `(,(concat mac "*") 0)) + (TeX-argument-insert mac optional))) + +(TeX-add-style-hook + "thm-restate" + (lambda () + + ;; Run the style hook `thmtools.el': + (TeX-run-style-hooks "thmtools") + + ;; Add thm-restate to the parser + (TeX-auto-add-regexp LaTeX-thmrestate-restatable-marco-regexp) + + ;; Provide restatable\\*? environment + (LaTeX-add-environments + '("restatable" LaTeX-env-args LaTeX-env-thmrestate-restatable) + '("restatable*" LaTeX-env-args LaTeX-env-thmrestate-restatable))) + TeX-dialect) + +;;; thm-restate.el ends here diff --git a/elpa/auctex-13.1.3/style/thm-restate.elc b/elpa/auctex-13.1.3/style/thm-restate.elc Binary files differnew file mode 100644 index 0000000..912bbc6 --- /dev/null +++ b/elpa/auctex-13.1.3/style/thm-restate.elc diff --git a/elpa/auctex-13.1.3/style/thmtools.el b/elpa/auctex-13.1.3/style/thmtools.el new file mode 100644 index 0000000..d17b30e --- /dev/null +++ b/elpa/auctex-13.1.3/style/thmtools.el @@ -0,0 +1,313 @@ +;;; thmtools.el --- AUCTeX style for `thmtools.sty' (v0.72) -*- lexical-binding: t; -*- + +;; Copyright (C) 2018--2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2018-07-07 +;; 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 `thmtools.sty' (v0.72) from 2020/08/01. +;; `thmtools.sty' is part of TeXLive. + +;;; Code: + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +;; Needed for auto-parsing: +(require 'tex) +(require 'latex) + +;; Setup for \declaretheoremstyle: +(TeX-auto-add-type "thmtools-declaretheoremstyle" "LaTeX") + +(defvar LaTeX-thmtools-declaretheoremstyle-regexp + `(,(concat "\\\\declaretheoremstyle" + "[ \t\n\r%]*" + "\\(?:" + (LaTeX-extract-key-value-label 'none) + "\\)?" + "[ \t\n\r%]*" + "{\\([^}]+\\)}") + 1 LaTeX-auto-thmtools-declaretheoremstyle) + "Matches the argument of \\declaretheoremstyle from thmtools package.") + +;; Setup for \declaretheorem: +(TeX-auto-add-type "thmtools-declaretheorem" "LaTeX") + +(defvar LaTeX-thmtools-declaretheorem-regexp + `(,(concat "\\\\declaretheorem" + "[ \t\n\r%]*" + "\\(?:" + (LaTeX-extract-key-value-label 'none) + "\\)?" + "[ \t\n\r%]*" + "{\\([^}]+\\)}") + 1 LaTeX-auto-thmtools-declaretheorem) + "Matches the argument of \\declaretheorem from thmtools package.") + +(defun LaTeX-thmtools-auto-prepare () + "Clear `LaTeX-auto-thmtools-*' before parsing." + (setq LaTeX-auto-thmtools-declaretheoremstyle nil + LaTeX-auto-thmtools-declaretheorem nil)) + +(defun LaTeX-thmtools-auto-cleanup () + "Process parsed elements from thmtools package." + (dolist (newthm (mapcar #'car (LaTeX-thmtools-declaretheorem-list))) + (LaTeX-add-environments `(,newthm LaTeX-thmtools-env-label)))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-thmtools-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-thmtools-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun LaTeX-thmtools-declaretheoremstyle-key-val (optional &optional prompt) + "Query and return a key=val string for \\declaretheoremstyle macro. +If OPTIONAL is non-nil, indicate an optional argument in +minibuffer. PROMPT replaces the standard one." + (let ((lengths (mapcar (lambda (x) + (concat TeX-esc x)) + (mapcar #'car (LaTeX-length-list)))) + (fonts (mapcar (lambda (x) + (concat TeX-esc x)) + '("rmfamily" "sffamily" "ttfamily" "mdseries" "bfseries" + "upshape" "itshape" "slshape" "scshape" + "tiny" "scriptsize" "footnotesize" + "small" "normalsize" "large" + "Large" "LARGE" "huge" "Huge" "normalfont")))) + (TeX-read-key-val + optional + `(("spaceabove" ,lengths) + ("spacebelow" ,lengths) + ("headfont" ,fonts) + ("notefont" ,fonts) + ("bodyfont" ,fonts) + ("headpunct") + ("notebraces") + ("postheadspace" ,lengths) + ("headformat" ("margin" "swapnumber" "\\NUMBER" "\\NAME" "\\NOTE")) + ("headindent" ,lengths)) + prompt))) + +(defun LaTeX-arg-thmtools-declaretheoremstyle (optional &optional prompt) + "Insert the key=val and style name defined by \\declaretheoremstyle. +If OPTIONAL is non-nil, also insert the second argument in square +brackets. PROMPT replaces the standard one for the second +argument." + (let ((TeX-arg-opening-brace "[") + (TeX-arg-closing-brace "]")) + (TeX-argument-insert + (LaTeX-thmtools-declaretheoremstyle-key-val t) + t)) + (let ((style (TeX-read-string + (TeX-argument-prompt optional prompt "Style")))) + (LaTeX-add-thmtools-declaretheoremstyles style) + (TeX-argument-insert style optional))) + +(defun LaTeX-thmtools-declaretheorem-key-val (optional &optional prompt) + "Query and return a key=val string for \\declaretheorem macro. +If OPTIONAL is non-nil, indicate an optional argument in +minibuffer. PROMPT replaces the standard one." + (let ((counters (mapcar #'car (LaTeX-counter-list)))) + (TeX-read-key-val + optional + `(("parent" ,counters) + ("numberwithin" ,counters) + ("within" ,counters) + ("sibling" ,counters) + ("numberlike" ,counters) + ("sharenumber" ,counters) + ("title") + ("name") + ("heading") + ("numbered" ("yes" "no" "unless unique")) + ("style" + ,(append + ;; check for \newtheoremstyle from amsthm.sty: + (when (and (fboundp 'LaTeX-amsthm-newtheoremstyle-list) + (LaTeX-amsthm-newtheoremstyle-list)) + (mapcar #'car (LaTeX-amsthm-newtheoremstyle-list))) + ;; check for \newtheoremstyle from ntheorem.sty: + (when (and (fboundp 'LaTeX-ntheorem-newtheoremstyle-list) + (LaTeX-ntheorem-newtheoremstyle-list)) + (mapcar #'car (LaTeX-ntheorem-newtheoremstyle-list))) + ;; thmtools version is called \declaretheoremstyle: + (mapcar #'car (LaTeX-thmtools-declaretheoremstyle-list)))) + ("preheadhook") + ("postheadhook") + ("prefoothook") + ("postfoothook") + ("refname") + ("Refname") + ("shaded" ("textwidth" "bgcolor" "rulecolor" "rulewidth" "margin")) + ("thmbox" ("L" "M" "S"))) + prompt))) + +(defun LaTeX-arg-thmtools-declaretheorem (optional &optional prompt) + "Insert the key=val and environment name defined by \\declaretheorem. +If OPTIONAL is non-nil, also insert the second argument in square +brackets. PROMPT replaces the standard one for the second +argument." + (let ((env (TeX-read-string + (TeX-argument-prompt optional prompt "Environment")))) + (LaTeX-add-environments `(,env LaTeX-thmtools-env-label)) + (TeX-argument-insert env optional)) + (let ((TeX-arg-opening-brace "[") + (TeX-arg-closing-brace "]")) + (TeX-argument-insert + (LaTeX-thmtools-declaretheorem-key-val t) + t))) + +(defun LaTeX-thmtools-listoftheorems-key-val (optional &optional prompt) + "Query and return a key=val string for \\listoftheorems macro. +If OPTIONAL is non-nil, indicate an optional argument in +minibuffer. PROMPT replaces the standard one." + (let ((lengths (mapcar (lambda (x) + (concat TeX-esc x)) + (mapcar #'car (LaTeX-length-list)))) + (thms (append + ;; check for \newtheorem from amsthm.sty: + (when (and (fboundp 'LaTeX-amsthm-newtheorem-list) + (LaTeX-amsthm-newtheorem-list)) + (mapcar #'car (LaTeX-amsthm-newtheorem-list))) + ;; check for \newtheorem from ntheorem.sty: + (when (and (fboundp 'LaTeX-ntheorem-newtheorem-list) + (LaTeX-ntheorem-newtheorem-list)) + (mapcar #'car (LaTeX-ntheorem-newtheorem-list))) + ;; thmtools version is called \declaretheorem: + (mapcar #'car (LaTeX-thmtools-declaretheorem-list))))) + (TeX-read-key-val + optional + `(("title") + ("ignore" ,thms) + ("ignoreall" ("true" "false")) + ("show" ,thms) + ("showall" ("true" "false")) + ("onlynamed" ,thms) + ("swapnumber" ("true" "false")) + ("numwidth" ,lengths)) + prompt))) + +(defun LaTeX-arg-thmtools-listoftheorems (optional &optional prompt) + "Insert the key=val to \\listoftheorems macro. +If OPTIONAL is non-nil, insert the result square brackets. +OPTIONAL and PROMPT are passed to `LaTeX-thmtools-listoftheorems-key-val'." + (TeX-argument-insert + (LaTeX-thmtools-listoftheorems-key-val optional prompt) + optional)) + +(defun LaTeX-thmtools-env-label (environment) + "Insert thmtools ENVIRONMENT, query for an optional argument and label. +AUCTeX users should add ENVIRONMENT to `LaTeX-label-alist' via +customize or in init-file with: + + (add-to-list \\='LaTeX-label-alist \\='(\"theorem\" . \"thm:\")) + +RefTeX users should customize or add ENVIRONMENT to +`LaTeX-label-alist' and `reftex-label-alist', for example + + (add-to-list \\='LaTeX-label-alist \\='(\"theorem\" . \"thm:\")) + (add-to-list \\='reftex-label-alist + \\='(\"theorem\" ?m \"thm:\" \"~\\ref{%s}\" + nil (\"Theorem\" \"theorem\") nil))" + (let* ((help-form "\ +Select the content of the optional argument with a key: +'h' in order to insert a plain heading, +'k' in order to insert key=value pairs with completion, +RET in order to leave it empty.") + (choice (read-char-choice + (TeX-argument-prompt + nil nil "Heading (h), Key=val (k), Empty (RET)") + '(?h ?k))) + (opthead (cond ((= choice ?h) + (TeX-read-string + (TeX-argument-prompt t nil "Heading"))) + ((= choice ?k) + (TeX-read-key-val + t + `(("name") + ("continues" ,(mapcar #'car (LaTeX-label-list))) + ("restate" ,(mapcar #'car (LaTeX-label-list))) + ;; We don't offer a label key here: It is + ;; marked "experimental" in the manual and + ;; inserting and parsing \label{foo} is + ;; much easier for AUCTeX and RefTeX + ;; ("label") + ("listhack" ("true" "false"))))) + (t "")))) + (LaTeX-insert-environment environment + (when (and opthead + (not (string= opthead ""))) + (format "[%s]" opthead)))) + (when (LaTeX-label environment 'environment) + (LaTeX-newline) + (indent-according-to-mode))) + +(TeX-add-style-hook + "thmtools" + (lambda () + + ;; Add thmtools to the parser. + (TeX-auto-add-regexp LaTeX-thmtools-declaretheoremstyle-regexp) + (TeX-auto-add-regexp LaTeX-thmtools-declaretheorem-regexp) + + (TeX-add-symbols + '("declaretheoremstyle" LaTeX-arg-thmtools-declaretheoremstyle) + '("declaretheorem" LaTeX-arg-thmtools-declaretheorem) + + '("listoftheorems" [ LaTeX-arg-thmtools-listoftheorems ]) + '("ignoretheorems" + (TeX-arg-eval mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt nil nil "Environment(s)") + (append + ;; check for \newtheorem from amsthm.sty: + (when (and (fboundp 'LaTeX-amsthm-newtheorem-list) + (LaTeX-amsthm-newtheorem-list)) + (mapcar #'car (LaTeX-amsthm-newtheorem-list))) + ;; check for \newtheorem from ntheorem.sty: + (when (and (fboundp 'LaTeX-ntheorem-newtheorem-list) + (LaTeX-ntheorem-newtheorem-list)) + (mapcar #'car (LaTeX-ntheorem-newtheorem-list))) + ;; thmtools version is called \declaretheorem: + (mapcar #'car (LaTeX-thmtools-declaretheorem-list)))) + ",")) + '("listtheoremname" 0)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("declaretheoremstyle" "[{") + ("declaretheorem" "[{[") + ("listoftheorems" "[") + ("ignoretheorems" "{")) + 'function))) + TeX-dialect) + +;; The package has only one option `debug'. We ignore that in order +;; to make loading faster: +(defvar LaTeX-thmtools-package-options nil + "Package options for the thmtools package.") + +;;; thmtools.el ends here diff --git a/elpa/auctex-13.1.3/style/thmtools.elc b/elpa/auctex-13.1.3/style/thmtools.elc Binary files differnew file mode 100644 index 0000000..bea94a9 --- /dev/null +++ b/elpa/auctex-13.1.3/style/thmtools.elc diff --git a/elpa/auctex-13.1.3/style/tikz.el b/elpa/auctex-13.1.3/style/tikz.el new file mode 100644 index 0000000..f3a50bc --- /dev/null +++ b/elpa/auctex-13.1.3/style/tikz.el @@ -0,0 +1,286 @@ +;;; tikz.el --- AUCTeX style for `tikz.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2016-2021 Free Software Foundation, Inc. + +;; Author: Matthew Leach <matthew@mattleach.net> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-22-03 +;; Keywords: tex tikz + +;; 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 some support for `tikz.sty' + +;;; Code: + +(require 'tex) +(require 'latex) + +(defcustom TeX-TikZ-point-name-regexp + "(\\([A-Za-z0-9]+\\))" + "A regexp that matches TikZ names." + :type 'regexp + :group 'auctex-tikz) + +(defconst TeX-TikZ-point-function-map + '(("Rect Point" TeX-TikZ-arg-rect-point) + ("Polar Point" TeX-TikZ-arg-polar-point) + ("Named Point" TeX-TikZ-arg-named-point)) + "An alist of point specification types and their functions.") + +(defconst TeX-TikZ-relative-point-function-map + (apply #'append (mapcar + (lambda (point-map) + (let ((key (car point-map)) + (value (cadr point-map))) + `((,(concat "+" key) ,value "+") + (,(concat "++" key) ,value "++")))) + TeX-TikZ-point-function-map)) + "`TeX-TikZ-point-function-map' with \"+\" and \"++\" as a +prefix.") + +(defconst TeX-TikZ-path-connector-function-map + '(("--" identity) + ("|-" identity) + ( "-|" identity) + ("sin" identity) + ("cos" identity)) + "An alist of path connectors.") + +(defconst TeX-TikZ-draw-arg-function-map + `(,@TeX-TikZ-point-function-map + ,@TeX-TikZ-relative-point-function-map + ,@TeX-TikZ-path-connector-function-map + ("Node" TeX-TikZ-arg-node) + ("Circle" TeX-TikZ-arg-circle) + ("Arc" TeX-TikZ-arg-arc) + ("Parabola" TeX-TikZ-arg-parabola) + ("Grid" TeX-TikZ-arg-grid)) + "An alist of argument names and functoins for TikZ's \draw.") + +(defun TeX-TikZ-get-opt-arg-string (arg &optional open close) + "Return a string for optional arguments. +If ARG is nil or \"\", return \"\". Otherwise return \"OPEN ARG +CLOSE\". If OPEN or CLOSE are nil, set them to `LaTeX-optop' and +`LaTeX-optcl' respectively." + (unless (or open close) + (setq open LaTeX-optop) + (setq close LaTeX-optcl)) + (if (and arg (> (length arg) 0)) + (concat open arg close) + "")) + +(defun TeX-TikZ-arg-rect-point (_ignored &optional prefix) + "Prompt the user for a point on the Cartesian plane. +Ask the user for an X and Y coordinate, and return the string +\"(X,Y)\"." + (let ((x (TeX-read-string (TeX-argument-prompt nil nil "X-coordinate"))) + (y (TeX-read-string (TeX-argument-prompt nil nil "Y-coordinate")))) + (concat " " prefix "(" x ", " y") "))) + +(defun TeX-TikZ-arg-polar-point (_ignored &optional prefix) + "Prompt the user for a point on the polar plane. +Ask the user for r and theta values, and return the string +\"(THETA:R)\"." + (let ((r (TeX-read-string (TeX-argument-prompt nil nil "R"))) + (theta (TeX-read-string (TeX-argument-prompt nil nil "Theta")))) + (concat " " prefix "(" theta ":" r ") "))) + +(defun TeX-TikZ-arg-options (optional) + "Prompt the user for options to a TikZ macro. +If OPTIONAL is non-nil, always return `LaTeX-optop' and +`LaTeX-optcl', even if the user doesn't provide any input." + (let ((options (TeX-read-string (TeX-argument-prompt optional nil "Options" )))) + (if optional + (TeX-TikZ-get-opt-arg-string options) + (concat LaTeX-optop options LaTeX-optcl)))) + +(defun TeX-TikZ-arg-name (optional) + "Prompt the user for a TikZ name. +If OPTIONAL is non-nil, always return \"()\", even if the user +doesn't provide any input." + (let ((name (TeX-read-string (TeX-argument-prompt optional nil "Name" )))) + (if optional + (TeX-TikZ-get-opt-arg-string name "(" ")") + (concat "(" name ")")))) + +(defun TeX-TikZ-arg-label (optional) + "Prompt the user for TikZ label. +If OPTIONAL is non-nil always return `TeX-grop' and `TeX-grcl', +even if the user doesn't provide any input." + (let ((label (TeX-read-string (TeX-argument-prompt optional nil "Label" )))) + (if optional + (TeX-TikZ-get-opt-arg-string label TeX-grop TeX-grcl) + (concat TeX-grop label TeX-grcl)))) + +(defun TeX-TikZ-arg-node (_ignored) + "Prompt the user for the deatils of a node. +Ask the user for the name and text for a node and return the +string \"node[OPTIONS](NAME){TEXT}\"." + (let ((options (TeX-TikZ-arg-options t)) + (name (TeX-TikZ-arg-name t)) + (label (TeX-TikZ-arg-label nil))) + (concat "node" options name label " "))) + +(defun TeX-TikZ-get-arg-type (types prompt) + "Prompt the user for an argument type. +TYPES is a list of possible types that the user can specify. Use +PROMPT as the prompt for input." + (let ((completion-ignore-case t)) + (completing-read prompt types nil t))) + +(defun TeX-TikZ-single-macro-arg (function-alist prompt &optional optional) + "Prompt the user for a single argument to compose a TikZ macro. +FUNCTION-ALIST is a mapping of argument-types to functions. The +user is prompted for the argument type, the chosen function is +then called and the value returned. PROMPT is used as the prompt +for the argument type. When OPTIONAL is non-nil, add \"\" to +FUNCTION-ALIST with a mapping to `identity', permitting an +optional input." + (let* ((selected-argument-type (TeX-TikZ-get-arg-type function-alist prompt)) + (fn-alist-with-optional-elm (if optional + `(,@function-alist ("" identity)) + function-alist)) + (selected-mapping (assoc selected-argument-type + fn-alist-with-optional-elm))) + + ;; Build the funcall we wish to evaluate. This will be the function + ;; to be called (the second element in the assoc element), + ;; followed by the type name (the first element), followed by any + ;; other elements in the list as extra arguments. + (apply + (cadr selected-mapping) + (car selected-mapping) + (cddr selected-mapping)))) + + +(defun TeX-TikZ-macro-arg (function-alist) + "Prompt the user for arguments to compose a TikZ macro. +FUNCTION-ALIST is a mapping of argument-types to functions. The +user is repeatedly prompted for the next argument-type; they can +choose form the cars in FUNCTION-ALIST and the appropriate +function is then called. If the user enters \"\", then the macro +is finished." + (let* ((options (TeX-TikZ-arg-options t)) + (prompt "Next argument type (RET to finish): ") + (string-to-insert (TeX-TikZ-single-macro-arg function-alist prompt t))) + + ;; Insert the macro options. + (insert options " ") + + ;; Iteratively prompt the user for TikZ's arguments until "" is + ;; returned. + (while (not (string= string-to-insert "")) + (insert string-to-insert) + (setq string-to-insert + (TeX-TikZ-single-macro-arg function-alist prompt t))) + + ;; Finish the macro. + (insert ";"))) + +(defun TeX-TikZ-find-named-points () + "Find TiKZ named points in current enviroment. +Begin by finding the span of the current TikZ enviroment and then +searching within that span to find all named-points and return +them as a list of strings, dropping the '()'." + (let* ((env-end (save-excursion + (LaTeX-find-matching-end) + (point))) + (matches)) + ;; TODO: Handle cases where we are in a nested environment, \scope + ;; for example. + (save-excursion + (LaTeX-find-matching-begin) + (save-match-data + (while (re-search-forward TeX-TikZ-point-name-regexp env-end t) + (push (match-string 1) matches)))) + matches)) + +(defun TeX-TikZ-arg-named-point (_ignored &optional prefix) + "Prompt the user for the name of a previous named-point." + (let ((point-name (completing-read "Point name: " + (TeX-TikZ-find-named-points)))) + (concat " " prefix "(" point-name ") "))) + +(defun TeX-TikZ-arg-circle (_ignored) + "Prompt the user for the arguments to the circle command." + (let ((options (TeX-TikZ-arg-options t))) + (concat "circle" options))) + +(defun TeX-TikZ-arg-arc (_ignored) + "Prompt the user for the arguments to the arc command." + (let ((options (TeX-TikZ-arg-options t))) + (concat "arc" options))) + +(defun TeX-TikZ-arg-bend (optional) + "Prompt the user for a bend argument. +If OPTIONAL is non-nil and the user doesn't provide a point, + return \"\"." + (let ((point + (TeX-TikZ-single-macro-arg TeX-TikZ-point-function-map + (TeX-argument-prompt optional nil "Bend point") + optional))) + (if (string= point "") + point + (concat " bend" point)))) + +(defun TeX-TikZ-arg-parabola (_ignored) + "Prompt the user for the arguments to the parabola command." + (let ((options (TeX-TikZ-arg-options t)) + (bend (TeX-TikZ-arg-bend t))) + (concat "parabola" options bend))) + +(defun TeX-TikZ-arg-grid (_ignored) + "Prompt the user for the arguments to the grid command." + (let ((options (TeX-TikZ-arg-options t))) + (concat "grid" options))) + +(defun TeX-TikZ-draw-arg (_ignored) + "Prompt the user for the arguments to a TikZ draw macro." + (TeX-TikZ-macro-arg TeX-TikZ-draw-arg-function-map)) + +(defun TeX-TikZ-coordinate-arg (_ignored) + "Prompt the user for the arguments to a TikZ coordinate macro." + (let ((options (TeX-TikZ-arg-options t)) + (name (TeX-TikZ-arg-name nil)) + (point (TeX-TikZ-single-macro-arg TeX-TikZ-point-function-map + "Coordinate point type: "))) + (insert options " " name " at" point ";"))) + +(defun TeX-TikZ-node-arg (_ignored) + "Prompt the user for the arguments to a TikZ node macro." + (let ((options (TeX-TikZ-arg-options t)) + (name (TeX-TikZ-arg-name nil)) + (point (TeX-TikZ-single-macro-arg TeX-TikZ-point-function-map + "Node point type: ")) + (label (TeX-TikZ-arg-label nil))) + (insert options " " name " at" point label ";"))) + +(TeX-add-style-hook + "tikz" + (lambda () + (TeX-add-symbols + '("draw" (TeX-TikZ-draw-arg)) + '("coordinate" (TeX-TikZ-coordinate-arg)) + '("node" (TeX-TikZ-node-arg))) + (LaTeX-add-environments + '("tikzpicture")))) + +;;; tikz.el ends here diff --git a/elpa/auctex-13.1.3/style/tikz.elc b/elpa/auctex-13.1.3/style/tikz.elc Binary files differnew file mode 100644 index 0000000..859e725 --- /dev/null +++ b/elpa/auctex-13.1.3/style/tikz.elc diff --git a/elpa/auctex-13.1.3/style/titleps.el b/elpa/auctex-13.1.3/style/titleps.el new file mode 100644 index 0000000..8de8b1d --- /dev/null +++ b/elpa/auctex-13.1.3/style/titleps.el @@ -0,0 +1,245 @@ +;;; titleps.el --- AUCTeX style for `titleps.sty' (v1.1.1) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016--2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2016-06-22 +;; 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 `titleps.sty' (v1.1.1) from 2016/03/15. +;; `titleps.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-titleps-section-command-list + '("part" + "chapter" + "section" + "subsection" + "subsubsection" + "paragraph" + "subparagraph") + "List of sectioning commands available in \"titleps.sty\".") + +(defun LaTeX-titleps-section-command-list () + "Remove \"chapter\" from variable +`LaTeX-titleps-section-command-list' and return the remainder. +Removal is based on the return value of function +`LaTeX-largest-level'." + (if (< (LaTeX-largest-level) 2) + (symbol-value 'LaTeX-titleps-section-command-list) + (remove "chapter" LaTeX-titleps-section-command-list))) + +(defvar LaTeX-titleps-newpagestyle-regexp + '("\\\\newpagestyle[ \t\n\r%]*{\\([^}]+\\)}" 1 LaTeX-auto-pagestyle) + "Match the argument of \"\\newpagestyle\" from titleps.sty.") + +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "titleps" + (lambda () + + ;; Add titleps to the parser. + (TeX-auto-add-regexp LaTeX-titleps-newpagestyle-regexp) + + ;; Add \<section>title's + (dolist (sec (LaTeX-titleps-section-command-list)) + (TeX-add-symbols `(,(concat sec "title") 0))) + + (TeX-add-symbols + ;; 2. Defining Page Styles + '("newpagestyle" + (TeX-arg-eval + (lambda () + (let ((ps (TeX-read-string + (TeX-argument-prompt nil nil "Page style")))) + (LaTeX-add-pagestyles ps) + (format "%s" ps)))) + (TeX-arg-conditional (y-or-n-p "With optional global style? ") + ( [ t ] nil) + ( t ))) + + '("renewpagestyle" TeX-arg-pagestyle + (TeX-arg-conditional (y-or-n-p "With optional global style? ") + ( [ t ] nil) + ( t ))) + + '("sethead" + (TeX-arg-conditional (y-or-n-p "With optional even pages? ") + ( [ 3 ] nil nil nil) + ( 3 ))) + + '("setfoot" + (TeX-arg-conditional (y-or-n-p "With optional even pages? ") + ( [ 3 ] nil nil nil) + ( 3 ))) + + '("sethead*" 3) + '("setfoot*" 3) + + '("settitlemarks" + (TeX-arg-eval mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt nil nil "Level names") + (LaTeX-titleps-section-command-list)) + ",")) + + '("settitlemarks" + (TeX-arg-eval mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt nil nil "Level names") + (LaTeX-titleps-section-command-list)) + ",")) + + '("headrule" 0) + '("setheadrule" "Thickness") + + '("footrule" 0) + '("setfootrule" "Thickness") + + '("makeheadrule" 0) + '("makefootrule" 0) + + ;; 3. On \markboth and \markleft + '("setmarkboth" t) + '("resetmarkboth" 0) + + ;; 4. Headline/footline width + '("widenhead" + (TeX-arg-conditional (y-or-n-p "With optional even pages? ") + ( [ 2 ] nil nil) + ( 2 ))) + + '("widenhead*" 2) + + '("TitlepsPatchSection" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Sectioning command") + (LaTeX-titleps-section-command-list))) + + '("TitlepsPatchSection*" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Sectioning command") + (LaTeX-titleps-section-command-list))) + + ;; 5. Marks + '("bottitlemarks" 0) + '("toptitlemarks" 0) + '("firsttitlemarks" 0) + '("nexttoptitlemarks" 0) + '("outertitlemarks" 0) + '("innertitlemarks" 0) + + '("newtitlemark" (TeX-arg-macro "Command name")) + '("newtitlemark*" (TeX-arg-counter "Variable name")) + + '("pretitlemark" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Sectioning command") + (LaTeX-titleps-section-command-list)) + "Text") + + '("pretitlemark*" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Sectioning command") + (LaTeX-titleps-section-command-list)) + "Text") + + '("ifsamemark" + (TeX-arg-macro "Marks group: \\") + (TeX-arg-macro "Command: \\") + 2) + + ;; 6. Running heads with floats + '("setfloathead" + (TeX-arg-conditional (y-or-n-p "With optional even pages? ") + ( [ 3 ] nil nil nil nil [ nil ] ) + ( 4 [ nil ] ))) + + '("setfloatfoot" + (TeX-arg-conditional (y-or-n-p "With optional even pages? ") + ( [ 3 ] nil nil nil nil [ nil ] ) + ( 4 [ nil ] ))) + + '("setfloathead*" 4 [ nil ] ) + '("setfloatfoot*" 4 [ nil ] ) + + '("nextfloathead" + (TeX-arg-conditional (y-or-n-p "With optional even pages? ") + ( [ 3 ] nil nil nil nil [ nil ] ) + ( 4 [ nil ] ))) + + '("nextfloatfoot" + (TeX-arg-conditional (y-or-n-p "With optional even pages? ") + ( [ 3 ] nil nil nil nil [ nil ] ) + ( 4 [ nil ] ))) + + '("nextfloathead*" 4 [ nil ] ) + '("nextfloatfoot*" 4 [ nil ] ) + + ;; 7. Extra marks: I'm not clear how the marks commands work; + ;; until then, I ignore them + ) + + ;; Don't increase indent at \ifsamemark: + (add-to-list 'LaTeX-indent-begin-exceptions-list "ifsamemark" t) + (LaTeX-indent-commands-regexp-make) + + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("newpagestyle" "{[{") + ("renewpagestyle" "{[{") + ("settitlemarks" "*{") + ("widenhead" "*[[{{") + ("TitlepsPatchSection" "*{") + ("newtitlemark" "*{") + ("pretitlemark" "*{{") + ("nextfloathead" "*[[[{{{{[") + ("nextfloatfoot" "*[[[{{{{[")) + 'function))) + TeX-dialect) + +(defvar LaTeX-titleps-package-options + '(;; 4. Headline/footline width + "nopatches" + + ;; 5. Marks + "outermarks" "innermarks" "topmarks" "botmarks" + + ;; 6. Running heads with floats + "psfloats" + + ;; 7. Extra marks + "extramarks") + "Package options for the titleps package.") + +;;; titleps.el ends here diff --git a/elpa/auctex-13.1.3/style/titleps.elc b/elpa/auctex-13.1.3/style/titleps.elc Binary files differnew file mode 100644 index 0000000..f3649d4 --- /dev/null +++ b/elpa/auctex-13.1.3/style/titleps.elc diff --git a/elpa/auctex-13.1.3/style/titlesec.el b/elpa/auctex-13.1.3/style/titlesec.el new file mode 100644 index 0000000..c3af038 --- /dev/null +++ b/elpa/auctex-13.1.3/style/titlesec.el @@ -0,0 +1,269 @@ +;;; titlesec.el --- AUCTeX style for `titlesec.sty' (v2.11) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016--2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-09-19 +;; 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 `titlesec.sty' (v2.11) from +;; 2019/07/16. `titlesec.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-titlesec-key-val-options + '(("page" ("even" "odd")) + ("numberless")) + "Key=value options for \"\\titleformat\" and \"\\titlespacing\" +macros provided by \"titlesec.sty\".") + +(defvar LaTeX-titlesec-section-command-list + '("part" + "chapter" + "section" + "subsection" + "subsubsection" + "paragraph" + "subparagraph") + "List of sectioning commands available in \"titlesec.sty\".") + +(defvar LaTeX-titlesec-section-shape-list + '("hang" + "block" + "display" + "runin" + "leftmargin" + "rightmargin" + "drop" + "wrap" + "frame") + "List of sectioning shapes available for \"\\titleformat\" command.") + +(defun LaTeX-titlesec-section-command-list () + "Remove \"chapter\" from variable +`LaTeX-titlesec-section-command-list' and return the remainder. +Removal is based on the return value of function +`LaTeX-largest-level'. Items returned are prefixed with +`TeX-esc'." + (mapcar (lambda (elt) (concat TeX-esc elt)) + (if (< (LaTeX-largest-level) 2) + (symbol-value 'LaTeX-titlesec-section-command-list) + (remove "chapter" LaTeX-titlesec-section-command-list)))) + +(defun LaTeX-arg-titlesec-titlespec (optional) + "Insert the first argument of \"\\titleformat\" and \"\\titlespacing\". +Depending on returned value of function `LaTeX-largest-level', +append a \"name\" key with corresponding values to +`LaTeX-titlesec-key-val-options'. The values are retrieved from +`LaTeX-titlesec-section-command-list'. The values of this list +are also added stand-alone as keys. If OPTIONAL is non-nil, +insert the argument in brackets." + (let ((keyvals + (TeX-read-key-val + optional + (append + `(("name" + ,(mapcar (lambda (elt) (concat TeX-esc elt)) + (if (< (LaTeX-largest-level) 2) + (symbol-value 'LaTeX-titlesec-section-command-list) + (remove "chapter" LaTeX-titlesec-section-command-list))))) + (mapcar #'list + (mapcar (lambda (elt) (concat TeX-esc elt)) + (if (< (LaTeX-largest-level) 2) + (symbol-value 'LaTeX-titlesec-section-command-list) + (remove "chapter" LaTeX-titlesec-section-command-list)))) + LaTeX-titlesec-key-val-options) + "Sectioning command"))) + (TeX-argument-insert keyvals optional))) + +(TeX-add-style-hook + "titlesec" + (lambda () + + ;; Load "titleps.el" when "pagestyles" package option is given + (when (LaTeX-provided-package-options-member "titlesec" "pagestyles") + (TeX-run-style-hooks "titleps")) + + (TeX-add-symbols + ;; 2.4. Tools + '("titlelabel" t) + + ;; \titleformat*{<command>}{<format>} + '("titleformat*" (LaTeX-arg-titlesec-titlespec) t) + + ;; 3. Advanced Interface + ;; \titleformat{<command>}[<shape>]{<format>}{<label>}{<sep>}{<before-code>}[<after-code>] + '("titleformat" + (LaTeX-arg-titlesec-titlespec) + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Shape") + LaTeX-titlesec-section-shape-list] + (TeX-arg-conditional (y-or-n-p "With optional after-code? ") + (4 [nil]) + (4))) + + '("chaptertitlename" 0) + + ;; 3.2. Spacing + ;; \titlespacing{<command>}{<left>}{<before-sep>}{<after-sep>}[<right-sep>] + '("titlespacing" + (LaTeX-arg-titlesec-titlespec) + (TeX-arg-length "Left margin") + (TeX-arg-length "Before vertical space") + (TeX-arg-length "Space between title and text") + [TeX-arg-length "Right margin"]) + + '("titlespacing*" + (LaTeX-arg-titlesec-titlespec) + (TeX-arg-length "Left margin") + (TeX-arg-length "Before vertical space") + (TeX-arg-length "Space between title and text") + [TeX-arg-length "Right margin"]) + + ;; 3.3. Spacing related tools + '("filright" 0) + '("filcenter" 0) + '("filleft" 0) + '("fillast" 0) + '("filinner" 0) + '("filouter" 0) + '("wordsep" 0) + '("nostruts" 0) + + ;; 3.4. Rules + '("titleline" + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Alignment") + '("l" "r" "c")] + t) + + '("titlerule" [TeX-arg-length "Rule height"]) + + '("titlerule*" [TeX-arg-length "Box width"] "Text") + + '("iftitlemeasuring" 2) + + ;; 3.5. Page styles + '("assignpagestyle" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Sectioning command") + (LaTeX-titlesec-section-command-list)) + (TeX-arg-pagestyle)) + + ;; 3.9. Creating new levels and changing the class + '("titleclass" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Sectioning command") + (LaTeX-titlesec-section-command-list)) + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Class") + '("page" "top" "straight")) + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Super level command") + (LaTeX-titlesec-section-command-list)]) ) + + ;; Don't increase indent at \iftitlemeasuring: + (add-to-list 'LaTeX-indent-begin-exceptions-list "iftitlemeasuring" t) + (LaTeX-indent-commands-regexp-make) + + ;; 3.4. Rules: A variant of \titleline to be used only with calcwidth + (when (LaTeX-provided-package-options-member "titlesec" "calcwidth") + (TeX-add-symbols + '("titleline*" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Alignment") + '("l" "r" "c")) + t))) + + ;; The length of the longest line is returned in \titlewidth + (LaTeX-add-lengths "titlewidth" + "titlewidthlast" + "titlewidthfirst") + + ;; Fontification: We only add macros which are used at top level; + ;; most of macros definded above are intended to be used in + ;; arguments of \titleformat + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("titlelabel" "{") + ;; + ;; \titleformat comes in 2 flavors: + ;; with *, it takes only 2 mandatory + ;; argument; w/o *, a lot more. It is + ;; not (yet) possible to realize this + ;; behaviour within font-latex. Hence + ;; we reduce the fontification to the + ;; first 2 mandatory arguments and + ;; ignore the rest. *[ are optional anyway. + ("titleformat" "*{[{") + ("titlespacing" "*{{{{[") + ("iftitlemeasuring" "{{") + ("assignpagestyle" "{{") + ("titleclass" "{[{[")) + 'function))) + TeX-dialect) + +(defvar LaTeX-titlesec-package-options + '(;; 2.1. Format + "rm" "sf" "tt" "md" "bf" "up" "it" "sl" "sc" + "big" "medium" "small" "tiny" + "raggedleft" "center" "raggedright" + + ;; 2.2. Spacing + "compact" + + ;; 2.3. Uppercase + "uppercase" + + ;; 3.3. Spacing related tools + "indentafter" "noindentafter" + "rigidchapters" "rubberchapters" + "bottomtitles" "nobottomtitles" "nobottomtitles*" + "aftersep" "largestsep" "pageatnewline" + "nostruts" + + ;; 3.4. Rules + "calcwidth" + + ;; 3.7. Other Package Options + "explicit" + "newparttoc" + "oldparttoc" + "clearempty" + "toctitles" + "newlinetospace" + "loadonly" + + ;; 5. titleps and Page Styles + "pagestyles") + "Package options for the titlesec package.") + +;;; titlesec.el ends here diff --git a/elpa/auctex-13.1.3/style/titlesec.elc b/elpa/auctex-13.1.3/style/titlesec.elc Binary files differnew file mode 100644 index 0000000..66c91cf --- /dev/null +++ b/elpa/auctex-13.1.3/style/titlesec.elc diff --git a/elpa/auctex-13.1.3/style/titletoc.el b/elpa/auctex-13.1.3/style/titletoc.el new file mode 100644 index 0000000..c0ac512 --- /dev/null +++ b/elpa/auctex-13.1.3/style/titletoc.el @@ -0,0 +1,198 @@ +;;; titletoc.el --- AUCTeX style for `titletoc.sty' (v1.6) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-09-19 +;; 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 `titletoc.sty' (v1.6) from +;; 2011/12/15. `titletoc.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-titletoc-section-command-list + '("part" + "chapter" + "section" + "subsection" + "subsubsection" + "paragraph" + "subparagraph" + "figure" + "table") + "List of sectioning commands available in \"titletoc.sty\". +Other environments producing a \"Table of ENVIRONMENT\" (figure, +table) are also available in this variable.") + +(defun LaTeX-titletoc-section-command-list () + "Remove \"chapter\" from variable +`LaTeX-titletoc-section-command-list' and return the remainder. +Removal is based on the return value of function +`LaTeX-largest-level'." + (if (< (LaTeX-largest-level) 2) + (symbol-value 'LaTeX-titletoc-section-command-list) + (remove "chapter" LaTeX-titletoc-section-command-list))) + +;; Setup for \contentsuse: +(TeX-auto-add-type "titletoc-contentsuse" "LaTeX") + +(defvar LaTeX-titletoc-contentsuse-regexp + '("\\\\contentsuse{\\([^}]+\\)}" + 1 LaTeX-auto-titletoc-contentsuse) + "Matches the argument of \\contentsuse from titletoc package.") + +(defun LaTeX-titletoc-auto-prepare () + "Clear `LaTeX-auto-titletoc-contentsuse' before parsing." + (setq LaTeX-auto-titletoc-contentsuse nil)) + +(defun LaTeX-titletoc-auto-cleanup () + "Move parsed arguments of \"\\contentsuse\" to the variable +`LaTeX-titletoc-section-command-list'." + (when (LaTeX-titletoc-contentsuse-list) + (make-local-variable 'LaTeX-titletoc-section-command-list) + (dolist (content (mapcar #'car (LaTeX-titletoc-contentsuse-list))) + (add-to-list 'LaTeX-titletoc-section-command-list content)))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-titletoc-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-titletoc-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "titletoc" + (lambda () + + ;; Add titletoc to the parser + (TeX-auto-add-regexp LaTeX-titletoc-contentsuse-regexp) + + (TeX-add-symbols + ;; Basic macros + ;; \dottedcontents{<section>}[<left>]{<above-code>} + ;; {<label width>}{<leader width>} + '("dottedcontents" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Sectioning command") + (LaTeX-titletoc-section-command-list)) + [ TeX-arg-length "Left margin" ] 3) + + ;; \titlecontents{<section>}[<left>]{<above-code>} + ;; {<numbered-entry-format>}{<numberless-entry-format>} + ;; {<filler-page-format>}[<below-code>] + '("titlecontents" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Sectioning command") + (LaTeX-titletoc-section-command-list)) + [ TeX-arg-length "Left margin" ] + (TeX-arg-conditional (y-or-n-p "With optional below code argument? ") + (4 [nil]) + (4))) + + ;; \titlecontents*{<section>}[<left>]{<above-code>} + ;; {<numbered-entry-format>}{<numberless-entry-format>} + ;; {<filler-page-format>}[<separator>] + '("titlecontents*" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Sectioning command") + (LaTeX-titletoc-section-command-list)) + [ TeX-arg-length "Left margin" ] + (TeX-arg-conditional (y-or-n-p "With optional separator argument? ") + (4 [nil]) + (4))) + + ;; \contentsmargin[<correction>]{<right>} + '("contentsmargin" [ "Correction" ] "Right margin") + + '("thecontentslabel" 0) + + '("thecontentspage" 0) + + '("contentslabel" [ "Format" ] (TeX-arg-length "Space")) + + '("contentspage" [ "Format" ]) + + '("contentspush" t) + + ;; Check if newfloat.el is loaded and any new environment is + ;; defined with it. titletoc.sty can also be used to customize + ;; new environments defined with newfloat.sty. As a prerequisite, + ;; the environments must be introduced to titletoc.sty with + ;; \contentuse{ENV} and then can be used as argument to \titlecontents. + '("contentsuse" + (TeX-arg-eval + (lambda () + (let ((name (if (and (member "newfloat" (TeX-active-styles)) + (LaTeX-newfloat-DeclareFloatingEnvironment-list)) + (completing-read + (TeX-argument-prompt nil nil "Name of contents") + (mapcar #'car + (LaTeX-newfloat-DeclareFloatingEnvironment-list))) + (TeX-read-string + (TeX-argument-prompt nil nil "Name of contents"))))) + (make-local-variable 'LaTeX-titletoc-section-command-list) + (add-to-list 'LaTeX-titletoc-section-command-list name) + (format "%s" name)))) + "File extension") + + ;; 6.3. Partial TOC's + '("startcontents" [ "Name" ]) + + '("stopcontents" [ "Name" ]) + + '("resumecontents" [ "Name" ]) + + '("printcontents" [ "Name" ] "Prefix" "Start level" t) + + ;; 6.4. Partial lists + '("startlist" [ "Name" ] "List") + + '("stoplist" [ "Name" ] "List") + + '("resumelist" [ "Name" ] "List") + + '("printlist" [ "Name" ] "Prefix" t) ) + + ;; Fontification: We only add macros which are used at top level; + ;; most of macros definded above are intended to be used in + ;; arguments of \dottedcontents or \titlecontents + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("dottedcontents" "{[{{{") + ("titlecontents" "*{[{{{[[[") + ("contentsmargin" "[{") + ("contentsuse" "{{")) + 'function)) ) + TeX-dialect) + +(defvar LaTeX-titletoc-package-options + '("leftlabels" "rightlabels" "dotinlabels") + "Package options for the titletoc package.") + +;;; titletoc.el ends here diff --git a/elpa/auctex-13.1.3/style/titletoc.elc b/elpa/auctex-13.1.3/style/titletoc.elc Binary files differnew file mode 100644 index 0000000..3e38ce9 --- /dev/null +++ b/elpa/auctex-13.1.3/style/titletoc.elc diff --git a/elpa/auctex-13.1.3/style/transparent.el b/elpa/auctex-13.1.3/style/transparent.el new file mode 100644 index 0000000..4cdd5ca --- /dev/null +++ b/elpa/auctex-13.1.3/style/transparent.el @@ -0,0 +1,60 @@ +;;; transparent.el --- AUCTeX style for `transparent.sty' (v1.0) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-08-15 +;; 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 `transparent.sty' (v1.0) from 2007/01/08. +;; `transparent.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "transparent" + (lambda () + (TeX-add-symbols + '("transparent" "Transparency value (between 0,1)") + '("texttransparent" "Transparency value (between 0,1)" t)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("transparent" "{")) + 'type-declaration) + (font-latex-add-keywords '(("texttransparent" "{{")) + 'type-command))) + TeX-dialect) + +(defvar LaTeX-transparent-package-options nil + "Package options for the transparent package.") + +;;; transparent.el ends here diff --git a/elpa/auctex-13.1.3/style/transparent.elc b/elpa/auctex-13.1.3/style/transparent.elc Binary files differnew file mode 100644 index 0000000..bcd4ffe --- /dev/null +++ b/elpa/auctex-13.1.3/style/transparent.elc diff --git a/elpa/auctex-13.1.3/style/treport.el b/elpa/auctex-13.1.3/style/treport.el new file mode 100644 index 0000000..f6aaf13 --- /dev/null +++ b/elpa/auctex-13.1.3/style/treport.el @@ -0,0 +1,45 @@ +;;; treport.el - Special code for treport class. -*- lexical-binding: t; -*- + +;; Copyright (C) 2017, 2020 Free Software Foundation, Inc. + +;; Author: Ikumi Keita <ikumi@ikumi.que.jp> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-03-23 +;; 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: + +;; Please write me. + +;;; Code: + +(require 'tex) + +(TeX-load-style "jreport") +(defvar LaTeX-treport-class-options LaTeX-jreport-class-options + "Class options for the treport class.") + +(TeX-add-style-hook + "treport" + (lambda () + (TeX-run-style-hooks "jreport" "plext")) + TeX-dialect) + +;;; treport.el ends here diff --git a/elpa/auctex-13.1.3/style/treport.elc b/elpa/auctex-13.1.3/style/treport.elc Binary files differnew file mode 100644 index 0000000..7d44512 --- /dev/null +++ b/elpa/auctex-13.1.3/style/treport.elc diff --git a/elpa/auctex-13.1.3/style/truncate.el b/elpa/auctex-13.1.3/style/truncate.el new file mode 100644 index 0000000..264d935 --- /dev/null +++ b/elpa/auctex-13.1.3/style/truncate.el @@ -0,0 +1,59 @@ +;;; truncate.el --- AUCTeX style for `truncate.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-01-31 +;; 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 Street, Fifth Floor, Boston, +;; MA 02110-1301 USA. + +;;; Commentary: + +;; This file adds support for `truncate.sty' v3.6 form 2001-08-20. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "truncate" + (lambda () + + (TeX-add-symbols + '("truncate" [ "Marker" ] (TeX-arg-length "Width") "Text") + '("TruncateMarker" 0)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("truncate" "[{{")) + 'textual))) + TeX-dialect) + +(defvar LaTeX-truncate-package-options + '("breakwords" "breakall" "hyphenate" "fit") + "Package options for the truncate package.") + +;;; truncate.el ends here diff --git a/elpa/auctex-13.1.3/style/truncate.elc b/elpa/auctex-13.1.3/style/truncate.elc Binary files differnew file mode 100644 index 0000000..a8c899c --- /dev/null +++ b/elpa/auctex-13.1.3/style/truncate.elc diff --git a/elpa/auctex-13.1.3/style/ulem.el b/elpa/auctex-13.1.3/style/ulem.el new file mode 100644 index 0000000..f84fcc6 --- /dev/null +++ b/elpa/auctex-13.1.3/style/ulem.el @@ -0,0 +1,127 @@ +;;; ulem.el --- AUCTeX style for `ulem.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2012-2021 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; 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 `ulem.sty' dated 2019-11-18. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "ulem" + (lambda () + (TeX-add-symbols + '("uline" 1) + '("uuline" 1) + '("uwave" 1) + '("sout" 1) + '("xout" 1) + '("dashuline" 1) + '("dotuline" 1) + ;; can be used with \renewcommand + "ULthickness" + ;; custom commands can be defined with these commands; see the + ;; documentation for an example + "ULon" + ;; \markoverwith takes on argument + '("markoverwith" 1) + ;; \useunder {underline_command}{font_declaration}{font_command} + ;; replaces occurences of font_declaration and font_command with the + ;; underline_command + '("useunder" TeX-arg-ulem-useunder + TeX-arg-ulem-fontdecl TeX-arg-ulem-fontcmd)) + + ;; \ULdepth can be changed with \setlength + (LaTeX-add-lengths "ULdepth") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; Tell font-lock about the update. + (font-latex-add-keywords '(("useunder" "{{{")) + 'function) + (font-latex-add-keywords '(("uline" "{") + ("uuline" "{") + ("uwave" "{") + ("sout" "{") + ("xout" "{") + ("dashuline" "{") + ("dotuline" "{")) + 'textual))) + TeX-dialect) + +(defvar LaTeX-ulem-fontdecl + (mapcar (lambda (str) (concat "\\" str)) + '("itshape" "bfseries" "scshape" + "ttfamily" "upshape" "mdseries" + "rmfamily" "sffamily" "slshape")) + "List of font declaration commands in LaTeX.") + +(defvar LaTeX-ulem-fontcmd + (mapcar (lambda (str) (concat "\\" str)) + '("textit" "textbf" "textsc" + "texttt" "textup" "textmd" + "textrm" "textsf" "textsl")) + "List of font commands in LaTeX") + +(defun TeX-arg-ulem-fontdecl (optional &optional prompt) + "Prompt for the font-declaration un \\useunder." + (TeX-argument-insert + (completing-read (TeX-argument-prompt + optional prompt "Font declaration") + LaTeX-ulem-fontdecl nil t) + optional)) + +(defun TeX-arg-ulem-fontcmd (optional &optional prompt) + "Prompt for the font-declaration un \\useunder." + (TeX-argument-insert + (completing-read (TeX-argument-prompt + optional prompt "Font command") + LaTeX-ulem-fontcmd nil t) + optional)) + +;; adapted from url.el: TeX-arg-urlstyle +(defun TeX-arg-ulem-useunder (optional &optional prompt) + "Prompt for underline command used in \\useunder." + (TeX-argument-insert + (completing-read (TeX-argument-prompt optional prompt "Underline command") + (mapcar (lambda (str) (concat "\\" str)) + '("uline" "uuline" + "uwave" "sout" "xout" + "dashuline" "dotuline")) + nil t) + optional)) + +(defvar LaTeX-ulem-package-options + '("UWforbf" "ULforem" "normalbf" "normalem") + "Package options for the ulem package.") + +;;; ulem.el ends here diff --git a/elpa/auctex-13.1.3/style/ulem.elc b/elpa/auctex-13.1.3/style/ulem.elc Binary files differnew file mode 100644 index 0000000..fb885af --- /dev/null +++ b/elpa/auctex-13.1.3/style/ulem.elc diff --git a/elpa/auctex-13.1.3/style/unicode-math.el b/elpa/auctex-13.1.3/style/unicode-math.el new file mode 100644 index 0000000..11217a3 --- /dev/null +++ b/elpa/auctex-13.1.3/style/unicode-math.el @@ -0,0 +1,82 @@ +;;; unicode-math.el --- AUCTeX style for `unicode-math.sty' version 0.7e. -*- lexical-binding: t; -*- + +;; Copyright (C) 2013, 2018, 2020 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <giordano.mose@libero.it> +;; 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 `unicode-math.sty' version 0.7e. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-unicode-math-package-options-list + '(("math-style" ("ISO" "TeX" "french" "upright" "literal")) + ("bold-style" ("ISO" "TeX" "upright" "literal")) + ("sans-style" ("italic" "upright" "literal")) + ("nabla" ("italic" "upright" "literal")) + ("partial" ("upright" "italic" "literal")) + ("vargreek-shape" ("unicode" "TeX")) + ("colon" ("literal" "TeX")) + ("slash-delimiter" ("ascii" "frac" "div"))) + "Package options for the unicode-math package.") + +(defvar LaTeX-unicode-math-setmathfont-options + (append LaTeX-unicode-math-package-options-list + '(("range") + ("script-font") + ("script-features") + ("sscript-font") + ("sscript-features"))) + "Options for the setmathfont macro of the unicode-math package.") + +(TeX-add-style-hook + "unicode-math" + (lambda () + (TeX-run-style-hooks "ifxetex" "ifluatex" "expl3" "xparse" "l3keys2e" + "fontspec" "catchfile" "fix-cm" "filehook") + (TeX-add-symbols + '("setmathfont" [TeX-arg-key-val LaTeX-unicode-math-setmathfont-options] + "Math font name") + '("unimathsetup" (TeX-arg-key-val LaTeX-unicode-math-package-options-list))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("setmathfont" "[{") + ("unimathsetup" "{")) + 'function))) + TeX-dialect) + +(defun LaTeX-unicode-math-package-options () + "Prompt for package options for the unicode-math package." + (TeX-read-key-val t LaTeX-unicode-math-package-options-list)) + +;;; unicode-math.el ends here diff --git a/elpa/auctex-13.1.3/style/unicode-math.elc b/elpa/auctex-13.1.3/style/unicode-math.elc Binary files differnew file mode 100644 index 0000000..c38427f --- /dev/null +++ b/elpa/auctex-13.1.3/style/unicode-math.elc diff --git a/elpa/auctex-13.1.3/style/unicodefonttable.el b/elpa/auctex-13.1.3/style/unicodefonttable.el new file mode 100644 index 0000000..3253df1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/unicodefonttable.el @@ -0,0 +1,134 @@ +;;; unicodefonttable.el --- AUCTeX style for `unicodefonttable.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-10-23 +;; 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 Street, Fifth Floor, Boston, +;; MA 02110-1301 USA. + +;;; Commentary: + +;; This file adds support for `unicodefonttable.sty' v1.0f form +;; 2021-10-29. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) +(declare-function LaTeX-xcolor-definecolor-list "xcolor" ()) + +(defvar LaTeX-unicodefonttable-key-val-options + '(("header" ("true" "false")) + ("noheader" ("true" "false")) + ("title-format") + ("title-format-cont") + ("display-block" ("titles" "rules" "none")) + ("hex-digits" ("block" "foot" "head" "head+foot" "none")) + ("hex-digits-font" ("\\rmfamily" "\\sffamily" "\\ttfamily" + "\\mdseries" "\\bfseries" "\\upshape" + "\\itshape" "\\slshape" "\\scshape" + "\\tiny" "\\scriptsize" "\\footnotesize" + "\\small" "\\normalsize" "\\large" + "\\Large" "\\LARGE" "\\huge" "\\Huge" + "\\normalfont")) + ("color") + ("statistics" ("true" "false")) + ("nostatistics" ("true" "false")) + ("statistics-font" ("\\rmfamily" "\\sffamily" "\\ttfamily" + "\\mdseries" "\\bfseries" "\\upshape" + "\\itshape" "\\slshape" "\\scshape" + "\\tiny" "\\scriptsize" "\\footnotesize" + "\\small" "\\normalsize" "\\large" + "\\Large" "\\LARGE" "\\huge" "\\Huge" + "\\normalfont")) + ("statistics-format") + ("glyph-width") + ("missing-glyph") + ("missing-glyph-font" ("\\rmfamily" "\\sffamily" "\\ttfamily" + "\\mdseries" "\\bfseries" "\\upshape" + "\\itshape" "\\slshape" "\\scshape" + "\\tiny" "\\scriptsize" "\\footnotesize" + "\\small" "\\normalsize" "\\large" + "\\Large" "\\LARGE" "\\huge" "\\Huge" + "\\normalfont")) + ("missing-glyph-color") + ("compare-with") + ("compare-color") + ("compare-bgcolor") + ("statistics-compare-format") + ("range-start") + ("range-end")) + "Key=value options for unicodefonttable macros.") + +(defun LaTeX-unicodefonttable-key-val-options () + "Return an updated list of key=vals from unicodefonttable package." + (append + (let ((colors (mapcar #'car (LaTeX-xcolor-definecolor-list))) + (keys '("color" + "missing-glyph-color" + "compare-color" + "compare-bgcolor")) + result) + (dolist (key keys result) + (push (list key colors) result))) + LaTeX-unicodefonttable-key-val-options)) + +(TeX-add-style-hook + "unicodefonttable" + (lambda () + + (TeX-run-style-hooks "fontspec" "xcolor" "caption" + "longtable" "booktabs") + + (TeX-add-symbols + '("displayfonttable" + [TeX-arg-key-val (LaTeX-unicodefonttable-key-val-options)] + LaTeX-fontspec-arg-font + [TeX-arg-key-val (LaTeX-fontspec-font-features) "Font features"]) + + '("displayfonttable*" + [TeX-arg-key-val (LaTeX-unicodefonttable-key-val-options)] + LaTeX-fontspec-arg-font + [TeX-arg-key-val (LaTeX-fontspec-font-features) "Font features"]) + + '("fonttablesetup" + (TeX-arg-key-val (LaTeX-unicodefonttable-key-val-options))) + + "fonttableglyphcount") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("displayfonttable" "[{[") + ("displayfonttable*" "[{[") + ("fonttableglyphcount" "")) + 'function))) + TeX-dialect) + +(defvar LaTeX-unicodefonttable-package-options nil + "Package options for the unicodefonttable package.") + +;;; unicodefonttable.el ends here diff --git a/elpa/auctex-13.1.3/style/unicodefonttable.elc b/elpa/auctex-13.1.3/style/unicodefonttable.elc Binary files differnew file mode 100644 index 0000000..a07eba8 --- /dev/null +++ b/elpa/auctex-13.1.3/style/unicodefonttable.elc diff --git a/elpa/auctex-13.1.3/style/units.el b/elpa/auctex-13.1.3/style/units.el new file mode 100644 index 0000000..c7b4a7d --- /dev/null +++ b/elpa/auctex-13.1.3/style/units.el @@ -0,0 +1,57 @@ +;;; units.el --- AUCTeX style for the LaTeX package `units.sty' (v0.9b) -*- lexical-binding: t; -*- + +;; Copyright (C) 2004, 2005, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Christian Schlauer <cschl@arcor.de> +;; Maintainer: auctex-devel@gnu.org +;; 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 `units.sty'. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "units" + (lambda () + (TeX-add-symbols + '("unit" [ "Value" ] "Unit") + '("unitfrac" [ "Value" ] "Unit in numerator" "Unit in denominator")) + ;; units.sty requires the package nicefrac.sty, thus we enable the + ;; macros of nicefrac.sty, too + (TeX-run-style-hooks "nicefrac") + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("unit" "[{") ("unitfrac" "[{{")) 'textual))) + TeX-dialect) + +(defvar LaTeX-units-package-options '("tight" "loose") + "Package options for the units package.") + +;;; units.el ends here diff --git a/elpa/auctex-13.1.3/style/units.elc b/elpa/auctex-13.1.3/style/units.elc Binary files differnew file mode 100644 index 0000000..eecd62b --- /dev/null +++ b/elpa/auctex-13.1.3/style/units.elc diff --git a/elpa/auctex-13.1.3/style/url.el b/elpa/auctex-13.1.3/style/url.el new file mode 100644 index 0000000..af524bf --- /dev/null +++ b/elpa/auctex-13.1.3/style/url.el @@ -0,0 +1,225 @@ +;;; url.el --- AUCTeX style for `url.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2004-2021 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@iwi.uni-sb.de> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2004-10-13 +;; 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 `url.sty' v3.4 dated 2013-09-16. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(declare-function font-latex-set-syntactic-keywords + "font-latex") + +;; Setup for \DeclareUrlCommand: +(TeX-auto-add-type "url-DeclareUrlCommand" "LaTeX") + +(defvar LaTeX-url-DeclareUrlCommand-regexp + `(,(concat + "\\\\DeclareUrlCommand" + "[ \n\r\t]*" + "{?" + "\\\\\\([a-zA-Z]+\\)" + "}?") + 1 LaTeX-auto-url-DeclareUrlCommand) + "Matches the argument of `\\DeclareUrlCommand' from `url' package.") + +(defun LaTeX-url-DeclareUrlCommand-prepare () + "Process macros parsed from `\\DeclareUrlCommand'." + ;; \DeclareUrlCommand\abc{settings}: makes \abc{ } like \url{ } with + ;; settings. + (when (LaTeX-url-DeclareUrlCommand-list) + (dolist (cmd (mapcar #'car (LaTeX-url-DeclareUrlCommand-list))) + (TeX-add-symbols `(,cmd TeX-arg-verb-delim-or-brace)) + (add-to-list 'LaTeX-verbatim-macros-with-delims-local cmd) + (add-to-list 'LaTeX-verbatim-macros-with-braces-local cmd)) + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (fboundp 'font-latex-set-syntactic-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords + (mapcar (lambda (cmd) + (list cmd "")) + (mapcar #'car (LaTeX-url-DeclareUrlCommand-list))) + 'reference) + ;; Tell font-lock about the update. + (font-latex-set-syntactic-keywords)))) + +;; Setup for \urldef: +(TeX-auto-add-type "url-urldef" "LaTeX") + +(defvar LaTeX-url-urldef-regexp + `(,(concat + "\\\\urldef" + "[ \n\r\t]*" + "{?" + "\\\\\\([a-zA-Z]+\\)" + "}?") + 1 LaTeX-auto-url-urldef) + "Matches the argument of `\\urldef' from `url' package.") + +(defun LaTeX-url-urldef-prepare () + "Process macros parsed from `\\urldef'." + (when (LaTeX-url-urldef-list) + (mapc #'TeX-add-symbols (mapcar #'car (LaTeX-url-urldef-list))) + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords + (mapcar (lambda (cmd) + (list cmd "")) + (mapcar #'car (LaTeX-url-urldef-list))) + 'reference)))) + +(defun LaTeX-url-auto-prepare () + "Clear `LaTeX-auto-url-*' before parsing." + (setq LaTeX-auto-url-DeclareUrlCommand nil + LaTeX-auto-url-urldef nil)) + +(defun LaTeX-url-auto-cleanup () + "Process parsed elements from url.sty." + (LaTeX-url-DeclareUrlCommand-prepare) + (LaTeX-url-urldef-prepare)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-url-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-url-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun TeX-arg-url-urlstyle (optional &optional prompt) + "Prompt for style used in \\urlstyle with completion. +If OPTIONAL is non-nil, indicate it in the minibuffer during the +query and insert the result in brackets. PROMPT replaces the +standard one." + (TeX-argument-insert + (completing-read (TeX-argument-prompt optional prompt "Style") + '("rm" "same" "sf" "tt")) + optional)) + +(defun TeX-arg-url-DeclareUrlCommand (optional &optional prompt) + "Prompt for arguments of \\DeclareUrlCommand with completion. +If OPTIONAL is non-nil, indicate it in the minibuffer during the +query and insert the result in brackets. PROMPT replaces the +standard one." + (let ((cmd (TeX-read-string + (TeX-argument-prompt optional prompt "Command: \\" t))) + (style (completing-read + (TeX-argument-prompt optional prompt "Style") + '("rm" "same" "sf" "tt")))) + (insert TeX-esc cmd TeX-grop) + (when (and style (not (string= style ""))) + (insert TeX-esc "urlstyle" TeX-grop style TeX-grcl)) + (insert TeX-grcl) + (LaTeX-add-url-DeclareUrlCommands cmd) + (LaTeX-url-DeclareUrlCommand-prepare))) + +(defun TeX-arg-url-urldef (optional &optional prompt) + "Prompt for arguments of \\urldef with completion." + (let ((cmd (TeX-read-string + (TeX-argument-prompt optional prompt "Command: \\" t)))) + (TeX-argument-insert cmd optional TeX-esc) + (LaTeX-add-url-urldefs cmd) + (LaTeX-url-urldef-prepare)) + (TeX-insert-macro + (completing-read + (TeX-argument-prompt optional prompt "Macro: \\" t) + (append (mapcar #'car (LaTeX-url-DeclareUrlCommand-list)) + '("url"))))) + +(TeX-add-style-hook + "url" + (lambda () + + ;; Add url to the parser + (TeX-auto-add-regexp LaTeX-url-DeclareUrlCommand-regexp) + (TeX-auto-add-regexp LaTeX-url-urldef-regexp) + + ;; New symbols + (TeX-add-symbols + ;; Macros for defining new styles, changing font, linebreaks etc. + "Url" + "UrlBigBreakPenalty" + "UrlBigBreaks" + "UrlBreakPenalty" + "UrlBreaks" + "UrlFont" + "UrlLeft" + "UrlNoBreaks" + "UrlOrds" + "UrlRight" + "UrlSpecials" + + ;; "hyperref" redefines \url so that the argument is only in + ;; braces. We check here if hyperref is loaded: + '("url" (TeX-arg-conditional (member "hyperref" (TeX-style-list)) + ("Url") + ((TeX-arg-verb-delim-or-brace "Url")))) + + '("urldef" TeX-arg-url-urldef) + + '("urlstyle" TeX-arg-url-urlstyle)) + + ;; For '\path', use the facilities provided by this style. Also + ;; don't add "path" for fontification below since + ;; `LaTeX-url-DeclareUrlCommand-prepare' takes care of it. + (LaTeX-add-url-DeclareUrlCommands "path") + (LaTeX-url-DeclareUrlCommand-prepare) + + ;; Don't do the same for '\url' because hyperref.el has some code + ;; to remove "url" from `LaTeX-verbatim-macros-with-delims-local', + ;; but we check here as well if "hyperref" is already loaded: + (unless (member "hyperref" (TeX-style-list)) + (add-to-list 'LaTeX-verbatim-macros-with-delims-local "url")) + (add-to-list 'LaTeX-verbatim-macros-with-braces-local "url") + + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("url" "")) + 'reference) + ;; Don't fontify the second argument of 'DeclareUrlCommand' since + ;; it gets the `font-latex-verbatim-face' from the first + ;; argument. Same applies also to '\urldef' where we don't + ;; fontify any arguments: + (font-latex-add-keywords '(("DeclareUrlCommand" "\\") + ("urldef" "") + ("urlstyle" "{")) + 'function) + ;; Tell font-lock about the update. + (font-latex-set-syntactic-keywords))) + TeX-dialect) + +(defvar LaTeX-url-package-options '("hyphens" "obeyspaces" "spaces" + "allowmove" "lowtilde") + "Package options for the url package.") + +;;; url.el ends here diff --git a/elpa/auctex-13.1.3/style/url.elc b/elpa/auctex-13.1.3/style/url.elc Binary files differnew file mode 100644 index 0000000..7310883 --- /dev/null +++ b/elpa/auctex-13.1.3/style/url.elc diff --git a/elpa/auctex-13.1.3/style/varioref.el b/elpa/auctex-13.1.3/style/varioref.el new file mode 100644 index 0000000..32134c1 --- /dev/null +++ b/elpa/auctex-13.1.3/style/varioref.el @@ -0,0 +1,112 @@ +;;; varioref.el --- AUCTeX style for `varioref.sty' (v1.6b) -*- lexical-binding: t; -*- + +;; Copyright (C) 1999, 2013, 2015, 2018--2020 Free Software Foundation, Inc. + +;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl> +;; Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org + +;; 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 `varioref.sty' (v1.6b) from 2019/09/08. +;; `varioref.sty' is a standard LaTeX package and part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'tex-style) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "varioref" + (lambda () + + (TeX-add-symbols + ;; 3 The user interface + '("vref" TeX-arg-ref) + '("vpageref" [ "Same page text" ] [ "Different page text" ] TeX-arg-ref) + '("vrefrange" [ "Same page text" ] TeX-arg-ref TeX-arg-ref) + '("vpagerefrange" [ "Same page text" ] TeX-arg-ref TeX-arg-ref) + "vpagerefnum" + '("vpagerefcompare" 4) + '("vpagerefnearby" 3) + '("vref*" TeX-arg-ref) + '("vpageref*" [ "Same page text" ] [ "Different page text" ] TeX-arg-ref) + '("vrefrange*" [ "Same page text" ] TeX-arg-ref TeX-arg-ref) + '("vpagerefrange*" [ "Same page text" ] TeX-arg-ref TeX-arg-ref) + + '("Vref" TeX-arg-ref) + '("Vref*" TeX-arg-ref) + + ;; 5 Customization + "reftextbefore" "reftextfacebefore" + "reftextafter" "reftextfaceafter" + "reftextfaraway" "vreftextvario" + "reftextpagerange" "reftexlabelrange" + "vrefwarning" "vrefshowerrors" + '("fullref" TeX-arg-ref)) + + ;; Install completion for labels. Only offer completion for + ;; commands that take only one reference as an argument + ;; FIXME: The first 3 entries can be reduced to + ;; ("\\\\[Vv]ref\\*?{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}") ??? + (setq TeX-complete-list + (append + '(("\\\\[Vv]ref{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}") + ("\\\\vref\\*?{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}") + ("\\\\vref\\*{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}") + ("\\\\fullref{\\([^{}\n\r\\%,]*\\)" 1 LaTeX-label-list "}") + ("\\\\vpageref\\*?\\(\\[[^]]*\\]\\)*{\\([^{}\n\r\\%,]*\\)" + 2 LaTeX-label-list "}")) + TeX-complete-list)) + + ;; Fontification + (when (and (fboundp 'font-latex-add-keywords) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(;; vref is already in font-latex.el, + ;; so don't add it here again + ("vpageref" "*[[{") + ("vrefrange" "*[{{") + ("vpagerefrange" "*[{{") + ("Vref" "*{") + ("fullref" "{")) + 'reference)) + + ;; Activate RefTeX reference style. + (and LaTeX-reftex-ref-style-auto-activate + (fboundp 'reftex-ref-style-activate) + (reftex-ref-style-activate "Varioref"))) + TeX-dialect) + +(defvar LaTeX-varioref-package-options + '("afrikaans" "american" "arabic" "austrian" "naustrian" "basque" + "bahasam" "brazil" "breton" "bulgarian" "catalan" "croatian" + "czech" "danish" "dutch" "english" "esperanto" "finnish" "french" + "galician" "german" "ngerman" "greek" "icelandic" "italian" "magyar" + "norsk" "nynorsk" "polish" "portuges" "romanian" "russian" + "slovak" "slovene" "spanish" "swedish" "turkish" "ukrainian" + "francais" "germanb" "draft" "final" "space" "nospace") + "Package options for the varioref package.") + +;;; varioref.el ends here diff --git a/elpa/auctex-13.1.3/style/varioref.elc b/elpa/auctex-13.1.3/style/varioref.elc Binary files differnew file mode 100644 index 0000000..760f13a --- /dev/null +++ b/elpa/auctex-13.1.3/style/varioref.elc diff --git a/elpa/auctex-13.1.3/style/verbatim.el b/elpa/auctex-13.1.3/style/verbatim.el new file mode 100644 index 0000000..9062254 --- /dev/null +++ b/elpa/auctex-13.1.3/style/verbatim.el @@ -0,0 +1,65 @@ +;;; verbatim.el --- Style hook for the verbatim package. -*- lexical-binding: t; -*- + +;; Copyright (C) 2001, 2020 Free Software Foundation, Inc. + +;; Author: Masayuki Ataka <masayuki.ataka@gmail.com> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2001/05/01 + +;; 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: + +;; M-x TeX-auto-generate verbatim.sty makes garbages. + +;;; Code + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-set-syntactic-keywords + "font-latex") + +(TeX-add-style-hook + "verbatim" + (lambda () + (LaTeX-add-environments + "comment") + (TeX-add-symbols + '("verbatiminput" TeX-arg-file)) + + ;; Fontification: + ;; Code taken from `comment.el' + (when (and (boundp 'font-latex-syntactic-keywords-extra) + (eq TeX-install-font-lock 'font-latex-setup)) + ;; For syntactic fontification. + (add-to-list 'font-latex-syntactic-keywords-extra + '("^[ \t]*\\\\begin *{comment}.*\\(\n\\)" + (1 "!" t))) + (add-to-list 'font-latex-syntactic-keywords-extra + '("^[ \t]*\\(\\\\\\)end *{comment}" + (1 "!" t))) + ;; Tell font-lock about the update. + (font-latex-set-syntactic-keywords))) + TeX-dialect) + +(defvar LaTeX-verbatim-package-options nil + "Package options for the verbatim package.") + +;;; verbatim.el ends here. diff --git a/elpa/auctex-13.1.3/style/verbatim.elc b/elpa/auctex-13.1.3/style/verbatim.elc Binary files differnew file mode 100644 index 0000000..aabeb36 --- /dev/null +++ b/elpa/auctex-13.1.3/style/verbatim.elc diff --git a/elpa/auctex-13.1.3/style/virtex.el b/elpa/auctex-13.1.3/style/virtex.el new file mode 100644 index 0000000..725cafe --- /dev/null +++ b/elpa/auctex-13.1.3/style/virtex.el @@ -0,0 +1,86 @@ +;;; virtex.el - Common code for all TeX formats. -*- lexical-binding: t; -*- + +;; Author: Per Abrahamsen <abraham@dina.kvl.dk> + +;;; Code: + +(require 'tex) + +(TeX-add-style-hook + "virtex" + (lambda () + (TeX-add-symbols "/" "above" "abovedisplayshortskip" + "abovedisplayskip" "abovewithdelims" "accent" + "adjdemerits" "advance" "afterassignment" + "aftergroup" "atop" "atopwithdelims" "badness" + "baselineskip" "batchmode" "begingroup" + "belowdisplayshortskip" "belowdisplayskip" + "binoppenalty" "botmark" "box" "boxmaxdepth" + "brokenpenalty" "catcode" "char" "chardef" + "cleaders" "closein" "closeout" "clubpenalty" + "copy" "count" "countdef" "cr" "crcr" "csname" + "day" "deadcycles" "def" "defaulthyphenchar" + "defaultskewchar" "delcode" "delimiter" + "delimiterfactor" "delimitershortfall" "dimen" + "dimendef" "discretionary" "displayindent" + "displaylimits" "displaystyle" + "displaywidowpenalty" "displaywidth" "divide" + "doublehyphendemerits" "dp" "dump" "edef" "else" + "emergencystretch" "end" "endcsname" "endgroup" + "endinput" "endlinechar" "eqno" "errhelp" + "errmessage" "errorcontextlines" "errorstopmode" + "escapechar" "everycr" "everydisplay" + "everyhbox" "everyjob" "everymath" "everypar" + "everyvbox" "exhyphenpenalty" "expandafter" + "fam" "fi" "finalhyphendemerits" "firstmark" + "floatingpenalty" "font" "fontdimen" "fontname" + "futurelet" "gdef" "global" "globaldefs" + "halign" "hangafter" "hangindent" "hbadness" + "hbox" "hfil" "hfill" "hfilneg" "hfuzz" + "hoffset" "holdinginserts" "hrule" "hsize" + "hskip" "hss" "ht" "hyphenpenation" "hyphenchar" + "hyphenpenalty" "if" "ifcase" "ifcat" "ifdim" + "ifeof" "iffalse" "ifhbox" "ifinner" "ifhmode" + "ifmmode" "ifnum" "ifodd" "iftrue" "ifvbox" + "ifvoid" "ifx" "ignorespaces" "immediate" + "indent" "input" "inputlineno" "insert" + "insertpenalties" "interlinepenalty" "jobname" + "kern" "language" "lastbox" "lastkern" + "lastpenalty" "lastskip" "lccode" "leaders" + "left" "lefthyphenmin" "leftskip" "leqno" "let" + "limits" "linepenalty" "lineskip" + "lineskiplimit" "long" "looseness" "lower" + "lowercase" "mag" "markaccent" "mathbin" + "mathchar" "mathchardef" "mathchoise" + "mathclose" "mathcode" "mathinner" "mathhop" + "mathopen" "mathord" "mathpunct" "mathrel" + "mathsurround" "maxdeadcycles" "maxdepth" + "meaning" "medmuskip" "message" "mkern" "month" + "moveleft" "moveright" "mskip" "multiply" + "muskip" "muskipdef" "newlinechar" "noalign" + "noboundary" "noexpand" "noindent" "nolimits" + "nonscript" "nonstopmode" "nulldelimiterspace" + "nullfont" "number" "omit" "openin" "openout" + "or" "outer" "output" "outputpenalty" + "overfullrule" "parfillskip" "parindent" + "parskip" "pausing" "postdisplaypenalty" + "predisplaypenalty" "predisplaysize" + "pretolerance" "relpenalty" "rightskip" + "scriptspace" "showboxbreadth" "showboxdepth" + "smallskipamount" "spaceskip" "splitmaxdepth" + "splittopskip" "tabskip" "thickmuskip" + "thinmuskip" "time" "tolerance" "topskip" + "tracingcommands" "tracinglostchars" + "tracingmacros" "tracingonline" "tracingoutput" + "tracingpages" "tracingparagraphs" + "tracingrestores" "tracingstats" "uccode" + "uchyph" "underline" "unhbox" "unhcopy" "unkern" + "unpenalty" "unskip" "unvbox" "unvcopy" + "uppercase" "vadjust" "valign" "vbadness" "vbox" + "vcenter" "vfil" "vfill" "vfilneg" "vfuzz" + "voffset" "vrule" "vsize" "vskip" "vss" "vtop" + "wd" "widowpenalty" "write" "xdef" "xleaders" + "xspaceskip" "year")) + TeX-dialect) + +;;; virtex.el ends here diff --git a/elpa/auctex-13.1.3/style/virtex.elc b/elpa/auctex-13.1.3/style/virtex.elc Binary files differnew file mode 100644 index 0000000..63e2062 --- /dev/null +++ b/elpa/auctex-13.1.3/style/virtex.elc diff --git a/elpa/auctex-13.1.3/style/vwcol.el b/elpa/auctex-13.1.3/style/vwcol.el new file mode 100644 index 0000000..03e813f --- /dev/null +++ b/elpa/auctex-13.1.3/style/vwcol.el @@ -0,0 +1,79 @@ +;;; vwcol.el --- AUCTeX style for `vwcol.sty' (v0.2) -*- lexical-binding: t; -*- + +;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-07-04 +;; 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 `vwcol.sty' (v0.2) from 2015/02/10. +;; `vwcol.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-vwcol-key-val-options + '(("widths") + ("sep" ("fill")) + ("presep" ("true" "false")) + ("postsep" ("true" "false")) + ("sidesep" ("true" "false")) + ("rule" ("none" "0pt")) + ("prerule" ("true" "false")) + ("postrule" ("true" "false")) + ("siderule" ("true" "false")) + ("justify" ("ragged" "flush" "raggedleft" "center")) + ("rulecolor") + ("indent") + ("lines")) + "Key=value options for vwcol macros and environments.") + +(TeX-add-style-hook + "vwcol" + (lambda () + + (LaTeX-add-environments + '("vwcol" LaTeX-env-args + [ TeX-arg-key-val LaTeX-vwcol-key-val-options ])) + + (TeX-add-symbols + '("vwcolsetup" (TeX-arg-key-val LaTeX-vwcol-key-val-options))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("vwcolsetup" "{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-vwcol-package-options '("quiet") + "Package options for the vwcol package.") + +;;; vwcol.el ends here diff --git a/elpa/auctex-13.1.3/style/vwcol.elc b/elpa/auctex-13.1.3/style/vwcol.elc Binary files differnew file mode 100644 index 0000000..fd0e60f --- /dev/null +++ b/elpa/auctex-13.1.3/style/vwcol.elc diff --git a/elpa/auctex-13.1.3/style/wrapfig.el b/elpa/auctex-13.1.3/style/wrapfig.el new file mode 100644 index 0000000..35d8a05 --- /dev/null +++ b/elpa/auctex-13.1.3/style/wrapfig.el @@ -0,0 +1,121 @@ +;;; wrapfig.el --- AUCTeX style for `wrapfig.sty' version v3.6 -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2015 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-12-13 +;; 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 `wrapfig.sty' version v3.6 from +;; 2003/01/31. `wrapfig.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +(TeX-add-style-hook + "wrapfig" + (lambda () + (LaTeX-add-environments + ;; \begin{wrapfigure}[No.lines]{Placement}[Overhang]{Width} ... \end{wrapfigure} + '("wrapfigure" + (lambda (env &rest ignore) + (LaTeX-insert-environment + env + (let ((narrow (TeX-read-string "(Optional) Number of narrow lines: ")) + (placement (completing-read + "Placement: " '(("r") ("R") + ("l") ("L") + ("i") ("I") + ("o") ("O")))) + (overhang (TeX-read-string "(Optional) Overhang: ")) + (width (TeX-read-string "Width: "))) + (concat + (unless (string= narrow "") + (format "[%s]" narrow)) + (format "{%s}" placement) + (unless (string= overhang "") + (format "[%s]" overhang)) + (format "{%s}" width)))))) + ;; + ;; \begin{wraptable}[No.lines]{Placement}[Overhang]{Width} ... \end{wraptable} + '("wraptable" + (lambda (env &rest ignore) + (LaTeX-insert-environment + env + (let ((narrow (TeX-read-string "(Optional) Number of narrow lines: ")) + (placement (completing-read + "Placement: " '(("r") ("R") + ("l") ("L") + ("i") ("I") + ("o") ("O")))) + (overhang (TeX-read-string "(Optional) Overhang: ")) + (width (TeX-read-string "Width: "))) + (concat + (unless (string= narrow "") + (format "[%s]" narrow)) + (format "{%s}" placement) + (unless (string= overhang "") + (format "[%s]" overhang)) + (format "{%s}" width)))))) + ;; + ;; \begin{wrapfloat}{<Type>}[No.lines]{Placement}[Overhang]{Width} ... \end{wrapfloat} + ;; + ;; <Type> can be a new floating environment defined with + ;; "\DeclareFloatingEnvironment" from newfloat.el. We check if + ;; the function `LaTeX-newfloat-DeclareFloatingEnvironment-list' + ;; is bound and returns non-nil before offering environment for + ;; completion. Otherwise, just ask user without completion. + '("wrapfloat" + (lambda (env &rest ignore) + (LaTeX-insert-environment + env + (let ((floattype (if (and (fboundp 'LaTeX-newfloat-DeclareFloatingEnvironment-list) + (LaTeX-newfloat-DeclareFloatingEnvironment-list)) + (completing-read + "Float type: " + (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list))) + (TeX-read-string "Float type: "))) + (narrow (TeX-read-string "(Optional) Number of narrow lines: ")) + (placement (completing-read + "Placement: " '(("r") ("R") + ("l") ("L") + ("i") ("I") + ("o") ("O")))) + (overhang (TeX-read-string "(Optional) Overhang: ")) + (width (TeX-read-string "Width: "))) + (concat + (format "{%s}" floattype) + (unless (string= narrow "") + (format "[%s]" narrow)) + (format "{%s}" placement) + (unless (string= overhang "") + (format "[%s]" overhang)) + (format "{%s}" width)))))))) + TeX-dialect) + +(defvar LaTeX-wrapfig-package-options '("verbose") + "Package options for the wrapfig package.") + +;;; wrapfig.el ends here diff --git a/elpa/auctex-13.1.3/style/wrapfig.elc b/elpa/auctex-13.1.3/style/wrapfig.elc Binary files differnew file mode 100644 index 0000000..c9a1c14 --- /dev/null +++ b/elpa/auctex-13.1.3/style/wrapfig.elc diff --git a/elpa/auctex-13.1.3/style/xcolor.el b/elpa/auctex-13.1.3/style/xcolor.el new file mode 100644 index 0000000..06bd28f --- /dev/null +++ b/elpa/auctex-13.1.3/style/xcolor.el @@ -0,0 +1,654 @@ +;; xcolor.el --- AUCTeX style for `xcolor.sty' (v2.12) -*- lexical-binding: t; -*- + +;; Copyright (C) 2016--2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2015-07-04 +;; 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 `xcolor.sty' (v2.13) from 2021/10/31. +;; `xcolor.sty' is part of TeXLive. + +;; `xcolor.sty' and `color.sty' share many command namens, but the +;; number of arguments is not always identical -- `xcolor.sty' +;; commands take more arguments. In order to make the commands and +;; font-locking work correctly, we follow this strategy: If +;; `xcolor.sty' is loaded after `color.sty', everything works fine. +;; For the way around, we guard the definitions for `color.sty' with: +;; +;; (unless (member "xcolor" (TeX-style-list)) +;; (<define stuff for color.sty>)) +;; +;; to make sure that we define stuff for `color.sty' only if AUCTeX +;; style for `xcolor.sty' is not already loaded. + +;;; Code: + +;; Needed for compiling `LaTeX-check-insert-macro-default-style': +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(defvar LaTeX-xcolor-core-color-models + '("rgb" "cmy" "cmyk" "hsb" "gray") + "List of core color models provided by xcolor.sty.") + +(defvar LaTeX-xcolor-num-color-models + '("RGB" "HTML" "HSB" "Gray" "HsB" "tHsB" "wave") + "List of integer and decimal color models provided by xcolor.sty.") + +(defvar LaTeX-xcolor-pseudo-color-models + '("named") + "List of pseudo color models provided by xcolor.sty.") + +(defvar LaTeX-xcolor-type-color-models + '("named" "ps") + "List of type color models provided by xcolor.sty.") + +(defvar LaTeX-xcolor-base-colors + '("red" "green" "blue" "cyan" "magenta" "yellow" "black" + "gray" "white" "darkgray" "lightgray" "brown" "lime" "olive" + "orange" "pink" "purple" "teal" "violet") + "List of colors defined and always available from xcolor.sty.") + +(defvar LaTeX-xcolor-dvipsnames-colors + '("Apricot" "Aquamarine" "Bittersweet" "Black" + "Blue" "BlueGreen" "BlueViolet" "BrickRed" + "Brown" "BurntOrange" "CadetBlue" "CarnationPink" + "Cerulean" "CornflowerBlue" "Cyan" "Dandelion" + "DarkOrchid" "Emerald" "ForestGreen" "Fuchsia" + "Goldenrod" "Gray" "Green" "GreenYellow" + "JungleGreen" "Lavender" "LimeGreen" "Magenta" + "Mahogany" "Maroon" "Melon" "MidnightBlue" + "Mulberry" "NavyBlue" "OliveGreen" "Orange" + "OrangeRed" "Orchid" "Peach" "Periwinkle" + "PineGreen" "Plum" "ProcessBlue" "Purple" + "RawSienna" "Red" "RedOrange" "RedViolet" + "Rhodamine" "RoyalBlue" "RoyalPurple" "RubineRed" + "Salmon" "SeaGreen" "Sepia" "SkyBlue" + "SpringGreen" "Tan" "TealBlue" "Thistle" + "Turquoise" "Violet" "VioletRed" "White" + "WildStrawberry" "Yellow" "YellowGreen" "YellowOrange") + "List of colors defined by package option dvipsnames from xcolor.sty.") + +(defvar LaTeX-xcolor-svgnames-colors + '("AliceBlue" "DarkTurquoise" "LightSalmon" "PaleVioletRed" + "AntiqueWhite" "DarkViolet" "LightSeaGreen" "PapayaWhip" + "Aqua" "DeepPink" "LightSkyBlue" "PeachPuff" + "Aquamarine" "DeepSkyBlue" "LightSlateBlue" "Peru" + "Azure" "DimGray" "LightSlateGray" "Pink" + "Beige" "DimGrey" "LightSlateGrey" "Plum" + "Bisque" "DodgerBlue" "LightSteelBlue" "PowderBlue" + "Black" "FireBrick" "LightYellow" "Purple" + "BlanchedAlmond" "FloralWhite" "Lime" "Red" + "Blue" "ForestGreen" "LimeGreen" "RosyBrown" + "BlueViolet" "Fuchsia" "Linen" "RoyalBlue" + "Brown" "Gainsboro" "Magenta" "SaddleBrown" + "BurlyWood" "GhostWhite" "Maroon" "Salmon" + "CadetBlue" "Gold" "MediumAquamarine" "SandyBrown" + "Chartreuse" "Goldenrod" "MediumBlue" "SeaGreen" + "Chocolate" "Gray" "MediumOrchid" "Seashell" + "Coral" "Green" "MediumPurple" "Sienna" + "CornflowerBlue" "GreenYellow" "MediumSeaGreen" "Silver" + "Cornsilk" "Grey" "MediumSlateBlue" "SkyBlue" + "Crimson" "Honeydew" "MediumSpringGreen" "SlateBlue" + "Cyan" "HotPink" "MediumTurquoise" "SlateGray" + "DarkBlue" "IndianRed" "MediumVioletRed" "SlateGrey" + "DarkCyan" "Indigo" "MidnightBlue" "Snow" + "DarkGoldenrod" "Ivory" "MintCream" "SpringGreen" + "DarkGray" "Khaki" "MistyRose" "SteelBlue" + "DarkGreen" "Lavender" "Moccasin" "Tan" + "DarkGrey" "LavenderBlush" "NavajoWhite" "Teal" + "DarkKhaki" "LawnGreen" "Navy" "Thistle" + "DarkMagenta" "LemonChiffon" "NavyBlue" "Tomato" + "DarkOliveGreen" "LightBlue" "OldLace" "Turquoise" + "DarkOrange" "LightCoral" "Olive" "Violet" + "DarkOrchid" "LightCyan" "OliveDrab" "VioletRed" + "DarkRed" "LightGoldenrod" "Orange" "Wheat" + "DarkSalmon" "LightGoldenrodYellow" "OrangeRed" "White" + "DarkSeaGreen" "LightGray" "Orchid" "WhiteSmoke" + "DarkSlateBlue" "LightGreen" "PaleGoldenrod" "Yellow" + "DarkSlateGray" "LightGrey" "PaleGreen" "YellowGreen" + "DarkSlateGrey" "LightPink" "PaleTurquoise") + "List of colors defined by package option svgnames from xcolor.sty.") + +(defvar LaTeX-xcolor-x11names-colors + '("AntiqueWhite1" "DeepSkyBlue1" "LightYellow1" "RoyalBlue1" + "AntiqueWhite2" "DeepSkyBlue2" "LightYellow2" "RoyalBlue2" + "AntiqueWhite3" "DeepSkyBlue3" "LightYellow3" "RoyalBlue3" + "AntiqueWhite4" "DeepSkyBlue4" "LightYellow4" "RoyalBlue4" + "Aquamarine1" "DodgerBlue1" "Magenta1" "Salmon1" + "Aquamarine2" "DodgerBlue2" "Magenta2" "Salmon2" + "Aquamarine3" "DodgerBlue3" "Magenta3" "Salmon3" + "Aquamarine4" "DodgerBlue4" "Magenta4" "Salmon4" + "Azure1" "Firebrick1" "Maroon1" "SeaGreen1" + "Azure2" "Firebrick2" "Maroon2" "SeaGreen2" + "Azure3" "Firebrick3" "Maroon3" "SeaGreen3" + "Azure4" "Firebrick4" "Maroon4" "SeaGreen4" + "Bisque1" "Gold1" "MediumOrchid1" "Seashell1" + "Bisque2" "Gold2" "MediumOrchid2" "Seashell2" + "Bisque3" "Gold3" "MediumOrchid3" "Seashell3" + "Bisque4" "Gold4" "MediumOrchid4" "Seashell4" + "Blue1" "Goldenrod1" "MediumPurple1" "Sienna1" + "Blue2" "Goldenrod2" "MediumPurple2" "Sienna2" + "Blue3" "Goldenrod3" "MediumPurple3" "Sienna3" + "Blue4" "Goldenrod4" "MediumPurple4" "Sienna4" + "Brown1" "Green1" "MistyRose1" "SkyBlue1" + "Brown2" "Green2" "MistyRose2" "SkyBlue2" + "Brown3" "Green3" "MistyRose3" "SkyBlue3" + "Brown4" "Green4" "MistyRose4" "SkyBlue4" + "Burlywood1" "Honeydew1" "NavajoWhite1" "SlateBlue1" + "Burlywood2" "Honeydew2" "NavajoWhite2" "SlateBlue2" + "Burlywood3" "Honeydew3" "NavajoWhite3" "SlateBlue3" + "Burlywood4" "Honeydew4" "NavajoWhite4" "SlateBlue4" + "CadetBlue1" "HotPink1" "OliveDrab1" "SlateGray1" + "CadetBlue2" "HotPink2" "OliveDrab2" "SlateGray2" + "CadetBlue3" "HotPink3" "OliveDrab3" "SlateGray3" + "CadetBlue4" "HotPink4" "OliveDrab4" "SlateGray4" + "Chartreuse1" "IndianRed1" "Orange1" "Snow1" + "Chartreuse2" "IndianRed2" "Orange2" "Snow2" + "Chartreuse3" "IndianRed3" "Orange3" "Snow3" + "Chartreuse4" "IndianRed4" "Orange4" "Snow4" + "Chocolate1" "Ivory1" "OrangeRed1" "SpringGreen1" + "Chocolate2" "Ivory2" "OrangeRed2" "SpringGreen2" + "Chocolate3" "Ivory3" "OrangeRed3" "SpringGreen3" + "Chocolate4" "Ivory4" "OrangeRed4" "SpringGreen4" + "Coral1" "Khaki1" "Orchid1" "SteelBlue1" + "Coral2" "Khaki2" "Orchid2" "SteelBlue2" + "Coral3" "Khaki3" "Orchid3" "SteelBlue3" + "Coral4" "Khaki4" "Orchid4" "SteelBlue4" + "Cornsilk1" "LavenderBlush1" "PaleGreen1" "Tan1" + "Cornsilk2" "LavenderBlush2" "PaleGreen2" "Tan2" + "Cornsilk3" "LavenderBlush3" "PaleGreen3" "Tan3" + "Cornsilk4" "LavenderBlush4" "PaleGreen4" "Tan4" + "Cyan1" "LemonChiffon1" "PaleTurquoise1" "Thistle1" + "Cyan2" "LemonChiffon2" "PaleTurquoise2" "Thistle2" + "Cyan3" "LemonChiffon3" "PaleTurquoise3" "Thistle3" + "Cyan4" "LemonChiffon4" "PaleTurquoise4" "Thistle4" + "DarkGoldenrod1" "LightBlue1" "PaleVioletRed1" "Tomato1" + "DarkGoldenrod2" "LightBlue2" "PaleVioletRed2" "Tomato2" + "DarkGoldenrod3" "LightBlue3" "PaleVioletRed3" "Tomato3" + "DarkGoldenrod4" "LightBlue4" "PaleVioletRed4" "Tomato4" + "DarkOliveGreen1" "LightCyan1" "PeachPuff1" "Turquoise1" + "DarkOliveGreen2" "LightCyan2" "PeachPuff2" "Turquoise2" + "DarkOliveGreen3" "LightCyan3" "PeachPuff3" "Turquoise3" + "DarkOliveGreen4" "LightCyan4" "PeachPuff4" "Turquoise4" + "DarkOrange1" "LightGoldenrod1" "Pink1" "VioletRed1" + "DarkOrange2" "LightGoldenrod2" "Pink2" "VioletRed2" + "DarkOrange3" "LightGoldenrod3" "Pink3" "VioletRed3" + "DarkOrange4" "LightGoldenrod4" "Pink4" "VioletRed4" + "DarkOrchid1" "LightPink1" "Plum1" "Wheat1" + "DarkOrchid2" "LightPink2" "Plum2" "Wheat2" + "DarkOrchid3" "LightPink3" "Plum3" "Wheat3" + "DarkOrchid4" "LightPink4" "Plum4" "Wheat4" + "DarkSeaGreen1" "LightSalmon1" "Purple1" "Yellow1" + "DarkSeaGreen2" "LightSalmon2" "Purple2" "Yellow2" + "DarkSeaGreen3" "LightSalmon3" "Purple3" "Yellow3" + "DarkSeaGreen4" "LightSalmon4" "Purple4" "Yellow4" + "DarkSlateGray1" "LightSkyBlue1" "Red1" "Gray0" + "DarkSlateGray2" "LightSkyBlue2" "Red2" "Green0" + "DarkSlateGray3" "LightSkyBlue3" "Red3" "Grey0" + "DarkSlateGray4" "LightSkyBlue4" "Red4" "Maroon0" + "DeepPink1" "LightSteelBlue1" "RosyBrown1" "Purple0" + "DeepPink2" "LightSteelBlue2" "RosyBrown2" + "DeepPink3" "LightSteelBlue3" "RosyBrown3" + "DeepPink4" "LightSteelBlue4" "RosyBrown4") + "List of colors defined by package option x11names from xcolor.sty.") + +(defvar LaTeX-xcolor-color-models + (append LaTeX-xcolor-core-color-models + LaTeX-xcolor-num-color-models + LaTeX-xcolor-pseudo-color-models) + "Combine three variables `LaTeX-xcolor-core-color-models', +`LaTeX-xcolor-num-color-models' and `LaTeX-xcolor-pseudo-color-models'.") + +(defun LaTeX-xcolor-color-models (&optional no-named) + "Return the value of variable `LaTeX-xcolor-color-models'. +If NO-NAMED is non-nil, remove \"named\" and return the +remainder." + (if no-named + (remove "named" LaTeX-xcolor-color-models) + LaTeX-xcolor-color-models)) + +;; Needed for auto-parsing. +(require 'tex) + +;; Setup AUCTeX parser for \definecolor(set): +(TeX-auto-add-type "xcolor-definecolor" "LaTeX") +(TeX-auto-add-type "xcolor-definecolorset" "LaTeX") + +(defvar LaTeX-xcolor-definecolor-regexp + (eval-when-compile + `(,(concat "\\\\" + (regexp-opt '("definecolor" "providecolor" + "preparecolor" "colorlet")) + "\\(?:\\[\\(?:[^]]*\\)\\]\\)?{\\([^}]+\\)}") + 1 LaTeX-auto-xcolor-definecolor)) + "Match the argument of various color defining macros from xcolor package.") + +(defvar LaTeX-xcolor-definecolorset-regexp + `(,(concat "\\\\\\(?:define\\|provide\\|prepare\\)" + "colorset" + "\\(?:\\[\\(?:[^]]*\\)\\]\\)?" + "{\\(?:[^}]+\\)}" + "{\\([^}]+\\)}" + "{\\([^}]+\\)}" + "{\\([^}]+\\)}") + (1 2 3) LaTeX-auto-xcolor-definecolorset) + "Match the argument of various color-set defining macros from +xcolor package.") + +(defun LaTeX-xcolor-auto-prepare () + "Clear `LaTeX-auto-xcolor-definecolor' before parsing." + (setq LaTeX-auto-xcolor-definecolor nil + LaTeX-auto-xcolor-definecolorset nil)) + +(defun LaTeX-xcolor-auto-cleanup () + "Process the parsed elements from `LaTeX-auto-xcolor-definecolorset'." + (dolist (colset (LaTeX-xcolor-definecolorset-list)) + (let ((head (car colset)) + (tail (cadr colset)) + (cols (split-string + (replace-regexp-in-string "[ %\n\r\t]" "" (nth 2 colset)) + "\\(,[^;]+;\\|,[^;]+$\\)" t))) + (dolist (color cols) + (LaTeX-add-xcolor-definecolors (concat head color tail)))))) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-xcolor-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-xcolor-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(defun TeX-arg-xcolor-definecolor (optional) + "Insert arguments of \\definecolor and similar macros from xcolor.sty." + ;; \definecolor[<type>]{<name>}{<model-list>}{<spec-list>} + (let* ((TeX-last-optional-rejected nil) + (xcoltype (LaTeX-check-insert-macro-default-style + (completing-read + (TeX-argument-prompt t nil "Type") + LaTeX-xcolor-type-color-models))) + (xcolname (TeX-read-string + (TeX-argument-prompt optional nil "Color name"))) + (xcolmodel (completing-read + (TeX-argument-prompt optional nil "Model (list)") + (if (string= xcoltype "named") + (LaTeX-xcolor-color-models t) + LaTeX-xcolor-color-models))) + (xcolspec (if (string= xcolmodel "named") + (completing-read + (TeX-argument-prompt optional nil "Color") + (LaTeX-xcolor-definecolor-list)) + (TeX-read-string + (TeX-argument-prompt optional nil (concat xcolmodel " spec (list)")))))) + (when (and xcoltype (not (string= xcoltype ""))) + (insert (format "[%s]" xcoltype))) + (TeX-argument-insert xcolname optional) + (LaTeX-add-xcolor-definecolors xcolname) + (TeX-argument-insert xcolmodel optional) + (TeX-argument-insert xcolspec optional))) + +(defun TeX-arg-xcolor-definecolorset (optional) + "Insert arguments of \\definecolorset and similar macros from xcolor.sty." + (let* ((TeX-last-optional-rejected nil) + (xcoltype (LaTeX-check-insert-macro-default-style + (completing-read + (TeX-argument-prompt t nil "Type") + LaTeX-xcolor-type-color-models))) + (xcolmodel (completing-read + (TeX-argument-prompt optional nil "Model") + (LaTeX-xcolor-color-models t)))) + (when (and xcoltype (not (string= xcoltype ""))) + (insert (format "[%s]" xcoltype))) + (TeX-argument-insert xcolmodel optional))) + +(defun TeX-arg-xcolor (optional) + "Insert arguments of various color commands from xcolor.sty." + ;; \color{<name>} or \color[<model-list>]{<spec-list>} + (let* ((TeX-last-optional-rejected nil) + (xcolmodel (LaTeX-check-insert-macro-default-style + (completing-read + (TeX-argument-prompt t nil "Model (list)") + (LaTeX-xcolor-color-models t)))) + (xcolor (if (and xcolmodel (not (string= xcolmodel ""))) + (TeX-read-string + (TeX-argument-prompt optional nil (concat xcolmodel " spec (list)"))) + (completing-read + (TeX-argument-prompt optional nil "Color") + (LaTeX-xcolor-definecolor-list))))) + (when (and xcolmodel (not (string= xcolmodel ""))) + (insert (format "[%s]" xcolmodel))) + (TeX-argument-insert xcolor optional))) + +(defun TeX-arg-xcolor-fcolorbox (optional) + "Insert arguments of \\fcolorbox from xcolor.sty." + ;;\fcolorbox[<frame model>]{<frame spec>}[<background model>]{<background spec>}{<text>} + (let* ((TeX-last-optional-rejected nil) + (xfrmodel (LaTeX-check-insert-macro-default-style + (completing-read + (TeX-argument-prompt t nil "(Frame) Color model") + LaTeX-xcolor-color-models))) + ;; Set `TeX-last-optional-rejected' acc. to `xfrmodel' + (TeX-last-optional-rejected (or (not xfrmodel) + (and xfrmodel (string= xfrmodel "")))) + (xfrspec (if (or (null xfrmodel) + (string= xfrmodel "") + (string= xfrmodel "named")) + (completing-read + (TeX-argument-prompt optional nil "Frame color spec") + (LaTeX-xcolor-definecolor-list)) + (TeX-read-string + (TeX-argument-prompt optional nil "Frame color spec")))) + (xbgmodel (LaTeX-check-insert-macro-default-style + (completing-read + (TeX-argument-prompt t nil "Background Color model") + LaTeX-xcolor-color-models))) + (xbgspec (if (or (null xfrmodel) + (string= xfrmodel "") + (string= xfrmodel "named") + (null xbgmodel) + (string= xbgmodel "") + (string= xbgmodel "named")) + (completing-read + (TeX-argument-prompt optional nil "Background color spec") + (LaTeX-xcolor-definecolor-list)) + (TeX-read-string + (TeX-argument-prompt optional nil "Background color spec"))))) + (when (and xfrmodel (not (string= xfrmodel ""))) + (insert (format "[%s]" xfrmodel))) + (TeX-argument-insert xfrspec optional) + (when (and xbgmodel (not (string= xbgmodel ""))) + (insert (format "[%s]" xbgmodel))) + (TeX-argument-insert xbgspec optional))) + +(TeX-add-style-hook + "xcolor" + (lambda () + ;; Add color to the parser. + (TeX-auto-add-regexp LaTeX-xcolor-definecolor-regexp) + (TeX-auto-add-regexp LaTeX-xcolor-definecolorset-regexp) + + ;; Add list of colors which are always available. + (apply #'LaTeX-add-xcolor-definecolors LaTeX-xcolor-base-colors) + + ;; Add dvips colors in conjunction with `dvipsnames*?'. + (when (or (LaTeX-provided-package-options-member "xcolor" "dvipsnames") + (LaTeX-provided-package-options-member "xcolor" "dvipsnames*")) + (apply #'LaTeX-add-xcolor-definecolors LaTeX-xcolor-dvipsnames-colors)) + + ;; For `svgnames*?' + (when (or (LaTeX-provided-package-options-member "xcolor" "svgnames") + (LaTeX-provided-package-options-member "xcolor" "svgnames*")) + (apply #'LaTeX-add-xcolor-definecolors LaTeX-xcolor-svgnames-colors)) + + ;; For `x11ames*?' + (when (or (LaTeX-provided-package-options-member "xcolor" "x11names") + (LaTeX-provided-package-options-member "xcolor" "x11names*")) + (apply #'LaTeX-add-xcolor-definecolors LaTeX-xcolor-x11names-colors)) + + (TeX-add-symbols + ;; 2.5.2 Color definition in xcolor + ;; \definecolor[<type>]{<name>}{<model-list>}{<spec-list>} + '("definecolor" TeX-arg-xcolor-definecolor) + + ;; \providecolor[<type>]{<name>}{<model-list>}{<spec-list>} + '("providecolor" TeX-arg-xcolor-definecolor) + + ;; \colorlet[<type>]{<name>}[<num model>]{<color>} + '("colorlet" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Type") + LaTeX-xcolor-type-color-models ] + (TeX-arg-eval + (lambda () + (let ((xcolor (TeX-read-string + (TeX-argument-prompt nil nil "Color")))) + (LaTeX-add-xcolor-definecolors xcolor) + (format "%s" xcolor)))) + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Model") + (LaTeX-xcolor-color-models t) ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Color") + (LaTeX-xcolor-definecolor-list))) + + ;; 2.5.3 Defining sets of colors + ;; \definecolorset[<type>]{<model-list>}{<head>}{<tail>}{<set spec>} + '("definecolorset" TeX-arg-xcolor-definecolorset "Head" "Tail" t) + + ;; \providecolorset[<type>]{<model-list>}{<head>}{<tail>}{<set spec>} + '("providecolorset" TeX-arg-xcolor-definecolorset "Head" "Tail" t) + + ;; 2.5.4 Immediate and deferred definitions + ;; \preparecolor[<type>]{<name>}{<model-list>}{<spec-list>} + '("preparecolor" TeX-arg-xcolor-definecolor) + + ;; \preparecolorset[<type>]{<model-list>}{<head>}{<tail>}{<set spec>} + '("preparecolorset" TeX-arg-xcolor-definecolorset "Head" "Tail" t) + + ;; \definecolors{<id-list>} + '("definecolors" t) + + ;; \providecolors{<id-list>} + '("providecolors" t) + + ;; 2.6 Color application + ;; 2.6.1 Standard color commands + + ;; \color{<name>} or \color[<model>]{<color spec>} + '("color" TeX-arg-xcolor) + + ;; \textcolor{<name>}{<text>} or + ;; \textcolor[<model>]{<color spec>}{<text>} + '("textcolor" TeX-arg-xcolor "Text") + + ;; \mathcolor{<name>}{<math>} or + ;; \mathcolor[<model>]{<color spec>}{<math>} + '("mathcolor" TeX-arg-xcolor "Math") + + ;; \pagecolor{<name>} or + ;; \pagecolor[<model>]{<color spec>} + '("pagecolor" TeX-arg-xcolor) + + ;; \nopagecolor + '("nopagecolor" 0) + + ;; 2.6.2 Colored boxes + ;; \colorbox{<name>}{<text>} or + ;; \colorbox[<model>]{<color spec>}{<text>} + '("colorbox" TeX-arg-xcolor "Text") + + ;; \fcolorbox{<frame color>}{<box color>}{<text>} or + ;; \fcolorbox[<model>]{<frame spec>}{<background spec>}{<text>} or + ;; \fcolorbox[<frame model>]{<frame spec>}[<background model>]{<background spec>}{<text>} + '("fcolorbox" TeX-arg-xcolor-fcolorbox "Text") + + ;; 2.6.4 Color testing + ;; \testcolor{<name>} or + ;; \testcolor[<model>]{<color spec>} + '("testcolor" TeX-arg-xcolor) + + ;; 2.7 Color blending + '("blendcolors" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Mix expr") + (LaTeX-xcolor-definecolor-list))) + '("blendcolors*" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Mix expr") + (LaTeX-xcolor-definecolor-list))) + + ;; 2.8 Color masks and separation + '("maskcolors" + [ TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Model") + (LaTeX-xcolor-color-models t) ] + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Color") + (LaTeX-xcolor-definecolor-list))) + + ;; 2.9 Color series + '("definecolorseries" + "Name" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Core model") + LaTeX-xcolor-core-color-models) + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Method") + '("step" "grad" "last")) + [ t ] nil [ nil ] nil) + + '("resetcolorseries" [ "Div." ] "Name") + + ;; 2.13 Color information + ;; \extractcolorspec{<color>}{<cmd>} + '("extractcolorspec" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Color") + (LaTeX-xcolor-definecolor-list)) + (TeX-arg-define-macro "Command: \\")) + + ;; \extractcolorspecs{<color>}{<model-cmd>}{<color-cmd>} + '("extractcolorspecs" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Color") + (LaTeX-xcolor-definecolor-list)) + (TeX-arg-define-macro "Model command: \\") + (TeX-arg-define-macro "Color command: \\")) + + ;; \tracingcolors = <integer> + '("tracingcolors" + (TeX-arg-literal "=")) + + ;; 2.14 Color conversion + ;; \convertcolorspec{<model>}{<spec>}{<target model>}{cmd>} + '("convertcolorspec" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Model") + (LaTeX-xcolor-color-models)) + (TeX-arg-eval TeX-read-string + (TeX-argument-prompt nil nil "Spec")) + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Model") + (LaTeX-xcolor-color-models t)) + (TeX-arg-define-macro "Macro: \\")) ) ; close TeX-add-symbols + + ;; 2.12 Color in tables + ;; These commands are available with `table' package option + (when (LaTeX-provided-package-options-member "xcolor" "table") + ;; Run style hook to colortbl.sty + (TeX-run-style-hooks "colortbl") + + ;; Add additional commands: + (TeX-add-symbols + ;; \rowcolors[<commands>]{<row>}{<odd-row color>}{<even-row color>} + '("rowcolors" + (TeX-arg-conditional (y-or-n-p "With optional commands? ") + ( [ t ] ) + (ignore)) + "Row" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Odd-row color") + (LaTeX-xcolor-definecolor-list)) + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Even-row color") + (LaTeX-xcolor-definecolor-list))) + '("rowcolors*" + (TeX-arg-conditional (y-or-n-p "With optional commands? ") + ( [ t ] ) + (ignore)) + "Row" + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Odd-row color") + (LaTeX-xcolor-definecolor-list)) + (TeX-arg-eval completing-read + (TeX-argument-prompt nil nil "Even-row color") + (LaTeX-xcolor-definecolor-list))) + '("showrowcolors" 0) + '("hiderowcolors" 0)) + (LaTeX-add-counters "rownum")) + + ;; 2.6.4 Color testing + (LaTeX-add-environments + '("testcolors" LaTeX-env-args + [ TeX-arg-eval mapconcat #'identity + (TeX-completing-read-multiple + (TeX-argument-prompt t nil "Color models") + (LaTeX-xcolor-color-models t)) + "," ] )) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("color" "[{") + ("pagecolor" "[{")) + 'type-declaration) + (font-latex-add-keywords '(("textcolor" "[{{") + ("colorbox" "[{{" ) + ("fcolorbox" "[{[{{")) + 'type-command) + (font-latex-add-keywords '(("definecolor" "[{{{") + ("providecolor" "[{{{") + ("colorlet" "[{[{") + ("definecolorset" "[{{{{") + ("providecolorset" "[{{{{") + ("preparecolor" "[{{{") + ("preparecolorset" "[{{{{") + ("definecolors" "{") + ("providecolors" "{") + ("testcolor" "[{") + ("blendcolors" "*{") + ("maskcolors" "[{") + ("definecolorseries" "{{{[{[{") + ("resetcolorseries" "[{") + ("extractcolorspec" "{{") + ("extractcolorspecs" "{{{") + ("convertcolorspec" "{{{{") + ("rowcolors" "*[{{{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-xcolor-package-options + '(;; options that determine the color driver + "dvipdf" "dvipdfm" "dvipdfmx" "dvips" "dvipsone" "dvisvgm" + "dviwin" "dviwindo" "emtex" "luatex" "oztex" "pctex32" + "pctexhp" "pctexps" "pctexwin" "pdftex" "tcidvi" "textures" + "truetex" "vtex" "xdvi" "xetex" + + ;; options that determine the target color model + "natural" "rgb" "cmy" "cmyk" "hsb" "gray" "RGB" "HTML" + "HSB" "Gray" "monochrome" + + ;; options that control predefined colors loading + "dvipsnames" "dvipsnames*" "svgnames" "svgnames*" "x11names" "x11names*" + + ;; options that determine which other packages to load + "table" "fixpdftex" "hyperref" + + ;; options that influence the behaviour of other commands + "prologue" "kernelfbox" "xcdraw" "noxcdraw" "fixinclude" + "showerrors" "hideerrors") + "Package options for the xcolor package.") + +;;; xcolor.el ends here diff --git a/elpa/auctex-13.1.3/style/xcolor.elc b/elpa/auctex-13.1.3/style/xcolor.elc Binary files differnew file mode 100644 index 0000000..fc96ccd --- /dev/null +++ b/elpa/auctex-13.1.3/style/xcolor.elc diff --git a/elpa/auctex-13.1.3/style/xkcdcolors.el b/elpa/auctex-13.1.3/style/xkcdcolors.el new file mode 100644 index 0000000..d00ad30 --- /dev/null +++ b/elpa/auctex-13.1.3/style/xkcdcolors.el @@ -0,0 +1,1007 @@ +;;; xkcdcolors.el --- AUCTeX style for `xkcdcolors.sty' (v1.0.1) -*- lexical-binding: t; -*- + +;; Copyright (C) 2019, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2019-10-26 +;; 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 `xkcdcolors.sty' (v1.0.1) from +;; 2019/10/21. `xkcdcolors.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function LaTeX-add-xcolor-definecolors + "xcolor" + (&rest xcolor-definecolors)) + +(defvar LaTeX-xkcdcolors-colornames + (eval-when-compile + (mapcar (lambda (x) (concat "xkcd" x)) + '("CloudyBlue" + "DarkPastelGreen" + "Dust" + "ElectricLime" + "FreshGreen" + "LightEggplant" + "NastyGreen" + "ReallyLightBlue" + "Tea" + "WarmPurple" + "YellowishTan" + "Cement" + "DarkGrassGreen" + "DustyTeal" + "GreyTeal" + "MacaroniAndCheese" + "PinkishTan" + "Spruce" + "StrongBlue" + "ToxicGreen" + "WindowsBlue" + "BlueBlue" + "BlueWithAHintOfPurple" + "Booger" + "BrightSeaGreen" + "DarkGreenBlue" + "DeepTurquoise" + "GreenTeal" + "StrongPink" + "Bland" + "DeepAqua" + "LavenderPink" + "LightMossGreen" + "LightSeafoamGreen" + "OliveYellow" + "PigPink" + "DeepLilac" + "Desert" + "DustyLavender" + "PurpleyGrey" + "Purply" + "CandyPink" + "LightPastelGreen" + "BoringGreen" + "KiwiGreen" + "LightGreyGreen" + "OrangePink" + "TeaGreen" + "VeryLightBrown" + "EggShell" + "EggplantPurple" + "PowderPink" + "ReddishGrey" + "BabyShitBrown" + "Liliac" + "StormyBlue" + "UglyBrown" + "Custard" + "DarkishPink" + "DeepBrown" + "GreenishBeige" + "Manilla" + "OffBlue" + "BattleshipGrey" + "BrownyGreen" + "Bruise" + "KelleyGreen" + "SicklyYellow" + "SunnyYellow" + "Azul" + "Darkgreen" + "GreenYellow" + "Lichen" + "LightLightGreen" + "PaleGold" + "SunYellow" + "TanGreen" + "Burple" + "Butterscotch" + "Toupe" + "DarkCream" + "IndianRed" + "LightLavendar" + "PoisonGreen" + "BabyPukeGreen" + "BrightYellowGreen" + "CharcoalGrey" + "Squash" + "Cinnamon" + "LightPeaGreen" + "RadioactiveGreen" + "RawSienna" + "BabyPurple" + "Cocoa" + "LightRoyalBlue" + "Orangeish" + "RustBrown" + "SandBrown" + "Swamp" + "TealishGreen" + "BurntSiena" + "Camo" + "DuskBlue" + "Fern" + "OldRose" + "PaleLightGreen" + "PeachyPink" + "RosyPink" + "LightBluishGreen" + "LightBrightGreen" + "LightNeonGreen" + "LightSeafoam" + "TiffanyBlue" + "WashedOutGreen" + "BrownyOrange" + "NiceBlue" + "Sapphire" + "GreyishTeal" + "OrangeyYellow" + "Parchment" + "Straw" + "VeryDarkBrown" + "Terracota" + "UglyBlue" + "ClearBlue" + "Creme" + "FoamGreen" + "GreyGreen" + "LightGold" + "SeafoamBlue" + "Topaz" + "VioletPink" + "Wintergreen" + "YellowTan" + "DarkFuchsia" + "IndigoBlue" + "LightYellowishGreen" + "PaleMagenta" + "RichPurple" + "SunflowerYellow" + "GreenBlue" + "Leather" + "RacingGreen" + "VividPurple" + "DarkRoyalBlue" + "Hazel" + "MutedPink" + "BoogerGreen" + "Canary" + "CoolGrey" + "DarkTaupe" + "DarkishPurple" + "TrueGreen" + "CoralPink" + "DarkSage" + "DarkSlateBlue" + "FlatBlue" + "Mushroom" + "RichBlue" + "DirtyPurple" + "Greenblue" + "IckyGreen" + "LightKhaki" + "WarmBlue" + "DarkHotPink" + "DeepSeaBlue" + "Carmine" + "DarkYellowGreen" + "PalePeach" + "PlumPurple" + "GoldenRod" + "NeonRed" + "OldPink" + "VeryPaleBlue" + "BloodOrange" + "Grapefruit" + "SandYellow" + "ClayBrown" + "DarkBlueGrey" + "FlatGreen" + "LightGreenBlue" + "WarmPink" + "DodgerBlue" + "GrossGreen" + "Ice" + "MetallicBlue" + "PaleSalmon" + "SapGreen" + "Algae" + "BlueyGrey" + "GreenyGrey" + "HighlighterGreen" + "LightLightBlue" + "LightMint" + "RawUmber" + "VividBlue" + "DeepLavender" + "DullTeal" + "LightGreenishBlue" + "MudGreen" + "Pinky" + "RedWine" + "ShitGreen" + "TanBrown" + "Darkblue" + "Rosa" + "Lipstick" + "PaleMauve" + "Claret" + "Dandelion" + "Orangered" + "PoopGreen" + "Ruby" + "Dark" + "GreenishTurquoise" + "PastelRed" + "PissYellow" + "BrightCyan" + "DarkCoral" + "AlgaeGreen" + "DarkishRed" + "ReddyBrown" + "BlushPink" + "CamouflageGreen" + "LawnGreen" + "Putty" + "VibrantBlue" + "DarkSand" + "PurpleBlue" + "Saffron" + "Twilight" + "WarmBrown" + "Bluegrey" + "BubbleGumPink" + "DuckEggBlue" + "GreenishCyan" + "Petrol" + "Royal" + "Butter" + "DustyOrange" + "OffYellow" + "PaleOliveGreen" + "Orangish" + "Leaf" + "LightBlueGrey" + "DriedBlood" + "LightishPurple" + "RustyRed" + "LavenderBlue" + "LightGrassGreen" + "LightMintGreen" + "Sunflower" + "Velvet" + "BrickOrange" + "LightishRed" + "PureBlue" + "TwilightBlue" + "VioletRed" + "YellowyBrown" + "Carnation" + "MuddyYellow" + "DarkSeafoamGreen" + "DeepRose" + "DustyRed" + "GreyBlue" + "LemonLime" + "PurplePink" + "BrownYellow" + "PurpleBrown" + "Wisteria" + "BananaYellow" + "LipstickRed" + "WaterBlue" + "BrownGrey" + "VibrantPurple" + "BabyGreen" + "BarfGreen" + "EggshellBlue" + "SandyYellow" + "CoolGreen" + "Pale" + "BlueGrey" + "HotMagenta" + "Greyblue" + "Purpley" + "BabyShitGreen" + "BrownishPink" + "DarkAquamarine" + "Diarrhea" + "LightMustard" + "PaleSkyBlue" + "TurtleGreen" + "BrightOlive" + "DarkGreyBlue" + "GreenyBrown" + "LemonGreen" + "LightPeriwinkle" + "SeaweedGreen" + "SunshineYellow" + "UglyPurple" + "MediumPink" + "PukeBrown" + "VeryLightPink" + "Viridian" + "Bile" + "FadedYellow" + "VeryPaleGreen" + "VibrantGreen" + "BrightLime" + "Spearmint" + "LightAquamarine" + "LightSage" + "Yellowgreen" + "BabyPoo" + "DarkSeafoam" + "DeepTeal" + "Heather" + "RustOrange" + "DirtyBlue" + "FernGreen" + "BrightLilac" + "WeirdGreen" + "PeacockBlue" + "AvocadoGreen" + "FadedOrange" + "GrapePurple" + "HotGreen" + "LimeYellow" + "Mango" + "Shamrock" + "Bubblegum" + "PurplishBrown" + "VomitYellow" + "PaleCyan" + "KeyLime" + "TomatoRed" + "Lightgreen" + "Merlot" + "NightBlue" + "PurpleishPink" + "Apple" + "BabyPoopGreen" + "GreenApple" + "Heliotrope" + "YellowGreen" + "AlmostBlack" + "CoolBlue" + "LeafyGreen" + "MustardBrown" + "Dusk" + "DullBrown" + "FrogGreen" + "VividGreen" + "BrightLightGreen" + "FluroGreen" + "Kiwi" + "Seaweed" + "NavyGreen" + "UltramarineBlue" + "Iris" + "PastelOrange" + "YellowishOrange" + "Perrywinkle" + "Tealish" + "DarkPlum" + "Pear" + "PinkishOrange" + "MidnightPurple" + "LightPurple" + "DarkMint" + "GreenishTan" + "LightBurgundy" + "TurquoiseBlue" + "UglyPink" + "Sandy" + "ElectricPink" + "MutedPurple" + "MidGreen" + "Greyish" + "NeonYellow" + "Banana" + "CarnationPink" + "Tomato" + "Sea" + "MuddyBrown" + "TurquoiseGreen" + "Buff" + "Fawn" + "MutedBlue" + "PaleRose" + "DarkMintGreen" + "Amethyst" + "BlueGreen" + "Chestnut" + "SickGreen" + "Pea" + "RustyOrange" + "Stone" + "RoseRed" + "PaleAqua" + "DeepOrange" + "Earth" + "MossyGreen" + "GrassyGreen" + "PaleLimeGreen" + "LightGreyBlue" + "PaleGrey" + "Asparagus" + "Blueberry" + "PurpleRed" + "PaleLime" + "GreenishTeal" + "Caramel" + "DeepMagenta" + "LightPeach" + "MilkChocolate" + "Ocher" + "OffGreen" + "PurplyPink" + "Lightblue" + "DuskyBlue" + "Golden" + "LightBeige" + "ButterYellow" + "DuskyPurple" + "FrenchBlue" + "UglyYellow" + "GreenyYellow" + "OrangishRed" + "ShamrockGreen" + "OrangishBrown" + "TreeGreen" + "DeepViolet" + "Gunmetal" + "BluePurple" + "Cherry" + "SandyBrown" + "WarmGrey" + "DarkIndigo" + "Midnight" + "BlueyGreen" + "GreyPink" + "SoftPurple" + "Blood" + "BrownRed" + "MediumGrey" + "Berry" + "Poo" + "PurpleyPink" + "LightSalmon" + "Snot" + "EasterPurple" + "LightYellowGreen" + "DarkNavyBlue" + "Drab" + "LightRose" + "Rouge" + "PurplishRed" + "SlimeGreen" + "BabyPoop" + "IrishGreen" + "PinkPurple" + "DarkNavy" + "GreenyBlue" + "LightPlum" + "PinkishGrey" + "DirtyOrange" + "RustRed" + "PaleLilac" + "OrangeyRed" + "PrimaryBlue" + "KermitGreen" + "BrownishPurple" + "MurkyGreen" + "Wheat" + "VeryDarkPurple" + "BottleGreen" + "Watermelon" + "DeepSkyBlue" + "FireEngineRed" + "YellowOchre" + "PumpkinOrange" + "PaleOlive" + "LightLilac" + "LightishGreen" + "CarolinaBlue" + "Mulberry" + "ShockingPink" + "Auburn" + "BrightLimeGreen" + "Celadon" + "PinkishBrown" + "PooBrown" + "BrightSkyBlue" + "Celery" + "DirtBrown" + "Strawberry" + "DarkLime" + "Copper" + "MediumBrown" + "MutedGreen" + "Robin'sEgg" + "BrightAqua" + "BrightLavender" + "Ivory" + "VeryLightPurple" + "LightNavy" + "PinkRed" + "OliveBrown" + "PoopBrown" + "MustardGreen" + "OceanGreen" + "VeryDarkBlue" + "DustyGreen" + "LightNavyBlue" + "MintyGreen" + "Adobe" + "Barney" + "JadeGreen" + "BrightLightBlue" + "LightLime" + "DarkKhaki" + "OrangeYellow" + "Ocre" + "Maize" + "FadedPink" + "BritishRacingGreen" + "Sandstone" + "MudBrown" + "LightSeaGreen" + "RobinEggBlue" + "AquaMarine" + "DarkSeaGreen" + "SoftPink" + "OrangeyBrown" + "CherryRed" + "BurntYellow" + "BrownishGrey" + "Camel" + "PurplishGrey" + "Marine" + "GreyishPink" + "PaleTurquoise" + "PastelYellow" + "BlueyPurple" + "CanaryYellow" + "FadedRed" + "Sepia" + "Coffee" + "BrightMagenta" + "Mocha" + "Ecru" + "Purpleish" + "Cranberry" + "DarkishGreen" + "BrownOrange" + "DuskyRose" + "Melon" + "SicklyGreen" + "Silver" + "PurplyBlue" + "PurpleishBlue" + "HospitalGreen" + "ShitBrown" + "MidBlue" + "Amber" + "EasterGreen" + "SoftBlue" + "CeruleanBlue" + "GoldenBrown" + "BrightTurquoise" + "RedPink" + "RedPurple" + "GreyishBrown" + "Vermillion" + "Russet" + "SteelGrey" + "LighterPurple" + "BrightViolet" + "PrussianBlue" + "SlateGreen" + "DirtyPink" + "DarkBlueGreen" + "Pine" + "YellowyGreen" + "DarkGold" + "Bluish" + "DarkishBlue" + "DullRed" + "PinkyRed" + "Bronze" + "PaleTeal" + "MilitaryGreen" + "BarbiePink" + "BubblegumPink" + "PeaSoupGreen" + "DarkMustard" + "Shit" + "MediumPurple" + "VeryDarkGreen" + "Dirt" + "DuskyPink" + "RedViolet" + "LemonYellow" + "Pistachio" + "DullYellow" + "DarkLimeGreen" + "DenimBlue" + "TealBlue" + "LightishBlue" + "PurpleyBlue" + "LightIndigo" + "SwampGreen" + "BrownGreen" + "DarkMaroon" + "HotPurple" + "DarkForestGreen" + "FadedBlue" + "DrabGreen" + "LightLimeGreen" + "SnotGreen" + "Yellowish" + "LightBlueGreen" + "Bordeaux" + "LightMauve" + "Ocean" + "Marigold" + "MuddyGreen" + "DullOrange" + "Steel" + "ElectricPurple" + "FluorescentGreen" + "YellowishBrown" + "Blush" + "SoftGreen" + "BrightOrange" + "Lemon" + "PurpleGrey" + "AcidGreen" + "PaleLavender" + "VioletBlue" + "LightForestGreen" + "BurntRed" + "KhakiGreen" + "Cerise" + "FadedPurple" + "Apricot" + "DarkOliveGreen" + "GreyBrown" + "GreenGrey" + "TrueBlue" + "PaleViolet" + "PeriwinkleBlue" + "LightSkyBlue" + "Blurple" + "GreenBrown" + "Bluegreen" + "BrightTeal" + "BrownishYellow" + "PeaSoup" + "Forest" + "BarneyPurple" + "Ultramarine" + "Purplish" + "PukeYellow" + "BluishGrey" + "DarkPeriwinkle" + "DarkLilac" + "Reddish" + "LightMaroon" + "DustyPurple" + "TerraCotta" + "Avocado" + "MarineBlue" + "TealGreen" + "SlateGrey" + "LighterGreen" + "ElectricGreen" + "DustyBlue" + "GoldenYellow" + "BrightYellow" + "LightLavender" + "Umber" + "Poop" + "DarkPeach" + "JungleGreen" + "Eggshell" + "Denim" + "YellowBrown" + "DullPurple" + "ChocolateBrown" + "WineRed" + "NeonBlue" + "DirtyGreen" + "LightTan" + "IceBlue" + "CadetBlue" + "DarkMauve" + "VeryLightBlue" + "GreyPurple" + "PastelPink" + "VeryLightGreen" + "DarkSkyBlue" + "Evergreen" + "DullPink" + "Aubergine" + "Mahogany" + "ReddishOrange" + "DeepGreen" + "VomitGreen" + "PurplePink" + "DustyPink" + "FadedGreen" + "CamoGreen" + "PinkyPurple" + "PinkPurple" + "BrownishRed" + "DarkRose" + "Mud" + "Brownish" + "EmeraldGreen" + "PaleBrown" + "DullBlue" + "BurntUmber" + "MediumGreen" + "Clay" + "LightAqua" + "LightOliveGreen" + "BrownishOrange" + "DarkAqua" + "PurplishPink" + "DarkSalmon" + "GreenishGrey" + "Jade" + "UglyGreen" + "DarkBeige" + "Emerald" + "PaleRed" + "LightMagenta" + "Sky" + "LightCyan" + "YellowOrange" + "ReddishPurple" + "ReddishPink" + "Orchid" + "DirtyYellow" + "OrangeRed" + "DeepRed" + "OrangeBrown" + "CobaltBlue" + "NeonPink" + "RosePink" + "GreyishPurple" + "Raspberry" + "AquaGreen" + "SalmonPink" + "Tangerine" + "BrownishGreen" + "RedBrown" + "GreenishBrown" + "Pumpkin" + "PineGreen" + "Charcoal" + "BabyPink" + "Cornflower" + "BlueViolet" + "Chocolate" + "GreyishGreen" + "Scarlet" + "GreenYellow" + "DarkOlive" + "Sienna" + "PastelPurple" + "Terracotta" + "AquaBlue" + "SageGreen" + "BloodRed" + "DeepPink" + "Grass" + "Moss" + "PastelBlue" + "BluishGreen" + "GreenBlue" + "DarkTan" + "GreenishBlue" + "PaleOrange" + "Vomit" + "ForrestGreen" + "DarkLavender" + "DarkViolet" + "PurpleBlue" + "DarkCyan" + "OliveDrab" + "Pinkish" + "Cobalt" + "NeonPurple" + "LightTurquoise" + "AppleGreen" + "DullGreen" + "Wine" + "PowderBlue" + "OffWhite" + "ElectricBlue" + "DarkTurquoise" + "BluePurple" + "Azure" + "BrightRed" + "PinkishRed" + "CornflowerBlue" + "LightOlive" + "Grape" + "GreyishBlue" + "PurplishBlue" + "YellowishGreen" + "GreenishYellow" + "MediumBlue" + "DustyRose" + "LightViolet" + "MidnightBlue" + "BluishPurple" + "RedOrange" + "DarkMagenta" + "Greenish" + "OceanBlue" + "Coral" + "Cream" + "ReddishBrown" + "BurntSienna" + "Brick" + "Sage" + "GreyGreen" + "White" + "Robin'sEggBlue" + "MossGreen" + "SteelBlue" + "Eggplant" + "LightYellow" + "LeafGreen" + "LightGrey" + "Puke" + "PinkishPurple" + "SeaBlue" + "PalePurple" + "SlateBlue" + "BlueGrey" + "HunterGreen" + "Fuchsia" + "Crimson" + "PaleYellow" + "Ochre" + "MustardYellow" + "LightRed" + "Cerulean" + "PalePink" + "DeepBlue" + "Rust" + "LightTeal" + "Slate" + "Goldenrod" + "DarkYellow" + "DarkGrey" + "ArmyGreen" + "GreyBlue" + "Seafoam" + "Puce" + "SpringGreen" + "DarkOrange" + "Sand" + "PastelGreen" + "Mint" + "LightOrange" + "BrightPink" + "Chartreuse" + "DeepPurple" + "DarkBrown" + "Taupe" + "PeaGreen" + "PukeGreen" + "KellyGreen" + "SeafoamGreen" + "BlueGreen" + "Khaki" + "Burgundy" + "DarkTeal" + "BrickRed" + "RoyalPurple" + "Plum" + "MintGreen" + "Gold" + "BabyBlue" + "YellowGreen" + "BrightPurple" + "DarkRed" + "PaleBlue" + "GrassGreen" + "Navy" + "Aquamarine" + "BurntOrange" + "NeonGreen" + "BrightBlue" + "Rose" + "LightPink" + "Mustard" + "Indigo" + "Lime" + "SeaGreen" + "Periwinkle" + "DarkPink" + "OliveGreen" + "Peach" + "PaleGreen" + "LightBrown" + "HotPink" + "Black" + "Lilac" + "NavyBlue" + "RoyalBlue" + "Beige" + "Salmon" + "Olive" + "Maroon" + "BrightGreen" + "DarkPurple" + "Mauve" + "ForestGreen" + "Aqua" + "Cyan" + "Tan" + "DarkBlue" + "Lavender" + "Turquoise" + "DarkGreen" + "Violet" + "LightPurple" + "LimeGreen" + "Grey" + "SkyBlue" + "Yellow" + "Magenta" + "LightGreen" + "Orange" + "Teal" + "LightBlue" + "Red" + "Brown" + "Pink" + "Blue" + "Green" + "Purple"))) + "List of colors provided by xkcdcolors package.") + +(TeX-add-style-hook + "xkcdcolors" + (lambda () + ;; Run the style hook for xcolor.sty: + (TeX-run-style-hooks "xcolor") + ;; Make the colors defined in xkcdcolors.sty available: + (apply #'LaTeX-add-xcolor-definecolors LaTeX-xkcdcolors-colornames)) + TeX-dialect) + +(defvar LaTeX-xkcdcolors-package-options nil + "Package options for the xkcdcolors package.") + +;;; xkcdcolors.el ends here diff --git a/elpa/auctex-13.1.3/style/xkcdcolors.elc b/elpa/auctex-13.1.3/style/xkcdcolors.elc Binary files differnew file mode 100644 index 0000000..3d575d2 --- /dev/null +++ b/elpa/auctex-13.1.3/style/xkcdcolors.elc diff --git a/elpa/auctex-13.1.3/style/xltabular.el b/elpa/auctex-13.1.3/style/xltabular.el new file mode 100644 index 0000000..3fb3e0d --- /dev/null +++ b/elpa/auctex-13.1.3/style/xltabular.el @@ -0,0 +1,147 @@ +;;; xltabular.el --- AUCTeX style for `xltabular.sty' (v0.05) -*- lexical-binding: t; -*- + +;; Copyright (C) 2017--2022 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2017-11-03 +;; 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 `xltabular.sty' (v0.05) from 2017/10/26. +;; `xltabular.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) +(require 'latex) + +(defvar LaTeX-xltabular-skipping-regexp + (concat "[ \t]*" (regexp-opt '("[l]" "[r]" "[c]" "")) "[ \t]*{[^}]*}[ \t]*") + "Regexp matching between \\begin{xltabular} and column specification. +For xltabular environment only. See `LaTeX-insert-ampersands' for detail. + +This regexp assumes that the width specification contains neither +nested curly brace pair nor escaped \"}\".") + +(defun LaTeX-env-xltabular (environment) + "Insert a xltabular ENVIRONMENT with spec, caption and label." + ;; xltabular has the following syntax: + ;; \begin{xltabular}[hPos]{width}{ l X ...} + ;; Optional <hPos> comes before <width>, hence we cannot use + ;; `LaTeX-env-tabular*' here and has to cook our own function which + ;; is a combination of `LaTeX-env-tabular*' and + ;; `LaTeX-env-longtable'. Note that `LaTeX-default-position' can be + ;; nil, i.e. do not prompt: + (let* ((pos (and LaTeX-default-position + (completing-read (TeX-argument-prompt t nil "Position") + '("l" "r" "c") + nil nil LaTeX-default-position))) + (width (TeX-read-string + (format "Width (default %s): " LaTeX-default-width) + nil nil LaTeX-default-width)) + (fmt (TeX-read-string + (if (string= LaTeX-default-format "") + "Format: " + (format "Format (default %s): " LaTeX-default-format)) + nil nil + (if (string= LaTeX-default-format "") + nil + LaTeX-default-format))) + (caption (TeX-read-string "Caption: ")) + (short-caption (when (>= (length caption) LaTeX-short-caption-prompt-length) + (TeX-read-string "(Optional) Short caption: ")))) + (setq LaTeX-default-position pos + LaTeX-default-width width + LaTeX-default-format fmt) + (LaTeX-insert-environment environment + (concat + (unless (zerop (length pos)) + (concat LaTeX-optop pos LaTeX-optcl)) + (concat TeX-grop width TeX-grcl) + (concat TeX-grop fmt TeX-grcl))) + ;; top caption -- do nothing if user skips caption + (unless (zerop (length caption)) + ;; insert `\caption[short-caption]{caption': + (insert TeX-esc "caption") + (when (and short-caption (not (string= short-caption ""))) + (insert LaTeX-optop short-caption LaTeX-optcl)) + (insert TeX-grop caption) + ;; ask for a label and insert it + (LaTeX-label environment 'environment) + ;; the longtable `\caption' is equivalent to a + ;; `\multicolumn', so it needs a `\\' at the + ;; end of the line. Prior to that, add } to + ;; close `\caption{' + (insert TeX-grcl "\\\\") + ;; fill the caption + (when auto-fill-function (LaTeX-fill-paragraph)) + ;; Insert a new line and indent + (LaTeX-newline) + (indent-according-to-mode)) + ;; Insert suitable number of &'s, suppress line break + (LaTeX-item-xltabular t))) + +(defun LaTeX-item-xltabular (&optional suppress) + "Insert line break macro on the last line and suitable number of &'s. +For xltabular environment only. + +If SUPPRESS is non-nil, do not insert line break macro." + (unless suppress + (save-excursion + (end-of-line 0) + (just-one-space) + (TeX-insert-macro "\\"))) + (LaTeX-insert-ampersands + LaTeX-xltabular-skipping-regexp #'LaTeX-array-count-columns)) + +(TeX-add-style-hook + "xltabular" + (lambda () + ;; ltablex loads both tabularx and longtable + (TeX-run-style-hooks "ltablex") + + ;; Add xltabular with `LaTeX-env-xltabular':: + (LaTeX-add-environments '("xltabular" LaTeX-env-xltabular)) + + ;; Use the enhanced table formatting. Append to + ;; `LaTeX-indent-environment-list' in order not to override custom settings. + (add-to-list (make-local-variable 'LaTeX-indent-environment-list) + '("xltabular" LaTeX-indent-tabular) t) + + ;; Append xltabular to `LaTeX-label-alist', in order not to + ;; override possible custome values. + (add-to-list 'LaTeX-label-alist '("xltabular" . LaTeX-table-label) t) + + ;; Append xltabular to `LaTeX-item-list' with `LaTeX-item-xltabular' + (add-to-list 'LaTeX-item-list '("xltabular" . LaTeX-item-xltabular) t) + + ;; Tell RefTeX -- This is the same entry as for "longtable" in + ;; `reftex-label-alist-builtin': + (when (fboundp 'reftex-add-label-environments) + (reftex-add-label-environments + '(("xltabular" ?t nil nil caption))))) + TeX-dialect) + +(defvar LaTeX-xltabular-package-options nil + "Package options for the xltabular package.") + +;;; xltabular.el ends here diff --git a/elpa/auctex-13.1.3/style/xltabular.elc b/elpa/auctex-13.1.3/style/xltabular.elc Binary files differnew file mode 100644 index 0000000..8e3c59e --- /dev/null +++ b/elpa/auctex-13.1.3/style/xltabular.elc diff --git a/elpa/auctex-13.1.3/style/xparse.el b/elpa/auctex-13.1.3/style/xparse.el new file mode 100644 index 0000000..fd9bb32 --- /dev/null +++ b/elpa/auctex-13.1.3/style/xparse.el @@ -0,0 +1,353 @@ +;;; xparse.el --- AUCTeX style for `xparse.sty' version 2020-03-06 -*- lexical-binding: t; -*- + +;; Copyright (C) 2013, 2020, 2021 Free Software Foundation, Inc. + +;; Maintainer: auctex-devel@gnu.org +;; Author: Mosè Giordano <mose@gnu.org> +;; 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 basic support for `xparse.sty' version 2020-03-06. +;; It parses argument specification of macros and environments. + +;; The "yet not more supported" specifiers `l', `u', `g' and `G' are +;; ignored completely and may lead to wrong parsing results. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-auto-add-type "xparse-macro" "LaTeX") + +(defvar LaTeX-xparse-macro-regexp + `(,(concat + (regexp-quote TeX-esc) + "\\(New\\|Renew\\|Provide\\|Declare\\)" + "\\(?:Expandable\\)?" + "DocumentCommand" + "[ \t\n\r]*" + "{?" + "[ \t\n\r]*" + (regexp-quote TeX-esc) + "\\([A-Za-z]+\\)" + "[ \t\n\r]*" + "}?" + "[ \t\n\r]*" + "{\\([^}{]*\\({[^}{]*\\({[^}{]*\\({[^}{]*}[^}{]*\\)*}[^}{]*\\)*}[^}{]*\\)*\\)}") + (0 2 3 1) LaTeX-auto-xparse-macro) + "Matches macros by xparse package.") + +(TeX-auto-add-type "xparse-environment" "LaTeX") + +(defvar LaTeX-xparse-environment-regexp + `(,(concat + (regexp-quote TeX-esc) + "\\(New\\|Renew\\|Provide\\|Declare\\)" + "DocumentEnvironment" + "[ \t\n\r]*" + "{" + "[ \t\n\r]*" + "\\([A-Za-z]+\\)" + "[ \t\n\r]*" + "}" + "[ \t\n\r]*" + "{\\([^}{]*\\({[^}{]*\\({[^}{]*\\({[^}{]*}[^}{]*\\)*}[^}{]*\\)*}[^}{]*\\)*\\)}") + (0 2 3 1) LaTeX-auto-xparse-environment) + "Matches environments by xparse package.") + +(defun LaTeX-arg-xparse-query (optional op-brace cl-brace &optional prompt) + "Special query function for parsed elements from xparse package. +If OPTIONAL is non-nil, indicate it in minibuffer. OP-BRACE sets +the opening brace, CL-BRACE sets the closing one. PROMPT +replaces the standard one." + (let ((TeX-arg-opening-brace op-brace) + (TeX-arg-closing-brace cl-brace)) + (TeX-argument-insert + (TeX-read-string (TeX-argument-prompt optional prompt "Text")) + optional))) + +(defun LaTeX-arg-xparse-embellishment-query (_optional embellish) + "Special insert function for embellishments from xparse package. +Compatibility argument OPTIONAL is ignored. EMBELLISH is a +string with parsed elements inserted in the buffer. This +function also sets the value of `TeX-exit-mark' where the point +will be once the insertion is completed." + (let (p) + (just-one-space) + (setq p (point)) + (insert embellish) + (set-marker TeX-exit-mark (1+ p)))) + +(defun LaTeX-xparse-macro-parse (type) + "Process parsed macro and environment definitions. +TYPE is one of the symbols mac or env." + (dolist (xcmd (if (eq type 'mac) + (LaTeX-xparse-macro-list) + (LaTeX-xparse-environment-list))) + (let ((name (nth 1 xcmd)) + (spec (nth 2 xcmd)) + (what (nth 3 xcmd)) + args opt-star opt-token) + (with-temp-buffer + (set-syntax-table LaTeX-mode-syntax-table) + ;; This one is probably not really needed? + (goto-char (point-min)) + (insert (replace-regexp-in-string "[ \t\r\n%]" "" spec)) + (goto-char (point-min)) + (while (looking-at-p "[+!>bmrRvodODsteE]") + (cond (;; + or !: Long argument or space aware: Move over + ;; them. b is special; only available for + ;; enviroments + (looking-at-p "[+!b]") + (forward-char 1)) + ((looking-at-p ">") + ;; Argument processors: Move over > and a balanced + ;; {} + (forward-char 1) + (forward-sexp)) + ;; Mandatory arguments: + ;; m: Ask for input with "Text" as prompt + ((looking-at-p "m") + (forward-char 1) + (push "Text" args)) + ;; r<token1><token2> + ((looking-at-p "r") + (re-search-forward "r\\(.\\)\\(.\\)" (+ (point) 3) t) + (push `(LaTeX-arg-xparse-query + ,(match-string-no-properties 1) + ,(match-string-no-properties 2)) + args)) + ;; R<token1><token2>{default} + ((looking-at-p "R") + (re-search-forward "R\\(.\\)\\(.\\)" (+ (point) 3) t) + (forward-sexp) + (push `(LaTeX-arg-xparse-query + ,(match-string-no-properties 1) + ,(match-string-no-properties 2)) + args)) + ;; v: Use `TeX-arg-verb-delim-or-brace' + ((looking-at-p "v") + (forward-char 1) + (push #'TeX-arg-verb-delim-or-brace args)) + ;; Optional arguments: + ;; o standard LaTeX optional in square brackets + ((looking-at-p "o") + (forward-char 1) + (push (vector "Text") args)) + ;; d<token1><token2> + ((looking-at-p "d") + (re-search-forward "d\\(.\\)\\(.\\)" (+ (point) 3) t) + (push (vector #'LaTeX-arg-xparse-query + (match-string-no-properties 1) + (match-string-no-properties 2)) + args)) + ;; O{default} + ((looking-at-p "O") + (forward-char 1) + (forward-sexp) + (push (vector "Text") args)) + ;; D<token1><token2>{default} + ((looking-at-p "D") + (re-search-forward "D\\(.\\)\\(.\\)" (+ (point) 3) t) + (forward-sexp) + (push (vector #'LaTeX-arg-xparse-query + (match-string-no-properties 1) + (match-string-no-properties 2)) + args)) + ;; s: optional star + ((looking-at-p "s") + (forward-char 1) + (setq opt-star t)) + ;; t: optional <token> + ((looking-at-p "t") + (re-search-forward "t\\(.\\)" (+ (point) 2) t) + (setq opt-token (match-string-no-properties 1))) + ;; e{tokes} a set of optional embellishments + ((looking-at-p "e") + (forward-char) + (if (looking-at-p TeX-grop) + (re-search-forward "{\\([^}]+\\)}" nil t) + (re-search-forward "\\(.\\)" (1+ (point)) t)) + (push `(LaTeX-arg-xparse-embellishment-query + ,(match-string-no-properties 1)) + args)) + ;; E{tokes}{defaults} + ((looking-at-p "E") + (forward-char) + (if (looking-at-p TeX-grop) + (re-search-forward "{\\([^}]+\\)}" nil t) + (re-search-forward "\\(.\\)" (1+ (point)) t)) + (push `(LaTeX-arg-xparse-embellishment-query + ,(match-string-no-properties 1)) + args) + (when (looking-at-p TeX-grop) + (forward-sexp))) + ;; Finished: + (t nil)))) + (if (eq type 'env) + ;; Parsed enviroments: If we are Renew'ing or Delare'ing, we + ;; delete the enviroment first from `LaTeX-environment-list' + ;; before adding the new one. We have to sort the value of + ;; `LaTeX-environment-list' by running the function of the + ;; same name: + (progn + (when (member what '("Renew" "Declare")) + (LaTeX-environment-list) + (setq LaTeX-environment-list + (assq-delete-all (car (assoc name LaTeX-environment-list)) + LaTeX-environment-list))) + (LaTeX-add-environments `(,name + LaTeX-env-args + ,@(reverse args)))) + ;; Parsed macros: If we are Renew'ing or Delare'ing, we delete + ;; the macros first from `TeX-symbol-list' before adding the + ;; new ones. We have to sort the value of `TeX-symbol-list' + ;; by running the function of the same name: + (when (member what '("Renew" "Declare")) + (TeX-symbol-list) + (setq TeX-symbol-list + (assq-delete-all (car (assoc name TeX-symbol-list)) + TeX-symbol-list)) + (when opt-star + (setq TeX-symbol-list + (assq-delete-all (car (assoc (concat name "*") TeX-symbol-list)) + TeX-symbol-list))) + (when opt-token + (setq TeX-symbol-list + (assq-delete-all (car (assoc (concat name opt-token) TeX-symbol-list)) + TeX-symbol-list)))) + (TeX-add-symbols (cons name + (reverse args))) + (when opt-star + (TeX-add-symbols (cons (concat name "*") + (reverse args)))) + (when opt-token + (TeX-add-symbols (cons (concat name opt-token) + (reverse args)))))))) + +(defun LaTeX-xparse-auto-prepare () + "Clear various `LaTeX-auto-xparse-*' variables before parsing." + (setq LaTeX-auto-xparse-macro nil + LaTeX-auto-xparse-environment nil)) + +(defun LaTeX-xparse-auto-cleanup () + "Process parsed elements for xparse package." + (LaTeX-xparse-macro-parse 'mac) + (LaTeX-xparse-macro-parse 'env)) + +(add-hook 'TeX-auto-prepare-hook #'LaTeX-xparse-auto-prepare t) +(add-hook 'TeX-auto-cleanup-hook #'LaTeX-xparse-auto-cleanup t) +(add-hook 'TeX-update-style-hook #'TeX-auto-parse t) + +(TeX-add-style-hook + "xparse" + (lambda () + (TeX-auto-add-regexp LaTeX-xparse-macro-regexp) + (TeX-auto-add-regexp LaTeX-xparse-environment-regexp) + (TeX-run-style-hooks + "expl3") + (TeX-add-symbols + ;; Declaring commands + '("DeclareDocumentCommand" + TeX-arg-define-macro "Argument specification" t) + '("NewDocumentCommand" + TeX-arg-define-macro "Argument specification" t) + '("RenewDocumentCommand" + TeX-arg-macro "Argument specification" t) + '("ProvideDocumentCommand" + TeX-arg-define-macro "Argument specification" t) + + ;; Declaring commands and environments + '("DeclareDocumentEnvironment" TeX-arg-define-environment + "Argument specification" t t) + '("NewDocumentEnvironment" TeX-arg-define-environment + "Argument specification" t t) + '("RenewDocumentEnvironment" TeX-arg-environment + "Argument specification" t t) + '("ProvideDocumentEnvironment" TeX-arg-define-environment + "Argument specification" t t) + + ;; Fully-expandable document commands + '("DeclareExpandableDocumentCommand" + TeX-arg-define-macro "Argument specification" t) + '("NewExpandableDocumentCommand" + TeX-arg-define-macro "Argument specification" t) + '("RenewExpandableDocumentCommand" + TeX-arg-macro "Argument specification" t) + '("ProvideExpandableDocumentCommand" + TeX-arg-define-macro "Argument specification" t) + + ;; Testing special values + '("IfBooleanTF" 3) + '("IfBooleanT" 2) + '("IfBooleanF" 2) + '("IfNoValueTF" 3) + '("IfNoValueT" 2) + '("IfNoValueF" 2) + '("IfValueTF" 3) + '("IfValueT" 2) + '("IfValueF" 2) + "BooleanTrue" + "BooleanFalse" + ;; Argument processors + "ProcessedArgument" + "ReverseBoolean" + '("SplitArgument" "Number" "Token") + '("SplitList" "Token") + "TrimSpaces" + '("ProcessList" "List" "Function") + ;; Access to the argument specification + '("GetDocumentCommandArgSpec" TeX-arg-macro) + '("GetDocumentEnvironmmentArgSpec" TeX-arg-environment) + '("ShowDocumentCommandArgSpec" TeX-arg-macro) + '("ShowDocumentEnvironmentArgSpec" TeX-arg-environment)) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("DeclareDocumentCommand" "|{\\{{") + ("NewDocumentCommand" "|{\\{{") + ("ProvideDocumentCommand" "|{\\{{") + ("RenewDocumentCommand" "|{\\{{") + ;; + ("DeclareExpandableDocumentCommand" "|{\\{{") + ("NewExpandableDocumentCommand" "|{\\{{") + ("ProvideExpandableDocumentCommand" "|{\\{{") + ("RenewExpandableDocumentCommand" "|{\\{{") + ;; + ("DeclareDocumentEnvironment" "{{{{") + ("NewDocumentEnvironment" "{{{{") + ("ProvideDocumentEnvironment" "{{{{") + ("RenewDocumentEnvironment" "{{{{")) + 'function))) + TeX-dialect) + +(defun LaTeX-xparse-package-options () + "Read the xparse package options from the user." + (TeX-read-key-val t '(("log-declarations" ("true" "false"))))) + +;;; xparse.el ends here diff --git a/elpa/auctex-13.1.3/style/xparse.elc b/elpa/auctex-13.1.3/style/xparse.elc Binary files differnew file mode 100644 index 0000000..725bea9 --- /dev/null +++ b/elpa/auctex-13.1.3/style/xparse.elc diff --git a/elpa/auctex-13.1.3/style/xr-hyper.el b/elpa/auctex-13.1.3/style/xr-hyper.el new file mode 100644 index 0000000..472d028 --- /dev/null +++ b/elpa/auctex-13.1.3/style/xr-hyper.el @@ -0,0 +1,73 @@ +;;; xr-hyper.el --- AUCTeX style for `xr-hyper.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-10-05 +;; 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 Street, Fifth Floor, Boston, +;; MA 02110-1301 USA. + +;;; Commentary: + +;; This file adds support for `xr-hyper.sty' v7.00m form 2021-06-07. +;; RefTeX has good support for referencing external \label's, so it +;; should be used. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "xr-hyper" + (lambda () + (TeX-add-symbols + '("externaldocument" + ["Prefix"] + [TeX-arg-eval completing-read + (TeX-argument-prompt t nil "Cite option") + '("nocite")] + ;; Act like \include and not like \input: + (TeX-arg-input-file "File" t) + ["Final file"]) + + '("externalcitedocument" + ["Prefix"] + ;; Act like \include and not like \input: + (TeX-arg-input-file "File" t) + ["Final file"])) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("externaldocument" "[[{[") + ("externalcitedocument" "[[{[")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-xr-hyper-package-options nil + "Package options for the xr-hyper package.") + +;;; xr-hyper.el ends here diff --git a/elpa/auctex-13.1.3/style/xr-hyper.elc b/elpa/auctex-13.1.3/style/xr-hyper.elc Binary files differnew file mode 100644 index 0000000..144e7ad --- /dev/null +++ b/elpa/auctex-13.1.3/style/xr-hyper.elc diff --git a/elpa/auctex-13.1.3/style/xr.el b/elpa/auctex-13.1.3/style/xr.el new file mode 100644 index 0000000..c388ead --- /dev/null +++ b/elpa/auctex-13.1.3/style/xr.el @@ -0,0 +1,68 @@ +;;; xr.el --- AUCTeX style for `xr.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2021-10-05 +;; 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 Street, Fifth Floor, Boston, +;; MA 02110-1301 USA. + +;;; Commentary: + +;; This file adds support for `xr.sty' v5.06 form 2020-05-10. RefTeX +;; has good support for referencing external \label's, so it should be +;; used. + +;;; Code: + +(require 'tex) +(require 'latex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "xr" + (lambda () + (TeX-add-symbols + '("externaldocument" + ["Prefix"] + ;; Act like \include and not like \input: + (TeX-arg-input-file "File" t)) + + '("externalcitedocument" + ["Prefix"] + ;; Act like \include and not like \input: + (TeX-arg-input-file "File" t))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("externaldocument" "[{") + ("externalcitedocument" "[{")) + 'reference))) + TeX-dialect) + +(defvar LaTeX-xr-package-options nil + "Package options for the xr package.") + +;;; xr.el ends here diff --git a/elpa/auctex-13.1.3/style/xr.elc b/elpa/auctex-13.1.3/style/xr.elc Binary files differnew file mode 100644 index 0000000..1ff3923 --- /dev/null +++ b/elpa/auctex-13.1.3/style/xr.elc diff --git a/elpa/auctex-13.1.3/style/xspace.el b/elpa/auctex-13.1.3/style/xspace.el new file mode 100644 index 0000000..5f04c5b --- /dev/null +++ b/elpa/auctex-13.1.3/style/xspace.el @@ -0,0 +1,60 @@ +;;; xspace.el --- AUCTeX style for `xspace.sty' -*- lexical-binding: t; -*- + +;; Copyright (C) 2011, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Mads Jensen <mje@inducks.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2011-02-01 +;; 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 `xspace.sty'. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "xspace" + (lambda () + (TeX-add-symbols + '("xspace" 0) + "xspaceaddexception" + "xspaceremoveexception") + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("xspace" "") + ("xspaceaddexception" "{") + ("xspaceremoveexception" "{")) + 'function))) + TeX-dialect) + +(defvar LaTeX-xspace-package-options nil + "Package options for the xspace package.") + +;;; xspace.el ends here diff --git a/elpa/auctex-13.1.3/style/xspace.elc b/elpa/auctex-13.1.3/style/xspace.elc Binary files differnew file mode 100644 index 0000000..f39d27f --- /dev/null +++ b/elpa/auctex-13.1.3/style/xspace.elc diff --git a/elpa/auctex-13.1.3/style/zlmtt.el b/elpa/auctex-13.1.3/style/zlmtt.el new file mode 100644 index 0000000..40712fc --- /dev/null +++ b/elpa/auctex-13.1.3/style/zlmtt.el @@ -0,0 +1,65 @@ +;;; zlmtt.el --- AUCTeX style for `zlmtt.sty' (v1.01) -*- lexical-binding: t; -*- + +;; Copyright (C) 2014, 2018, 2020 Free Software Foundation, Inc. + +;; Author: Arash Esbati <arash@gnu.org> +;; Maintainer: auctex-devel@gnu.org +;; Created: 2014-10-31 +;; 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 `zlmtt.sty' (v1.01) from 2014/06/28. +;; `zlmtt.sty' is part of TeXLive. + +;;; Code: + +(require 'tex) + +;; Silence the compiler: +(declare-function font-latex-add-keywords + "font-latex" + (keywords class)) + +(TeX-add-style-hook + "zlmtt" + (lambda () + + ;; New symbols + (TeX-add-symbols + '("proptt" t) ; proportional typewriter + '("monott" t) ; monospace typewriter + '("lctt" t)) ; light condensed typewriter + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("proptt" "{") + ("monott" "{") + ("lctt" "{")) + 'type-command))) + TeX-dialect) + +(defvar LaTeX-zlmtt-package-options + '("light" "l" "lightcondensed" "lc" "med" "m" + "proportional" "p" "scaled") + "Package options for the zlmtt package.") + +;;; zlmtt.el ends here diff --git a/elpa/auctex-13.1.3/style/zlmtt.elc b/elpa/auctex-13.1.3/style/zlmtt.elc Binary files differnew file mode 100644 index 0000000..27c9044 --- /dev/null +++ b/elpa/auctex-13.1.3/style/zlmtt.elc |