Re: The wild and weird world of Emacs Lisp date/time arithmetic

[Teemu Likonen]

* 2020-12-17 21:47:27+02, Teemu Likonen wrote:

>     (defun my-add-one-day (date-string)
>       (let ((decoded (decoded-time-add (parse-time-string date-string)
>                                        (make-decoded-time :day 1))))
>         (format "%04d-%02d-%02d"
>                 (nth 5 decoded)
>                 (nth 4 decoded)
>                 (nth 3 decoded))))

It's probably better to use access functions DECODED-TIME-YEAR etc.
instead of accessing list elements with NTH. So:

    (defun my-add-one-day (date-string)
      (let ((decoded (decoded-time-add (parse-time-string date-string)
                                       (make-decoded-time :day 1))))
        (format "%04d-%02d-%02d"
                (decoded-time-year decoded)
                (decoded-time-month decoded)
                (decoded-time-day decoded))))


-- 
/// Teemu Likonen - .-.. https://www.iki.fi/tlikonen/
// OpenPGP: 4E1055DC84E9DFF613D78557719D69D324539450

signature.asc
Description: PGP signature