Hi all,

this patch adds support for `colortbl.sty'.  Any comments welcome.

Best, Arash

>From 5a5868f2440051ad9d22d00b756b9e1b1d89c3a6 Mon Sep 17 00:00:00 2001
From: Arash Esbati <esb...@gmx.de>
Date: Sat, 28 Mar 2015 17:10:54 +0100
Subject: [PATCH 3/3] New style colortbl.el.

* Makefile.in (STYLESRC): Add new style.

* style/colortbl.el: New file.
---
 ChangeLog         |  4 +++
 Makefile.in       |  2 +-
 style/colortbl.el | 74 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 79 insertions(+), 1 deletion(-)
 create mode 100644 style/colortbl.el

diff --git a/ChangeLog b/ChangeLog
index 3ba89e6..c629bc9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2015-03-28  Arash Esbati  <esb...@gmx.de>
 
+	* Makefile.in (STYLESRC): Add new style.
+
+	* style/colortbl.el: New file.
+
 	* style/ltxtable.el ("ltxtable"): Ask for a `Width' and not for a
 	`Length' in minibuffer.
 
diff --git a/Makefile.in b/Makefile.in
index 08c50a0..75ed8c2 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -147,7 +147,7 @@ STYLESRC = style/prosper.el \
 	   style/tcolorbox.el style/color.el	 style/expl3.el \
 	   style/bidibeamer.el style/enumitem.el style/caption.el \
 	   style/geometry.el  style/ltablex.el   style/ltxtable.el \
-	   style/mn2e.el
+	   style/mn2e.el      style/colortbl.el
 
 STYLEELC = $(STYLESRC:.el=.elc)
 
diff --git a/style/colortbl.el b/style/colortbl.el
new file mode 100644
index 0000000..7332ced
--- /dev/null
+++ b/style/colortbl.el
@@ -0,0 +1,74 @@
+;;; colortbl.el --- AUCTeX style for `colortbl.sty' (v1.0a)
+
+;; Copyright (C) 2015 Free Software Foundation, Inc.
+
+;; Author: Arash Esbati <esbati'at'gmx.de>
+;; 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:
+
+(TeX-add-style-hook
+ "colortbl"
+ (lambda ()
+
+   (TeX-run-style-hooks "color" "array")
+
+   (TeX-add-symbols
+    ;; `TeX-arg-color' is provided by `color.el'.
+    '("columncolor" TeX-arg-color
+      [ TeX-arg-length "Left overhang" ] [ TeX-arg-length "Right overhang" ] )
+
+    '("rowcolor"    TeX-arg-color
+      [ TeX-arg-length "Left overhang" ] [ TeX-arg-length "Right overhang" ] )
+
+    '("cellcolor"   TeX-arg-color
+      [ TeX-arg-length "Left overhang" ] [ TeX-arg-length "Right overhang" ] )
+
+    '("arrayrulecolor" TeX-arg-color)
+
+    '("doublerulesepcolor" 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)))
+ LaTeX-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
-- 
2.3.4

_______________________________________________
auctex-devel mailing list
auctex-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/auctex-devel

Reply via email to