[AUCTeX-diffs] [elpa] externals/auctex 22e4415 68/71: Add styles for packages from sttools collection

[Tassilo Horn]

branch: externals/auctex
commit 22e4415f65ac1b005ce70f637366efb4defa399c
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    Add styles for packages from sttools collection
    
    * Makefile.in (STYLESRC): Add new styles.
    
    * style/cuted.el:
    * style/floatpag.el:
    * style/flushend.el:
    * style/midfloat.el:
    * style/stabular.el:
    * style/stfloats.el: New files.
---
 Makefile.in       |  4 ++-
 style/cuted.el    | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 style/floatpag.el | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 style/flushend.el | 77 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 style/midfloat.el | 51 ++++++++++++++++++++++++++++++++++++
 style/stabular.el | 63 +++++++++++++++++++++++++++++++++++++++++++++
 style/stfloats.el | 65 ++++++++++++++++++++++++++++++++++++++++++++++
 7 files changed, 407 insertions(+), 1 deletion(-)

diff --git a/Makefile.in b/Makefile.in
index d47746a..26aebcf 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -175,7 +175,9 @@ STYLESRC = style/prosper.el \
           style/truncate.el  style/changes.el   style/footnotehyper.el \
           style/brazil.el    style/brazilian.el style/portuguese.el \
           style/portuges.el  style/backref.el   style/xr-hyper.el \
-          style/xr.el        style/cancel.el    style/unicodefonttable.el
+          style/xr.el        style/cancel.el    style/unicodefonttable.el \
+          style/cuted.el     style/floatpag.el  style/flushend.el \
+          style/midfloat.el  style/stabular.el  style/stfloats.el
 
 STYLEELC = $(STYLESRC:.el=.elc)
 
