master be9ffba8 1/2: Add new style/supertabular.el

[Arash Esbati]

branch: master
commit be9ffba8b310db2a791af41a0a5c3c3f39935e88
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    Add new style/supertabular.el
    
    * Makefile.in (STYLESRC): Add new style.
    
    * NEWS.org (Added): Announce the new style.
    
    * latex.el (LaTeX-indent-environment-list): Add environments
    provided by the supertabular.sty.
    
    * style/supertabular.el: New file.
---
 Makefile.in           |   3 +-
 NEWS.org              |   4 +-
 latex.el              |   5 +++
 style/supertabular.el | 101 ++++++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 110 insertions(+), 3 deletions(-)

diff --git a/Makefile.in b/Makefile.in
index 671be421..2cb9397a 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -200,7 +200,8 @@ STYLESRC = style/prosper.el \
           style/wasysym.el   style/refcount.el  style/simpleicons.el \
           style/changebar.el style/amsrefs.el   style/standalone.el \
           style/diagbox.el   style/contract.el  style/enotez.el \
-          style/authblk.el   style/tabularray.el style/ninecolors.el
+          style/authblk.el   style/tabularray.el style/ninecolors.el \
+          style/supertabular.el
 
 STYLEELC = $(STYLESRC:.el=.elc)
 
diff --git a/NEWS.org b/NEWS.org
index 673c7c93..a8335a22 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -10,8 +10,8 @@
 
 ** Added
 
-- Add new support files =style/authblk.el=, =style/ninecolors.el= and
-  =style/tabularray.el=.
+- Add new support files =style/authblk.el=, =style/ninecolors.el=,
+  =style/supertabular.el= and =style/tabularray.el=.
 
 * [14.0.6] - 2024-06-30
 
diff --git a/latex.el b/latex.el
index 7f709a82..e65dbdf9 100644
--- a/latex.el
+++ b/latex.el
@@ -4168,6 +4168,11 @@ consideration just as is in the non-commented source 
code."
     ("drcases"       LaTeX-indent-tabular)
     ("drcases*"      LaTeX-indent-tabular)
     ("cases*"        LaTeX-indent-tabular)
+    ;; envs of supertabular.sty
+    ("supertabular"    LaTeX-indent-tabular)
+    ("supertabular*"   LaTeX-indent-tabular)
+    ("mpsupertabular"  LaTeX-indent-tabular)
+    ("mpsupertabular*" LaTeX-indent-tabular)
     ;; envs of tabularray.sty
     ("+array"   LaTeX-indent-tabular)
     ("+matrix"  LaTeX-indent-tabular)
diff --git a/style/supertabular.el b/style/supertabular.el
new file mode 100644
index 00000000..12a8a057
--- /dev/null
+++ b/style/supertabular.el
@@ -0,0 +1,101 @@
+;;; supertabular.el --- AUCTeX style for `supertabular.sty' (v4.2c)  -*- 
lexical-binding: t; -*-
+
+;; Copyright (C) 2024 Free Software Foundation, Inc.
+
+;; Author: Arash Esbati <arash@gnu.org>
+;; Maintainer: auctex-devel@gnu.org
+;; Created: 2024-07-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 `supertabular.sty' (v4.2c) from 2024/07/20.
+;; `supertabular.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-supertabular-insert-caption (optional &optional prompt)
+  "Insert the arguments of caption macros provided by supertabular package."
+  (let* ((caption (TeX-read-string
+                   (TeX-argument-prompt optional prompt "Caption")))
+         (short-caption
+          (if (>= (length caption) LaTeX-short-caption-prompt-length)
+              (TeX-read-string
+               (TeX-argument-prompt t nil "Short caption"))
+            "")))
+    (TeX-argument-insert short-caption t)
+    (TeX-argument-insert caption optional)
+    (when auto-fill-function (LaTeX-fill-paragraph))))
+
+(TeX-add-style-hook
+ "supertabular"
+ (lambda ()
+   (TeX-add-symbols
+    '("tablefirsthead" t)
+    '("tablehead" t)
+
+    '("tabletail" t)
+    '("tablelasttail" t)
+
+    '("topcaption" LaTeX-supertabular-insert-caption)
+    '("bottomcaption" LaTeX-supertabular-insert-caption)
+    '("tablecaption" LaTeX-supertabular-insert-caption)
+
+    '("shrinkheight" (TeX-arg-length "Max. height")))
+
+   ;; Add the environments provided by the package:
+   (LaTeX-add-environments
+    '("supertabular"    LaTeX-env-array)
+    '("supertabular*"   LaTeX-env-tabular*)
+    '("mpsupertabular"  LaTeX-env-array)
+    '("mpsupertabular*" LaTeX-env-tabular*))
+
+   ;; Append the environments to `LaTeX-item-list':
+   (add-to-list 'LaTeX-item-list '("supertabular" . LaTeX-item-array) t)
+   (add-to-list 'LaTeX-item-list '("supertabular*" . LaTeX-item-tabular*) t)
+   (add-to-list 'LaTeX-item-list '("mpsupertabular" . LaTeX-item-array) t)
+   (add-to-list 'LaTeX-item-list '("mpsupertabular*" . LaTeX-item-tabular*) t)
+
+   ;; Fontification
+   (when (and (featurep 'font-latex)
+              (eq TeX-install-font-lock 'font-latex-setup))
+     (font-latex-add-keywords '(("shrinkheight"   "{"))
+                              'function)
+     (font-latex-add-keywords '(("tablefirsthead" "{")
+                                ("tablehead"      "{")
+                                ("tabletail"      "{")
+                                ("tablelasttail"  "{")
+                                ("topcaption"     "[{")
+                                ("bottomcaption"  "[{")
+                                ("tablecaption"   "[{"))
+                              'textual)))
+ TeX-dialect)
+
+(defvar LaTeX-supertabular-package-options
+  '("errorshow" "pageshow" "debugshow" "estimate" "calculate")
+  "Package options for the supertabular package.")
+
+;;; supertabular.el ends here