monnier pushed a commit to branch externals/auctex
in repository elpa.
commit 2d2c3ae522f03ad38654d56937f3de692a54c37b
Author: Tassilo Horn <[email protected]>
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 <[email protected]>
+
+ * Makefile.in (STYLESRC): Add new style files kantlipsum.el,
+ lipsum.el, and longtable.el.
+
+2013-01-10 Mos� Giordano <[email protected]>
+
+ * style/kantlipsum.el: New style.
+
+ * style/lipsum.el: Ditto.
+
+ * style/longtable.el: Ditto
+
2013-01-10 Mads Jensen <[email protected]>
* 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: [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 `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: [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 `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: [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
