2 tracks vs 1.5 tracks

1 files changed, 108 insertions, 7 deletions

diff --git a/2024/organizers-notebook/index.org b/2024/organizers-notebook/index.org
index e412f0e1..478c031a 100644
--- a/2024/organizers-notebook/index.org
+++ b/2024/organizers-notebook/index.org
@@ -156,7 +156,108 @@ emacsconf-discuss, reddit.com/r/emacs, Emacs News, emacs-tangents, Mastodon, X
 :END:
 
 #+NAME: schedule
-#+begin_src emacs-lisp :results value replace :exports none :eval never-export
+
+*** Option: 2 tracks
+:PROPERTIES:
+:CUSTOM_ID: sched-2-tracks
+:END:
+#+begin_src emacs-lisp :results value replace :exports none :eval never-export :var filename="schedule-2-tracks.svg"
+(require 'emacsconf)
+(require 'emacsconf-schedule)
+(setq emacsconf-schedule-tracks
+			'((:label "Saturday"
+								:start "2024-12-07 9:00"
+								:end "2024-12-07 18:00"
+								:tracks ("General" "Development"))
+				(:label "Sunday"
+								:start "2024-12-08 9:00"
+								:end "2024-12-08 18:00"
+								:tracks ("General" "Development"))))
+(let ((emacsconf-schedule-default-buffer-minutes 20)
+			(emacsconf-schedule-default-buffer-minutes-for-live-q-and-a 30)
+			(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-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 7" :start "2024-12-07 09:00" :set-track "General")
+					sat-open
+					papers ; <= 10:00
+					org-teach ; any
+					color  ; <= 12:00 sat pref
+					hyperdrive ; >= 11:00 Sat
+					(lunch :start "12:00")
+					emacs30 ; probably any
+					theme ; >= 12:30
+					water ; >= 13:00 Sat, same speaker as shell
+					shell ; >= 13:00 Sat
+					writing ; >= 15:30 Sat
+					sat-close
+					("DEV Saturday, Dec 7" :start "2024-12-07 10:00" :set-track "Development")
+					gypsum ; <= 11:00
+					rust ; Dec 7
+					(lunch :start "12:00")
+					julia ; >= 13:00
+					regex ; <= 12:00 sun or >= 12:00 sat
+					(mcclim :time 60) ; >= 14:00
+					repro ; any
+					("GEN Sunday, Dec 8" :start "2024-12-08 09:00" :set-track "General")
+					sun-open
+					links ; <= 10:30
+					flp ; any
+					hywiki ; >= 10:00
+					language ; <= 12:00
+					(lunch :start "12:00")
+					literate ; >= 13:00
+					casual ; >= 13:00
+					learning ; any
+					project ; any
+					sharing ; any, same speaker as learning
+					(sun-close :start "16:50")
+					("DEV Sunday, Dec 8" :start "2024-12-08 10:00" :set-track "Development")
+					pgmacs ; <= 15:00
+					graph ; <= 12:00
+					(lunch :start "12:00")
+					blee ; any
+					p-search  ; any
+					secrets ; >= 13:00
+					(transducers :start "16:00") ; >= 16:00 sun
+					))
+	(setq emacsconf-schedule-draft (emacsconf-schedule-prepare (emacsconf-schedule-inflate-sexp emacsconf-schedule-plan)))
+	(prog1 (string-join (emacsconf-schedule-validate emacsconf-schedule-draft) "\n")
+		(let ((emacsconf-schedule-svg-modify-functions
+					 '(emacsconf-schedule-svg-color-by-availability
+						 ;emacsconf-schedule-svg-color-by-status
+						 )))
+		(with-temp-file (expand-file-name filename (file-name-directory emacsconf-org-file))
+			(svg-print (emacsconf-schedule-svg 800 300 emacsconf-schedule-draft)))
+		(with-temp-file (expand-file-name filename (expand-file-name "organizers-notebook" (expand-file-name emacsconf-year emacsconf-directory)))
+			(svg-print (emacsconf-schedule-svg 800 300 emacsconf-schedule-draft))))
+		(clear-image-cache)))
+#+end_src
+
+#+RESULTS:
+:results:
+:end:
+
+[[file:schedule-2-tracks.svg]]
+
+Coloring by availability:
+- light blue: constraint is <= a time
+- peach: constraint is >= a time
+
+*** Option: 1.5 tracks
+:PROPERTIES:
+:CUSTOM_ID: sched-1.5-tracks
+:END:
+
+#+begin_src emacs-lisp :results value replace :exports none :eval never-export :var filename="schedule-1.5-tracks.svg"
 (require 'emacsconf)
 (require 'emacsconf-schedule)
 (setq emacsconf-schedule-tracks
@@ -203,8 +304,8 @@ emacsconf-discuss, reddit.com/r/emacs, Emacs News, emacs-tangents, Mastodon, X
 					graph ; <= 12:00
 					(lunch :start "12:00")
 					julia ; >= 13:00
-					(mcclim :time 60) ; >= 14:00
 					regex ; <= 12:00 sun or >= 12:00 sat
+					(mcclim :time 60) ; >= 14:00
 					secrets ; >= 13:00
 					repro ; any
 					("GEN Sunday, Dec 8" :start "2024-12-08 09:00" :set-track "General")
@@ -228,20 +329,20 @@ emacsconf-discuss, reddit.com/r/emacs, Emacs News, emacs-tangents, Mastodon, X
 					 '(emacsconf-schedule-svg-color-by-availability
 						 ;emacsconf-schedule-svg-color-by-status
 						 )))
-		(with-temp-file (expand-file-name "schedule.svg" (file-name-directory emacsconf-org-file))
+		(with-temp-file (expand-file-name filename (file-name-directory emacsconf-org-file))
 			(svg-print (emacsconf-schedule-svg 800 300 emacsconf-schedule-draft)))
-		(with-temp-file (expand-file-name "schedule.svg" (expand-file-name "organizers-notebook" (expand-file-name emacsconf-year emacsconf-directory)))
+		(with-temp-file (expand-file-name filename (expand-file-name "organizers-notebook" (expand-file-name emacsconf-year emacsconf-directory)))
 			(svg-print (emacsconf-schedule-svg 800 300 emacsconf-schedule-draft))))
 		(clear-image-cache)))
 #+end_src
 
-#+RESULTS: schedule
+#+RESULTS:
 :results:
 saturday closing remarks: Starts at 16:20 before 16:30
-mcclim: Starts at 13:25 before 14:00
+mcclim: Starts at 13:55 before 14:00
 :end:
 
-[[file:schedule.svg]]
+[[file:schedule-1.5-tracks.svg]]
 
 Coloring by availability:
 - light blue: constraint is <= a time