Add vtt for Corwin

1 files changed, 65 insertions, 6 deletions

diff --git a/2020/submissions.org b/2020/submissions.org
index ded7ba2a..e6a41970 100644
--- a/2020/submissions.org
+++ b/2020/submissions.org
@@ -179,6 +179,7 @@ SCHEDULED: <2020-11-28 Sat 09:00-09:30>
 :CUSTOM_ID: talk00
 :TALK_ID:  00
 :ROOM:     A
+:DURATION: 7:04
 :END:
 
 *** 9:30 - 12:00 User talks                                       :morning:
@@ -220,6 +221,7 @@ SCHEDULED: <2020-11-28 Sat 09:33-09:37>
 :PREREC: ready
 :CUSTOM_ID: talk01
 :TALK_ID:  01
+:DURATION: 3:58
 :END:
 
 Name: Sacha Chua
@@ -289,6 +291,7 @@ SCHEDULED: <2020-11-28 Sat 09:40-10:00>
 :NAME:     Leo Vivier
 :CUSTOM_ID: talk02
 :TALK_ID:  02
+:DURATION: 24:15
 :END:
 
 Name: Leo Vivier
@@ -362,6 +365,7 @@ SCHEDULED: <2020-11-28 Sat 10:03-10:13>
 :CUSTOM_ID: talk03
 :TALK_ID:  03
 :PREREC:   done, live Q&A
+:DURATION: 14:50
 :END:
 
 Name: Bala Ramadurai
@@ -451,6 +455,7 @@ SCHEDULED: <2020-11-28 Sat 10:16-10:26>
 :PREREC:   planned
 :CUSTOM_ID: talk04
 :TALK_ID:  04
+:DURATION: 8:26
 :END:
 
 Name: Jonathan Gregory
@@ -512,6 +517,7 @@ SCHEDULED: <2020-11-28 Sat 10:29-10:45>
 :NAME:     Grant Shangreaux
 :CUSTOM_ID: talk05
 :TALK_ID:  05
+:DURATION: 29:50
 :END:
 
 Name: Grant Shangreaux
@@ -580,6 +586,7 @@ SCHEDULED: <2020-11-28 Sat 10:48-10:58>
 :NAME:     Corwin Brust (mplsCorwin)
 :CUSTOM_ID: talk06
 :TALK_ID:  06
+:DURATION: 13:41
 :END:
 
 Name: Corwin Brust
@@ -632,6 +639,7 @@ SCHEDULED: <2020-11-28 Sat 11:01-11:21>
 :NAME:     Sid Kasivajhula (countvajhula)
 :CUSTOM_ID: talk07
 :TALK_ID:  07
+:DURATION: 22:05
 :END:
 
 Name: Sid Kasivajhula
@@ -725,6 +733,7 @@ SCHEDULED: <2020-11-28 Sat 11:24-11:44>
 :NAME:     Andrew Tropin (abcdw)
 :CUSTOM_ID: talk08
 :TALK_ID:  08
+:DURATION: 17:19
 :END:
 
 Name: Andrew Tropin
@@ -796,6 +805,7 @@ fair use.
       :NAME:     Eduardo Ochs (edrx)
       :CUSTOM_ID: talk21
       :TALK_ID:  21
+      :DURATION: 47:08
       :END:
 
  Name: Eduardo Ochs
@@ -937,6 +947,7 @@ SCHEDULED: <2020-11-28 Sat 12:00-13:00>
      :NAME:     Rainer König
      :CUSTOM_ID: talk09
      :TALK_ID:  09
+     :DURATION: 14:09
      :END:
 
 Name: Rainer König
@@ -1021,6 +1032,7 @@ fair use.
      :NAME:     Andrea
      :CUSTOM_ID: talk10
      :TALK_ID:  10
+     :DURATION: 8:18
      :END:
 
 Name: Andrea
@@ -1085,6 +1097,7 @@ fair use.
      :NAME:     Aldric
      :CUSTOM_ID: talk11
      :TALK_ID:  11
