ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-e-latex: Fix table alignment for tables starting with a rule 

* contrib/lisp/org-e-latex.el (org-e-latex-table--align-string): Fix
  table alignment for tables starting with a rule.
This commit is contained in:
Nicolas Goaziou 2012-05-06 20:10:21 +02:00
parent c2aac5f195
commit b5c0d7d2d1
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
contrib/lisp/org-e-latex.el
View File

@ -2007,13 +2007,16 @@ a communication channel."
(let ((attr (mapconcat 'identity (let ((attr (mapconcat 'identity
(org-element-property :attr_latex table) (org-element-property :attr_latex table)
" "))) " ")))
(if (and attr (string-match "\\<align=\\(\\S-+\\)" attr)) (if (string-match "\\<align=\\(\\S-+\\)" attr) (match-string 1 attr)
(match-string 1 attr)
(let (alignment) (let (alignment)
;; Extract column groups and alignment from first (non-rule) ;; Extract column groups and alignment from first (non-rule)
;; row. ;; row.
(org-element-map (org-element-map
(org-element-map table 'table-row 'identity info 'first-match) (org-element-map
table 'table-row
(lambda (row)
(and (eq (org-element-property :type row) 'standard) row))
info 'first-match)
'table-cell 'table-cell
(lambda (cell) (lambda (cell)
(let ((borders (org-export-table-cell-borders cell info))) (let ((borders (org-export-table-cell-borders cell info)))