diff options
| -rw-r--r-- | emacsconf-publish.el | 29 |
1 files changed, 28 insertions, 1 deletions
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) |