Hi,
Matt Price wrote at 16:27 on September 21, 2019:
:
: :DUE_AT: 2019-09-26
:
: ...
:
: I'm wondering though how hard
: it would be to get the current time zone -- or the time zone that the course
is taught in -- from
: emacs, and construct the string from that value.
This'll return the offset suffix (if that's what you want) when
executed in your local time zone (presumably "-04:00"):
(defun Price/local-time-offset-from-iso-date (y-m-d)
(let* ((ymd (mapcar (lambda (s) (string-to-number s)) (split-string y-m-d
"-")))
(offsecs (nth 8
(decode-time
(apply #'encode-time
(list 59 59 23 (nth 2 ymd) (nth 1 ymd) (nth 0
ymd)))))))
(format "%s%02d:%02d"
(if (> offsecs 0) "+" "-")
(/ offsecs 3600)
(% offsecs 3600))))
On Unix, this'll always work. On Windows, it works most of the time,
but may fail in the weeks around switches from and to daylight saving.
Thomas
