Publish code with tz

1 files changed, 54 insertions, 47 deletions

diff --git a/2020/submissions.md b/2020/submissions.md
index 820fdf7d..fe037c4b 100644
--- a/2020/submissions.md
+++ b/2020/submissions.md
@@ -7,32 +7,32 @@ You can check out the Org Mode source for this page by following the [editing in
 
 # Table of Contents
 
--   [Actions](#orgc78d19d)
--   [Tables](#orge37da78)
-    -   [Overall](#org133fe6a)
-    -   [By slot](#orgfbbe126)
-        -   [Saturday](#orgb17a281)
-        -   [Sunday](#orga0f3693)
-    -   [Table for all talks](#orga5479b6)
--   [Talks](#org0ddd35a)
-    -   [NOVEMBER 28 (Saturday)](#orgaa603c0):sat:
-        -   [9:00 - 9:30 Opening remarks](#org4af5693)
-        -   [9:30 - 12:00 User talks](#org43d6959):morning:
-        -   [12:00 - 13:00 Lunch](#org8fe9d32)
-        -   [13:00 - 16:30 Afternoon talks](#orgf1d801f):afternoon:
-        -   [16:30 - 17:00 Closing remarks](#org017f2e2)
-    -   [NOVEMBER 29 (Sunday)](#orgbaa0b13):sun:
-        -   [9:00 - 9:10 Opening remarks](#orga94bf4a)
-        -   [9:10 - 12:00 Morning talks](#orgb0faa98):morning:
-        -   [12:00 - 13:00 Lunch](#orgc674abb)
-        -   [13:00 - 16:30 Afternoon talks](#orged450d1):afternoon:
-        -   [16:30 - 17:00 Closing remarks](#org69fd819)
+-   [Actions](#orgdff25b5)
+-   [Tables](#orga0455a5)
+    -   [Overall](#org755c8df)
+    -   [By slot](#org261bd00)
+        -   [Saturday](#org0ad04cd)
+        -   [Sunday](#org9657a6d)
+    -   [Table for all talks](#orgb17e3f5)
+-   [Talks](#orga27c407)
+    -   [NOVEMBER 28 (Saturday)](#org28152a3):sat:
+        -   [9:00 - 9:30 Opening remarks](#org0612b97)
+        -   [9:30 - 12:00 User talks](#org35fca71):morning:
+        -   [12:00 - 13:00 Lunch](#orgf440e9e)
+        -   [13:00 - 16:30 Afternoon talks](#org0e05aca):afternoon:
+        -   [16:30 - 17:00 Closing remarks](#orgd86edf9)
+    -   [NOVEMBER 29 (Sunday)](#org8147f7e):sun:
+        -   [9:00 - 9:10 Opening remarks](#org27b122e)
+        -   [9:10 - 12:00 Morning talks](#orgf8f88d8):morning:
+        -   [12:00 - 13:00 Lunch](#org9553003)
+        -   [13:00 - 16:30 Afternoon talks](#org4389ea7):afternoon:
+        -   [16:30 - 17:00 Closing remarks](#org5d06bae)
 -   [Code](#talk37)
-    -   [Planning](#org3b92c48)
-    -   [Generate schedule file](#org6a0a262)
+    -   [Planning](#org5ad4e55)
+    -   [Generate schedule file](#org9a2d804)
 
 
-<a id="orgc78d19d"></a>
+<a id="orgdff25b5"></a>
 
 # Actions
 
@@ -42,12 +42,12 @@ You can check out the Org Mode source for this page by following the [editing in
 -   [Generate schedule files](conf/generate-schedule-files)
 
 
-<a id="orge37da78"></a>
+<a id="orga0455a5"></a>
 
 # Tables
 
 
-<a id="org133fe6a"></a>
+<a id="org755c8df"></a>
 
 ## Overall
 
@@ -179,12 +179,12 @@ You can check out the Org Mode source for this page by following the [editing in
 </table>
 
 
-<a id="orgfbbe126"></a>
+<a id="org261bd00"></a>
 
 ## By slot
 
 
-<a id="orgb17a281"></a>
+<a id="org0ad04cd"></a>
 
 ### Saturday
 
@@ -434,7 +434,7 @@ You can check out the Org Mode source for this page by following the [editing in
     </table>
 
 
-<a id="orga0f3693"></a>
+<a id="org9657a6d"></a>
 
 ### Sunday
 
@@ -639,7 +639,7 @@ You can check out the Org Mode source for this page by following the [editing in
     </table>
 
 
-<a id="orga5479b6"></a>
+<a id="orgb17e3f5"></a>
 
 ## Table for all talks
 
@@ -963,22 +963,22 @@ You can check out the Org Mode source for this page by following the [editing in
 </table>
 
 
-<a id="org0ddd35a"></a>
+<a id="orga27c407"></a>
 
 # Talks
 
 
-<a id="orgaa603c0"></a>
+<a id="org28152a3"></a>
 
 ## NOVEMBER 28 (Saturday)     :sat:
 
 
-<a id="org4af5693"></a>
+<a id="org0612b97"></a>
 
 ### 9:00 - 9:30 Opening remarks
 
 
-<a id="org43d6959"></a>
+<a id="org35fca71"></a>
 
 ### 9:30 - 12:00 User talks     :morning:
 
@@ -1697,12 +1697,12 @@ You can check out the Org Mode source for this page by following the [editing in
             fair use.
 
 
-<a id="org8fe9d32"></a>
+<a id="orgf440e9e"></a>
 
 ### 12:00 - 13:00 Lunch
 
 
-<a id="orgf1d801f"></a>
+<a id="org0e05aca"></a>
 
 ### 13:00 - 16:30 Afternoon talks     :afternoon:
 
@@ -2618,22 +2618,22 @@ You can check out the Org Mode source for this page by following the [editing in
         fair use.
 
 
-<a id="org017f2e2"></a>
+<a id="orgd86edf9"></a>
 
 ### 16:30 - 17:00 Closing remarks
 
 
-<a id="orgbaa0b13"></a>
+<a id="org8147f7e"></a>
 
 ## NOVEMBER 29 (Sunday)     :sun:
 
 
-<a id="orga94bf4a"></a>
+<a id="org27b122e"></a>
 
 ### 9:00 - 9:10 Opening remarks
 
 
-<a id="orgb0faa98"></a>
+<a id="orgf8f88d8"></a>
 
 ### 9:10 - 12:00 Morning talks     :morning:
 
@@ -3045,12 +3045,12 @@ You can check out the Org Mode source for this page by following the [editing in
     TBD - plans for a NonGNU ELPA that will be easy to enable and contribute to without signing copyright assignment papers
 
 
-<a id="orgc674abb"></a>
+<a id="org9553003"></a>
 
 ### 12:00 - 13:00 Lunch
 
 
-<a id="orged450d1"></a>
+<a id="org4389ea7"></a>
 
 ### 13:00 - 16:30 Afternoon talks     :afternoon:
 
@@ -3814,7 +3814,7 @@ You can check out the Org Mode source for this page by following the [editing in
         fair use.
 
 
-<a id="org69fd819"></a>
+<a id="org5d06bae"></a>
 
 ### 16:30 - 17:00 Closing remarks
 
@@ -3882,7 +3882,7 @@ fair use.
 # Code
 
 
-<a id="org3b92c48"></a>
+<a id="org5ad4e55"></a>
 
 ## Planning
 
@@ -3984,7 +3984,7 @@ Some conference-related functions
                                  (lambda () (org-entry-get (point) "MIN_TIME")) nil 'tree))))))))
 
 
-<a id="org6a0a262"></a>
+<a id="org9a2d804"></a>
 
 ## Generate schedule file
 
@@ -4084,9 +4084,16 @@ Some conference-related functions
                                     (plist-get o :speakers)
                                     nav-links
                                     (plist-get o :title)
-                                    (format "%s - %s"
-                                            (format-time-string "%A, %b %e %Y, %l:%M %p" (org-timestamp-to-time (org-timestamp-split-range timestamp)))
-                                            (format-time-string "%l:%M %p" (org-timestamp-to-time (org-timestamp-split-range timestamp t))))
+                                    (concat (format-time-string "%A, %b %e %Y, " (org-timestamp-to-time (org-timestamp-split-range timestamp)))
+                                            (mapconcat
+                                             (lambda (tz)
+                                               (format "%s - %s"
+                                                       (format-time-string "%l:%M %p"
+                                                                           (org-timestamp-to-time (org-timestamp-split-range timestamp)) tz)
+                                                       (format-time-string "%l:%M %p %Z"
+                                                                           (org-timestamp-to-time (org-timestamp-split-range timestamp t)) tz)))
+                                             '("EST" "America/Los_Angeles" "UTC" "CET")
+                                             " / "))
                                     (plist-get o :speakers)
                                     (org-export-string-as (plist-get o :abstract) 'md t)
                                     nav-links)))