[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] [PATCH] LaTeX export: added support for sidewaystable from the r
From: |
John Hendy |
Subject: |
Re: [O] [PATCH] LaTeX export: added support for sidewaystable from the rotating package |
Date: |
Thu, 15 Mar 2012 08:31:28 -0500 |
On Thu, Mar 15, 2012 at 4:15 AM, Andreas Leha
<address@hidden> wrote:
> Hi all,
>
> below you find a small patch that allows to use sidewaystable during
> latex export, i.e. this file should export as expected:
>
> ,----[ test.org ]
> | * Test sidewaystable
> |
> | #+CAPTION: A sideways table
> | #+ATTR_LaTeX: sidewaystable
> | | The | header |
> | |---------+--------|
> | | entries | here |
> |
> | * LaTeX Options
> :noexport:
> | #+LATEX_HEADER: \usepackage{rotating}
> `----
Cool. I use this on occasion and found that this also works (assuming
you have \usepackage{rotating}, as you show):
-----
#+latex: \begin{sidewaystable}
| a | b | c |
|---+---+---|
| 1 | 2 | 3 |
#+latex: \end{sidewaystable}
-----
Thanks!
John
>
> This is a patch for the "old" LaTeX exporter. Still, it might lead to
> cleaner documents for somebody.
>
> Cheers,
> Andreas
>
>
> ---
> lisp/org-latex.el | 12 ++++++++----
> 1 files changed, 8 insertions(+), 4 deletions(-)
>
> diff --git a/lisp/org-latex.el b/lisp/org-latex.el
> index 03664b4..aec4f1d 100644
> --- a/lisp/org-latex.el
> +++ b/lisp/org-latex.el
> @@ -1917,10 +1917,14 @@ The conversion is made depending of STRING-BEFORE and
> STRING-AFTER."
> 'org-label raw-table)
> longtblp (and attr (stringp attr)
> (string-match "\\<longtable\\>" attr))
> - tblenv (if (and attr (stringp attr)
> - (or (string-match (regexp-quote "table*")
> attr)
> - (string-match "\\<multicolumn\\>"
> attr)))
> - "table*" "table")
> + tblenv (if (and attr (stringp attr))
> + (cond ((string-match "\\<sidewaystable\\>" attr)
> + "sidewaystable")
> + ((or (string-match (regexp-quote "table*")
> attr)
> + (string-match "\\<multicolumn\\>"
> attr))
> + "table*")
> + (t "table"))
> + "table")
> tabular-env
> (if (and attr (stringp attr)
> (string-match "\\(tabular.\\)" attr))
> --
> 1.7.9.1
>
>
>