Re: [O] [PATCH] LaTeX export: added support for sidewaystable from the rotating package

[John Hendy]

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
>
>
>