summaryrefslogtreecommitdiffstats
path: root/emacsconf.el
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--emacsconf.el26
1 files changed, 21 insertions, 5 deletions
diff --git a/emacsconf.el b/emacsconf.el
index a08aa3b..cce14b6 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -385,6 +385,7 @@
;; Captioning
(:captioner "CAPTIONER")
(:caption-note "CAPTION_NOTE")
+ (:captions-edited "CAPTIONS_EDITED")
;; Conference
(:check-in "CHECK_IN")
(:public "PUBLIC")
@@ -517,6 +518,10 @@
(plist-put o :public t))
o)
+(defun emacsconf-talk-live-p (talk)
+ "Return non-nil if TALK is ready to be published."
+ (plist-get talk :public))
+
(defun emacsconf-test-public-states ()
(let ((states (split-string (replace-regexp-in-string "(.*?)" "" "TODO(t) TO_REVIEW TO_ACCEPT TO_CONFIRM WAITING_FOR_PREREC(w) TO_PROCESS(p) TO_AUTOCAP(y) TO_ASSIGN(a) TO_CAPTION(c) TO_STREAM(s) PLAYING(m) CLOSED_Q(q) OPEN_Q(o) UNSTREAMED_Q(u) TO_ARCHIVE TO_EXTRACT TO_FOLLOW_UP"))))
(mapc (lambda (state) (assert (null (plist-get (emacsconf-add-talk-status
@@ -1089,6 +1094,14 @@ Filter by TRACK if given. Use INFO as the list of talks."
(throw 'error "Unknown talk BBB state"))
'irc)))
+(defun emacsconf-captions-edited-p (filename)
+ "Return non-nil if FILENAME has been edited and is okay for inclusion."
+ (and (file-exists-p filename)
+ (with-temp-buffer
+ (insert-file-contents filename)
+ (goto-char (point-min))
+ (re-search-forward "captioned by" (line-end-position) t))))
+
(defvar emacsconf-bbb-base-url "https://bbb.emacsverse.org/" "Include trailing slash.")
(defun emacsconf-bbb-room-title-list (&optional info)
(delq nil
@@ -1205,13 +1218,16 @@ Filter by TRACK if given. Use INFO as the list of talks."
#'emacsconf-org-after-todo-state-change t)))
(defvar emacsconf-todo-hooks
- '((emacsconf-stream-play-talk-on-change "gen") ;; play the talk - dev will be managed separately
- (emacsconf-stream-open-qa-windows-on-change "gen")
+ '((emacsconf-stream-play-talk-on-change "gen" "dev")
+ (emacsconf-stream-open-qa-windows-on-change "gen" "dev")
;; emacsconf-erc-announce-on-change ;; announce via ERC
emacsconf-publish-media-files-on-change
- emacsconf-publish-bbb-redirect
- emacsconf-publish-backstage-org-on-state-change ;; update the backstage index
- emacsconf-stream-update-talk-info-on-change ;; write to the talk text
+ ;; emacsconf-publish-bbb-redirect
+ emacsconf-publish-update-talk
+ ;; emacsconf-publish-backstage-org-on-state-change ;; update the backstage index
+
+ emacsconf-stream-update-talk-info-on-change
+ ;; write to the talk text
)
"Functions to run when the todo state changes.
They will be called with TALK.")