try putting hyperdrive on Sunday afternoon, second track

1 files changed, 31 insertions, 34 deletions

diff --git a/2023/organizers-notebook/index.org b/2023/organizers-notebook/index.org
index 585e1ebf..7455a96d 100644
--- a/2023/organizers-notebook/index.org
+++ b/2023/organizers-notebook/index.org
@@ -378,14 +378,15 @@ These times are in EST (GMT-5).
 			(emacsconf-schedule-break-time 10)
 			(emacsconf-schedule-lunch-time 60)
 			(emacsconf-use-absolute-url t)
-			(emacsconf-schedule-strategies '(emacsconf-schedule-allocate-buffer-time))
+			(emacsconf-schedule-strategies '(emacsconf-schedule-allocate-buffer-time
+																			 emacsconf-schedule-copy-previous-track))
 			(emacsconf-schedule-validation-functions
 			 '(emacsconf-schedule-validate-time-constraints
 				 ;; emacsconf-schedule-validate-live-q-and-a-sessions-are-staggered
 				 emacsconf-schedule-validate-all-talks-present
 				 emacsconf-schedule-validate-no-duplicates)))
 	(setq emacsconf-schedule-plan
-				'(("GEN Saturday, Dec 2" :start "2023-12-02 09:00")
+				'(("GEN Saturday, Dec 2" :start "2023-12-02 09:00" :set-track "General")
 					sat-open
 					adventure
 					uni
@@ -400,47 +401,47 @@ These times are in EST (GMT-5).
 					solo
 					ref
 					unentangling
-					(hyperdrive)
-					(devel :track "General") 
+					devel
+					core
 					(sat-close)
-					("DEV Saturday, Dec 2" :start "2023-12-02 10:00")
-					(matplotllm :track "Development")
-					(voice :track "Development")
-					(llm :track "Development")
-					(woof :track "Development")
+					("DEV Saturday, Dec 2" :start "2023-12-02 10:00" :set-track "Development")
+					(matplotllm)
+					(voice)
+					(llm)
+					(woof)
 					(lunch :start "12:00")
 					(overlay)
 					(eval)
 					(repl)
-					(extending :track "Development")
-					core
-					("GEN Sunday, Dec 3" :start "2023-12-03 09:00")
+					(extending)
+					("GEN Sunday, Dec 3" :start "2023-12-03 09:00" :set-track "General")
 					sun-open
 					hyperamp
 					koutline
-					(parallel :track "General")
+					(parallel)
 					eat
 					poltys
 					cubing
 					(lunch :start "12:00")
-					(emms :track "General")
-					(steno :track "General")
+					(emms)
+					(steno)
 					mentor
 					break
 					(hn :start "15:00")
 					web
 					sharing
 					sun-close
-					("DEV Sunday, Dec 3" :start "2023-12-03 10:00")
+					("DEV Sunday, Dec 3" :start "2023-12-03 10:00" :set-track "Development")
 					scheme
 					test
-					(flat :track "Development")
+					(flat)
+					(emacsconf)
 					(lunch :start "12:00")
 					gc
+					hyperdrive
 					lspocaml
-					(windows :track "Development")
-					(emacsconf :track "Development")
-					(emacsen :track "Development")
+					(windows)
+					(emacsen)
 					))
 	(setq emacsconf-schedule-draft (emacsconf-schedule-prepare (emacsconf-schedule-inflate-sexp emacsconf-schedule-plan)))
 	(prog1 (string-join (emacsconf-schedule-validate emacsconf-schedule-draft) "\n")
@@ -882,7 +883,16 @@ I don't have access
 ***** TODO [#C] Try out Deepgram, play around with it for last-minute submissions?
 ***** TODO Get the autocaptions for emms up in the backstage area, then e-mail volunteers and speakers
 SCHEDULED: <2023-10-08 Sun>
-
+***** Captions lessons learned  :lessons:
+- OpenAI had a breaking API change, need to call =whisper.utils.get_writer=
+  - https://github.com/dmarx/video-killed-the-radio-star/issues/101
+    #+begin_src python :eval no
+    vtt_writer = whisper.utils.get_writer('vtt', os.path.dirname(new_file))
+    txt_writer = whisper.utils.get_writer('txt', os.path.dirname(new_file))
+    vtt_writer(result, work['audio'], {'max_line_width': 60})
+    txt_writer(result, work['audio'], {'max_line_width': 60})
+    #+end_src
+    
 **** Reencoding
 :PROPERTIES:
 :CUSTOM_ID: check-reencoding
@@ -1206,19 +1216,6 @@ What if we have three tracks instead?
   - Allows us to have 20 minutes between talks instead of 15
   - Might be easier to test the idea for just one part of the conference
     
-#+begin_src emacs-lisp :exports none
-(defun emacsconf-schedule-copy-previous-track (list)
-	(cl-loop
-	 with track = (plist-get (car list) :track)
-	 with track-names = (seq-map (lambda (o) (plist-get o :name)) emacsconf-tracks)
-	 for talk in list
-	 collect
-	 (progn
-		 (when (member (plist-get talk :track) track-names)
-			 (setq track (plist-get talk :track)))
-		 (append (list :track track) talk))))
-#+end_src
-
 #+begin_src emacs-lisp :results value replace :exports results :var filename="schedule-option-aligned-talks.svg" :eval never-export
 (emacsconf-schedule-test
  filename