ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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:
Bastien Guerry 2011-03-05 23:35:09 +01:00
parent cc44c2b30a
commit cde08b138e
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/org-exp.el
View File

@ -560,6 +560,13 @@ the values of constants may be useful to have."
:group 'org-export-tables :group 'org-export-tables
:type 'boolean) :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 (defcustom org-export-prefer-native-exporter-for-tables nil
"Non-nil means always export tables created with table.el natively. "Non-nil means always export tables created with table.el natively.
Natively means use the HTML code generator in table.el. 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 () (defun org-export-remove-special-table-lines ()
"Remove tables lines that are used for internal purposes. "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)) (goto-char (point-min))
(while (re-search-forward "^[ \t]*|" nil t) (while (re-search-forward "^[ \t]*|" nil t)
(org-if-unprotected-at (1- (point)) (org-if-unprotected-at (1- (point))
@ -1920,7 +1927,7 @@ Also, store forcedalignment information found in such lines."
nil nil
(mapcar (mapcar
(lambda (f) (lambda (f)
(or (= (length f) 0) (or (and org-export-table-remove-empty-lines (= (length f) 0))
(string-match (string-match
"\\`<\\([0-9]\\|[lrc]\\|[lrc][0-9]+\\)>\\'" f))) "\\`<\\([0-9]\\|[lrc]\\|[lrc][0-9]+\\)>\\'" f)))
(org-split-string ;; FIXME, can't we do without splitting??? (org-split-string ;; FIXME, can't we do without splitting???