mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-02-01 20:54:25 +00:00
Code

Provide an *orgtbl-default-fmt* for entries not in a fmt plist.

Browse Source 
The *orgtbl-default-fmt* is a hook for orgtbl transformations to
ensure a destination-sensible default for columns not present in
a fmt plist.  The leaving the value at nil changes no existing
behavior.

Signed-off-by: Jason Riedy <jason@acm.org>

Conflicts:

	ChangeLog
This commit is contained in:
Carsten Dominik 2008-05-06 14:17:53 +02:00
parent 5316cbbf05
commit 1f7360c584
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ChangeLog
View File

@ -17,9 +17,12 @@
* lisp/org-exp.el (org-export-as-html, org-close-li): Implement
description lists.
2008-05-04 Jason Riedy <jason@acm.org>
* lisp/org-table.el (*orgtbl-default-fmt*): New variable.
(orgtbl-format-line): Use the value of *orgtbl-default-fmt*
when there is no other fmt available.
(orgtbl-to-generic): Allow an explicitly nil :tstart or
:tend to suppress the appropriate string.

5
lisp/org-table.el
View File

@ -3631,6 +3631,7 @@ First element has index 0, or I0 if given."
;; Formatting parameters for the current table section.
(defvar *orgtbl-hline* nil "Text used for horizontal lines")
(defvar *orgtbl-sep* nil "Text used as a column separator")
(defvar *orgtbl-default-fmt* nil "Default format for each entry")
(defvar *orgtbl-fmt* nil "Format for each entry")
(defvar *orgtbl-efmt* nil "Format for numbers")
(defvar *orgtbl-lfmt* nil "Format for an entire line, overrides fmt")
@ -3672,7 +3673,9 @@ First element has index 0, or I0 if given."
(orgtbl-apply-fmt efmt (match-string 1 f)
(match-string 2 f))
f)))
(orgtbl-apply-fmt (orgtbl-get-fmt *orgtbl-fmt* i) f)))
(orgtbl-apply-fmt (or (orgtbl-get-fmt *orgtbl-fmt* i)
*orgtbl-default-fmt*)
f)))
line)))
(push (if *orgtbl-lfmt*
(orgtbl-apply-fmt *orgtbl-lfmt* line)