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

org-e-ascii: Fix export of tables with a special column or a top-left corner 

* contrib/lisp/org-e-ascii.el (org-e-ascii--table-cell-width,
  org-e-ascii-table-row): Fix export of tables with a special column
  or a top-left angle.
This commit is contained in:
Nicolas Goaziou 2012-07-16 22:53:18 +02:00
parent 5dbd1386f3
commit 4cf88ac31d
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/lisp/org-e-ascii.el
View File

@ -1569,7 +1569,7 @@ are ignored."
(max (length
(org-export-data
(org-element-contents
(elt (if specialp (car (org-element-contents row))
(elt (if specialp (cdr (org-element-contents row))
(org-element-contents row))
col))
info))
@ -1622,10 +1622,16 @@ a communication channel."
(let ((width (org-e-ascii--table-cell-width cell info))
(borders (org-export-table-cell-borders cell info)))
(concat
;; In order to know if CELL starts the row, do
;; not compare it with the first cell in the row
;; as there might be a special column. Instead,
;; compare it with the first exportable cell,
;; obtained with `org-element-map'.
(when (and (memq 'left borders)
(eq (org-element-map
table-row 'table-cell 'identity info t)
cell)))
cell))
lcorner)
(make-string (+ 2 width) (string-to-char horiz))
(cond
((not (memq 'right borders)) nil)