CVSROOT: /sources/auctex Module name: auctex Changes by: Tassilo Horn <tsdh> 13/01/11 13:54:49
Index: style/longtable.el =================================================================== RCS file: style/longtable.el diff -N style/longtable.el --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ style/longtable.el 11 Jan 2013 13:54:49 -0000 1.1 @@ -0,0 +1,88 @@ +;;; longtable.el --- AUCTeX style for `longtable.sty'. + +;; Copyright (C) 2013 Free Software Foundation, Inc. + +;; Maintainer: [email protected] +;; Author: Mosè Giordano <[email protected]> +;; Keywords: tex + +;; This file is part of AUCTeX. + +;; AUCTeX is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. + +;; AUCTeX is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with AUCTeX; see the file COPYING. If 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: + +(add-to-list 'LaTeX-label-alist + '("longtable" . LaTeX-table-label)) + +(TeX-add-style-hook + "longtable" + (lambda () + (LaTeX-add-environments + '("longtable" (lambda (environment) + (let ((pos (completing-read (TeX-argument-prompt t nil "Position") + '(("l") ("r") ("c")))) + (fmt (read-string "Format: " LaTeX-default-format)) + (caption (read-string "Caption: "))) + (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))) + ;; top caption -- do nothing if user skips caption + (unless (zerop (length caption)) + ;; the longtable `\caption' is equivalent to a + ;; `\multicolumn', so it needs a `\\' at the + ;; end of the line + (insert TeX-esc "caption" TeX-grop caption TeX-grcl " \\\\") + (LaTeX-newline) + (indent-according-to-mode) + ;; ask for a label and insert a new line only + ;; if a label is actually inserted + (when (LaTeX-label environment) + (LaTeX-newline) + (indent-according-to-mode))))))) + (TeX-add-symbols + ;; Parameters + '("LTleft" 0) + '("LTright" 0) + '("LTpre" 0) + '("LTpost" 0) + '("LTcapwidth" 0) + '("LTchunksize" 0) + ;; Commands to end table rows + '("endhead" 0) + '("endfirsthead" 0) + '("endfoot" 0) + '("endlastfoot" 0) + ;; Caption commands + '("caption*" 1)) + + ;; 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)))) + +;; longtable.el ends here
_______________________________________________ auctex-diffs mailing list [email protected] https://lists.gnu.org/mailman/listinfo/auctex-diffs
