diff options
| author | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
|---|---|---|
| committer | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
| commit | bd18a38c2898548a3664a9ddab9f79c84f2caf4a (patch) | |
| tree | 95b9933376770381bd8859782ae763be81c2d72b /elpa/auctex-13.1.3/style | |
| parent | b07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff) | |
| parent | ef160dea332af4b4fe5e2717b962936c67e5fe9e (diff) | |
Merge conflict
Diffstat (limited to 'elpa/auctex-13.1.3/style')
563 files changed, 0 insertions, 41152 deletions
diff --git a/elpa/auctex-13.1.3/style/.nosearch b/elpa/auctex-13.1.3/style/.nosearch deleted file mode 100644 index aa31332..0000000 --- a/elpa/auctex-13.1.3/style/.nosearch +++ /dev/null @@ -1 +0,0 @@ -;; 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 deleted file mode 100644 index 84adaa5..0000000 --- a/elpa/auctex-13.1.3/style/Alegreya.el +++ /dev/null @@ -1,106 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 4df5db3..0000000 --- a/elpa/auctex-13.1.3/style/Alegreya.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/AlegreyaSans.el b/elpa/auctex-13.1.3/style/AlegreyaSans.el deleted file mode 100644 index 3b31527..0000000 --- a/elpa/auctex-13.1.3/style/AlegreyaSans.el +++ /dev/null @@ -1,118 +0,0 @@ -;;; 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 differdeleted file mode 100644 index b636def..0000000 --- a/elpa/auctex-13.1.3/style/AlegreyaSans.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/AnonymousPro.el b/elpa/auctex-13.1.3/style/AnonymousPro.el deleted file mode 100644 index 778c703..0000000 --- a/elpa/auctex-13.1.3/style/AnonymousPro.el +++ /dev/null @@ -1,92 +0,0 @@ -;;; 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 differdeleted file mode 100644 index eff5ecf..0000000 --- a/elpa/auctex-13.1.3/style/AnonymousPro.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/CJK.el b/elpa/auctex-13.1.3/style/CJK.el deleted file mode 100644 index baee5d9..0000000 --- a/elpa/auctex-13.1.3/style/CJK.el +++ /dev/null @@ -1,97 +0,0 @@ -;;; 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 differdeleted file mode 100644 index d0b2924..0000000 --- a/elpa/auctex-13.1.3/style/CJK.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/CJKutf8.el b/elpa/auctex-13.1.3/style/CJKutf8.el deleted file mode 100644 index d522015..0000000 --- a/elpa/auctex-13.1.3/style/CJKutf8.el +++ /dev/null @@ -1,41 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 0d8d83a..0000000 --- a/elpa/auctex-13.1.3/style/CJKutf8.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/FiraMono.el b/elpa/auctex-13.1.3/style/FiraMono.el deleted file mode 100644 index a612291..0000000 --- a/elpa/auctex-13.1.3/style/FiraMono.el +++ /dev/null @@ -1,78 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 41cfd37..0000000 --- a/elpa/auctex-13.1.3/style/FiraMono.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/FiraSans.el b/elpa/auctex-13.1.3/style/FiraSans.el deleted file mode 100644 index 10ac530..0000000 --- a/elpa/auctex-13.1.3/style/FiraSans.el +++ /dev/null @@ -1,110 +0,0 @@ -;;; 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 differdeleted file mode 100644 index be71bcb..0000000 --- a/elpa/auctex-13.1.3/style/FiraSans.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/MinionPro.el b/elpa/auctex-13.1.3/style/MinionPro.el deleted file mode 100644 index ff76329..0000000 --- a/elpa/auctex-13.1.3/style/MinionPro.el +++ /dev/null @@ -1,76 +0,0 @@ -;;; 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 differdeleted file mode 100644 index b63b3ef..0000000 --- a/elpa/auctex-13.1.3/style/MinionPro.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/MyriadPro.el b/elpa/auctex-13.1.3/style/MyriadPro.el deleted file mode 100644 index 0f3de7d..0000000 --- a/elpa/auctex-13.1.3/style/MyriadPro.el +++ /dev/null @@ -1,102 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 1596d1e..0000000 --- a/elpa/auctex-13.1.3/style/MyriadPro.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/XCharter.el b/elpa/auctex-13.1.3/style/XCharter.el deleted file mode 100644 index 6f35b36..0000000 --- a/elpa/auctex-13.1.3/style/XCharter.el +++ /dev/null @@ -1,97 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 8a11dda..0000000 --- a/elpa/auctex-13.1.3/style/XCharter.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/acro.el b/elpa/auctex-13.1.3/style/acro.el deleted file mode 100644 index 56291a1..0000000 --- a/elpa/auctex-13.1.3/style/acro.el +++ /dev/null @@ -1,300 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 3388038..0000000 --- a/elpa/auctex-13.1.3/style/acro.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/acronym.el b/elpa/auctex-13.1.3/style/acronym.el deleted file mode 100644 index a99fa85..0000000 --- a/elpa/auctex-13.1.3/style/acronym.el +++ /dev/null @@ -1,185 +0,0 @@ -;;; 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 differdeleted file mode 100644 index bfe9971..0000000 --- a/elpa/auctex-13.1.3/style/acronym.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/afterpage.el b/elpa/auctex-13.1.3/style/afterpage.el deleted file mode 100644 index 1601885..0000000 --- a/elpa/auctex-13.1.3/style/afterpage.el +++ /dev/null @@ -1,46 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 13a9534..0000000 --- a/elpa/auctex-13.1.3/style/afterpage.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/algorithm.el b/elpa/auctex-13.1.3/style/algorithm.el deleted file mode 100644 index 8500f44..0000000 --- a/elpa/auctex-13.1.3/style/algorithm.el +++ /dev/null @@ -1,80 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 0c562d0..0000000 --- a/elpa/auctex-13.1.3/style/algorithm.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/algpseudocode.el b/elpa/auctex-13.1.3/style/algpseudocode.el deleted file mode 100644 index 1d8bdd7..0000000 --- a/elpa/auctex-13.1.3/style/algpseudocode.el +++ /dev/null @@ -1,143 +0,0 @@ -;;; 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 differdeleted file mode 100644 index b62fdbc..0000000 --- a/elpa/auctex-13.1.3/style/algpseudocode.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/alltt.el b/elpa/auctex-13.1.3/style/alltt.el deleted file mode 100644 index 57d1ab2..0000000 --- a/elpa/auctex-13.1.3/style/alltt.el +++ /dev/null @@ -1,57 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 65d84cb..0000000 --- a/elpa/auctex-13.1.3/style/alltt.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/alphanum.el b/elpa/auctex-13.1.3/style/alphanum.el deleted file mode 100644 index cc24c3b..0000000 --- a/elpa/auctex-13.1.3/style/alphanum.el +++ /dev/null @@ -1,105 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 50ba913..0000000 --- a/elpa/auctex-13.1.3/style/alphanum.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/amsart.el b/elpa/auctex-13.1.3/style/amsart.el deleted file mode 100644 index 7f93f1a..0000000 --- a/elpa/auctex-13.1.3/style/amsart.el +++ /dev/null @@ -1,16 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 7b2e74a..0000000 --- a/elpa/auctex-13.1.3/style/amsart.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/amsbook.el b/elpa/auctex-13.1.3/style/amsbook.el deleted file mode 100644 index c645767..0000000 --- a/elpa/auctex-13.1.3/style/amsbook.el +++ /dev/null @@ -1,15 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a3c0ae1..0000000 --- a/elpa/auctex-13.1.3/style/amsbook.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/amsbsy.el b/elpa/auctex-13.1.3/style/amsbsy.el deleted file mode 100644 index dce3825..0000000 --- a/elpa/auctex-13.1.3/style/amsbsy.el +++ /dev/null @@ -1,21 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 7375372..0000000 --- a/elpa/auctex-13.1.3/style/amsbsy.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/amsfonts.el b/elpa/auctex-13.1.3/style/amsfonts.el deleted file mode 100644 index 03556e7..0000000 --- a/elpa/auctex-13.1.3/style/amsfonts.el +++ /dev/null @@ -1,61 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a3db471..0000000 --- a/elpa/auctex-13.1.3/style/amsfonts.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/amsmath.el b/elpa/auctex-13.1.3/style/amsmath.el deleted file mode 100644 index 5e7812e..0000000 --- a/elpa/auctex-13.1.3/style/amsmath.el +++ /dev/null @@ -1,259 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 5179dd0..0000000 --- a/elpa/auctex-13.1.3/style/amsmath.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/amsopn.el b/elpa/auctex-13.1.3/style/amsopn.el deleted file mode 100644 index 10572bd..0000000 --- a/elpa/auctex-13.1.3/style/amsopn.el +++ /dev/null @@ -1,56 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 51efbfc..0000000 --- a/elpa/auctex-13.1.3/style/amsopn.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/amssymb.el b/elpa/auctex-13.1.3/style/amssymb.el deleted file mode 100644 index 5fdb82c..0000000 --- a/elpa/auctex-13.1.3/style/amssymb.el +++ /dev/null @@ -1,253 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 255a692..0000000 --- a/elpa/auctex-13.1.3/style/amssymb.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/amstex.el b/elpa/auctex-13.1.3/style/amstex.el deleted file mode 100644 index 7588935..0000000 --- a/elpa/auctex-13.1.3/style/amstex.el +++ /dev/null @@ -1,63 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 9470a94..0000000 --- a/elpa/auctex-13.1.3/style/amstex.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/amstext.el b/elpa/auctex-13.1.3/style/amstext.el deleted file mode 100644 index 96f1dd1..0000000 --- a/elpa/auctex-13.1.3/style/amstext.el +++ /dev/null @@ -1,20 +0,0 @@ -;;; 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 differdeleted file mode 100644 index c829e67..0000000 --- a/elpa/auctex-13.1.3/style/amstext.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/amsthm.el b/elpa/auctex-13.1.3/style/amsthm.el deleted file mode 100644 index 3ea8176..0000000 --- a/elpa/auctex-13.1.3/style/amsthm.el +++ /dev/null @@ -1,201 +0,0 @@ -;;; 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 differdeleted file mode 100644 index be4b50f..0000000 --- a/elpa/auctex-13.1.3/style/amsthm.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/appendix.el b/elpa/auctex-13.1.3/style/appendix.el deleted file mode 100644 index 406aef5..0000000 --- a/elpa/auctex-13.1.3/style/appendix.el +++ /dev/null @@ -1,79 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 85e2597..0000000 --- a/elpa/auctex-13.1.3/style/appendix.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/arabxetex.el b/elpa/auctex-13.1.3/style/arabxetex.el deleted file mode 100644 index 897b9cd..0000000 --- a/elpa/auctex-13.1.3/style/arabxetex.el +++ /dev/null @@ -1,121 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 28a4429..0000000 --- a/elpa/auctex-13.1.3/style/arabxetex.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/array.el b/elpa/auctex-13.1.3/style/array.el deleted file mode 100644 index be7baf3..0000000 --- a/elpa/auctex-13.1.3/style/array.el +++ /dev/null @@ -1,111 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 1bb2031..0000000 --- a/elpa/auctex-13.1.3/style/array.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/article.el b/elpa/auctex-13.1.3/style/article.el deleted file mode 100644 index 1278ddb..0000000 --- a/elpa/auctex-13.1.3/style/article.el +++ /dev/null @@ -1,24 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 1f4b621..0000000 --- a/elpa/auctex-13.1.3/style/article.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/attachfile.el b/elpa/auctex-13.1.3/style/attachfile.el deleted file mode 100644 index c090b5a..0000000 --- a/elpa/auctex-13.1.3/style/attachfile.el +++ /dev/null @@ -1,127 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 5a334d9..0000000 --- a/elpa/auctex-13.1.3/style/attachfile.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/australian.el b/elpa/auctex-13.1.3/style/australian.el deleted file mode 100644 index 7d9d830..0000000 --- a/elpa/auctex-13.1.3/style/australian.el +++ /dev/null @@ -1,42 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 9065a15..0000000 --- a/elpa/auctex-13.1.3/style/australian.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/austrian.el b/elpa/auctex-13.1.3/style/austrian.el deleted file mode 100644 index 98305fd..0000000 --- a/elpa/auctex-13.1.3/style/austrian.el +++ /dev/null @@ -1,42 +0,0 @@ -;;; 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 differdeleted file mode 100644 index c53804b..0000000 --- a/elpa/auctex-13.1.3/style/austrian.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/babel.el b/elpa/auctex-13.1.3/style/babel.el deleted file mode 100644 index a7d6747..0000000 --- a/elpa/auctex-13.1.3/style/babel.el +++ /dev/null @@ -1,436 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 27cebe0..0000000 --- a/elpa/auctex-13.1.3/style/babel.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/backref.el b/elpa/auctex-13.1.3/style/backref.el deleted file mode 100644 index a7a6ef1..0000000 --- a/elpa/auctex-13.1.3/style/backref.el +++ /dev/null @@ -1,94 +0,0 @@ -;;; 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 differdeleted file mode 100644 index fe57272..0000000 --- a/elpa/auctex-13.1.3/style/backref.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/baskervaldx.el b/elpa/auctex-13.1.3/style/baskervaldx.el deleted file mode 100644 index a4cba48..0000000 --- a/elpa/auctex-13.1.3/style/baskervaldx.el +++ /dev/null @@ -1,88 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 8cb2457..0000000 --- a/elpa/auctex-13.1.3/style/baskervaldx.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/beamer.el b/elpa/auctex-13.1.3/style/beamer.el deleted file mode 100644 index 589a26a..0000000 --- a/elpa/auctex-13.1.3/style/beamer.el +++ /dev/null @@ -1,381 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 1a78455..0000000 --- a/elpa/auctex-13.1.3/style/beamer.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/beamerarticle.el b/elpa/auctex-13.1.3/style/beamerarticle.el deleted file mode 100644 index 136947a..0000000 --- a/elpa/auctex-13.1.3/style/beamerarticle.el +++ /dev/null @@ -1,35 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 114687f..0000000 --- a/elpa/auctex-13.1.3/style/beamerarticle.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/beamerswitch.el b/elpa/auctex-13.1.3/style/beamerswitch.el deleted file mode 100644 index d565523..0000000 --- a/elpa/auctex-13.1.3/style/beamerswitch.el +++ /dev/null @@ -1,35 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 023a2e1..0000000 --- a/elpa/auctex-13.1.3/style/beamerswitch.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/biblatex.el b/elpa/auctex-13.1.3/style/biblatex.el deleted file mode 100644 index 43115be..0000000 --- a/elpa/auctex-13.1.3/style/biblatex.el +++ /dev/null @@ -1,645 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 4b0bb19..0000000 --- a/elpa/auctex-13.1.3/style/biblatex.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/bicaption.el b/elpa/auctex-13.1.3/style/bicaption.el deleted file mode 100644 index 245b454..0000000 --- a/elpa/auctex-13.1.3/style/bicaption.el +++ /dev/null @@ -1,206 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 5a1f665..0000000 --- a/elpa/auctex-13.1.3/style/bicaption.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/bidi.el b/elpa/auctex-13.1.3/style/bidi.el deleted file mode 100644 index 1b17d60..0000000 --- a/elpa/auctex-13.1.3/style/bidi.el +++ /dev/null @@ -1,196 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 36c3eb1..0000000 --- a/elpa/auctex-13.1.3/style/bidi.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/bidibeamer.el b/elpa/auctex-13.1.3/style/bidibeamer.el deleted file mode 100644 index f6d2e3a..0000000 --- a/elpa/auctex-13.1.3/style/bidibeamer.el +++ /dev/null @@ -1,42 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 9b703c4..0000000 --- a/elpa/auctex-13.1.3/style/bidibeamer.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/bigdelim.el b/elpa/auctex-13.1.3/style/bigdelim.el deleted file mode 100644 index cb54da7..0000000 --- a/elpa/auctex-13.1.3/style/bigdelim.el +++ /dev/null @@ -1,101 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 80d2509..0000000 --- a/elpa/auctex-13.1.3/style/bigdelim.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/bigstrut.el b/elpa/auctex-13.1.3/style/bigstrut.el deleted file mode 100644 index 8324da3..0000000 --- a/elpa/auctex-13.1.3/style/bigstrut.el +++ /dev/null @@ -1,68 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 41ddb59..0000000 --- a/elpa/auctex-13.1.3/style/bigstrut.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/bm.el b/elpa/auctex-13.1.3/style/bm.el deleted file mode 100644 index 7b9cd11..0000000 --- a/elpa/auctex-13.1.3/style/bm.el +++ /dev/null @@ -1,62 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 92cfc41..0000000 --- a/elpa/auctex-13.1.3/style/bm.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/book.el b/elpa/auctex-13.1.3/style/book.el deleted file mode 100644 index 4a23d25..0000000 --- a/elpa/auctex-13.1.3/style/book.el +++ /dev/null @@ -1,24 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 011a385..0000000 --- a/elpa/auctex-13.1.3/style/book.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/booktabs.el b/elpa/auctex-13.1.3/style/booktabs.el deleted file mode 100644 index 79571ea..0000000 --- a/elpa/auctex-13.1.3/style/booktabs.el +++ /dev/null @@ -1,86 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 84a75c9..0000000 --- a/elpa/auctex-13.1.3/style/booktabs.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/brazil.el b/elpa/auctex-13.1.3/style/brazil.el deleted file mode 100644 index 353e771..0000000 --- a/elpa/auctex-13.1.3/style/brazil.el +++ /dev/null @@ -1,37 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 74d94bd..0000000 --- a/elpa/auctex-13.1.3/style/brazil.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/brazilian.el b/elpa/auctex-13.1.3/style/brazilian.el deleted file mode 100644 index c1ae802..0000000 --- a/elpa/auctex-13.1.3/style/brazilian.el +++ /dev/null @@ -1,77 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 9112924..0000000 --- a/elpa/auctex-13.1.3/style/brazilian.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/breqn.el b/elpa/auctex-13.1.3/style/breqn.el deleted file mode 100644 index 0352055..0000000 --- a/elpa/auctex-13.1.3/style/breqn.el +++ /dev/null @@ -1,141 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 3ce5fbb..0000000 --- a/elpa/auctex-13.1.3/style/breqn.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/bulgarian.el b/elpa/auctex-13.1.3/style/bulgarian.el deleted file mode 100644 index d571a5f..0000000 --- a/elpa/auctex-13.1.3/style/bulgarian.el +++ /dev/null @@ -1,63 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 3203318..0000000 --- a/elpa/auctex-13.1.3/style/bulgarian.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/canadian.el b/elpa/auctex-13.1.3/style/canadian.el deleted file mode 100644 index 9066fc2..0000000 --- a/elpa/auctex-13.1.3/style/canadian.el +++ /dev/null @@ -1,42 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 6f7d6db..0000000 --- a/elpa/auctex-13.1.3/style/canadian.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/cancel.el b/elpa/auctex-13.1.3/style/cancel.el deleted file mode 100644 index 765fe68..0000000 --- a/elpa/auctex-13.1.3/style/cancel.el +++ /dev/null @@ -1,63 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 33e0dd9..0000000 --- a/elpa/auctex-13.1.3/style/cancel.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/captcont.el b/elpa/auctex-13.1.3/style/captcont.el deleted file mode 100644 index 5bf1ba1..0000000 --- a/elpa/auctex-13.1.3/style/captcont.el +++ /dev/null @@ -1,54 +0,0 @@ -;; 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 differdeleted file mode 100644 index 144f812..0000000 --- a/elpa/auctex-13.1.3/style/captcont.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/caption.el b/elpa/auctex-13.1.3/style/caption.el deleted file mode 100644 index 134157a..0000000 --- a/elpa/auctex-13.1.3/style/caption.el +++ /dev/null @@ -1,491 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 9bb293d..0000000 --- a/elpa/auctex-13.1.3/style/caption.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/changelog.el b/elpa/auctex-13.1.3/style/changelog.el deleted file mode 100644 index a4ebb43..0000000 --- a/elpa/auctex-13.1.3/style/changelog.el +++ /dev/null @@ -1,163 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 5d1f273..0000000 --- a/elpa/auctex-13.1.3/style/changelog.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/changes.el b/elpa/auctex-13.1.3/style/changes.el deleted file mode 100644 index 9c3bff5..0000000 --- a/elpa/auctex-13.1.3/style/changes.el +++ /dev/null @@ -1,242 +0,0 @@ -;;; 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 differdeleted file mode 100644 index bf2e8d3..0000000 --- a/elpa/auctex-13.1.3/style/changes.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/cleveref.el b/elpa/auctex-13.1.3/style/cleveref.el deleted file mode 100644 index 373dcd8..0000000 --- a/elpa/auctex-13.1.3/style/cleveref.el +++ /dev/null @@ -1,205 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 02a53df..0000000 --- a/elpa/auctex-13.1.3/style/cleveref.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/color.el b/elpa/auctex-13.1.3/style/color.el deleted file mode 100644 index a98b01b..0000000 --- a/elpa/auctex-13.1.3/style/color.el +++ /dev/null @@ -1,317 +0,0 @@ -;;; 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 differdeleted file mode 100644 index c7f4633..0000000 --- a/elpa/auctex-13.1.3/style/color.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/colortbl.el b/elpa/auctex-13.1.3/style/colortbl.el deleted file mode 100644 index 7bbab91..0000000 --- a/elpa/auctex-13.1.3/style/colortbl.el +++ /dev/null @@ -1,100 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 6a91a98..0000000 --- a/elpa/auctex-13.1.3/style/colortbl.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/commath.el b/elpa/auctex-13.1.3/style/commath.el deleted file mode 100644 index 5c2b491..0000000 --- a/elpa/auctex-13.1.3/style/commath.el +++ /dev/null @@ -1,109 +0,0 @@ -;;; 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 differdeleted file mode 100644 index cb7bbb0..0000000 --- a/elpa/auctex-13.1.3/style/commath.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/comment.el b/elpa/auctex-13.1.3/style/comment.el deleted file mode 100644 index 8d0c90c..0000000 --- a/elpa/auctex-13.1.3/style/comment.el +++ /dev/null @@ -1,168 +0,0 @@ -;;; 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 differdeleted file mode 100644 index c3c4ff5..0000000 --- a/elpa/auctex-13.1.3/style/comment.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/csquotes.el b/elpa/auctex-13.1.3/style/csquotes.el deleted file mode 100644 index d5714a3..0000000 --- a/elpa/auctex-13.1.3/style/csquotes.el +++ /dev/null @@ -1,404 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 44f40a2..0000000 --- a/elpa/auctex-13.1.3/style/csquotes.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/currvita.el b/elpa/auctex-13.1.3/style/currvita.el deleted file mode 100644 index f1f27a3..0000000 --- a/elpa/auctex-13.1.3/style/currvita.el +++ /dev/null @@ -1,98 +0,0 @@ -;;; 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 differdeleted file mode 100644 index bf9cdf7..0000000 --- a/elpa/auctex-13.1.3/style/currvita.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/cuted.el b/elpa/auctex-13.1.3/style/cuted.el deleted file mode 100644 index cb769fc..0000000 --- a/elpa/auctex-13.1.3/style/cuted.el +++ /dev/null @@ -1,73 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 4109ea2..0000000 --- a/elpa/auctex-13.1.3/style/cuted.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/czech.el b/elpa/auctex-13.1.3/style/czech.el deleted file mode 100644 index d000fe6..0000000 --- a/elpa/auctex-13.1.3/style/czech.el +++ /dev/null @@ -1,11 +0,0 @@ -;;; 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 differdeleted file mode 100644 index e7c66de..0000000 --- a/elpa/auctex-13.1.3/style/czech.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/danish.el b/elpa/auctex-13.1.3/style/danish.el deleted file mode 100644 index a582e9e..0000000 --- a/elpa/auctex-13.1.3/style/danish.el +++ /dev/null @@ -1,26 +0,0 @@ -;;; 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 differdeleted file mode 100644 index ba556f4..0000000 --- a/elpa/auctex-13.1.3/style/danish.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/dashundergaps.el b/elpa/auctex-13.1.3/style/dashundergaps.el deleted file mode 100644 index cb58760..0000000 --- a/elpa/auctex-13.1.3/style/dashundergaps.el +++ /dev/null @@ -1,106 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a4901d8..0000000 --- a/elpa/auctex-13.1.3/style/dashundergaps.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/dcolumn.el b/elpa/auctex-13.1.3/style/dcolumn.el deleted file mode 100644 index 8151f59..0000000 --- a/elpa/auctex-13.1.3/style/dcolumn.el +++ /dev/null @@ -1,51 +0,0 @@ -;;; 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 differdeleted file mode 100644 index ff4b805..0000000 --- a/elpa/auctex-13.1.3/style/dcolumn.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/dinbrief.el b/elpa/auctex-13.1.3/style/dinbrief.el deleted file mode 100644 index fe8a5e9..0000000 --- a/elpa/auctex-13.1.3/style/dinbrief.el +++ /dev/null @@ -1,283 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a058396..0000000 --- a/elpa/auctex-13.1.3/style/dinbrief.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/dk-bib.el b/elpa/auctex-13.1.3/style/dk-bib.el deleted file mode 100644 index 18db014..0000000 --- a/elpa/auctex-13.1.3/style/dk-bib.el +++ /dev/null @@ -1,62 +0,0 @@ -;;; 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 differdeleted file mode 100644 index d28b9c0..0000000 --- a/elpa/auctex-13.1.3/style/dk-bib.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/dk.el b/elpa/auctex-13.1.3/style/dk.el deleted file mode 100644 index 2d7d783..0000000 --- a/elpa/auctex-13.1.3/style/dk.el +++ /dev/null @@ -1,13 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 945ebc3..0000000 --- a/elpa/auctex-13.1.3/style/dk.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/doc.el b/elpa/auctex-13.1.3/style/doc.el deleted file mode 100644 index 63c6580..0000000 --- a/elpa/auctex-13.1.3/style/doc.el +++ /dev/null @@ -1,466 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 6ce6b04..0000000 --- a/elpa/auctex-13.1.3/style/doc.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/dutch.el b/elpa/auctex-13.1.3/style/dutch.el deleted file mode 100644 index 47da9ca..0000000 --- a/elpa/auctex-13.1.3/style/dutch.el +++ /dev/null @@ -1,13 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 8ccc47e..0000000 --- a/elpa/auctex-13.1.3/style/dutch.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/emp.el b/elpa/auctex-13.1.3/style/emp.el deleted file mode 100644 index ad2bc27..0000000 --- a/elpa/auctex-13.1.3/style/emp.el +++ /dev/null @@ -1,85 +0,0 @@ -;;; 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 differdeleted file mode 100644 index ac57073..0000000 --- a/elpa/auctex-13.1.3/style/emp.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/empheq.el b/elpa/auctex-13.1.3/style/empheq.el deleted file mode 100644 index b9f32b1..0000000 --- a/elpa/auctex-13.1.3/style/empheq.el +++ /dev/null @@ -1,485 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 2bd8dd2..0000000 --- a/elpa/auctex-13.1.3/style/empheq.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/english.el b/elpa/auctex-13.1.3/style/english.el deleted file mode 100644 index f8477bb..0000000 --- a/elpa/auctex-13.1.3/style/english.el +++ /dev/null @@ -1,15 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 01ad626..0000000 --- a/elpa/auctex-13.1.3/style/english.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/enumitem.el b/elpa/auctex-13.1.3/style/enumitem.el deleted file mode 100644 index d8ad056..0000000 --- a/elpa/auctex-13.1.3/style/enumitem.el +++ /dev/null @@ -1,525 +0,0 @@ -;;; 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 differdeleted file mode 100644 index e1a3b31..0000000 --- a/elpa/auctex-13.1.3/style/enumitem.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/environ.el b/elpa/auctex-13.1.3/style/environ.el deleted file mode 100644 index 3a17f50..0000000 --- a/elpa/auctex-13.1.3/style/environ.el +++ /dev/null @@ -1,143 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 5595ed2..0000000 --- a/elpa/auctex-13.1.3/style/environ.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/epigraph.el b/elpa/auctex-13.1.3/style/epigraph.el deleted file mode 100644 index 14b276f..0000000 --- a/elpa/auctex-13.1.3/style/epigraph.el +++ /dev/null @@ -1,106 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 6520dfc..0000000 --- a/elpa/auctex-13.1.3/style/epigraph.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/epsf.el b/elpa/auctex-13.1.3/style/epsf.el deleted file mode 100644 index bfe6279..0000000 --- a/elpa/auctex-13.1.3/style/epsf.el +++ /dev/null @@ -1,40 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 6fa86f2..0000000 --- a/elpa/auctex-13.1.3/style/epsf.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/erewhon.el b/elpa/auctex-13.1.3/style/erewhon.el deleted file mode 100644 index c438214..0000000 --- a/elpa/auctex-13.1.3/style/erewhon.el +++ /dev/null @@ -1,98 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 5901ad8..0000000 --- a/elpa/auctex-13.1.3/style/erewhon.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/eso-pic.el b/elpa/auctex-13.1.3/style/eso-pic.el deleted file mode 100644 index 2ee93d0..0000000 --- a/elpa/auctex-13.1.3/style/eso-pic.el +++ /dev/null @@ -1,90 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 82c935d..0000000 --- a/elpa/auctex-13.1.3/style/eso-pic.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/etoolbox.el b/elpa/auctex-13.1.3/style/etoolbox.el deleted file mode 100644 index 42af6a4..0000000 --- a/elpa/auctex-13.1.3/style/etoolbox.el +++ /dev/null @@ -1,376 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 7f2e473..0000000 --- a/elpa/auctex-13.1.3/style/etoolbox.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/everysel.el b/elpa/auctex-13.1.3/style/everysel.el deleted file mode 100644 index f500078..0000000 --- a/elpa/auctex-13.1.3/style/everysel.el +++ /dev/null @@ -1,47 +0,0 @@ -;;; 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 differdeleted file mode 100644 index c1d6af5..0000000 --- a/elpa/auctex-13.1.3/style/everysel.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/exam.el b/elpa/auctex-13.1.3/style/exam.el deleted file mode 100644 index 370a923..0000000 --- a/elpa/auctex-13.1.3/style/exam.el +++ /dev/null @@ -1,412 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 44db4da..0000000 --- a/elpa/auctex-13.1.3/style/exam.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/exercise.el b/elpa/auctex-13.1.3/style/exercise.el deleted file mode 100644 index 98ea7da..0000000 --- a/elpa/auctex-13.1.3/style/exercise.el +++ /dev/null @@ -1,66 +0,0 @@ -;;; 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 differdeleted file mode 100644 index fe9cf56..0000000 --- a/elpa/auctex-13.1.3/style/exercise.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/expl3.el b/elpa/auctex-13.1.3/style/expl3.el deleted file mode 100644 index b0d5a38..0000000 --- a/elpa/auctex-13.1.3/style/expl3.el +++ /dev/null @@ -1,63 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 0ffbb29..0000000 --- a/elpa/auctex-13.1.3/style/expl3.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/extramarks.el b/elpa/auctex-13.1.3/style/extramarks.el deleted file mode 100644 index ecf619e..0000000 --- a/elpa/auctex-13.1.3/style/extramarks.el +++ /dev/null @@ -1,72 +0,0 @@ -;;; 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 differdeleted file mode 100644 index d1f66a8..0000000 --- a/elpa/auctex-13.1.3/style/extramarks.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/fancyhdr.el b/elpa/auctex-13.1.3/style/fancyhdr.el deleted file mode 100644 index eb9751a..0000000 --- a/elpa/auctex-13.1.3/style/fancyhdr.el +++ /dev/null @@ -1,187 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 661c8ec..0000000 --- a/elpa/auctex-13.1.3/style/fancyhdr.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/fancynum.el b/elpa/auctex-13.1.3/style/fancynum.el deleted file mode 100644 index 52ba702..0000000 --- a/elpa/auctex-13.1.3/style/fancynum.el +++ /dev/null @@ -1,49 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a895c05..0000000 --- a/elpa/auctex-13.1.3/style/fancynum.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/fancyref.el b/elpa/auctex-13.1.3/style/fancyref.el deleted file mode 100644 index 22fd1c1..0000000 --- a/elpa/auctex-13.1.3/style/fancyref.el +++ /dev/null @@ -1,136 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 2878e5b..0000000 --- a/elpa/auctex-13.1.3/style/fancyref.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/fancyvrb.el b/elpa/auctex-13.1.3/style/fancyvrb.el deleted file mode 100644 index 22e52c2..0000000 --- a/elpa/auctex-13.1.3/style/fancyvrb.el +++ /dev/null @@ -1,772 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 2752823..0000000 --- a/elpa/auctex-13.1.3/style/fancyvrb.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/fbb.el b/elpa/auctex-13.1.3/style/fbb.el deleted file mode 100644 index 7a052ae..0000000 --- a/elpa/auctex-13.1.3/style/fbb.el +++ /dev/null @@ -1,88 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 0e387d4..0000000 --- a/elpa/auctex-13.1.3/style/fbb.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/fbox.el b/elpa/auctex-13.1.3/style/fbox.el deleted file mode 100644 index 8348dfa..0000000 --- a/elpa/auctex-13.1.3/style/fbox.el +++ /dev/null @@ -1,81 +0,0 @@ -;;; 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 differdeleted file mode 100644 index b7bb37c..0000000 --- a/elpa/auctex-13.1.3/style/fbox.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/filecontents.el b/elpa/auctex-13.1.3/style/filecontents.el deleted file mode 100644 index 3c8713a..0000000 --- a/elpa/auctex-13.1.3/style/filecontents.el +++ /dev/null @@ -1,64 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 5fa9caa..0000000 --- a/elpa/auctex-13.1.3/style/filecontents.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/flashcards.el b/elpa/auctex-13.1.3/style/flashcards.el deleted file mode 100644 index c163847..0000000 --- a/elpa/auctex-13.1.3/style/flashcards.el +++ /dev/null @@ -1,69 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 5fc96dd..0000000 --- a/elpa/auctex-13.1.3/style/flashcards.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/floatpag.el b/elpa/auctex-13.1.3/style/floatpag.el deleted file mode 100644 index 0174174..0000000 --- a/elpa/auctex-13.1.3/style/floatpag.el +++ /dev/null @@ -1,75 +0,0 @@ -;;; 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 differdeleted file mode 100644 index d6dc42f..0000000 --- a/elpa/auctex-13.1.3/style/floatpag.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/floatrow.el b/elpa/auctex-13.1.3/style/floatrow.el deleted file mode 100644 index be8878f..0000000 --- a/elpa/auctex-13.1.3/style/floatrow.el +++ /dev/null @@ -1,753 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 8407073..0000000 --- a/elpa/auctex-13.1.3/style/floatrow.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/flushend.el b/elpa/auctex-13.1.3/style/flushend.el deleted file mode 100644 index db00ffc..0000000 --- a/elpa/auctex-13.1.3/style/flushend.el +++ /dev/null @@ -1,77 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 20d8ca3..0000000 --- a/elpa/auctex-13.1.3/style/flushend.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/foils.el b/elpa/auctex-13.1.3/style/foils.el deleted file mode 100644 index b53b532..0000000 --- a/elpa/auctex-13.1.3/style/foils.el +++ /dev/null @@ -1,68 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a8bb118..0000000 --- a/elpa/auctex-13.1.3/style/foils.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/fontaxes.el b/elpa/auctex-13.1.3/style/fontaxes.el deleted file mode 100644 index 62db15a..0000000 --- a/elpa/auctex-13.1.3/style/fontaxes.el +++ /dev/null @@ -1,116 +0,0 @@ -;;; 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 differdeleted file mode 100644 index c9c2ef4..0000000 --- a/elpa/auctex-13.1.3/style/fontaxes.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/fontenc.el b/elpa/auctex-13.1.3/style/fontenc.el deleted file mode 100644 index ba430db..0000000 --- a/elpa/auctex-13.1.3/style/fontenc.el +++ /dev/null @@ -1,55 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a1fcf64..0000000 --- a/elpa/auctex-13.1.3/style/fontenc.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/fontspec.el b/elpa/auctex-13.1.3/style/fontspec.el deleted file mode 100644 index 6970b75..0000000 --- a/elpa/auctex-13.1.3/style/fontspec.el +++ /dev/null @@ -1,449 +0,0 @@ -;;; 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 differdeleted file mode 100644 index e5ca2a1..0000000 --- a/elpa/auctex-13.1.3/style/fontspec.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/footmisc.el b/elpa/auctex-13.1.3/style/footmisc.el deleted file mode 100644 index 64fd89e..0000000 --- a/elpa/auctex-13.1.3/style/footmisc.el +++ /dev/null @@ -1,128 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 1de0a0a..0000000 --- a/elpa/auctex-13.1.3/style/footmisc.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/footnotehyper.el b/elpa/auctex-13.1.3/style/footnotehyper.el deleted file mode 100644 index d97e5b2..0000000 --- a/elpa/auctex-13.1.3/style/footnotehyper.el +++ /dev/null @@ -1,86 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 23bc389..0000000 --- a/elpa/auctex-13.1.3/style/footnotehyper.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/framed.el b/elpa/auctex-13.1.3/style/framed.el deleted file mode 100644 index 03160ba..0000000 --- a/elpa/auctex-13.1.3/style/framed.el +++ /dev/null @@ -1,55 +0,0 @@ -;;; 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 differdeleted file mode 100644 index b9d627f..0000000 --- a/elpa/auctex-13.1.3/style/framed.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/francais.el b/elpa/auctex-13.1.3/style/francais.el deleted file mode 100644 index 53da6f3..0000000 --- a/elpa/auctex-13.1.3/style/francais.el +++ /dev/null @@ -1,44 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 1dc207d..0000000 --- a/elpa/auctex-13.1.3/style/francais.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/french.el b/elpa/auctex-13.1.3/style/french.el deleted file mode 100644 index d3f4178..0000000 --- a/elpa/auctex-13.1.3/style/french.el +++ /dev/null @@ -1,51 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 48b54b1..0000000 --- a/elpa/auctex-13.1.3/style/french.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/frenchb.el b/elpa/auctex-13.1.3/style/frenchb.el deleted file mode 100644 index 31c30b8..0000000 --- a/elpa/auctex-13.1.3/style/frenchb.el +++ /dev/null @@ -1,81 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 9cc8f62..0000000 --- a/elpa/auctex-13.1.3/style/frenchb.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/fvextra.el b/elpa/auctex-13.1.3/style/fvextra.el deleted file mode 100644 index 3109216..0000000 --- a/elpa/auctex-13.1.3/style/fvextra.el +++ /dev/null @@ -1,159 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 39cb48d..0000000 --- a/elpa/auctex-13.1.3/style/fvextra.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/geometry.el b/elpa/auctex-13.1.3/style/geometry.el deleted file mode 100644 index cc93d84..0000000 --- a/elpa/auctex-13.1.3/style/geometry.el +++ /dev/null @@ -1,160 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 6cd5b84..0000000 --- a/elpa/auctex-13.1.3/style/geometry.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/german.el b/elpa/auctex-13.1.3/style/german.el deleted file mode 100644 index 5dd1c3e..0000000 --- a/elpa/auctex-13.1.3/style/german.el +++ /dev/null @@ -1,46 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 5dfd34e..0000000 --- a/elpa/auctex-13.1.3/style/german.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/gloss-italian.el b/elpa/auctex-13.1.3/style/gloss-italian.el deleted file mode 100644 index c13f9f2..0000000 --- a/elpa/auctex-13.1.3/style/gloss-italian.el +++ /dev/null @@ -1,71 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 01f8338..0000000 --- a/elpa/auctex-13.1.3/style/gloss-italian.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/graphics.el b/elpa/auctex-13.1.3/style/graphics.el deleted file mode 100644 index 4cdd31c..0000000 --- a/elpa/auctex-13.1.3/style/graphics.el +++ /dev/null @@ -1,20 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 1b2412c..0000000 --- a/elpa/auctex-13.1.3/style/graphics.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/graphicx.el b/elpa/auctex-13.1.3/style/graphicx.el deleted file mode 100644 index 0e1e220..0000000 --- a/elpa/auctex-13.1.3/style/graphicx.el +++ /dev/null @@ -1,332 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 90e0330..0000000 --- a/elpa/auctex-13.1.3/style/graphicx.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/harvard.el b/elpa/auctex-13.1.3/style/harvard.el deleted file mode 100644 index 6373af3..0000000 --- a/elpa/auctex-13.1.3/style/harvard.el +++ /dev/null @@ -1,133 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 40a7c62..0000000 --- a/elpa/auctex-13.1.3/style/harvard.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/hologo.el b/elpa/auctex-13.1.3/style/hologo.el deleted file mode 100644 index 25f8105..0000000 --- a/elpa/auctex-13.1.3/style/hologo.el +++ /dev/null @@ -1,237 +0,0 @@ -;;; 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 differdeleted file mode 100644 index ccd9ec4..0000000 --- a/elpa/auctex-13.1.3/style/hologo.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/hyperref.el b/elpa/auctex-13.1.3/style/hyperref.el deleted file mode 100644 index 81a0533..0000000 --- a/elpa/auctex-13.1.3/style/hyperref.el +++ /dev/null @@ -1,349 +0,0 @@ -;;; 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 differdeleted file mode 100644 index fef205a..0000000 --- a/elpa/auctex-13.1.3/style/hyperref.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/icelandic.el b/elpa/auctex-13.1.3/style/icelandic.el deleted file mode 100644 index b3cf1e4..0000000 --- a/elpa/auctex-13.1.3/style/icelandic.el +++ /dev/null @@ -1,62 +0,0 @@ -;;; 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 differdeleted file mode 100644 index af1717c..0000000 --- a/elpa/auctex-13.1.3/style/icelandic.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ifluatex.el b/elpa/auctex-13.1.3/style/ifluatex.el deleted file mode 100644 index 86a7638..0000000 --- a/elpa/auctex-13.1.3/style/ifluatex.el +++ /dev/null @@ -1,72 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 37f0152..0000000 --- a/elpa/auctex-13.1.3/style/ifluatex.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ifthen.el b/elpa/auctex-13.1.3/style/ifthen.el deleted file mode 100644 index 2f42602..0000000 --- a/elpa/auctex-13.1.3/style/ifthen.el +++ /dev/null @@ -1,82 +0,0 @@ -;;; 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 differdeleted file mode 100644 index cd588b6..0000000 --- a/elpa/auctex-13.1.3/style/ifthen.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/imakeidx.el b/elpa/auctex-13.1.3/style/imakeidx.el deleted file mode 100644 index 325631e..0000000 --- a/elpa/auctex-13.1.3/style/imakeidx.el +++ /dev/null @@ -1,103 +0,0 @@ -;;; 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 differdeleted file mode 100644 index d935361..0000000 --- a/elpa/auctex-13.1.3/style/imakeidx.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/index.el b/elpa/auctex-13.1.3/style/index.el deleted file mode 100644 index 0d83566..0000000 --- a/elpa/auctex-13.1.3/style/index.el +++ /dev/null @@ -1,87 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 14daa81..0000000 --- a/elpa/auctex-13.1.3/style/index.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/inputenc.el b/elpa/auctex-13.1.3/style/inputenc.el deleted file mode 100644 index 14ff61c..0000000 --- a/elpa/auctex-13.1.3/style/inputenc.el +++ /dev/null @@ -1,89 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a16f237..0000000 --- a/elpa/auctex-13.1.3/style/inputenc.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/italian.el b/elpa/auctex-13.1.3/style/italian.el deleted file mode 100644 index 16db718..0000000 --- a/elpa/auctex-13.1.3/style/italian.el +++ /dev/null @@ -1,56 +0,0 @@ -;;; 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 differdeleted file mode 100644 index e9b40cf..0000000 --- a/elpa/auctex-13.1.3/style/italian.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/j-article.el b/elpa/auctex-13.1.3/style/j-article.el deleted file mode 100644 index 44571f3..0000000 --- a/elpa/auctex-13.1.3/style/j-article.el +++ /dev/null @@ -1,14 +0,0 @@ -;;; 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 differdeleted file mode 100644 index f7c52f8..0000000 --- a/elpa/auctex-13.1.3/style/j-article.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/j-book.el b/elpa/auctex-13.1.3/style/j-book.el deleted file mode 100644 index 1aeda40..0000000 --- a/elpa/auctex-13.1.3/style/j-book.el +++ /dev/null @@ -1,14 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 331bd65..0000000 --- a/elpa/auctex-13.1.3/style/j-book.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/j-report.el b/elpa/auctex-13.1.3/style/j-report.el deleted file mode 100644 index 969b4f7..0000000 --- a/elpa/auctex-13.1.3/style/j-report.el +++ /dev/null @@ -1,14 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 4fc6c96..0000000 --- a/elpa/auctex-13.1.3/style/j-report.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/jarticle.el b/elpa/auctex-13.1.3/style/jarticle.el deleted file mode 100644 index d293ff0..0000000 --- a/elpa/auctex-13.1.3/style/jarticle.el +++ /dev/null @@ -1,26 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 02a45c5..0000000 --- a/elpa/auctex-13.1.3/style/jarticle.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/jbook.el b/elpa/auctex-13.1.3/style/jbook.el deleted file mode 100644 index b1e7daa..0000000 --- a/elpa/auctex-13.1.3/style/jbook.el +++ /dev/null @@ -1,25 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 81a7927..0000000 --- a/elpa/auctex-13.1.3/style/jbook.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/jreport.el b/elpa/auctex-13.1.3/style/jreport.el deleted file mode 100644 index 613f3ff..0000000 --- a/elpa/auctex-13.1.3/style/jreport.el +++ /dev/null @@ -1,26 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 20ae161..0000000 --- a/elpa/auctex-13.1.3/style/jreport.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/jsarticle.el b/elpa/auctex-13.1.3/style/jsarticle.el deleted file mode 100644 index 519aa7e..0000000 --- a/elpa/auctex-13.1.3/style/jsarticle.el +++ /dev/null @@ -1,30 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 8663f8c..0000000 --- a/elpa/auctex-13.1.3/style/jsarticle.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/jsbook.el b/elpa/auctex-13.1.3/style/jsbook.el deleted file mode 100644 index 161e81d..0000000 --- a/elpa/auctex-13.1.3/style/jsbook.el +++ /dev/null @@ -1,34 +0,0 @@ -;;; 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 differdeleted file mode 100644 index b08ba01..0000000 --- a/elpa/auctex-13.1.3/style/jsbook.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/jsreport.el b/elpa/auctex-13.1.3/style/jsreport.el deleted file mode 100644 index 1a71f1b..0000000 --- a/elpa/auctex-13.1.3/style/jsreport.el +++ /dev/null @@ -1,59 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 30087bb..0000000 --- a/elpa/auctex-13.1.3/style/jsreport.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/jura.el b/elpa/auctex-13.1.3/style/jura.el deleted file mode 100644 index 920db7f..0000000 --- a/elpa/auctex-13.1.3/style/jura.el +++ /dev/null @@ -1,42 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 25a50f0..0000000 --- a/elpa/auctex-13.1.3/style/jura.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/jurabib.el b/elpa/auctex-13.1.3/style/jurabib.el deleted file mode 100644 index 68c02fc..0000000 --- a/elpa/auctex-13.1.3/style/jurabib.el +++ /dev/null @@ -1,644 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 23f640e..0000000 --- a/elpa/auctex-13.1.3/style/jurabib.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/kantlipsum.el b/elpa/auctex-13.1.3/style/kantlipsum.el deleted file mode 100644 index ce33062..0000000 --- a/elpa/auctex-13.1.3/style/kantlipsum.el +++ /dev/null @@ -1,48 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 38b182c..0000000 --- a/elpa/auctex-13.1.3/style/kantlipsum.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/kpfonts.el b/elpa/auctex-13.1.3/style/kpfonts.el deleted file mode 100644 index d55142f..0000000 --- a/elpa/auctex-13.1.3/style/kpfonts.el +++ /dev/null @@ -1,611 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 96ecd1c..0000000 --- a/elpa/auctex-13.1.3/style/kpfonts.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/l3doc.el b/elpa/auctex-13.1.3/style/l3doc.el deleted file mode 100644 index e51e83a..0000000 --- a/elpa/auctex-13.1.3/style/l3doc.el +++ /dev/null @@ -1,270 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 3aeecc2..0000000 --- a/elpa/auctex-13.1.3/style/l3doc.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/letter.el b/elpa/auctex-13.1.3/style/letter.el deleted file mode 100644 index 5c64c28..0000000 --- a/elpa/auctex-13.1.3/style/letter.el +++ /dev/null @@ -1,199 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 08327ca..0000000 --- a/elpa/auctex-13.1.3/style/letter.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/lettrine.el b/elpa/auctex-13.1.3/style/lettrine.el deleted file mode 100644 index 074ec94..0000000 --- a/elpa/auctex-13.1.3/style/lettrine.el +++ /dev/null @@ -1,98 +0,0 @@ -;;; 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 differdeleted file mode 100644 index e093559..0000000 --- a/elpa/auctex-13.1.3/style/lettrine.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/lipsum.el b/elpa/auctex-13.1.3/style/lipsum.el deleted file mode 100644 index 7378bc7..0000000 --- a/elpa/auctex-13.1.3/style/lipsum.el +++ /dev/null @@ -1,48 +0,0 @@ -;;; 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 differdeleted file mode 100644 index c549383..0000000 --- a/elpa/auctex-13.1.3/style/lipsum.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/listings.el b/elpa/auctex-13.1.3/style/listings.el deleted file mode 100644 index cfd4968..0000000 --- a/elpa/auctex-13.1.3/style/listings.el +++ /dev/null @@ -1,475 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 054187e..0000000 --- a/elpa/auctex-13.1.3/style/listings.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/longtable.el b/elpa/auctex-13.1.3/style/longtable.el deleted file mode 100644 index 8db4083..0000000 --- a/elpa/auctex-13.1.3/style/longtable.el +++ /dev/null @@ -1,154 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 9dbc7af..0000000 --- a/elpa/auctex-13.1.3/style/longtable.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/lscape.el b/elpa/auctex-13.1.3/style/lscape.el deleted file mode 100644 index e60cc17..0000000 --- a/elpa/auctex-13.1.3/style/lscape.el +++ /dev/null @@ -1,48 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 83d80a0..0000000 --- a/elpa/auctex-13.1.3/style/lscape.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ltablex.el b/elpa/auctex-13.1.3/style/ltablex.el deleted file mode 100644 index 1a6c014..0000000 --- a/elpa/auctex-13.1.3/style/ltablex.el +++ /dev/null @@ -1,51 +0,0 @@ -;;; 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 differdeleted file mode 100644 index c3486e7..0000000 --- a/elpa/auctex-13.1.3/style/ltablex.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ltugboat.el b/elpa/auctex-13.1.3/style/ltugboat.el deleted file mode 100644 index 7511e52..0000000 --- a/elpa/auctex-13.1.3/style/ltugboat.el +++ /dev/null @@ -1,295 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 66083f4..0000000 --- a/elpa/auctex-13.1.3/style/ltugboat.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ltx-base.el b/elpa/auctex-13.1.3/style/ltx-base.el deleted file mode 100644 index d10a137..0000000 --- a/elpa/auctex-13.1.3/style/ltx-base.el +++ /dev/null @@ -1,160 +0,0 @@ -;;; 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 differdeleted file mode 100644 index e180167..0000000 --- a/elpa/auctex-13.1.3/style/ltx-base.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ltxdoc.el b/elpa/auctex-13.1.3/style/ltxdoc.el deleted file mode 100644 index 16c26e1..0000000 --- a/elpa/auctex-13.1.3/style/ltxdoc.el +++ /dev/null @@ -1,99 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 516771b..0000000 --- a/elpa/auctex-13.1.3/style/ltxdoc.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ltxguide.el b/elpa/auctex-13.1.3/style/ltxguide.el deleted file mode 100644 index a30a2a7..0000000 --- a/elpa/auctex-13.1.3/style/ltxguide.el +++ /dev/null @@ -1,128 +0,0 @@ -;;; 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 differdeleted file mode 100644 index e2c0a0f..0000000 --- a/elpa/auctex-13.1.3/style/ltxguide.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ltxtable.el b/elpa/auctex-13.1.3/style/ltxtable.el deleted file mode 100644 index 51b9b02..0000000 --- a/elpa/auctex-13.1.3/style/ltxtable.el +++ /dev/null @@ -1,101 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 08a9b75..0000000 --- a/elpa/auctex-13.1.3/style/ltxtable.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/luacode.el b/elpa/auctex-13.1.3/style/luacode.el deleted file mode 100644 index b5eb8c5..0000000 --- a/elpa/auctex-13.1.3/style/luacode.el +++ /dev/null @@ -1,71 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 8dbf9e6..0000000 --- a/elpa/auctex-13.1.3/style/luacode.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/luatextra.el b/elpa/auctex-13.1.3/style/luatextra.el deleted file mode 100644 index 1fe804d..0000000 --- a/elpa/auctex-13.1.3/style/luatextra.el +++ /dev/null @@ -1,46 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 8bb666c..0000000 --- a/elpa/auctex-13.1.3/style/luatextra.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/makeidx.el b/elpa/auctex-13.1.3/style/makeidx.el deleted file mode 100644 index 4fe7ce4..0000000 --- a/elpa/auctex-13.1.3/style/makeidx.el +++ /dev/null @@ -1,52 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a193737..0000000 --- a/elpa/auctex-13.1.3/style/makeidx.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/marginnote.el b/elpa/auctex-13.1.3/style/marginnote.el deleted file mode 100644 index 0a977da..0000000 --- a/elpa/auctex-13.1.3/style/marginnote.el +++ /dev/null @@ -1,67 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 483a780..0000000 --- a/elpa/auctex-13.1.3/style/marginnote.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/mathtools.el b/elpa/auctex-13.1.3/style/mathtools.el deleted file mode 100644 index d0e1f26..0000000 --- a/elpa/auctex-13.1.3/style/mathtools.el +++ /dev/null @@ -1,504 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 7cf3db9..0000000 --- a/elpa/auctex-13.1.3/style/mathtools.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/mdframed.el b/elpa/auctex-13.1.3/style/mdframed.el deleted file mode 100644 index 0e3dd9b..0000000 --- a/elpa/auctex-13.1.3/style/mdframed.el +++ /dev/null @@ -1,410 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 2ca6fe3..0000000 --- a/elpa/auctex-13.1.3/style/mdframed.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/mdsymbol.el b/elpa/auctex-13.1.3/style/mdsymbol.el deleted file mode 100644 index d82f87e..0000000 --- a/elpa/auctex-13.1.3/style/mdsymbol.el +++ /dev/null @@ -1,102 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 3da1914..0000000 --- a/elpa/auctex-13.1.3/style/mdsymbol.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/mdwlist.el b/elpa/auctex-13.1.3/style/mdwlist.el deleted file mode 100644 index 8335c02..0000000 --- a/elpa/auctex-13.1.3/style/mdwlist.el +++ /dev/null @@ -1,72 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 2ad3e51..0000000 --- a/elpa/auctex-13.1.3/style/mdwlist.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/memoir.el b/elpa/auctex-13.1.3/style/memoir.el deleted file mode 100644 index 7945bc0..0000000 --- a/elpa/auctex-13.1.3/style/memoir.el +++ /dev/null @@ -1,88 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 9e17287..0000000 --- a/elpa/auctex-13.1.3/style/memoir.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/menukeys.el b/elpa/auctex-13.1.3/style/menukeys.el deleted file mode 100644 index ac375ea..0000000 --- a/elpa/auctex-13.1.3/style/menukeys.el +++ /dev/null @@ -1,547 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 0ab6f3c..0000000 --- a/elpa/auctex-13.1.3/style/menukeys.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/metalogo.el b/elpa/auctex-13.1.3/style/metalogo.el deleted file mode 100644 index fc6233c..0000000 --- a/elpa/auctex-13.1.3/style/metalogo.el +++ /dev/null @@ -1,92 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 50fc2e6..0000000 --- a/elpa/auctex-13.1.3/style/metalogo.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/mflogo.el b/elpa/auctex-13.1.3/style/mflogo.el deleted file mode 100644 index c8d25d2..0000000 --- a/elpa/auctex-13.1.3/style/mflogo.el +++ /dev/null @@ -1,61 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 6437c68..0000000 --- a/elpa/auctex-13.1.3/style/mflogo.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/midfloat.el b/elpa/auctex-13.1.3/style/midfloat.el deleted file mode 100644 index 66d794c..0000000 --- a/elpa/auctex-13.1.3/style/midfloat.el +++ /dev/null @@ -1,51 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 0e03d38..0000000 --- a/elpa/auctex-13.1.3/style/midfloat.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/minted.el b/elpa/auctex-13.1.3/style/minted.el deleted file mode 100644 index 354213b..0000000 --- a/elpa/auctex-13.1.3/style/minted.el +++ /dev/null @@ -1,475 +0,0 @@ -;;; 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 differdeleted file mode 100644 index f89c28d..0000000 --- a/elpa/auctex-13.1.3/style/minted.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/mn2e.el b/elpa/auctex-13.1.3/style/mn2e.el deleted file mode 100644 index c923687..0000000 --- a/elpa/auctex-13.1.3/style/mn2e.el +++ /dev/null @@ -1,183 +0,0 @@ -;;; 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 differdeleted file mode 100644 index ed5f3fb..0000000 --- a/elpa/auctex-13.1.3/style/mn2e.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/mnras.el b/elpa/auctex-13.1.3/style/mnras.el deleted file mode 100644 index 7307f03..0000000 --- a/elpa/auctex-13.1.3/style/mnras.el +++ /dev/null @@ -1,184 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 1d77bb3..0000000 --- a/elpa/auctex-13.1.3/style/mnras.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/moodle.el b/elpa/auctex-13.1.3/style/moodle.el deleted file mode 100644 index ac5f286..0000000 --- a/elpa/auctex-13.1.3/style/moodle.el +++ /dev/null @@ -1,222 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 01eea51..0000000 --- a/elpa/auctex-13.1.3/style/moodle.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/multicol.el b/elpa/auctex-13.1.3/style/multicol.el deleted file mode 100644 index 6fc65b9..0000000 --- a/elpa/auctex-13.1.3/style/multicol.el +++ /dev/null @@ -1,92 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 9266b9a..0000000 --- a/elpa/auctex-13.1.3/style/multicol.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/multido.el b/elpa/auctex-13.1.3/style/multido.el deleted file mode 100644 index ec92edc..0000000 --- a/elpa/auctex-13.1.3/style/multido.el +++ /dev/null @@ -1,54 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 0b762ad..0000000 --- a/elpa/auctex-13.1.3/style/multido.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/multind.el b/elpa/auctex-13.1.3/style/multind.el deleted file mode 100644 index 68a4ab6..0000000 --- a/elpa/auctex-13.1.3/style/multind.el +++ /dev/null @@ -1,66 +0,0 @@ -;;; 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 differdeleted file mode 100644 index bf1b783..0000000 --- a/elpa/auctex-13.1.3/style/multind.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/multirow.el b/elpa/auctex-13.1.3/style/multirow.el deleted file mode 100644 index 25d9f96..0000000 --- a/elpa/auctex-13.1.3/style/multirow.el +++ /dev/null @@ -1,86 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 8157580..0000000 --- a/elpa/auctex-13.1.3/style/multirow.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/multitoc.el b/elpa/auctex-13.1.3/style/multitoc.el deleted file mode 100644 index fb06c83..0000000 --- a/elpa/auctex-13.1.3/style/multitoc.el +++ /dev/null @@ -1,50 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 6d9143b..0000000 --- a/elpa/auctex-13.1.3/style/multitoc.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/nameref.el b/elpa/auctex-13.1.3/style/nameref.el deleted file mode 100644 index ffbb928..0000000 --- a/elpa/auctex-13.1.3/style/nameref.el +++ /dev/null @@ -1,64 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 40b42f0..0000000 --- a/elpa/auctex-13.1.3/style/nameref.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/natbib.el b/elpa/auctex-13.1.3/style/natbib.el deleted file mode 100644 index ba6622a..0000000 --- a/elpa/auctex-13.1.3/style/natbib.el +++ /dev/null @@ -1,199 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 2af4c3e..0000000 --- a/elpa/auctex-13.1.3/style/natbib.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/naustrian.el b/elpa/auctex-13.1.3/style/naustrian.el deleted file mode 100644 index 63ca440..0000000 --- a/elpa/auctex-13.1.3/style/naustrian.el +++ /dev/null @@ -1,42 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 2d1d0d9..0000000 --- a/elpa/auctex-13.1.3/style/naustrian.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/newfloat.el b/elpa/auctex-13.1.3/style/newfloat.el deleted file mode 100644 index 5cde1d4..0000000 --- a/elpa/auctex-13.1.3/style/newfloat.el +++ /dev/null @@ -1,215 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 8b69382..0000000 --- a/elpa/auctex-13.1.3/style/newfloat.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/newpxmath.el b/elpa/auctex-13.1.3/style/newpxmath.el deleted file mode 100644 index 8e8c0ac..0000000 --- a/elpa/auctex-13.1.3/style/newpxmath.el +++ /dev/null @@ -1,76 +0,0 @@ -;;; 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 differdeleted file mode 100644 index e60668f..0000000 --- a/elpa/auctex-13.1.3/style/newpxmath.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/newpxtext.el b/elpa/auctex-13.1.3/style/newpxtext.el deleted file mode 100644 index 3613e2c..0000000 --- a/elpa/auctex-13.1.3/style/newpxtext.el +++ /dev/null @@ -1,88 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 0459bee..0000000 --- a/elpa/auctex-13.1.3/style/newpxtext.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/newtxmath.el b/elpa/auctex-13.1.3/style/newtxmath.el deleted file mode 100644 index cf09156..0000000 --- a/elpa/auctex-13.1.3/style/newtxmath.el +++ /dev/null @@ -1,86 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 5689c07..0000000 --- a/elpa/auctex-13.1.3/style/newtxmath.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/newtxsf.el b/elpa/auctex-13.1.3/style/newtxsf.el deleted file mode 100644 index 901c83b..0000000 --- a/elpa/auctex-13.1.3/style/newtxsf.el +++ /dev/null @@ -1,59 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 9f32dc0..0000000 --- a/elpa/auctex-13.1.3/style/newtxsf.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/newtxtext.el b/elpa/auctex-13.1.3/style/newtxtext.el deleted file mode 100644 index f80c872..0000000 --- a/elpa/auctex-13.1.3/style/newtxtext.el +++ /dev/null @@ -1,87 +0,0 @@ -;;; 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 differdeleted file mode 100644 index e2eec9c..0000000 --- a/elpa/auctex-13.1.3/style/newtxtext.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/newtxttt.el b/elpa/auctex-13.1.3/style/newtxttt.el deleted file mode 100644 index 1b63172..0000000 --- a/elpa/auctex-13.1.3/style/newtxttt.el +++ /dev/null @@ -1,69 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 5b3fd0d..0000000 --- a/elpa/auctex-13.1.3/style/newtxttt.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/newzealand.el b/elpa/auctex-13.1.3/style/newzealand.el deleted file mode 100644 index 9acead5..0000000 --- a/elpa/auctex-13.1.3/style/newzealand.el +++ /dev/null @@ -1,42 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 3c0552f..0000000 --- a/elpa/auctex-13.1.3/style/newzealand.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ngerman.el b/elpa/auctex-13.1.3/style/ngerman.el deleted file mode 100644 index 6081615..0000000 --- a/elpa/auctex-13.1.3/style/ngerman.el +++ /dev/null @@ -1,46 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 3612a76..0000000 --- a/elpa/auctex-13.1.3/style/ngerman.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/nicefrac.el b/elpa/auctex-13.1.3/style/nicefrac.el deleted file mode 100644 index ba2dadc..0000000 --- a/elpa/auctex-13.1.3/style/nicefrac.el +++ /dev/null @@ -1,54 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 2b2513a..0000000 --- a/elpa/auctex-13.1.3/style/nicefrac.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/nomencl.el b/elpa/auctex-13.1.3/style/nomencl.el deleted file mode 100644 index 5a57cda..0000000 --- a/elpa/auctex-13.1.3/style/nomencl.el +++ /dev/null @@ -1,78 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 4376b61..0000000 --- a/elpa/auctex-13.1.3/style/nomencl.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ntheorem.el b/elpa/auctex-13.1.3/style/ntheorem.el deleted file mode 100644 index cd8eff4..0000000 --- a/elpa/auctex-13.1.3/style/ntheorem.el +++ /dev/null @@ -1,443 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 47d93b3..0000000 --- a/elpa/auctex-13.1.3/style/ntheorem.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ocg-p.el b/elpa/auctex-13.1.3/style/ocg-p.el deleted file mode 100644 index d3ab40d..0000000 --- a/elpa/auctex-13.1.3/style/ocg-p.el +++ /dev/null @@ -1,203 +0,0 @@ -;;; 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 differdeleted file mode 100644 index e08c35e..0000000 --- a/elpa/auctex-13.1.3/style/ocg-p.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ocgx.el b/elpa/auctex-13.1.3/style/ocgx.el deleted file mode 100644 index 340da52..0000000 --- a/elpa/auctex-13.1.3/style/ocgx.el +++ /dev/null @@ -1,75 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 8034185..0000000 --- a/elpa/auctex-13.1.3/style/ocgx.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/overpic.el b/elpa/auctex-13.1.3/style/overpic.el deleted file mode 100644 index 52d51d0..0000000 --- a/elpa/auctex-13.1.3/style/overpic.el +++ /dev/null @@ -1,124 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 150f914..0000000 --- a/elpa/auctex-13.1.3/style/overpic.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/paracol.el b/elpa/auctex-13.1.3/style/paracol.el deleted file mode 100644 index 3ed74b7..0000000 --- a/elpa/auctex-13.1.3/style/paracol.el +++ /dev/null @@ -1,294 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 9df5f3f..0000000 --- a/elpa/auctex-13.1.3/style/paracol.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/paralist.el b/elpa/auctex-13.1.3/style/paralist.el deleted file mode 100644 index ee5cef8..0000000 --- a/elpa/auctex-13.1.3/style/paralist.el +++ /dev/null @@ -1,115 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a3977e2..0000000 --- a/elpa/auctex-13.1.3/style/paralist.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/pdflscape.el b/elpa/auctex-13.1.3/style/pdflscape.el deleted file mode 100644 index 8511663..0000000 --- a/elpa/auctex-13.1.3/style/pdflscape.el +++ /dev/null @@ -1,46 +0,0 @@ -;;; 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 differdeleted file mode 100644 index baf093d..0000000 --- a/elpa/auctex-13.1.3/style/pdflscape.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/pdfpages.el b/elpa/auctex-13.1.3/style/pdfpages.el deleted file mode 100644 index 2fd44a7..0000000 --- a/elpa/auctex-13.1.3/style/pdfpages.el +++ /dev/null @@ -1,144 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 0ae6dc0..0000000 --- a/elpa/auctex-13.1.3/style/pdfpages.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/pdfsync.el b/elpa/auctex-13.1.3/style/pdfsync.el deleted file mode 100644 index 122f0eb..0000000 --- a/elpa/auctex-13.1.3/style/pdfsync.el +++ /dev/null @@ -1,92 +0,0 @@ -;;; 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 differdeleted file mode 100644 index e6b87b6..0000000 --- a/elpa/auctex-13.1.3/style/pdfsync.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/placeins.el b/elpa/auctex-13.1.3/style/placeins.el deleted file mode 100644 index 1eee1b8..0000000 --- a/elpa/auctex-13.1.3/style/placeins.el +++ /dev/null @@ -1,45 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 873b884..0000000 --- a/elpa/auctex-13.1.3/style/placeins.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/plext.el b/elpa/auctex-13.1.3/style/plext.el deleted file mode 100644 index 26e564e..0000000 --- a/elpa/auctex-13.1.3/style/plext.el +++ /dev/null @@ -1,90 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 0315874..0000000 --- a/elpa/auctex-13.1.3/style/plext.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/plfonts.el b/elpa/auctex-13.1.3/style/plfonts.el deleted file mode 100644 index 51c0a81..0000000 --- a/elpa/auctex-13.1.3/style/plfonts.el +++ /dev/null @@ -1,34 +0,0 @@ -;;; 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 differdeleted file mode 100644 index efb66c8..0000000 --- a/elpa/auctex-13.1.3/style/plfonts.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/plhb.el b/elpa/auctex-13.1.3/style/plhb.el deleted file mode 100644 index 14d86ab..0000000 --- a/elpa/auctex-13.1.3/style/plhb.el +++ /dev/null @@ -1,34 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 44d3203..0000000 --- a/elpa/auctex-13.1.3/style/plhb.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/polish.el b/elpa/auctex-13.1.3/style/polish.el deleted file mode 100644 index ab7936c..0000000 --- a/elpa/auctex-13.1.3/style/polish.el +++ /dev/null @@ -1,56 +0,0 @@ -;;; 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 differdeleted file mode 100644 index db583c4..0000000 --- a/elpa/auctex-13.1.3/style/polish.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/polski.el b/elpa/auctex-13.1.3/style/polski.el deleted file mode 100644 index e7b10ae..0000000 --- a/elpa/auctex-13.1.3/style/polski.el +++ /dev/null @@ -1,63 +0,0 @@ -;;; 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 differdeleted file mode 100644 index afaa2c5..0000000 --- a/elpa/auctex-13.1.3/style/polski.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/polyglossia.el b/elpa/auctex-13.1.3/style/polyglossia.el deleted file mode 100644 index cdfb03e..0000000 --- a/elpa/auctex-13.1.3/style/polyglossia.el +++ /dev/null @@ -1,366 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 330014d..0000000 --- a/elpa/auctex-13.1.3/style/polyglossia.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/portuges.el b/elpa/auctex-13.1.3/style/portuges.el deleted file mode 100644 index 7c0cdb1..0000000 --- a/elpa/auctex-13.1.3/style/portuges.el +++ /dev/null @@ -1,37 +0,0 @@ -;;; 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 differdeleted file mode 100644 index ae31fa1..0000000 --- a/elpa/auctex-13.1.3/style/portuges.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/portuguese.el b/elpa/auctex-13.1.3/style/portuguese.el deleted file mode 100644 index 6c93b5c..0000000 --- a/elpa/auctex-13.1.3/style/portuguese.el +++ /dev/null @@ -1,78 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 72be1d6..0000000 --- a/elpa/auctex-13.1.3/style/portuguese.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/preview.el b/elpa/auctex-13.1.3/style/preview.el deleted file mode 100644 index 5431c09..0000000 --- a/elpa/auctex-13.1.3/style/preview.el +++ /dev/null @@ -1,112 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 30d1b9d..0000000 --- a/elpa/auctex-13.1.3/style/preview.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/prosper.el b/elpa/auctex-13.1.3/style/prosper.el deleted file mode 100644 index f1b7adc..0000000 --- a/elpa/auctex-13.1.3/style/prosper.el +++ /dev/null @@ -1,190 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 53ec9af..0000000 --- a/elpa/auctex-13.1.3/style/prosper.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/psfig.el b/elpa/auctex-13.1.3/style/psfig.el deleted file mode 100644 index 09b2ad2..0000000 --- a/elpa/auctex-13.1.3/style/psfig.el +++ /dev/null @@ -1,83 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 13e2053..0000000 --- a/elpa/auctex-13.1.3/style/psfig.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/pst-grad.el b/elpa/auctex-13.1.3/style/pst-grad.el deleted file mode 100644 index 0426a73..0000000 --- a/elpa/auctex-13.1.3/style/pst-grad.el +++ /dev/null @@ -1,73 +0,0 @@ -;;; 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 differdeleted file mode 100644 index e34b48d..0000000 --- a/elpa/auctex-13.1.3/style/pst-grad.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/pst-node.el b/elpa/auctex-13.1.3/style/pst-node.el deleted file mode 100644 index 86a87e4..0000000 --- a/elpa/auctex-13.1.3/style/pst-node.el +++ /dev/null @@ -1,207 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 322f805..0000000 --- a/elpa/auctex-13.1.3/style/pst-node.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/pst-plot.el b/elpa/auctex-13.1.3/style/pst-plot.el deleted file mode 100644 index cfad30b..0000000 --- a/elpa/auctex-13.1.3/style/pst-plot.el +++ /dev/null @@ -1,150 +0,0 @@ -;;; 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 differdeleted file mode 100644 index b8de071..0000000 --- a/elpa/auctex-13.1.3/style/pst-plot.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/pst-slpe.el b/elpa/auctex-13.1.3/style/pst-slpe.el deleted file mode 100644 index e9f78e6..0000000 --- a/elpa/auctex-13.1.3/style/pst-slpe.el +++ /dev/null @@ -1,74 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 13dd057..0000000 --- a/elpa/auctex-13.1.3/style/pst-slpe.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/pstricks.el b/elpa/auctex-13.1.3/style/pstricks.el deleted file mode 100644 index 6a6707f..0000000 --- a/elpa/auctex-13.1.3/style/pstricks.el +++ /dev/null @@ -1,880 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 2ba6337..0000000 --- a/elpa/auctex-13.1.3/style/pstricks.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/pythontex.el b/elpa/auctex-13.1.3/style/pythontex.el deleted file mode 100644 index 01c6ed9..0000000 --- a/elpa/auctex-13.1.3/style/pythontex.el +++ /dev/null @@ -1,569 +0,0 @@ -;;; 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 differdeleted file mode 100644 index fd13b1d..0000000 --- a/elpa/auctex-13.1.3/style/pythontex.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ragged2e.el b/elpa/auctex-13.1.3/style/ragged2e.el deleted file mode 100644 index f5cf7eb..0000000 --- a/elpa/auctex-13.1.3/style/ragged2e.el +++ /dev/null @@ -1,82 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 9f29f3f..0000000 --- a/elpa/auctex-13.1.3/style/ragged2e.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/relsize.el b/elpa/auctex-13.1.3/style/relsize.el deleted file mode 100644 index 985c514..0000000 --- a/elpa/auctex-13.1.3/style/relsize.el +++ /dev/null @@ -1,76 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 55d8d94..0000000 --- a/elpa/auctex-13.1.3/style/relsize.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/report.el b/elpa/auctex-13.1.3/style/report.el deleted file mode 100644 index 0248374..0000000 --- a/elpa/auctex-13.1.3/style/report.el +++ /dev/null @@ -1,25 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 64717f0..0000000 --- a/elpa/auctex-13.1.3/style/report.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/revtex4-2.el b/elpa/auctex-13.1.3/style/revtex4-2.el deleted file mode 100644 index 26a5eff..0000000 --- a/elpa/auctex-13.1.3/style/revtex4-2.el +++ /dev/null @@ -1,263 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 0212561..0000000 --- a/elpa/auctex-13.1.3/style/revtex4-2.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/rotating.el b/elpa/auctex-13.1.3/style/rotating.el deleted file mode 100644 index fddda47..0000000 --- a/elpa/auctex-13.1.3/style/rotating.el +++ /dev/null @@ -1,87 +0,0 @@ -;;; 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 differdeleted file mode 100644 index b636fb2..0000000 --- a/elpa/auctex-13.1.3/style/rotating.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ruby.el b/elpa/auctex-13.1.3/style/ruby.el deleted file mode 100644 index 9c18fa3..0000000 --- a/elpa/auctex-13.1.3/style/ruby.el +++ /dev/null @@ -1,52 +0,0 @@ -;;; 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 differdeleted file mode 100644 index caf660a..0000000 --- a/elpa/auctex-13.1.3/style/ruby.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/scholax.el b/elpa/auctex-13.1.3/style/scholax.el deleted file mode 100644 index 4a6e22a..0000000 --- a/elpa/auctex-13.1.3/style/scholax.el +++ /dev/null @@ -1,106 +0,0 @@ -;;; 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 differdeleted file mode 100644 index c427446..0000000 --- a/elpa/auctex-13.1.3/style/scholax.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/scrartcl.el b/elpa/auctex-13.1.3/style/scrartcl.el deleted file mode 100644 index 49509fb..0000000 --- a/elpa/auctex-13.1.3/style/scrartcl.el +++ /dev/null @@ -1,30 +0,0 @@ -;;; 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 differdeleted file mode 100644 index b88c241..0000000 --- a/elpa/auctex-13.1.3/style/scrartcl.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/scrbase.el b/elpa/auctex-13.1.3/style/scrbase.el deleted file mode 100644 index e5cc853..0000000 --- a/elpa/auctex-13.1.3/style/scrbase.el +++ /dev/null @@ -1,228 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 8833ac4..0000000 --- a/elpa/auctex-13.1.3/style/scrbase.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/scrbook.el b/elpa/auctex-13.1.3/style/scrbook.el deleted file mode 100644 index c3a7be5..0000000 --- a/elpa/auctex-13.1.3/style/scrbook.el +++ /dev/null @@ -1,71 +0,0 @@ -;;; 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 differdeleted file mode 100644 index ef068f5..0000000 --- a/elpa/auctex-13.1.3/style/scrbook.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/scrlttr2.el b/elpa/auctex-13.1.3/style/scrlttr2.el deleted file mode 100644 index 5a0f667..0000000 --- a/elpa/auctex-13.1.3/style/scrlttr2.el +++ /dev/null @@ -1,249 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 6ecda54..0000000 --- a/elpa/auctex-13.1.3/style/scrlttr2.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/scrpage2.el b/elpa/auctex-13.1.3/style/scrpage2.el deleted file mode 100644 index dca5590..0000000 --- a/elpa/auctex-13.1.3/style/scrpage2.el +++ /dev/null @@ -1,139 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 70f7ece..0000000 --- a/elpa/auctex-13.1.3/style/scrpage2.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/scrreprt.el b/elpa/auctex-13.1.3/style/scrreprt.el deleted file mode 100644 index a2f5273..0000000 --- a/elpa/auctex-13.1.3/style/scrreprt.el +++ /dev/null @@ -1,73 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 48bea2c..0000000 --- a/elpa/auctex-13.1.3/style/scrreprt.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/setspace.el b/elpa/auctex-13.1.3/style/setspace.el deleted file mode 100644 index be0867d..0000000 --- a/elpa/auctex-13.1.3/style/setspace.el +++ /dev/null @@ -1,70 +0,0 @@ -;;; 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 differdeleted file mode 100644 index bcd1f63..0000000 --- a/elpa/auctex-13.1.3/style/setspace.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/shortvrb.el b/elpa/auctex-13.1.3/style/shortvrb.el deleted file mode 100644 index 5f8df92..0000000 --- a/elpa/auctex-13.1.3/style/shortvrb.el +++ /dev/null @@ -1,73 +0,0 @@ -;;; 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 differdeleted file mode 100644 index e9599fa..0000000 --- a/elpa/auctex-13.1.3/style/shortvrb.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/sidecap.el b/elpa/auctex-13.1.3/style/sidecap.el deleted file mode 100644 index ff17517..0000000 --- a/elpa/auctex-13.1.3/style/sidecap.el +++ /dev/null @@ -1,131 +0,0 @@ -;;; 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 differdeleted file mode 100644 index d7e42bc..0000000 --- a/elpa/auctex-13.1.3/style/sidecap.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/siunitx.el b/elpa/auctex-13.1.3/style/siunitx.el deleted file mode 100644 index b1164a1..0000000 --- a/elpa/auctex-13.1.3/style/siunitx.el +++ /dev/null @@ -1,522 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 0d73570..0000000 --- a/elpa/auctex-13.1.3/style/siunitx.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/slides.el b/elpa/auctex-13.1.3/style/slides.el deleted file mode 100644 index 4abd53f..0000000 --- a/elpa/auctex-13.1.3/style/slides.el +++ /dev/null @@ -1,54 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 4f59be0..0000000 --- a/elpa/auctex-13.1.3/style/slides.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/slovak.el b/elpa/auctex-13.1.3/style/slovak.el deleted file mode 100644 index 4909613..0000000 --- a/elpa/auctex-13.1.3/style/slovak.el +++ /dev/null @@ -1,19 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a506c6f..0000000 --- a/elpa/auctex-13.1.3/style/slovak.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/sourcecodepro.el b/elpa/auctex-13.1.3/style/sourcecodepro.el deleted file mode 100644 index ab1dcbb..0000000 --- a/elpa/auctex-13.1.3/style/sourcecodepro.el +++ /dev/null @@ -1,88 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 94935af..0000000 --- a/elpa/auctex-13.1.3/style/sourcecodepro.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/splitidx.el b/elpa/auctex-13.1.3/style/splitidx.el deleted file mode 100644 index edf52c2..0000000 --- a/elpa/auctex-13.1.3/style/splitidx.el +++ /dev/null @@ -1,315 +0,0 @@ -;;; 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 differdeleted file mode 100644 index ea1de12..0000000 --- a/elpa/auctex-13.1.3/style/splitidx.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/stabular.el b/elpa/auctex-13.1.3/style/stabular.el deleted file mode 100644 index 4b4eb96..0000000 --- a/elpa/auctex-13.1.3/style/stabular.el +++ /dev/null @@ -1,74 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a9bc24d..0000000 --- a/elpa/auctex-13.1.3/style/stabular.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/stfloats.el b/elpa/auctex-13.1.3/style/stfloats.el deleted file mode 100644 index 9e80bbf..0000000 --- a/elpa/auctex-13.1.3/style/stfloats.el +++ /dev/null @@ -1,65 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 36af473..0000000 --- a/elpa/auctex-13.1.3/style/stfloats.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/subcaption.el b/elpa/auctex-13.1.3/style/subcaption.el deleted file mode 100644 index cd3312d..0000000 --- a/elpa/auctex-13.1.3/style/subcaption.el +++ /dev/null @@ -1,205 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 18e28d3..0000000 --- a/elpa/auctex-13.1.3/style/subcaption.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/subfigure.el b/elpa/auctex-13.1.3/style/subfigure.el deleted file mode 100644 index 181b17c..0000000 --- a/elpa/auctex-13.1.3/style/subfigure.el +++ /dev/null @@ -1,87 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 621661a..0000000 --- a/elpa/auctex-13.1.3/style/subfigure.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/subfiles.el b/elpa/auctex-13.1.3/style/subfiles.el deleted file mode 100644 index 49df08c..0000000 --- a/elpa/auctex-13.1.3/style/subfiles.el +++ /dev/null @@ -1,107 +0,0 @@ -;;; 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 differdeleted file mode 100644 index fada17f..0000000 --- a/elpa/auctex-13.1.3/style/subfiles.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/swedish.el b/elpa/auctex-13.1.3/style/swedish.el deleted file mode 100644 index 120e67a..0000000 --- a/elpa/auctex-13.1.3/style/swedish.el +++ /dev/null @@ -1,18 +0,0 @@ -;;; 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 differdeleted file mode 100644 index b901103..0000000 --- a/elpa/auctex-13.1.3/style/swedish.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/tabularx.el b/elpa/auctex-13.1.3/style/tabularx.el deleted file mode 100644 index 970f698..0000000 --- a/elpa/auctex-13.1.3/style/tabularx.el +++ /dev/null @@ -1,73 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 1a68144..0000000 --- a/elpa/auctex-13.1.3/style/tabularx.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/tabulary.el b/elpa/auctex-13.1.3/style/tabulary.el deleted file mode 100644 index 6b309e0..0000000 --- a/elpa/auctex-13.1.3/style/tabulary.el +++ /dev/null @@ -1,73 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 45ef5b5..0000000 --- a/elpa/auctex-13.1.3/style/tabulary.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/tarticle.el b/elpa/auctex-13.1.3/style/tarticle.el deleted file mode 100644 index c4381d3..0000000 --- a/elpa/auctex-13.1.3/style/tarticle.el +++ /dev/null @@ -1,45 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 362b4cd..0000000 --- a/elpa/auctex-13.1.3/style/tarticle.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/tbook.el b/elpa/auctex-13.1.3/style/tbook.el deleted file mode 100644 index 6b36056..0000000 --- a/elpa/auctex-13.1.3/style/tbook.el +++ /dev/null @@ -1,45 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 4419afe..0000000 --- a/elpa/auctex-13.1.3/style/tbook.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/tcolorbox.el b/elpa/auctex-13.1.3/style/tcolorbox.el deleted file mode 100644 index 5ba44bb..0000000 --- a/elpa/auctex-13.1.3/style/tcolorbox.el +++ /dev/null @@ -1,714 +0,0 @@ -;;; 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 differdeleted file mode 100644 index f6c7577..0000000 --- a/elpa/auctex-13.1.3/style/tcolorbox.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/tcolorboxlib-raster.el b/elpa/auctex-13.1.3/style/tcolorboxlib-raster.el deleted file mode 100644 index db61a03..0000000 --- a/elpa/auctex-13.1.3/style/tcolorboxlib-raster.el +++ /dev/null @@ -1,202 +0,0 @@ -;;; 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 differdeleted file mode 100644 index ac8f0ac..0000000 --- a/elpa/auctex-13.1.3/style/tcolorboxlib-raster.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/tex-live.el b/elpa/auctex-13.1.3/style/tex-live.el deleted file mode 100644 index b74890d..0000000 --- a/elpa/auctex-13.1.3/style/tex-live.el +++ /dev/null @@ -1,177 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 05ef3b2..0000000 --- a/elpa/auctex-13.1.3/style/tex-live.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/textcomp.el b/elpa/auctex-13.1.3/style/textcomp.el deleted file mode 100644 index c48316c..0000000 --- a/elpa/auctex-13.1.3/style/textcomp.el +++ /dev/null @@ -1,41 +0,0 @@ -;;; 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 differdeleted file mode 100644 index c5c66bc..0000000 --- a/elpa/auctex-13.1.3/style/textcomp.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/textpos.el b/elpa/auctex-13.1.3/style/textpos.el deleted file mode 100644 index 0f02efb..0000000 --- a/elpa/auctex-13.1.3/style/textpos.el +++ /dev/null @@ -1,126 +0,0 @@ -;;; 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 differdeleted file mode 100644 index aa132ff..0000000 --- a/elpa/auctex-13.1.3/style/textpos.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/theorem.el b/elpa/auctex-13.1.3/style/theorem.el deleted file mode 100644 index 219e864..0000000 --- a/elpa/auctex-13.1.3/style/theorem.el +++ /dev/null @@ -1,180 +0,0 @@ -;;; 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 differdeleted file mode 100644 index ec52032..0000000 --- a/elpa/auctex-13.1.3/style/theorem.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/thm-restate.el b/elpa/auctex-13.1.3/style/thm-restate.el deleted file mode 100644 index 15d33a9..0000000 --- a/elpa/auctex-13.1.3/style/thm-restate.el +++ /dev/null @@ -1,120 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 912bbc6..0000000 --- a/elpa/auctex-13.1.3/style/thm-restate.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/thmtools.el b/elpa/auctex-13.1.3/style/thmtools.el deleted file mode 100644 index d17b30e..0000000 --- a/elpa/auctex-13.1.3/style/thmtools.el +++ /dev/null @@ -1,313 +0,0 @@ -;;; 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 differdeleted file mode 100644 index bea94a9..0000000 --- a/elpa/auctex-13.1.3/style/thmtools.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/tikz.el b/elpa/auctex-13.1.3/style/tikz.el deleted file mode 100644 index f3a50bc..0000000 --- a/elpa/auctex-13.1.3/style/tikz.el +++ /dev/null @@ -1,286 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 859e725..0000000 --- a/elpa/auctex-13.1.3/style/tikz.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/titleps.el b/elpa/auctex-13.1.3/style/titleps.el deleted file mode 100644 index 8de8b1d..0000000 --- a/elpa/auctex-13.1.3/style/titleps.el +++ /dev/null @@ -1,245 +0,0 @@ -;;; 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 differdeleted file mode 100644 index f3649d4..0000000 --- a/elpa/auctex-13.1.3/style/titleps.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/titlesec.el b/elpa/auctex-13.1.3/style/titlesec.el deleted file mode 100644 index c3af038..0000000 --- a/elpa/auctex-13.1.3/style/titlesec.el +++ /dev/null @@ -1,269 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 66c91cf..0000000 --- a/elpa/auctex-13.1.3/style/titlesec.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/titletoc.el b/elpa/auctex-13.1.3/style/titletoc.el deleted file mode 100644 index c0ac512..0000000 --- a/elpa/auctex-13.1.3/style/titletoc.el +++ /dev/null @@ -1,198 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 3e38ce9..0000000 --- a/elpa/auctex-13.1.3/style/titletoc.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/transparent.el b/elpa/auctex-13.1.3/style/transparent.el deleted file mode 100644 index 4cdd5ca..0000000 --- a/elpa/auctex-13.1.3/style/transparent.el +++ /dev/null @@ -1,60 +0,0 @@ -;;; 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 differdeleted file mode 100644 index bcd4ffe..0000000 --- a/elpa/auctex-13.1.3/style/transparent.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/treport.el b/elpa/auctex-13.1.3/style/treport.el deleted file mode 100644 index f6aaf13..0000000 --- a/elpa/auctex-13.1.3/style/treport.el +++ /dev/null @@ -1,45 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 7d44512..0000000 --- a/elpa/auctex-13.1.3/style/treport.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/truncate.el b/elpa/auctex-13.1.3/style/truncate.el deleted file mode 100644 index 264d935..0000000 --- a/elpa/auctex-13.1.3/style/truncate.el +++ /dev/null @@ -1,59 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a8c899c..0000000 --- a/elpa/auctex-13.1.3/style/truncate.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/ulem.el b/elpa/auctex-13.1.3/style/ulem.el deleted file mode 100644 index f84fcc6..0000000 --- a/elpa/auctex-13.1.3/style/ulem.el +++ /dev/null @@ -1,127 +0,0 @@ -;;; 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 differdeleted file mode 100644 index fb885af..0000000 --- a/elpa/auctex-13.1.3/style/ulem.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/unicode-math.el b/elpa/auctex-13.1.3/style/unicode-math.el deleted file mode 100644 index 11217a3..0000000 --- a/elpa/auctex-13.1.3/style/unicode-math.el +++ /dev/null @@ -1,82 +0,0 @@ -;;; 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 differdeleted file mode 100644 index c38427f..0000000 --- a/elpa/auctex-13.1.3/style/unicode-math.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/unicodefonttable.el b/elpa/auctex-13.1.3/style/unicodefonttable.el deleted file mode 100644 index 3253df1..0000000 --- a/elpa/auctex-13.1.3/style/unicodefonttable.el +++ /dev/null @@ -1,134 +0,0 @@ -;;; 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 differdeleted file mode 100644 index a07eba8..0000000 --- a/elpa/auctex-13.1.3/style/unicodefonttable.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/units.el b/elpa/auctex-13.1.3/style/units.el deleted file mode 100644 index c7b4a7d..0000000 --- a/elpa/auctex-13.1.3/style/units.el +++ /dev/null @@ -1,57 +0,0 @@ -;;; 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 differdeleted file mode 100644 index eecd62b..0000000 --- a/elpa/auctex-13.1.3/style/units.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/url.el b/elpa/auctex-13.1.3/style/url.el deleted file mode 100644 index af524bf..0000000 --- a/elpa/auctex-13.1.3/style/url.el +++ /dev/null @@ -1,225 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 7310883..0000000 --- a/elpa/auctex-13.1.3/style/url.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/varioref.el b/elpa/auctex-13.1.3/style/varioref.el deleted file mode 100644 index 32134c1..0000000 --- a/elpa/auctex-13.1.3/style/varioref.el +++ /dev/null @@ -1,112 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 760f13a..0000000 --- a/elpa/auctex-13.1.3/style/varioref.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/verbatim.el b/elpa/auctex-13.1.3/style/verbatim.el deleted file mode 100644 index 9062254..0000000 --- a/elpa/auctex-13.1.3/style/verbatim.el +++ /dev/null @@ -1,65 +0,0 @@ -;;; 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 differdeleted file mode 100644 index aabeb36..0000000 --- a/elpa/auctex-13.1.3/style/verbatim.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/virtex.el b/elpa/auctex-13.1.3/style/virtex.el deleted file mode 100644 index 725cafe..0000000 --- a/elpa/auctex-13.1.3/style/virtex.el +++ /dev/null @@ -1,86 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 63e2062..0000000 --- a/elpa/auctex-13.1.3/style/virtex.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/vwcol.el b/elpa/auctex-13.1.3/style/vwcol.el deleted file mode 100644 index 03e813f..0000000 --- a/elpa/auctex-13.1.3/style/vwcol.el +++ /dev/null @@ -1,79 +0,0 @@ -;;; 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 differdeleted file mode 100644 index fd0e60f..0000000 --- a/elpa/auctex-13.1.3/style/vwcol.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/wrapfig.el b/elpa/auctex-13.1.3/style/wrapfig.el deleted file mode 100644 index 35d8a05..0000000 --- a/elpa/auctex-13.1.3/style/wrapfig.el +++ /dev/null @@ -1,121 +0,0 @@ -;;; 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 differdeleted file mode 100644 index c9a1c14..0000000 --- a/elpa/auctex-13.1.3/style/wrapfig.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/xcolor.el b/elpa/auctex-13.1.3/style/xcolor.el deleted file mode 100644 index 06bd28f..0000000 --- a/elpa/auctex-13.1.3/style/xcolor.el +++ /dev/null @@ -1,654 +0,0 @@ -;; 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 differdeleted file mode 100644 index fc96ccd..0000000 --- a/elpa/auctex-13.1.3/style/xcolor.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/xkcdcolors.el b/elpa/auctex-13.1.3/style/xkcdcolors.el deleted file mode 100644 index d00ad30..0000000 --- a/elpa/auctex-13.1.3/style/xkcdcolors.el +++ /dev/null @@ -1,1007 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 3d575d2..0000000 --- a/elpa/auctex-13.1.3/style/xkcdcolors.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/xltabular.el b/elpa/auctex-13.1.3/style/xltabular.el deleted file mode 100644 index 3fb3e0d..0000000 --- a/elpa/auctex-13.1.3/style/xltabular.el +++ /dev/null @@ -1,147 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 8e3c59e..0000000 --- a/elpa/auctex-13.1.3/style/xltabular.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/xparse.el b/elpa/auctex-13.1.3/style/xparse.el deleted file mode 100644 index fd9bb32..0000000 --- a/elpa/auctex-13.1.3/style/xparse.el +++ /dev/null @@ -1,353 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 725bea9..0000000 --- a/elpa/auctex-13.1.3/style/xparse.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/xr-hyper.el b/elpa/auctex-13.1.3/style/xr-hyper.el deleted file mode 100644 index 472d028..0000000 --- a/elpa/auctex-13.1.3/style/xr-hyper.el +++ /dev/null @@ -1,73 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 144e7ad..0000000 --- a/elpa/auctex-13.1.3/style/xr-hyper.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/xr.el b/elpa/auctex-13.1.3/style/xr.el deleted file mode 100644 index c388ead..0000000 --- a/elpa/auctex-13.1.3/style/xr.el +++ /dev/null @@ -1,68 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 1ff3923..0000000 --- a/elpa/auctex-13.1.3/style/xr.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/xspace.el b/elpa/auctex-13.1.3/style/xspace.el deleted file mode 100644 index 5f04c5b..0000000 --- a/elpa/auctex-13.1.3/style/xspace.el +++ /dev/null @@ -1,60 +0,0 @@ -;;; 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 differdeleted file mode 100644 index f39d27f..0000000 --- a/elpa/auctex-13.1.3/style/xspace.elc +++ /dev/null diff --git a/elpa/auctex-13.1.3/style/zlmtt.el b/elpa/auctex-13.1.3/style/zlmtt.el deleted file mode 100644 index 40712fc..0000000 --- a/elpa/auctex-13.1.3/style/zlmtt.el +++ /dev/null @@ -1,65 +0,0 @@ -;;; 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 differdeleted file mode 100644 index 27c9044..0000000 --- a/elpa/auctex-13.1.3/style/zlmtt.elc +++ /dev/null |