Re: org table with datestamp convert to csv and then xlsx or ods: problem

[Nicolas Goaziou <mail@nicolasgoaziou.fr>]

Uwe Brauer <oub@mat.ucm.es> writes:

>     > Uwe Brauer <oub@mat.ucm.es> 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)))