forked from mirrors/org-mode
Merge branch 'maint'
This commit is contained in:
commit
333edc7dd8
|
@ -4772,54 +4772,59 @@ This may be either a string or a function of two arguments:
|
|||
example \"%s\\\\times10^{%s}\". This may also be a property
|
||||
list with column numbers and format strings or functions.
|
||||
:fmt will still be applied after :efmt."
|
||||
(let ((backend (plist-get params :backend))
|
||||
;; Disable user-defined export filters and hooks.
|
||||
(org-export-filters-alist nil)
|
||||
(org-export-before-parsing-hook nil)
|
||||
(org-export-before-processing-hook nil))
|
||||
(when (and backend (symbolp backend) (not (org-export-get-backend backend)))
|
||||
(user-error "Unknown :backend value"))
|
||||
(when (or (not backend) (plist-get params :raw)) (require 'ox-org))
|
||||
;; Remove final newline.
|
||||
(substring
|
||||
(org-export-string-as
|
||||
;; Return TABLE as Org syntax. Tolerate non-string cells.
|
||||
(with-output-to-string
|
||||
(let* ((backend (plist-get params :backend))
|
||||
(custom-backend
|
||||
;; Build a custom back-end according to PARAMS. Before
|
||||
;; defining a translator, check if there is anything to do.
|
||||
;; When there isn't, let BACKEND handle the element.
|
||||
(org-export-create-backend
|
||||
:parent (or backend 'org)
|
||||
:transcoders
|
||||
`((table . ,(org-table--to-generic-table params))
|
||||
(table-row . ,(org-table--to-generic-row params))
|
||||
(table-cell . ,(org-table--to-generic-cell params))
|
||||
;; Macros are not going to be expanded. However, no
|
||||
;; regular back-end has a transcoder for them. We
|
||||
;; provide one so they are not ignored, but displayed
|
||||
;; as-is instead.
|
||||
(macro . (lambda (m c i) (org-element-macro-interpreter m nil))))))
|
||||
data info)
|
||||
;; Store TABLE as Org syntax in DATA. Tolerate non-string cells.
|
||||
;; Initialize communication channel in INFO.
|
||||
(with-temp-buffer
|
||||
(let ((org-inhibit-startup t)) (org-mode))
|
||||
(let ((standard-output (current-buffer)))
|
||||
(dolist (e table)
|
||||
(cond ((eq e 'hline) (princ "|--\n"))
|
||||
((consp e)
|
||||
(princ "| ") (dolist (c e) (princ c) (princ " |"))
|
||||
(princ "\n")))))
|
||||
;; Build a custom back-end according to PARAMS. Before defining
|
||||
;; a translator, check if there is anything to do. When there
|
||||
;; isn't, let BACKEND handle the element.
|
||||
(org-export-create-backend
|
||||
:parent (or backend 'org)
|
||||
:filters
|
||||
'((:filter-parse-tree
|
||||
(setq data
|
||||
(org-element-map (org-element-parse-buffer) 'table
|
||||
#'identity nil t))
|
||||
(setq info (org-export-get-environment backend nil params)))
|
||||
(when (and backend (symbolp backend) (not (org-export-get-backend backend)))
|
||||
(user-error "Unknown :backend value"))
|
||||
(when (or (not backend) (plist-get info :raw)) (require 'ox-org))
|
||||
;; Handle :skip parameter.
|
||||
(lambda (tree backend info)
|
||||
(let ((skip (plist-get info :skip)))
|
||||
(when skip
|
||||
(unless (wholenump skip) (user-error "Wrong :skip value"))
|
||||
(let ((n 0))
|
||||
(org-element-map tree 'table-row
|
||||
(org-element-map data 'table-row
|
||||
(lambda (row)
|
||||
(if (>= n skip) t
|
||||
(org-element-extract-element row)
|
||||
(incf n)
|
||||
nil))
|
||||
info t))
|
||||
tree)))
|
||||
nil t))))
|
||||
;; Handle :skipcols parameter.
|
||||
(lambda (tree backend info)
|
||||
(let ((skipcols (plist-get info :skipcols)))
|
||||
(when skipcols
|
||||
(unless (consp skipcols) (user-error "Wrong :skipcols value"))
|
||||
(org-element-map tree 'table
|
||||
(org-element-map data 'table
|
||||
(lambda (table)
|
||||
(let ((specialp
|
||||
(org-export-table-has-special-column-p table)))
|
||||
(let ((specialp (org-export-table-has-special-column-p table)))
|
||||
(dolist (row (org-element-contents table))
|
||||
(when (eq (org-element-property :type row) 'standard)
|
||||
(let ((c 1))
|
||||
|
@ -4827,17 +4832,25 @@ This may be either a string or a function of two arguments:
|
|||
(org-element-contents row)))
|
||||
(when (memq c skipcols)
|
||||
(org-element-extract-element cell))
|
||||
(incf c)))))))
|
||||
info)
|
||||
tree)))))
|
||||
:transcoders
|
||||
`((table . ,(org-table--to-generic-table params))
|
||||
(table-row . ,(org-table--to-generic-row params))
|
||||
(table-cell . ,(org-table--to-generic-cell params))
|
||||
;; Section. Return contents to avoid garbage around table.
|
||||
(section . (lambda (s c i) c))))
|
||||
'body-only (org-combine-plists params '(:with-tables t)))
|
||||
0 -1)))
|
||||
(incf c))))))))))
|
||||
;; Since we are going to export using a low-level mechanism,
|
||||
;; ignore special column and special rows manually.
|
||||
(let ((special? (org-export-table-has-special-column-p data))
|
||||
ignore)
|
||||
(org-element-map data (if special? '(table-cell table-row) 'table-row)
|
||||
(lambda (datum)
|
||||
(when (if (eq (org-element-type datum) 'table-row)
|
||||
(org-export-table-row-is-special-p datum nil)
|
||||
(org-export-first-sibling-p datum nil))
|
||||
(push datum ignore))))
|
||||
(setq info (plist-put info :ignore-list ignore)))
|
||||
;; We use a low-level mechanism to export DATA so as to skip all
|
||||
;; usual pre-processing and post-processing, i.e., hooks, filters,
|
||||
;; Babel code evaluation, include keywords and macro expansion,
|
||||
;; and filters.
|
||||
(let ((output (org-export-data-with-backend data custom-backend info)))
|
||||
;; Remove final newline.
|
||||
(if (org-string-nw-p output) (substring output 0 -1) ""))))
|
||||
|
||||
(defun org-table--generic-apply (value name &optional with-cons &rest args)
|
||||
(cond ((null value) nil)
|
||||
|
|
|
@ -1453,7 +1453,11 @@ See also `test-org-table/copy-field'."
|
|||
"a\nb"
|
||||
(let ((org-export-filter-table-cell-functions (list (lambda (c b i) "filter"))))
|
||||
(orgtbl-to-generic (org-table-to-lisp "| a |\n|---|\n| b |")
|
||||
'(:hline nil))))))
|
||||
'(:hline nil)))))
|
||||
;; Macros, even if unknown, are returned as-is.
|
||||
(should
|
||||
(equal "{{{macro}}}"
|
||||
(orgtbl-to-generic (org-table-to-lisp "| {{{macro}}} |") nil))))
|
||||
|
||||
(ert-deftest test-org-table/to-latex ()
|
||||
"Test `orgtbl-to-latex' specifications."
|
||||
|
|
Loading…
Reference in a new issue