Update tasks

1 files changed, 29 insertions, 8 deletions

diff --git a/2020/organizers-notebook.org b/2020/organizers-notebook.org
index 141f08e0..3ee550dc 100644
--- a/2020/organizers-notebook.org
+++ b/2020/organizers-notebook.org
@@ -1,16 +1,10 @@
-"* Tasks
-** TODO Create tasks for each of the subtitles
-** TODO Figure out how to generate subtitles for the ones that didn't get auto-generated
-** TODO Link compressed videos on each talk page
-#+begin_src emacs-lisp
-(mapcar (lambda (o) ) (directory-files "~/vendor/emacsconf-original-audio")
-#+end_src
+* Tasks
 ** Manually transcribe
 Either subtitles (with timestamps) or a text transcript (no timestamps) is perfectly okay.
 
 *** TODO mplsCorwin: emacsconf-2020--03-idea-to-novel-superstructure-emacs-for-writing--questions--bala-ramadurai.webm
 *** TODO mplsCorwin: emacsconf-2020--08-building-reproducible-emacs--andrew-tropin.webm
-*** TODO emacsconf-2020--10-lead-your-future-with-org--andrea.webm
+*** TODO sachac: emacsconf-2020--10-lead-your-future-with-org--andrea.webm
 *** TODO emacsconf-2020--24-analyze-code-quality-through-emacs-a-smart-forensics-approach-and-the-story-of-a-hack--andrea.webm
 ** Edit automatic subtitles
 No need to worry about end timestamps, since I'll set them to the
@@ -60,6 +54,33 @@ See [[file:info/03/screenplay.fountain]]
 *** TODO [[../subtitles/emacsconf-2020--40-closing-remarks-part-2-autogen.sbv]]
 *** TODO [[../subtitles/emacsconf-2020--41-opening-remarks-autogen.sbv]]
 *** TODO [[../subtitles/emacsconf-2020--42-closing-remarks-autogen.sbv]]
+** DONE Create tasks for each of the subtitles
+   CLOSED: [2020-12-09 Wed 15:42]
+   :LOGBOOK:
+   - State "DONE"       from "TODO"       [2020-12-09 Wed 15:42]
+   :END:
+** DONE Link compressed videos on each talk page
+   CLOSED: [2020-12-09 Wed 15:42]
+   :LOGBOOK:
+   - State "DONE"       from "TODO"       [2020-12-09 Wed 15:42]
+   :END:
+#+begin_src emacs-lisp
+  (mapc (lambda (o)
+          (if (string-match "\\(emacsconf-2020--\\([0-9]+\\).*?\\)-vp9-q56-original-audio\\.webm" o)
+              (let ((talk-id (match-string 2 o))
+                    (base (match-string 1 o)))
+                (find-file (expand-file-name (concat talk-id ".md") "~/vendor/emacsconf-wiki/2020/info"))
+                (goto-char (point-min))
+                (when (re-search-forward base nil t)
+                  (forward-line 1)
+                  (beginning-of-line)
+                  (unless (looking-at "\\[Download")
+                    (insert (format "[Download compressed %s.webm video (%s)](https://media.emacsconf.org/2020/%s)\n"
+                                    (if (string-match "questions" o) "Q&A " "")
+                                    (file-size-human-readable (file-attribute-size (file-attributes o)))
+                                    (file-name-nondirectory o))))))))
+        (directory-files "~/vendor/emacsconf-original-audio" t "webm"))
+#+end_src
 * Things to check or decide
 - Can we stream from multiple rooms without getting thoroughly confused?
 - Assign rooms shortly before presentation