emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] org table with datestamp convert to csv and then xlsx or ods: pr


From: Nicolas Goaziou
Subject: Re: [O] org table with datestamp convert to csv and then xlsx or ods: problem
Date: Mon, 08 Jan 2018 20:51:34 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.3 (gnu/linux)

Uwe Brauer <address@hidden> writes:

>     > Uwe Brauer <address@hidden> writes:
>
>     > I have no trouble calling M-x org-table-export RET then choosing a file
>     > name and forcing my-tbl-to-csv during prompt.
>
> Hm I had to copy org-export-table into my addons file and
>       (let* ((formats '("my-tbl-to-csv" "orgtbl-to-csv" "orgtbl-to-tsv"  
> "orgtbl-to-latex"
>                         "orgtbl-to-html" "orgtbl-to-generic"
>                         "orgtbl-to-texinfo" "orgtbl-to-orgtbl"
>                         "orgtbl-to-unicode"))

You don't need to. These are only suggestions, the final format needs
not matching any item in this list.

> It seems that the variable org-table-export-default-format is ignored, a
> bug?

Not really. See `org-table-export' docstring, last paragraph.

> Right, thanks. A last question though.
>
> I have set
>
> org-time-stamp-custom-formats to
>  (" %d.%m.%y " . " %d.%m.%y %a %H:%M "))
>
> '(org-time-stamp-custom-formats (quote (" %d.%m.%y " . " %d.%m.%y %a %H:%M 
> ")))
>
> And indeed in my org files the timestamp are displayed 
> for example as <19.12.17>.
>
> However when I use
> org-toggle-time-stamp-overlays
> they are displayed as <2017-12-19 Tue>
> the point is your conversion function will lead to
> 2017-12-19 Tue
>
>
> which is much better for my purpose since the < > are deleted.
>
>
>
> I am still wondering whether the format I chose via 
> org-time-stamp-custom-formats
> could be somehow used, so  that the result could be
> 19.12.17

You could try (untested):

    (defun my-format-timestamps (cell)
      (org-quote-csv-field
       (replace-regexp-in-string
        org-ts-regexp-both
        (lambda (m)
          (if (not org-display-custom-times) (substring m 1 -1)
            (let ((hours? (string-match-p "[0-9]+:[0-9]+" m)))
              (format-time-string (funcall (if hours? #'cdr #'car)
                                           org-time-stamp-custom-formats)
                                  (org-parse-time-string m)))))
        cell)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]