[elpa] 24/299: * Makefile.in (STYLESRC): Add new style files kantlipsum.el, lipsum.el, and longtable.el. * style/kantlipsum.el: New style. * style/lipsum.el: Ditto. * style/longtable.el: Ditto

[Stefan Monnier]

monnier pushed a commit to branch externals/auctex
in repository elpa.

commit 2d2c3ae522f03ad38654d56937f3de692a54c37b
Author: Tassilo Horn <address@hidden>
Date:   Fri Jan 11 13:54:49 2013 +0000

    * Makefile.in (STYLESRC): Add new style files kantlipsum.el,
    lipsum.el, and longtable.el.
    * style/kantlipsum.el: New style.
    * style/lipsum.el: Ditto.
    * style/longtable.el: Ditto
---
 ChangeLog           |   13 +++++++
 Makefile.in         |    3 +-
 style/kantlipsum.el |   45 ++++++++++++++++++++++++++
 style/lipsum.el     |   45 ++++++++++++++++++++++++++
 style/longtable.el  |   88 +++++++++++++++++++++++++++++++++++++++++++++++++++
 5 files changed, 193 insertions(+), 1 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5ce8d4b..6da5067 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+2013-01-11  Tassilo Horn  <address@hidden>
+
+       * Makefile.in (STYLESRC): Add new style files kantlipsum.el,
+       lipsum.el, and longtable.el.
+
+2013-01-10  Mos� Giordano  <address@hidden>
+
+       * style/kantlipsum.el: New style.
+
+       * style/lipsum.el: Ditto.
+
+       * style/longtable.el: Ditto
+
 2013-01-10  Mads Jensen  <address@hidden>
 
        * latex.el (LaTeX-env-document): Only insert \documentclass in
diff --git a/Makefile.in b/Makefile.in
index 087af14..874058a 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -126,7 +126,8 @@ STYLESRC = style/prosper.el \
           style/bigdelim.el  style/bigstrut.el  style/everysel.el \
           style/mathtools.el style/ragged2e.el  style/amssymb.el \
           style/lscape.el    style/epigraph.el  style/mflogo.el \
-          style/multirow.el  style/imakeidx.el  style/afterpage.el
+          style/multirow.el  style/imakeidx.el  style/afterpage.el \
+          style/longtable.el style/lipsum.el    style/kantlipsum.el
 STYLEELC = $(STYLESRC:.el=.elc)
 
 CLEANFILES = $(AUCELC) $(STYLEELC) $(MULEELC)
diff --git a/style/kantlipsum.el b/style/kantlipsum.el
new file mode 100644
index 0000000..395fceb
--- /dev/null
+++ b/style/kantlipsum.el
@@ -0,0 +1,45 @@
+;;; kantlipsum.el --- AUCTeX style for `kantlipsum.sty'.
+
+;; Copyright (C) 2013 Free Software Foundation, Inc.
+
+;; Maintainer: address@hidden
+;; Author: Mosè Giordano <address@hidden>
+;; 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:
+
+(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")))
+
+(defvar LaTeX-kantlipsum-package-options
+  '("par" "nopar" "numbers" "index")
+  "Package options for the kantlipsum package.")
+
+;; kantlipsum.el ends here
diff --git a/style/lipsum.el b/style/lipsum.el
new file mode 100644
index 0000000..a0c0c04
--- /dev/null
+++ b/style/lipsum.el
@@ -0,0 +1,45 @@
+;;; lipsum.el --- AUCTeX style for `lipsum.sty'.
+
+;; Copyright (C) 2013 Free Software Foundation, Inc.
+
+;; Maintainer: address@hidden
+;; Author: Mosè Giordano <address@hidden>
+;; 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:
+
+(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))))
+
+(defvar LaTeX-lipsum-package-options
+  '("nopar")
+  "Package options for the lipsum package.")
+
+;; lipsum.el ends here
diff --git a/style/longtable.el b/style/longtable.el
new file mode 100644
index 0000000..8b23368
--- /dev/null
+++ b/style/longtable.el
@@ -0,0 +1,88 @@
+;;; longtable.el --- AUCTeX style for `longtable.sty'.
+
+;; Copyright (C) 2013 Free Software Foundation, Inc.
+
+;; Maintainer: address@hidden
+;; Author: Mosè Giordano <address@hidden>
+;; 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