[Orgmode] [PATCH 1/4] Provide an *orgtbl-default-fmt* for entries not in a fmt plist.

[Jason Riedy]

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 <address@hidden>
---
 ChangeLog         |    6 ++++++
 lisp/org-table.el |    5 ++++-
 2 files changed, 10 insertions(+), 1 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 15c9602..69710ec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2008-05-04  Jason Riedy  <address@hidden>
+
+       * 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.
+
 2008-05-02  Carsten Dominik  <address@hidden>
 
        * lisp/org.el (org-read-date-analyze): "." as an alias for "+0" in
diff --git a/lisp/org-table.el b/lisp/org-table.el
index ef1d932..17441cd 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -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)
-- 
1.5.5.rc1.121.g1594