tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-e-ascii: Correctly expand syntax in table cells 

* EXPERIMENTAL/org-e-ascii.el (org-e-ascii-table): Translate cells
  into ASCII/Latin1/UTF-8 before building back the table.
This commit is contained in:
Nicolas Goaziou 2012-02-17 18:54:23 +01:00
parent 6782d6f77b
commit 4d77e6adf6
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
EXPERIMENTAL/org-e-ascii.el
View File

@ -1613,14 +1613,22 @@ CONTENTS is nil. INFO is a plist holding contextual information."
(special-col-p (plist-get table-info :special-column-p))
(alignment (plist-get table-info :alignment))
(clean-table (org-export-clean-table raw-table special-col-p))
;; Change table into lisp, much like `org-table-to-lisp',
;; being more careful about keeping the exact length of
;; cells, for alignment purpose.
;; Change table into lisp, much like
;; `org-table-to-lisp', being more careful about keeping
;; the exact length of cells, for alignment purpose.
;; Cells are parsed and transcoded along the way.
(lisp-table
(mapcar
(lambda (line)
(if (string-match org-table-hline-regexp line) 'hline
(org-split-string (org-trim line) "\\s-?|\\s-?")))
(mapcar
(lambda (cell)
(org-export-secondary-string
(org-element-parse-secondary-string
cell
(cdr (assq 'item org-element-string-restrictions)))
'e-ascii info))
(org-split-string (org-trim line) "\\s-?|\\s-?"))))
(org-split-string clean-table "[ \t]*\n[ \t]*")))
;; Compute real column widths.
(column-widths