+     :DURATION: 15:18
      :END:
   
 Name: Aldric
@@ -1140,6 +1153,7 @@ fair use.
      :NAME:     Leo Vivier
      :CUSTOM_ID: talk12
      :TALK_ID:  12
+     :DURATION: 16:38
      :END:
 
 Name: Leo Vivier
@@ -1214,6 +1228,7 @@ SCHEDULED: <2020-11-28 Sat 14:05-14:15>
 :NAME:     Joseph Corneli, Raymond Puzio, and Cameron Ray Smith
 :CUSTOM_ID: talk13
 :TALK_ID:  13
+:DURATION: 12:05
 :END:
 
 Name: Joseph Corneli, Raymond Puzio, and Cameron Ray Smith
@@ -1291,6 +1306,7 @@ SCHEDULED: <2020-11-28 Sat 14:18-14:38>
 :CUSTOM_ID: talk14
 :TALK_ID:  14
 :PREREC:   done
+:DURATION: 19:41
 :END:
 
 Name: Adam Ard
@@ -1351,6 +1367,7 @@ SCHEDULED: <2020-11-28 Sat 14:41-14:51>
 :NAME:     Adolfo Villafiorita
 :CUSTOM_ID: talk15
 :TALK_ID:  15
+:DURATION: 25:00
 :END:
 
 Name: Adolfo Villafiorita
@@ -1413,6 +1430,7 @@ SCHEDULED: <2020-11-28 Sat 14:54-15:14>
 :NAME:     Leo Vivier
 :CUSTOM_ID: talk16
 :TALK_ID:  16
+:DURATION: 21:56
 :END:
 
 Name: Leo Vivier
@@ -1492,6 +1510,7 @@ SCHEDULED: <2020-11-28 Sat 15:17-15:37>
 :NAME:     Noorah Alhasan
 :CUSTOM_ID: talk17
 :TALK_ID:  17
+:DURATION: 21:15
 :END:
 
 Name: Noorah Alhasan
@@ -1573,6 +1592,7 @@ SCHEDULED: <2020-11-28 Sat 15:40-16:00>
 :NAME:     Leo Vivier
 :CUSTOM_ID: talk18
 :TALK_ID:  18
+:DURATION: 21:26
 :END:
 
 Name: Leo Vivier
@@ -1657,6 +1677,7 @@ SCHEDULED: <2020-11-28 Sat 16:03-16:13>
 :NAME:     Brett Gilio
 :CUSTOM_ID: talk19
 :TALK_ID:  19
+:DURATION: 8:13
 :END:
 
 Name: Brett Gilio
@@ -1720,6 +1741,7 @@ SCHEDULED: <2020-11-28 Sat 16:16-16:36>
 :NAME:     Corwin Brust (mplsCorwin)
 :CUSTOM_ID: talk20
 :TALK_ID:  20
+:DURATION: 22:50
 :END:
 
 Name: Corwin Brust
@@ -1782,6 +1804,7 @@ SCHEDULED: <2020-11-28 Sat 16:30-17:00>
 :NAME:     Amin Bandali, Sacha Chua, Leo Vivier, Corwin Brust
 :TALK_ID:  40
 :CUSTOM_ID: talk40
+:DURATION: 15:47
 :END:
 
 ** NOVEMBER 29 (Sunday)                                                :sun:
@@ -1794,6 +1817,7 @@ SCHEDULED: <2020-11-29 Sun 09:00-09:10>
 :NAME:     Amin Bandali, Sacha Chua, Leo Vivier
 :TALK_ID:  41
 :CUSTOM_ID: talk41
+:DURATION: 11:47
 :END:
 
 *** 9:10 - 12:00 Morning talks                                    :morning:
@@ -1830,6 +1854,7 @@ SCHEDULED: <2020-11-29 Sun 09:00-09:10>
      :TALK_ID:  38
      :CUSTOM_ID: talk38
      :PREREC:   done
+     :DURATION: 5:07
      :END:
 
 ***** Talk information
