mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-27 04:02:53 +00:00
Bug fix for table export.
No longer requires a heading above the table.
This commit is contained in:
parent
523f8986e7
commit
ba5621b2a8
|
@ -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.
|
||||||
|
|
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue