[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/auctex a85d7c6 15/78: Add support for undocumented macr
From: |
Tassilo Horn |
Subject: |
[elpa] externals/auctex a85d7c6 15/78: Add support for undocumented macros `\captionbox[*]'. |
Date: |
Mon, 19 Oct 2015 09:10:43 +0000 |
branch: externals/auctex
commit a85d7c62dde35869f0e86786d9e9620f333a2527
Author: Arash Esbati <address@hidden>
Commit: Mosè Giordano <address@hidden>
Add support for undocumented macros `\captionbox[*]'.
* style/caption.el ("caption"): Add support for undocumented
macros `\captionbox[*]'.
(LaTeX-arg-caption-captionbox): New function.
Signed-off-by: Mosè Giordano <address@hidden>
---
ChangeLog | 4 ++++
style/caption.el | 52 +++++++++++++++++++++++++++++++++++++++++++++++++++-
2 files changed, 55 insertions(+), 1 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 6fcf165..a5f6908 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2015-08-30 Arash Esbati <address@hidden>
+ * style/caption.el ("caption"): Add support for undocumented
+ macros `\captionbox[*]'.
+ (LaTeX-arg-caption-captionbox): New function.
+
* Makefile.in (STYLESRC): Add new style.
* style/transparent.el: New file.
diff --git a/style/caption.el b/style/caption.el
index 0ec6c29..448f611 100644
--- a/style/caption.el
+++ b/style/caption.el
@@ -190,6 +190,51 @@ suffix of the command."
format name))
(TeX-argument-insert name optional)))
+;; Support for an undocumented feature of caption.sty:
+;; `\captionbox' sets the width of the caption equal to the width of
+;; the contents (a feature provided e.g. by `threeparttable.sty').
+;; The starred version typesets the caption without label and without
+;; entry to the list of figures or tables.
+
+;; The first mandatory argument {<heading>} contains the caption text
+;; and the label. We use `TeX-insert-macro' to do the job. (Thanks to
+;; M. Giordano for his valuable comments on this!)
+
+;; Syntax:
+;; \captionbox[<list entry>]{<heading>}[<width>][<inner-pos>]{<contents>}
+;; \captionbox*{<heading>}[<width>][<inner-pos>]{<contents>}
+
+(defun LaTeX-arg-caption-captionbox (optional &optional star prompt)
+ "Query for the arguments of `\\captionbox' incl. a label and
+insert them. If STAR is t, then do not query for a `\\label' and
+insert only a caption."
+ (let ((caption (TeX-read-string
+ (TeX-argument-prompt optional prompt "Caption"))))
+ (LaTeX-indent-line)
+ (insert TeX-grop caption)
+ (unless star (TeX-insert-macro "label"))
+ (insert TeX-grcl))
+ (let ((width (completing-read (TeX-argument-prompt t prompt "Width")
+ (mapcar (lambda(elt) (concat TeX-esc (car elt)))
+ (LaTeX-length-list))))
+ (inpos (completing-read (TeX-argument-prompt t prompt "Inner position")
+ '("c" "l" "r" "s"))))
+ (cond (;; 2 optional args
+ (and width (not (string-equal width ""))
+ inpos (not (string-equal inpos "")))
+ (insert (format "[%s][%s]" width inpos)))
+ (;; 1st empty opt. arg, 2nd opt. arg
+ (and (string-equal width "")
+ inpos (not (string-equal inpos "")))
+ (insert (format "[][%s]" inpos)))
+ (;; 1st opt. arg, 2nd empty opt. arg
+ (and width (not (string-equal width ""))
+ (string-equal inpos ""))
+ (insert (format "[%s]" width)))
+ (t ; Do nothing if both empty
+ (ignore))))
+ (LaTeX-fill-paragraph))
+
(TeX-add-style-hook
"caption"
(lambda ()
@@ -240,6 +285,10 @@ suffix of the command."
(TeX-arg-eval completing-read (TeX-argument-prompt nil nil "Float type")
LaTeX-caption-supported-float-types))
+ '("captionbox" ["List entry"] (LaTeX-arg-caption-captionbox) t)
+
+ '("captionbox*" (LaTeX-arg-caption-captionbox t) t)
+
'("ContinuedFloat" 0)
'("DeclareCaptionFont"
@@ -286,7 +335,8 @@ suffix of the command."
(eq TeX-install-font-lock 'font-latex-setup))
(font-latex-add-keywords '(("caption" "*[{")
("captionlistentry" "[{")
- ("captionof" "*[{"))
+ ("captionof" "*[{")
+ ("captionbox" "*[{[[{"))
'textual)
(font-latex-add-keywords '(("captionsetup" "*[{")
("clearcaptionsetup" "*[{")
- [elpa] externals/auctex updated (62aca31 -> 2f22938), Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 79c02c9 01/78: Make lengths available through `LaTeX-add-lengths'., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex e88f11f 04/78: Fix error when preview isn't loaded (intentionally), Tassilo Horn, 2015/10/19
- [elpa] externals/auctex c896f96 05/78: Fix the subgroup number in a regex., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 5b0b215 03/78: Setup preview menu/keymap only once., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 2648a58 06/78: New function to read labels., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex be9f14a 02/78: Add the missing starred version of \AddEnumerateCounter., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 30be9cc 09/78: Add support for prettify-symbols-mode, Tassilo Horn, 2015/10/19
- [elpa] externals/auctex eff71a7 10/78: Change | syntax to punctuation; fixes bug#21366, Tassilo Horn, 2015/10/19
- [elpa] externals/auctex a4d23f6 07/78: Add menu and new functions for error overview., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex a85d7c6 15/78: Add support for undocumented macros `\captionbox[*]'.,
Tassilo Horn <=
- [elpa] externals/auctex a3e3ab8 14/78: Add new style transparent.el., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 8d5acb0 13/78: Do not indent the content of `filecontents[*]' env., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 57338ec 24/78: Improve my last commit, Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 400609e 18/78: New TeX--if-macro-fboundp compatibility macro, Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 08ab3c1 23/78: Allow hiding ^ and _ script signs, Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 0b3a6e8 12/78: Do not indent the content of `Form' environment., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 40963e5 08/78: Check engine before running LaTeX command., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 33cee84 19/78: Allow TeX-command-sequence to process the region, Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 513490f 22/78: Implement multi-level script fontification, Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 76eb240 25/78: Docfix, Tassilo Horn, 2015/10/19