Useful if the header formatting is used purely for side-effects. Signed-off-by: Jason Riedy <[EMAIL PROTECTED]> --- ChangeLog | 5 +++++ lisp/org-table.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletions(-)
diff --git a/ChangeLog b/ChangeLog index 1347715..15937cc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2008-04-16 Jason Riedy <[EMAIL PROTECTED]> + + * lisp/org-table.el (orgtbl-to-generic): Add a :remove-nil-lines + parameter that supresses lines that evaluate to NIL. + 2008-04-15 Jason Riedy <[EMAIL PROTECTED]> * lisp/org-table.el (orgtbl-get-fmt): New inline function for diff --git a/lisp/org-table.el b/lisp/org-table.el index 4ae90e3..9b4297b 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -3692,6 +3692,8 @@ Valid parameters are :sep Separator between two fields +:remove-nil-lines Do not include lines that evaluate to nil. + Each in the following group may be either a string or a function of no arguments returning a string: :tstart String to start the table. Ignored when :splice is t. @@ -3731,6 +3733,7 @@ directly by `orgtbl-send-table'. See manual." (interactive) (let* ((splicep (plist-get params :splice)) (hline (plist-get params :hline)) + (remove-nil-linesp (plist-get params :remove-nil-lines)) (*orgtbl-table* table) (*orgtbl-sep* (plist-get params :sep)) (*orgtbl-efmt* (plist-get params :efmt)) @@ -3776,7 +3779,9 @@ directly by `orgtbl-send-table'. See manual." (push (or (orgtbl-eval-str (plist-get params :tend)) "ERROR: no :tend") *orgtbl-rtn*)) - (mapconcat 'identity (nreverse *orgtbl-rtn*) "\n"))) + (mapconcat 'identity (nreverse (if remove-nil-linesp + (remq nil *orgtbl-rtn*) + *orgtbl-rtn*)) "\n"))) (defun orgtbl-to-latex (table params) "Convert the orgtbl-mode TABLE to LaTeX. -- 1.5.5.rc1.121.g1594 _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode