Uwe Brauer <o...@mat.ucm.es> writes:
> > Uwe Brauer <o...@mat.ucm.es> writes:
>
> > You don't need to. These are only suggestions, the final format needs
> > not matching any item in this list.
>
>
> > Not really. See `org-table-export' docstring, last paragraph.
>
>
> > 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)))
>
>
> Thanks very much, but the outcome of that function for the table
>
> | <2017-12-19 Tue> | 189.09 € |
> | <2017-12-21 Wed> | 27.86 € |
>
>
> < 01.01.70 >,189.09 €
> < 01.01.70 >,27.86 €
>
>
> For all timestamp could expanded into the same string and the < > were
> left in place.
Ah well, this was a basis to get you started... This one should work
(defun my-format-timestamps (cell)
(org-quote-csv-field
(replace-regexp-in-string
org-ts-regexp-both
(lambda (m)
(format-time-string
(let ((hours? (string-match-p "[0-9]+:[0-9]+" m)))
(funcall (if hours? #'cdr #'car) org-time-stamp-custom-formats))
(apply #'encod-time (save-match-data (org-parse-time-string m)))))
cell)))
