mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 01:32:52 +00:00
New variable `org-export-table-remove-empty-lines'.
* org-exp.el (org-export-table-remove-empty-lines): New custom variable. (org-export-remove-special-table-lines): Use it. This was requested by Eric S Fraga.
This commit is contained in:
parent
cc44c2b30a
commit
cde08b138e
|
@ -560,6 +560,13 @@ the values of constants may be useful to have."
|
|||
:group 'org-export-tables
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom org-export-table-remove-empty-lines t
|
||||
"Remove empty lines when exporting tables.
|
||||
This is the global equivalent of the :remove-nil-lines option
|
||||
when locally sending a table with #+ORGTBL."
|
||||
:group 'org-export-tables
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom org-export-prefer-native-exporter-for-tables nil
|
||||
"Non-nil means always export tables created with table.el natively.
|
||||
Natively means use the HTML code generator in table.el.
|
||||
|
@ -1909,7 +1916,7 @@ When it is nil, all comments will be removed."
|
|||
|
||||
(defun org-export-remove-special-table-lines ()
|
||||
"Remove tables lines that are used for internal purposes.
|
||||
Also, store forcedalignment information found in such lines."
|
||||
Also, store forced alignment information found in such lines."
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward "^[ \t]*|" nil t)
|
||||
(org-if-unprotected-at (1- (point))
|
||||
|
@ -1920,7 +1927,7 @@ Also, store forcedalignment information found in such lines."
|
|||
nil
|
||||
(mapcar
|
||||
(lambda (f)
|
||||
(or (= (length f) 0)
|
||||
(or (and org-export-table-remove-empty-lines (= (length f) 0))
|
||||
(string-match
|
||||
"\\`<\\([0-9]\\|[lrc]\\|[lrc][0-9]+\\)>\\'" f)))
|
||||
(org-split-string ;; FIXME, can't we do without splitting???
|
||||
|
|
Loading…
Reference in a new issue