[elpa] 08/299: * style/ragged2e.el: New style by Mads Jensen <address@hidden>. * style/mathtools.el: Ditto. * style/everysel.el: Ditto. * style/bigstrut.el: Ditto. * style/bigdelim.el: Ditto.

[Stefan Monnier]

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

commit fc920aa1bb2578ac3cbba211e4b42e8ac069149e
Author: Tassilo Horn <address@hidden>
Date:   Wed Dec 26 10:45:47 2012 +0000

    * style/ragged2e.el: New style by Mads Jensen <address@hidden>.
    * style/mathtools.el: Ditto.
    * style/everysel.el: Ditto.
    * style/bigstrut.el: Ditto.
    * style/bigdelim.el: Ditto.
---
 ChangeLog          |   12 +++
 style/bigdelim.el  |   52 ++++++++++++++
 style/bigstrut.el  |   49 +++++++++++++
 style/everysel.el  |   44 ++++++++++++
 style/mathtools.el |  197 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 style/ragged2e.el  |   66 +++++++++++++++++
 6 files changed, 420 insertions(+), 0 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f0f8060..873978f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,15 @@
+2012-12-26  Tassilo Horn  <address@hidden>
+
+       * style/ragged2e.el: New style by Mads Jensen <address@hidden>.
+
+       * style/mathtools.el: Ditto.
+
+       * style/everysel.el: Ditto.
+
+       * style/bigstrut.el: Ditto.
+
+       * style/bigdelim.el: Ditto.
+
 2012-12-25  Tassilo Horn  <address@hidden>
 
        * style/ulem.el: New style by Mads Jensen <address@hidden>.
