mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 19:37:52 +00:00
Introduced org-lparse-do-format-list-table
* contrib/lisp/org-lparse.el (org-lparse-do-format-list-table): New. Factored out from `org-lparse-do-format-org-table'. (org-lparse-do-format-org-table): Use above function. (org-lparse-format-list-table): New. Wrapper for `org-lparse-do-format-list-table'. For future use.
This commit is contained in:
parent
098ed2d03f
commit
fdb8395886
|
@ -1373,7 +1373,7 @@ for formatting. This is required for the DocBook exporter."
|
||||||
(lambda (x) (string-match "^[ \t]*|-" x))
|
(lambda (x) (string-match "^[ \t]*|-" x))
|
||||||
(cdr lines)))))
|
(cdr lines)))))
|
||||||
(org-lparse-table-rownum -1) org-lparse-table-ncols i (cnt 0)
|
(org-lparse-table-rownum -1) org-lparse-table-ncols i (cnt 0)
|
||||||
tbopen line fields
|
tbopen fields
|
||||||
org-lparse-table-cur-rowgrp-is-hdr
|
org-lparse-table-cur-rowgrp-is-hdr
|
||||||
org-lparse-table-rowgrp-open
|
org-lparse-table-rowgrp-open
|
||||||
org-lparse-table-num-numeric-items-per-column
|
org-lparse-table-num-numeric-items-per-column
|
||||||
|
@ -1383,6 +1383,12 @@ for formatting. This is required for the DocBook exporter."
|
||||||
(org-lparse-table-style 'org-table)
|
(org-lparse-table-style 'org-table)
|
||||||
org-lparse-table-is-styled)
|
org-lparse-table-is-styled)
|
||||||
(setq lines (org-lparse-org-table-to-list-table lines splice))
|
(setq lines (org-lparse-org-table-to-list-table lines splice))
|
||||||
|
|
||||||
|
(org-lparse-do-format-list-table lines splice caption label attributes head)))
|
||||||
|
|
||||||
|
(defun org-lparse-do-format-list-table (lines &optional splice
|
||||||
|
caption label attributes head)
|
||||||
|
(let (line)
|
||||||
(cond
|
(cond
|
||||||
(splice
|
(splice
|
||||||
(setq org-lparse-table-is-styled nil)
|
(setq org-lparse-table-is-styled nil)
|
||||||
|
@ -1407,6 +1413,11 @@ for formatting. This is required for the DocBook exporter."
|
||||||
(org-lparse-do-format-org-table lines splice)
|
(org-lparse-do-format-org-table lines splice)
|
||||||
(buffer-substring-no-properties (point-min) (point-max))))
|
(buffer-substring-no-properties (point-min) (point-max))))
|
||||||
|
|
||||||
|
(defun org-lparse-format-list-table (lines &optional splice)
|
||||||
|
(with-temp-buffer
|
||||||
|
(org-lparse-do-format-list-table lines splice)
|
||||||
|
(buffer-substring-no-properties (point-min) (point-max))))
|
||||||
|
|
||||||
(defun org-lparse-do-format-table-table (lines)
|
(defun org-lparse-do-format-table-table (lines)
|
||||||
"Format a table generated by table.el into backend-specific code.
|
"Format a table generated by table.el into backend-specific code.
|
||||||
This conversion does *not* use `table-generate-source' from table.el.
|
This conversion does *not* use `table-generate-source' from table.el.
|
||||||
|
|
Loading…
Reference in a new issue