Proposed patch for customizable org-table-export

["Colin Williams" <lackita@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 955 bytes --]

I've created the custom variable org-table-export-delimiter so that the user
may customize the string that delimits the columns exported.

I believe this is useful because in some areas (namely, my office) people
insist on the files being in csv (comma separated values).

I've also noticed (but haven't bothered fixing yet) that if a field contains
the delimiter string (be it a tab or a comma), then the resulting exported
file has misaligned columns.  In csv format, this is remedied by surround
the offending columns in double quotes.  I'm not sure, but I believe tab
separated format usually handles separator character disambiguation in a
similar way.

I've attached the patch for my change, but as this patch is the first thing
I've contributed to org-mode, I'm still waiting on the paperwork from the
gnu foundation.  Also, I've actually never contributed a patch to a free
project before, so I'm sorry if the patch file is incorrectly formatted.

[-- Attachment #1.2: Type: text/html, Size: 1030 bytes --]

[-- Attachment #2: org.el.patch --]
[-- Type: application/octet-stream, Size: 850 bytes --]

--- org.el~	2008-05-05 23:09:50.000000000 -0400
+++ org.el	2008-10-28 22:50:18.204880700 -0400
@@ -8510,6 +8510,11 @@ are found, lines will be split on whites
     (insert-file-contents file)
     (org-table-convert-region beg (+ (point) (- (point-max) pm)) arg)))
 
+(defcustom org-table-export-delimiter "\t"
+  "The default separator for exported tables."
+  :group 'org-table-settings
+   :type 'string)
+
 (defun org-table-export ()
   "Export table as a tab-separated file.
 Such a file can be imported into a spreadsheet program like Excel."
@@ -8542,7 +8547,7 @@ Such a file can be imported into a sprea
 	    (delete-char 1)))
       (goto-char (point-min))
       (while (re-search-forward "[ \t]*|[ \t]*" nil t)
-	(replace-match "\t" t t))
+	(replace-match org-table-export-delimiter t t))
       (save-buffer))
     (kill-buffer buf)))
 

[-- Attachment #3: Type: text/plain, Size: 204 bytes --]

_______________________________________________
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