diff --git a/style/bigdelim.el b/style/bigdelim.el
new file mode 100644
index 0000000..8d55c4a
--- /dev/null
+++ b/style/bigdelim.el
@@ -0,0 +1,52 @@
+;;; bigdelim.el --- AUCTeX style for `bigdelim.sty'
+
+;; Copyright (C) 2011 Free Software Foundation, Inc.
+
+;; Author: Mads Jensen <address@hidden>
+;; Maintainer: address@hidden
+;; Created: 2011-01-24
+;; 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 `bigdelim.sty'.
+
+;;; Code:
+
+(TeX-add-style-hook
+ "bigdelim"
+ (lambda ()
+   (TeX-add-symbols
+    '("ldelim" TeX-arg-bigdelim-brace "Number of rows for multirow"
+      "Width in multirow" [ "Text in multirow" ])
+    '("rdelim" TeX-arg-bigdelim-brace "Number of rows for multirow"
+      "Width in multirow" [ "Text in multirow" ]))))
+
+(defun TeX-arg-bigdelim-brace (optional &optional prompt)
+  "Prompt for a single brace, and do not insert the matching
+  right parentheses."
+  (let ((brace (read-from-minibuffer
+   (TeX-argument-prompt optional prompt "Brace") nil)))
+    (insert (format "%s" brace))))
+
+(defvar LaTeX-bigdelim-package-options nil
+  "Package options for the bigdelim package.")
+
+;;; bigdelim.el ends here
diff --git a/style/bigstrut.el b/style/bigstrut.el
new file mode 100644
index 0000000..9019085
--- /dev/null
+++ b/style/bigstrut.el
@@ -0,0 +1,49 @@
+;;; bigstrut.el --- AUCTeX style for `bigstrut.sty'
+
+;; Copyright (C) 2012 Free Software Foundation, Inc.
+
+;; Author: Mads Jensen <address@hidden>
+;; Maintainer: 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 `bigstrut.sty'.
+
+;;; Code:
+
+(TeX-add-style-hook
+ "bigstrut"
+ (lambda ()
+   (TeX-add-symbols 
+    "bigstrutsetup"
+    '("bigstrut" [ TeX-arg-bigstrut ]))))
+
+(defun TeX-arg-bigstrut (optional &optional prompt)
+  "Prompt for the optional argument in \\bigstrut"
+  (TeX-argument-insert 
+   (completing-read (TeX-argument-prompt 
+     optional "Strut to top (t) or bottom (b)" nil t)
+     (mapcar 'list '("t" "b")) nil t) optional))
+
+(defvar LaTeX-bigstrut-package-options nil
+  "Package options for the bigstrut package.")
+
+;;; bigstrut.el ends here
diff --git a/style/everysel.el b/style/everysel.el
new file mode 100644
index 0000000..ce95ec5
--- /dev/null
+++ b/style/everysel.el
@@ -0,0 +1,44 @@
+;;; ragged2e.el --- AUCTeX style for `everysel.sty'
+
+;; Copyright (C) 2012 Free Software Foundation, Inc.
+
+;; Author: Mads Jensen <address@hidden>
+;; Created: 2012-12-25
+;; 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 `everysel.sty'.
+
+;;; Code:
+
+(TeX-add-style-hook
+ "everysel"
+ (lambda ()
+   (TeX-add-symbols
+    ;; adds a hook (the argument code) to be called after \\selectfont
+    '("EverySelectfont" 1)
+    ;; adds a hook to be called after the next \\selectfont
+    '("AtNextSelectont" 1))))
+
+(defvar LaTeX-ragged2e-package-options nil
+  "Package options for the everysel package.")
+
+;;; everysel.el ends here
diff --git a/style/mathtools.el b/style/mathtools.el
new file mode 100644
index 0000000..082d7e1
--- /dev/null
+++ b/style/mathtools.el
@@ -0,0 +1,197 @@
+;;; mathtools.el --- Style hook for the LaTeX package `mathtools'.
+
+;; Copyright (C) 2011-2012 Free Software Foundation, Inc.
+
+;; Author: Mads Jensen <address@hidden>
+;; Created: 2011-02-13
+;; 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 `mathtools.sty'
+
+;;; Comments:
+
+;;; This package serves as a wrapper for amsmath, adding more features
+;;; and fixing a few bugs in amsmath.  The mathstyle argument for many
+;;; of the macros is discussed at
+;;; <http://www.tug.org/TUGboat/Articles/tb22-4/tb72perlS.pdf>
+
+;;; Code:
+
+(defvar LaTeX-mathtools-key-val-options
+  "Options for the \\mathtoolsset command"
+  '(("showonlyrefs")
+    ("mathic" ("true" "false"))
+    ("showmanualtags" ("true" "false"))
+    ("firstline-afterskip")
+    ("lastline-preskip")
+    ("multlined-pos" ("c" "b" "t"))
+    ("multlined-width")
+    ("centercolon" ("true" "false"))
+    ("prescript-sub-format")
+    ("prescript-sup-format")
+    ("prescript-arg-format")))
+
+(TeX-add-style-hook
+ "mathtools"
+ (function
+  (lambda ()
+
+    ;; mathtools requires amsmath, as some bugs in amsmath are fixed
+    (TeX-run-style-hooks "amsmath")
+
+    (LaTeX-add-environments
+     '("lgathered" LaTeX-amsmath-env-aligned)
+     '("rgathered" LaTeX-amsmath-env-aligned)
+     '("multlined" LaTeX-mathtools-env-multlined)
+     '("matrix*" LaTeX-mathtools-env-matrix-starred)
+     '("pmatrix*" LaTeX-mathtools-env-matrix-starred)
+     '("bmatrix*" LaTeX-mathtools-env-matrix-starred)
+     '("Bmatrix*" LaTeX-mathtools-env-matrix-starred)
+     '("vmatrix*" LaTeX-mathtools-env-matrix-starred)
+     '("Vmatrix*" LaTeX-mathtools-env-matrix-starred)
+     '("spreadlines" LaTeX-mathtools-env-spreadlines)
+     "dcases" "dcases*")
+
+    (TeX-add-symbols
+     '("mathtoolsset" (TeX-arg-key-val LaTeX-mathtools-key-val))
+     '("mathclap" 1)
+     '("mathllap" ["Mathstyle"] t)
+     '("mathrlap" ["Mathstyle"] t)
+     '("mathclap" ["Mathstyle"] t)
+     '("mathmakebox" [TeX-arg-size] [ TeX-arg-size ] 1)
+     '("clap" 1)
+     '("mathmbox" 1)
+     '("cramped" 1)
+     '("crampedllap" [ "Mathstye" ] t)
+     '("crampedrlap" [ "Mathstyle" ] t)
+     '("crampedclap" [ "Mathstyle" ] t)
+     '("smashoperator" [ "Position (l, r or lr (default)" ] 2)
+     ;; 3.1.4 Adjusting the limits of operators
+     ;; explicit argument encapsulation does not seem to be required
+     '("adjustlimits" 4)
+     ;; 3.2 Controlling tags
+     '("newtagform" "Name" ["Inner format"] "Left" "Right")
+     '("renewtagform" "Name" ["Inner format"] "Left" "Right")
+     '("usetagform" "Name")
+     '("xleftrightarrow" ["Below"] "Above")
+     '("xLeftarrow" ["Below"] "Above")
+     '("xRightarrow" ["Below"] "Above")
+     '("xLeftrightarrow" ["Below"] "Above")
+     '("xhookleftarrow" ["Below"] "Above")
+     '("xhookrightarrow" ["Below"] "Above")
+     '("xmapsto" ["Below"] "Above")
+     '("xrightharpoondown" ["Below"] "Above")
+     '("xrightharpoonup" ["Below"] "Above")
+     '("xleftharpoondown" ["Below"] "Above")
+     '("xleftharpoonup" ["Below"] "Above")
+     '("xrightleftharpoons" ["Below"] "Above")
+     '("xleftrightharpoons" ["Below"] "Above")
+     '("underbracket" [ "Rule thickness" ] [ "Bracket height" ] t)
+     '("overbracket" [ "Rule thickness" ] [ "Bracket height" ] t)
+     '("underbrace" 1)
+     '("overbrace" 1)
+     '("LaTeXunderbrace" 1)
+     '("LaTeXoverbrace" 1)
+     ;; 3.4.2
+     '("shoveleft"  [ TeX-arg-size ] 1)
+     '("shoveright" [ TeX-arg-size ] 1)
+     ;; don't understand t, but intertext in amsmath.el uses it
+     '("shortintertext" t)
+     '("DeclarePairedDelimeter" TeX-arg-macro "Left delimeter" "Right 
delimeter")
+     ;; 3.4.4
+     '("MoveEqLeft" [ "Number" ])
+     '("ArrowBetweenLines" [ TeX-arg-macro ] )
+     '("ArrowBetweenLines*" [ TeX-arg-macro ] )
+     ;; colon operators
+     "vcentcolon" "ordinarycolon" "coloneqq" "Coloneqq"
+     "coloneq" "Coloneq" "eqqcolon" "Eqqcolon" "eqcolon"
+     "Eqcolon" "colonapprox" "Colonapprox" "colonsim" "Colonsim"
+     ;; 3.7.1
+     "lparen" "rparen"
+     ;; left sub/superscripts
+     '("prescript" "Below" "Above" t)
+     ;; Declaring math sizes; this command doesn't seem so relevant, but
+     ;; for completion, it's included
+     '("DeclareMathSizes" 4)
+     ;; Gathered envionments
+     '("newgather" "Name" "Pre-line" "Post-line" "After")
+     '("renewgather" "Name" "Pre-line" "Post-line" "After")
+     ;; Split fractions
+     '("splitfrac" 2)
+     '("splitdfrac" 2))
+
+    (setq LaTeX-item-list
+         (append '(("multlined"    . LaTeX-item-equation)
+                   ("lgathered" . LaTeX-item-equation)
+                   ("rgathered" . LaTeX-item-equation)
+                   ("spreadlines" . LaTeX-item-equation)
+                   ("matrix*" .  LaTeX-item-equation)
+                   ("pmatrix*" .  LaTeX-item-equation)
+                   ("bmatrix*" .  LaTeX-item-equation)
+                   ("Bmatrix*" .  LaTeX-item-equation)
+                   ("vmatrix*" .  LaTeX-item-equation)
+                   ("Vmatrix*" .  LaTeX-item-equation)
+                   ("dcases"    . LaTeX-item-equation)
+                   ("dcases*"    . LaTeX-item-equation))
+                 LaTeX-item-list))
+
+    (setq LaTeX-label-alist
+         (append '(("lgathered"    . LaTeX-amsmath-label)
+                   ("rgathered"   . LaTeX-amsmath-label)
+                   ("multlined"    . LaTeX-amsmath-label)
+                   LaTeX-label-alist))))))
+
+(defun LaTeX-mathtools-env-matrix-starred (env)
+  (let ((where (read-string "(optional) Vertical placement of columns: ")))
+    (if (string= where "")
+       (setq where "")
+      (setq where (concat "[" where "]")))
+    (LaTeX-insert-environment env where)))
+
+(defun LaTeX-mathtools-env-spreadlines (env)
+  (let ((spread (read-string "Spacing between lines: ")))
+    (LaTeX-insert-environment env (concat TeX-grop spread TeX-grcl))
+    (newline-and-indent)))
+
+;; FIXME: there are probably more subtle ways to support more than one
+;; optional argument; please change if this is the case
+(defun LaTeX-mathtools-env-multlined (env)
+  (let ((pos (read-string "(optional) Position: "))
+       (width (read-string "(optional) Width: "))
+       (extra ""))
+    (if (not (string= pos ""))
+       (setq pos (concat LaTeX-optop pos LaTeX-optcl))
+      (setq pos ""))
+    (if (not (string= width ""))
+       (setq width (concat LaTeX-optop width LaTeX-optcl))
+      (setq width ""))
+    (setq extra (concat pos width))
+    (LaTeX-insert-environment env extra)
+    (newline-and-indent)))
+
+;; amsmath options can also be passed directly to mathtools
+(defvar LaTeX-mathtools-package-options
+  (append '("fixamsmath" "donotfixamsmathbugs"
+           "allowspaces" "disallowspaces") LaTeX-amsmath-package-options)
+  "Package options for the mathtools package.")
+
+;;; mathtools.el ends here.
diff --git a/style/ragged2e.el b/style/ragged2e.el
new file mode 100644
index 0000000..52d2f34
--- /dev/null
+++ b/style/ragged2e.el
@@ -0,0 +1,66 @@
+;;; ragged2e.el --- AUCTeX style for `ragged2e.sty'
+
+;; Copyright (C) 2011 Free Software Foundation, Inc.
+
+;; Author: Mads Jensen <address@hidden>
+;; Created: 2011-04-16
+;; 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 `ragged2e.sty'.
+
+;;; Code:
+
+(TeX-add-style-hook
+ "ragged2e"
+ (lambda ()
+   (TeX-add-symbols
+    "CenteringLeftskip"
+    "RaggedLeftLeftskip"
+    "RaggedRightLeftskip"
+    "CenteringRightskip"
+    "RaggedLeftRightskip"
+    "RaggedRightRightskip"
+    "CenteringParfillskip"
+    "RaggedLeftParfillskip"
+    "RaggedRightParfillskip"
+    "CenteringParindent"
+    "RaggedLeftParindent"
+    "RaggedRightParindent"
+    "JustifyingParfillskip"
+    "JustifyingParindent"
+    "ttraggedright"
+    "Centering"
+    "justifying"
+    "RaggedRight"
+    "RaggedLeft")
+
+   (LaTeX-add-environments 
+    "FlushLeft" "FlushRight" "Center" "justify")
+
+   (TeX-run-style-hooks "footmisc" "everysel")))
+
+(defvar LaTeX-ragged2e-package-options 
+  '("originalcommands" "newcommands" "originalparameters" "document"
+    "newparameters" "footnotes" "raggedrightboxes")
+  "Package options for the ragged2e package.")
+
+;;; ragged2e.el ends here