diff options
| author | EmacsConf Organizers <orga@front0.emacsconf.org> | 2022-10-08 14:32:44 +0000 |
|---|---|---|
| committer | EmacsConf Organizers <orga@front0.emacsconf.org> | 2022-10-08 14:32:44 +0000 |
| commit | 49cdc0047fbe0119bb197724bd5cb9dbfeda7132 (patch) | |
| tree | 39c558accc3622c9d5f155f8621522f89e36cca0 /emacsconf-publish.el | |
| parent | 028b3db31447476e5636d5017997d520e9664a66 (diff) | |
| download | emacsconf-el-49cdc0047fbe0119bb197724bd5cb9dbfeda7132.tar.xz emacsconf-el-49cdc0047fbe0119bb197724bd5cb9dbfeda7132.zip | |
Work with different system timezone
Diffstat (limited to 'emacsconf-publish.el')
| -rw-r--r-- | emacsconf-publish.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el index cf73bf9..9d60fb8 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -556,8 +556,11 @@ Entries are sorted chronologically, with different tracks interleaved." (height 150) (width 600)) (mapconcat (lambda (day) - (let ((day-start (date-to-time (format-time-string "%Y-%m-%d 9:00" (plist-get (cadr day) :start-time)))) - (day-end (date-to-time (format-time-string "%Y-%m-%d 17:00" (plist-get (cadr day) :start-time))))) + (let ((day-start (date-to-time + (concat (format-time-string "%Y-%m-%dT09:00" (plist-get (cadr day) :start-time)) + emacsconf-timezone-offset))) + (day-end (date-to-time (concat (format-time-string "%Y-%m-%dT17:00" (plist-get (cadr day) :start-time)) + emacsconf-timezone-offset)))) ;; (with-temp-file (expand-file-name (concat emacsconf-year "/talks/" ;; (format-time-string "schedule-%Y-%m-%d.svg" ;; (plist-get (cadr day) :start-time) @@ -688,8 +691,8 @@ Entries are sorted chronologically, with different tracks interleaved." :time (plist-get o :time) :startutc (format-time-string "%FT%T%z" (plist-get o :start-time) t) :endutc (format-time-string "%FT%T%z" (plist-get o :end-time) t) - :start (format-time-string "%-l:%M" (plist-get o :start-time)) - :end (format-time-string "%-l:%M" (plist-get o :end-time))))))) + :start (format-time-string "%-l:%M" (plist-get o :start-time) emacsconf-timezone) + :end (format-time-string "%-l:%M" (plist-get o :end-time) emacsconf-timezone)))))) (while attrs (let ((field (pop attrs)) (val (pop attrs))) |