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

Bug fix for table export. 

No longer requires a heading above the table.
This commit is contained in:
Carsten Dominik 2008-07-14 11:55:47 -07:00
parent 523f8986e7
commit ba5621b2a8
2 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2008-07-14 Carsten Dominik <dominik@science.uva.nl> 2008-07-14 Carsten Dominik <dominik@science.uva.nl>
* org-table.el (org-table-export): Offer completion for translator
functions, and do not require a heading above the table.
* org.el (org-renumber-ordered-list, org-beginning-of-item-list): * org.el (org-renumber-ordered-list, org-beginning-of-item-list):
Cater for the case of a list starting in the first line of the Cater for the case of a list starting in the first line of the
buffer. buffer.

19
lisp/org-table.el
View File

@ -445,8 +445,14 @@ property, locally or anywhere up in the hierarchy."
(let* ((beg (org-table-begin)) (let* ((beg (org-table-begin))
(end (org-table-end)) (end (org-table-end))
(txt (buffer-substring-no-properties beg end)) (txt (buffer-substring-no-properties beg end))
(file (or file (org-entry-get beg "TABLE_EXPORT_FILE" t))) (file (or file
(format (or format (org-entry-get beg "TABLE_EXPORT_FORMAT" t))) (condition-case nil
(org-entry-get beg "TABLE_EXPORT_FILE" t)
(error nil))))
(format (or format
(condition-case nil
(org-entry-get beg "TABLE_EXPORT_FORMAT" t)
(error nil))))
buf deffmt-readable) buf deffmt-readable)
(unless file (unless file
(setq file (read-file-name "Export table to: ")) (setq file (read-file-name "Export table to: "))
@ -464,8 +470,13 @@ property, locally or anywhere up in the hierarchy."
(setq deffmt-readable (replace-match "\\t" t t deffmt-readable))) (setq deffmt-readable (replace-match "\\t" t t deffmt-readable)))
(while (string-match "\n" deffmt-readable) (while (string-match "\n" deffmt-readable)
(setq deffmt-readable (replace-match "\\n" t t deffmt-readable))) (setq deffmt-readable (replace-match "\\n" t t deffmt-readable)))
(setq format (read-string "Format: " deffmt-readable))) (setq format (org-completing-read
"Format: "
'("orgtbl-to-tsv" "orgtbl-to-csv"
"orgtbl-to-latex" "orgtbl-to-html"
"orgtbl-to-generic" "orgtbl-to-texinfo"
"orgtbl-to-orgtbl") nil nil
deffmt-readable)))
(if (string-match "\\([^ \t\r\n]+\\)\\( +.*\\)?" format) (if (string-match "\\([^ \t\r\n]+\\)\\( +.*\\)?" format)
(let* ((transform (intern (match-string 1 format))) (let* ((transform (intern (match-string 1 format)))
(params (if (match-end 2) (params (if (match-end 2)