@@ -1845,6 +1870,7 @@ SCHEDULED: <2020-11-29 Sun 09:33-09:53>
 :NAME:     Musa Al-hassy
 :CUSTOM_ID: talk22
 :TALK_ID:  22
+:DURATION: 29:06
 :END:
 
 Name: Musa Al-hassy
@@ -1964,6 +1990,7 @@ SCHEDULED: <2020-11-29 Sun 09:56-10:46>
 :PREREC: 24min
 :CUSTOM_ID: talk23
 :TALK_ID:  23
+:DURATION: 43:54
 :END:
 
 Name: Tuấn-Anh Nguyễn
@@ -2030,6 +2057,7 @@ SCHEDULED: <2020-11-29 Sun 10:49-11:09>
 :QUESTIONS: pad and IRC, not BBB
 :TALK_ID:  24
 :PREREC:   done
+:DURATION: 20:46
 :END:
 
 Name: Andrea
@@ -2104,6 +2132,7 @@ SCHEDULED: <2020-11-29 Sun 11:12-11:22>
 :QA: pad/IRC
 :TALK_ID:  25
 :PREREC:   done
+:DURATION: 9:52
 :END:
 
 Name: Zen Monk Alain M. Lafon
@@ -2176,6 +2205,7 @@ fair use.
      :MIN_TIME: 20
      :AVAILABILITY: tbd
      :NAME:     Richard Stallman
+     :DURATION: 53:38
      :END:
      
 **** Talk information
@@ -2228,6 +2258,7 @@ SCHEDULED: <2020-11-29 Sun 13:03-13:13>
 :CUSTOM_ID: talk26
 :TALK_ID:  26
 :PREREC:  done
+:DURATION: 14:57
 :END:
 
 Name: Pierce Wang
@@ -2304,6 +2335,7 @@ SCHEDULED: <2020-11-29 Sun 13:16-13:26>
 :CUSTOM_ID: talk27
 :PREREC: done
 :TALK_ID:  27
+:DURATION: 21:26
 :END:
 
 Hello,
@@ -2374,6 +2406,7 @@ SCHEDULED: <2020-11-29 Sun 13:29-14:19>
 :CUSTOM_ID: talk28
 :QA:  rtmp
 :TALK_ID:  28
+:DURATION: 9:00
 :END:
 
 Name: Erik Elmshauser and Corwin Brust
@@ -2563,6 +2596,7 @@ SCHEDULED: <2020-11-29 Sun 14:45-14:55>
 :CUSTOM_ID: talk30
 :TALK_ID:  30
 :PREREC:   done
+:DURATION: 11:30
 :END:
 
 Name: Gabriele Bozzola (@sbozzolo)
@@ -2622,6 +2656,7 @@ SCHEDULED: <2020-11-29 Sun 14:58-15:14>
 :CUSTOM_ID: talk31
 :TALK_ID:  31
 :PREREC:   done
+:DURATION: 16:50
 :END:
 
 Name: Grant Shangreaux
@@ -2698,6 +2733,7 @@ SCHEDULED: <2020-11-29 Sun 15:17-15:41>
 :CUSTOM_ID: talk32
 :TALK_ID:  32
 :PREREC:   planned
+:DURATION: 23:57
 :END:
 
 Name: Eric Abrahamsen
@@ -2764,6 +2800,7 @@ SCHEDULED: <2020-11-29 Sun 15:44-16:04>
 :NAME:     Fermin MF
 :CUSTOM_ID: talk33
 :TALK_ID:  33
+:DURATION: 39:16
 :END:
 
 Name: Fermin MF
@@ -2828,6 +2865,7 @@ SCHEDULED: <2020-11-29 Sun 16:07-16:30>
 :CUSTOM_ID: talk34
 :TALK_ID:  34
 :QA:  irc
+:DURATION: 22:22
 :END:
 
 Name: Matthew Zeng
@@ -2885,6 +2923,7 @@ SCHEDULED: <2020-11-29 Sun 16:33-16:43>
 :TALK_ID:  35
 :PREREC: done
 :QA: live