diff --git a/style/cuted.el b/style/cuted.el
new file mode 100644
index 0000000..cb769fc
--- /dev/null
+++ b/style/cuted.el
@@ -0,0 +1,73 @@
+;;; cuted.el --- AUCTeX style for `cuted.sty' (v2.0)  -*- lexical-binding: t; 
-*-
+
+;; Copyright (C) 2021 Free Software Foundation, Inc.
+
+;; Author: Arash Esbati <arash@gnu.org>
+;; Maintainer: auctex-devel@gnu.org
+;; Created: 2021-12-11
+;; Keywords: tex
+
+;; This file is part of AUCTeX.
+
+;; AUCTeX is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; AUCTeX is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with AUCTeX; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file adds support for `cuted.sty' (v2.0) from 2021/10/04.
+;; `cuted.sty' is part of TeXLive.
+
+;;; Code:
+
+(require 'tex)
+
+;; Silence the compiler:
+(declare-function font-latex-add-keywords
+                  "font-latex"
+                  (keywords class))
+
+(TeX-add-style-hook
+ "cuted"
+ (lambda ()
+
+   ;; Add the only environment provided by the package:
+   (LaTeX-add-environments "strip")
+
+   ;; This is a glue, in LaTeX set with \setlength:
+   (LaTeX-add-lengths "stripsep")
+
+   ;; New symbols
+   (TeX-add-symbols
+    '("preCutedStrip"  t)
+    '("postCutedStrip" t)
+    '("oldcolsbreak"   t))
+
+   ;; Fontification
+   (when (and (featurep 'font-latex)
+              (eq TeX-install-font-lock 'font-latex-setup))
+     (font-latex-add-keywords '(("preCutedStrip"  "{")
+                                ("postCutedStrip" "{")
+                                ("oldcolsbreak"   "{"))
+                              'function)))
+ TeX-dialect)
+
+(defvar LaTeX-cuted-package-options
+  '("spread"  "nospread"  "shrink"  "noshrink"
+    "lspread" "nolspread" "lshrink" "nolshrink"
+    "rspread" "norspread" "rshrink" "norshrink"
+    "debug"   "nodebug")
+  "Package options for the cuted package.")
+
+;;; cuted.el ends here
diff --git a/style/floatpag.el b/style/floatpag.el
new file mode 100644
index 0000000..0174174
--- /dev/null
+++ b/style/floatpag.el
@@ -0,0 +1,75 @@
+;;; floatpag.el --- AUCTeX style for `floatpag.sty' (v2.0)  -*- 
lexical-binding: t; -*-
+
+;; Copyright (C) 2021 Free Software Foundation, Inc.
+
+;; Author: Arash Esbati <arash@gnu.org>
+;; Maintainer: auctex-devel@gnu.org
+;; Created: 2021-12-11
+;; Keywords: tex
+
+;; This file is part of AUCTeX.
+
+;; AUCTeX is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; AUCTeX is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with AUCTeX; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file adds support for `floatpag.sty' (v2.0) from 2021/10/04.
+;; `floatpag.sty' is part of TeXLive.
+
+;;; Code:
+
+(require 'tex)
+(require 'latex)
+
+;; Silence the compiler:
+(declare-function font-latex-add-keywords
+                  "font-latex"
+                  (keywords class))
+
+(TeX-add-style-hook
+ "floatpag"
+ (lambda ()
+
+   ;; Macros always available:
+   (TeX-add-symbols
+    '("floatpagestyle" (TeX-arg-pagestyle "Float pagestyle"))
+    '("thisfloatpagestyle" (TeX-arg-pagestyle "Float pagestyle")))
+
+   ;; The next one makes only sense if 'rotating' package is loaded:
+   (when (member "rotating" (TeX-style-list))
+     (TeX-add-symbols
+      '("rotfloatpagestyle" (TeX-arg-pagestyle "Float pagestyle"))))
+
+   ;; Load 'array.el' when the package option is provided:
+   (when (LaTeX-provided-package-options-member "floatpag" "array")
+     (TeX-run-style-hooks "array"))
+
+   ;; Fontification
+   (when (and (featurep 'font-latex)
+              (eq TeX-install-font-lock 'font-latex-setup))
+     (font-latex-add-keywords '(("floatpagestyle"     "{")
+                                ("thisfloatpagestyle" "{"))
+                              'function)
+     (when (member "rotating" (TeX-style-list))
+       (font-latex-add-keywords '(("rotfloatpagestyle" "{"))
+                                'function))))
+
+ TeX-dialect)
+
+(defvar LaTeX-floatpag-package-options '("array")
+  "Package options for the floatpag package.")
+
+;;; floatpag.el ends here
diff --git a/style/flushend.el b/style/flushend.el
new file mode 100644
index 0000000..db00ffc
--- /dev/null
+++ b/style/flushend.el
@@ -0,0 +1,77 @@
+;;; flushend.el --- AUCTeX style for `flushend.sty' (v2.0)  -*- 
lexical-binding: t; -*-
+
+;; Copyright (C) 2021 Free Software Foundation, Inc.
+
+;; Author: Arash Esbati <arash@gnu.org>
+;; Maintainer: auctex-devel@gnu.org
+;; Created: 2021-12-11
+;; Keywords: tex
+
+;; This file is part of AUCTeX.
+
+;; AUCTeX is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; AUCTeX is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with AUCTeX; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file adds support for `flushend.sty' (v2.0) from 2021/10/04.
+;; `flushend.sty' is part of TeXLive.
+
+;;; Code:
+
+(require 'tex)
+
+;; Silence the compiler:
+(declare-function font-latex-add-keywords
+                  "font-latex"
+                  (keywords class))
+
+(TeX-add-style-hook
+ "flushend"
+ (lambda ()
+
+   ;; New symbols
+   (TeX-add-symbols
+    "flushend"
+    "raggedend"
+    "flushcolsend"
+    "raggedcolsend"
+    '("atColsBreak" t)
+    '("atColsEnd" t)
+    "showcolsendrule")
+
+   ;; Fontification
+   (when (and (featurep 'font-latex)
+              (eq TeX-install-font-lock 'font-latex-setup))
+     (font-latex-add-keywords '(("flushend"        "")
+                                ("raggedend"       "")
+                                ("flushcolsend"    "")
+                                ("raggedcolsend"   "")
+                                ("atColsBreak"     "{")
+                                ("atColsEnd"       "{")
+                                ("showcolsendrule" ""))
+                              'function)))
+ TeX-dialect)
+
+(defvar LaTeX-flushend-package-options
+  '("spread"  "nospread"  "shrink"  "noshrink"
+    "lspread" "nolspread" "lshrink" "nolshrink"
+    "rspread" "norspread" "rshrink" "norshrink"
+    "checkfootnote" "nocheckfootnote"
+    "checkfloat" "nocheckfloat"
+    "debug" "nodebug")
+  "Package options for the flushend package.")
+
+;;; flushend.el ends here
diff --git a/style/midfloat.el b/style/midfloat.el
new file mode 100644
index 0000000..66d794c
--- /dev/null
+++ b/style/midfloat.el
@@ -0,0 +1,51 @@
+;;; midfloat.el --- AUCTeX style for `midfloat.sty' (v1.1)  -*- 
lexical-binding: t; -*-
+
+;; Copyright (C) 2021 Free Software Foundation, Inc.
+
+;; Author: Arash Esbati <arash@gnu.org>
+;; Maintainer: auctex-devel@gnu.org
+;; Created: 2021-12-11
+;; Keywords: tex
+
+;; This file is part of AUCTeX.
+
+;; AUCTeX is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; AUCTeX is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with AUCTeX; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file adds support for `midfloat.sty' (v1.1) from 2012/05/29.
+;; `midfloat.sty' is part of TeXLive.
+
+;;; Code:
+
+(require 'tex)
+
+(TeX-add-style-hook
+ "midfloat"
+ (lambda ()
+
+   ;; Add the only environment provided by the package:
+   (LaTeX-add-environments
+    '("strip" ["Top/Bottom skip"]))
+
+   ;; This is a glue, in LaTeX set with \setlength:
+   (LaTeX-add-lengths "stripsep"))
+ TeX-dialect)
+
+(defvar LaTeX-midfloat-package-options nil
+  "Package options for the midfloat package.")
+
+;;; midfloat.el ends here
diff --git a/style/stabular.el b/style/stabular.el
new file mode 100644
index 0000000..5f3ca02
--- /dev/null
+++ b/style/stabular.el
@@ -0,0 +1,63 @@
+;;; 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*))
+
+   ;; 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/style/stfloats.el b/style/stfloats.el
new file mode 100644
index 0000000..9e80bbf
--- /dev/null
+++ b/style/stfloats.el
@@ -0,0 +1,65 @@
+;;; stfloats.el --- AUCTeX style for `stfloats.sty' (v3.3d)  -*- 
lexical-binding: t; -*-
+
+;; Copyright (C) 2021 Free Software Foundation, Inc.
+
+;; Author: Arash Esbati <arash@gnu.org>
+;; Maintainer: auctex-devel@gnu.org
+;; Created: 2021-12-11
+;; Keywords: tex
+
+;; This file is part of AUCTeX.
+
+;; AUCTeX is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; AUCTeX is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with AUCTeX; see the file COPYING.  If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file adds support for `stfloats.sty' (v3.3d) from 2017/03/27.
+;; `stfloats.sty' is part of TeXLive.
+
+;;; Code:
+
+(require 'tex)
+
+;; Silence the compiler:
+(declare-function font-latex-add-keywords
+                  "font-latex"
+                  (keywords class))
+
+(TeX-add-style-hook
+ "stfloats"
+ (lambda ()
+
+   ;; New symbols
+   (TeX-add-symbols
+    "fnbelowfloat"
+    "fnunderfloat"
+    "setbaselinefloat"
+    "setbaselinefixed")
+
+   ;; Fontification
+   (when (and (featurep 'font-latex)
+              (eq TeX-install-font-lock 'font-latex-setup))
+     (font-latex-add-keywords '(("fnbelowfloat"     "")
+                                ("fnunderfloat"     "")
+                                ("setbaselinefloat" "")
+                                ("setbaselinefixed" ""))
+                              'function)))
+ TeX-dialect)
+
+(defvar LaTeX-stfloats-package-options nil
+  "Package options for the stfloats package.")
+
+;;; stfloats.el ends here