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 (max (length
(org-export-data (org-export-data
(org-element-contents (org-element-contents
(elt (if specialp (car (org-element-contents row)) (elt (if specialp (cdr (org-element-contents row))
(org-element-contents row)) (org-element-contents row))
col)) col))
info)) info))
@ -1622,10 +1622,16 @@ a communication channel."
(let ((width (org-e-ascii--table-cell-width cell info)) (let ((width (org-e-ascii--table-cell-width cell info))
(borders (org-export-table-cell-borders cell info))) (borders (org-export-table-cell-borders cell info)))
(concat (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) (when (and (memq 'left borders)
(eq (org-element-map (eq (org-element-map
table-row 'table-cell 'identity info t) table-row 'table-cell 'identity info t)
cell))) cell))
lcorner)
(make-string (+ 2 width) (string-to-char horiz)) (make-string (+ 2 width) (string-to-char horiz))
(cond (cond
((not (memq 'right borders)) nil) ((not (memq 'right borders)) nil)