From e2c476753fe8f2c9f4fd6519b26eab0de9aab706 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Fri, 6 Dec 2024 19:19:53 -0500
Subject: toobnix, filter out backstage files

---
 emacsconf-publish.el | 29 ++++++++++++++++++++++++++++-
 1 file changed, 28 insertions(+), 1 deletion(-)

(limited to 'emacsconf-publish.el')

diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index f4276d3..b01ae27 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -1574,7 +1574,7 @@ answers without needing to listen to everything again. You can see <a href=\"htt
 						;; further tests
 						(pcase f
 							((rx (seq "--"
-												(or "reencoded" "normalized" "final" "old" "bbb")))
+												(or "reencoded" "normalized" "final" "old" "bbb" "backstage")))
 							 nil)
 							((rx ".diff") nil)
 							((rx "--original")
@@ -2139,6 +2139,33 @@ This video is available under the terms of the Creative Commons Attribution-Shar
 				 "YOUTUBE"
 				 (read-string (format "%s - YouTube URL: " (plist-get talk :scheduled))))))))
 
+(defun emacsconf-publish-toobnix-step-through-publishing ()
+	(interactive)
+	(catch 'done
+		(while t
+			(let ((talk (seq-find (lambda (o)
+															(and (member (plist-get o :status) '("TO_STREAM" "TO_CHECK"))
+																		(not (plist-get o :toobnix-url))
+																		(emacsconf-talk-file o "--main.webm")))
+														 (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))))
+				(unless talk
+					(message "All done so far.")
+					(throw 'done t))
+				(kill-new (emacsconf-talk-file talk "--main.webm"))
+				(message "Video: %s - press any key" (emacsconf-talk-file talk "--main.webm"))
+				(when (eq (read-char) ?q) (throw 'done t))
+				(emacsconf-publish-video-description talk t)
+				(message "Copied description - press any key")
+				(when (eq (read-char) ?q) (throw 'done t))
+				(when (emacsconf-talk-file talk "--main.vtt")
+					(kill-new (emacsconf-talk-file talk "--main.vtt"))
+					(message "Captions: %s - press any key" (emacsconf-talk-file talk "--main.vtt"))
+					(when (eq (read-char) ?q) (throw 'done t)))
+				(emacsconf-set-property-from-slug
+				 (plist-get talk :slug)
+				 "YOUTUBE"
+				 (read-string (format "%s - Toobnix URL: " (plist-get talk :scheduled))))))))
+
 
 ;; (emacsconf-publish-video-description (emacsconf-find-talk-info "async") t)
 
-- 
cgit v1.2.3