conference dates, etc.

1 files changed, 39 insertions, 4 deletions

diff --git a/emacsconf.el b/emacsconf.el
index 72e54c7..9d3da72 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -44,6 +44,9 @@
 (defcustom emacsconf-date "2025-12-06" "Starting date of EmacsConf."
 	:group 'emacsconf
 	:type 'string)
+(defcustom emacsconf-dates "2025-12-06 to 2025-12-07" "Conference dates."
+	:group 'emacsconf
+	:type 'string)
 (defcustom emacsconf-video-target-date "2025-10-31" "Target date for receiving talk videos from the speakers."
 	:group 'emacsconf
 	:type 'string)
@@ -2099,10 +2102,24 @@ tracks with the ID in the cdr of that list."
 	"Return the filename for the current year's public organizers notebook."
 	(expand-file-name "organizers-notebook/index.org" (expand-file-name emacsconf-year emacsconf-directory)))
 
-(defun emacsconf-current-org-notebook-open ()
-	"Open the current year's public organizers notebook."
-	(interactive)
-	(find-file (emacsconf-current-org-notebook-filename)))
+(defun emacsconf-current-org-notebook-open (&optional common)
+	"Open the current year's public organizers notebook.
+With a prefix argument (\\[universal-argument]), open the general organizers notebook."
+	(interactive (list current-prefix-arg))
+	(find-file (if common
+                 (expand-file-name "organizers-notebook/index.org"
+                                   emacsconf-directory)
+               (emacsconf-current-org-notebook-filename))))
+
+(defun emacsconf-current-org-notebook-heading (&optional common)
+	"Open the current year's public organizers notebook and jump to a heading.
+With a prefix argument (\\[universal-argument]), open the general organizers notebook."
+	(interactive (list current-prefix-arg))
+  (emacsconf-current-org-notebook-open common)
+  (cond
+   ((fboundp 'consult-org-heading)
+    (call-interactively #'consult-org-heading))
+   (t (call-interactively #'org-goto))))
 
 (defun emacsconf-current-org-notebook-refresh-schedule ()
 	"Refresh info from draft schedule."
@@ -2120,5 +2137,23 @@ tracks with the ID in the cdr of that list."
 	(save-excursion
 		(goto-char (line-end-position))
 		(insert " ; " (plist-get talk :availability))))
+
+(defun emacsconf-cancel-talk (talk)
+  "Cancel TALK. Assume that the schedule has already been updated."
+  (interactive (list (emacsconf-complete-talk)))
+  (emacsconf-with-talk-heading talk
+    (org-todo "CANCELLED")
+    (emacsconf-current-org-notebook-refresh-schedule)
+    (emacsconf-schedule-update-from-info)
+    (emacsconf-update-schedule)
+    (emacsconf-publish-watch-pages)
+    (emacsconf-publish-talks-json-to-files)
+    (emacsconf-publish-info-pages-for-talk talk)
+    (emacsconf-publish-info-pages)
+    (emacsconf-stream-generate-in-between-pages)
+    ;; Regenerate intros
+    (find-file (emacsconf-latest-file (expand-file-name "../assets/intros" emacsconf-cache-dir) "^\\(intro\\|script\\).*.vtt"))
+    (message "Remember to regenerate the intro videos.")))
+
 (provide 'emacsconf)
 ;;; emacsconf.el ends here