emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [patch] bring back the "multiline" option for latex tables


From: Eric Schulte
Subject: [O] [patch] bring back the "multiline" option for latex tables
Date: Wed, 01 Jun 2011 10:21:59 -0600
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux)

Hi,

The following patch make the behavior of LaTeX table exporter more
closely resemble the documented behavior (at least to my mind).  I'm
hesitant to apply this patch myself as it applies to org-latex.el which
is outside of my area of expertise.

Please apply this if it looks reasonable.

Thanks -- Eric

>From fc8700f52c2fbfb1ec601e3bbb32c37e38a4cfbb Mon Sep 17 00:00:00 2001
From: Eric Schulte <address@hidden>
Date: Wed, 1 Jun 2011 10:18:34 -0600
Subject: [PATCH] replacing the "multicolumn" option for latex tables

  This brings the behavior inline with the documentation.

* lisp/org-latex.el (org-export-latex-tables): Check for the
  "multiline" option and set the `floatp' option to true when
  multicolumn tables are requested.
---
 lisp/org-latex.el |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/org-latex.el b/lisp/org-latex.el
index e2c74ae..0d64f68 100644
--- a/lisp/org-latex.el
+++ b/lisp/org-latex.el
@@ -1838,7 +1838,8 @@ The conversion is made depending of STRING-BEFORE and 
STRING-AFTER."
                   longtblp (and attr (stringp attr)
                                 (string-match "\\<longtable\\>" attr))
                  tblenv (if (and attr (stringp attr)
-                                 (string-match (regexp-quote "table*") attr))
+                                 (or (string-match (regexp-quote "table*") 
attr)
+                                     (string-match "\\<multicolumn\\>" attr)))
                             "table*" "table")
                  tabular-env
                  (if (and attr (stringp attr)
@@ -1851,7 +1852,7 @@ The conversion is made depending of STRING-BEFORE and 
STRING-AFTER."
                   align (and attr (stringp attr)
                              (string-match "\\<align=\\([^ \t\n\r]+\\)" attr)
                              (match-string 1 attr))
-                  floatp (or caption label)
+                  floatp (or caption label (string= "table*" tblenv))
                  placement     (if (and attr
                                         (stringp attr)
                                         (string-match "[ 
\t]*\\<placement=\\(\\S-+\\)" attr))
-- 
1.7.4.1

-- 
Eric Schulte
http://cs.unm.edu/~eschulte/

reply via email to

[Prev in Thread] Current Thread [Next in Thread]