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

2012-03-19 Thread Bastien
Hi Andreas,

Andreas Leha andreas.l...@med.uni-goettingen.de writes:

 below you find a small patch that allows to use sidewaystable during
 latex export, i.e. this file should export as expected:

Applied, thanks.

-- 
 Bastien



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

2012-03-15 Thread Andreas Leha
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}
`

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





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

2012-03-15 Thread John Hendy
On Thu, Mar 15, 2012 at 4:15 AM, Andreas Leha
andreas.l...@med.uni-goettingen.de 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