+:DURATION: 16:02
 :END:
 
 Name: Zachary Kanfer
@@ -2946,6 +2985,7 @@ SCHEDULED: <2020-11-29 Sun 16:30-17:00>
 :NAME:     Amin Bandali, Sacha Chua, Leo Vivier, Corwin Brust
 :TALK_ID:  42
 :CUSTOM_ID: talk42
+:DURATION:  36:29
 :END:
 
 * Withdrawn
@@ -3033,6 +3073,21 @@ the target time.
 Some conference-related functions
 
 #+begin_src emacs-lisp  :exports code :results none :tangle "conf.el"
+  (defun conf/find-talk (filter &optional info)
+    (setq info (or info (conf/filter-talks conf/info)))
+    (when (stringp filter) (setq filter (list filter)))
+    (or (seq-find (lambda (o) (string= (plist-get o :talk-id) (car filter))) info)
+        (seq-find (lambda (o)
+                    (let ((case-fold-search t)
+                          (all (mapconcat (lambda (f) (plist-get o f)) '(:title :speakers :talk-id) " ")))
+                      (null (seq-contains-p
+                             (mapcar (lambda (condition) (string-match condition all)) filter)
+                             nil))))
+                  info)))
+  
+(defun conf/goto-talk-id (id)
+  (goto-char (org-find-property "TALK_ID" id)))
+
 (defun conf/assign-ids ()
   "Assign numeric talk IDs."
   (interactive)
@@ -3140,6 +3195,7 @@ The total is written to the MIN_TIME_SUM property of this heading"
                                        :status (elt heading 2)
                                        :level (car heading)
                                        :scheduled (org-entry-get (point) "SCHEDULED")
+                                       :duration (org-entry-get (point) "DURATION")
                                        :time (org-entry-get (point) "MIN_TIME")
                                        :speakers (org-entry-get (point) "NAME"))))
                           ((string-match "^ *Talk information *$" (elt heading 4))
@@ -3153,6 +3209,7 @@ The total is written to the MIN_TIME_SUM property of this heading"
                                           (list :type 'headline
                                                 :level (car heading)
                                                 :speakers (org-entry-get (point) "NAME")
+                                                :duration (org-entry-get (point) "DURATION")
                                                 :talk-id (org-entry-get (point) "TALK_ID")
                                                 :title (elt heading 4)
                                                 :scheduled (org-entry-get (point) "SCHEDULED"))
@@ -3303,20 +3360,22 @@ Talk page: <https://emacsconf.org/2020/schedule/%s>
       (save-buffer))))
 
 (defun conf/generate-talks-page ()
-  (let ((info (conf/filter-talks conf/info)))
+  (let ((info conf/info))
     (with-temp-buffer
       (find-file "talk-details.md")
       (erase-buffer)
-      (insert (format "<table><thead><th>Title</th><th>Speakers</th></thead><tbody>%s</tbody></table>"
+      (insert (format "<table><thead><th>Duration</th><th>Title</th><th>Speakers</th></thead><tbody>%s</tbody></table>"
                       (mapconcat
                        (lambda (o)
                          (let* ((title (plist-get o :title))
                                 (speakers (plist-get o :speakers)))
                            (if (null (plist-get o :talk-id))
-                               (format "<tr><td colspan=\"2\"%s</td></tr>" (plist-get o :title))
-                             (format "<tr><td>%s</td><td>%s</td><tr>" (conf/format-talk-link o)
-                                     (plist-get o :speakers)))))
-                                     info "\n")))
+                               (format "<tr><td colspan=\"3\">%s</td></tr>" (conf/format-talk-link o))
+                             (format "<tr><td>%s</td><td>%s</td><td>%s</td><tr>" 
+                             (plist-get o :duration)
+                             (conf/format-talk-link o)
+                             (plist-get o :speakers)))))
+                             info "\n")))
       (save-buffer))))
 
 (defun conf/generate-schedule-files (&optional filename)