From d5bb6c0d0d8defa93c36f462fe8c6fbab9b176be Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Tue, 6 Dec 2022 20:36:51 -0500 Subject: bbb playback --- emacsconf-publish.el | 42 +++++++++++++++++++++++++++++++++++------- emacsconf.el | 1 + 2 files changed, 36 insertions(+), 7 deletions(-) diff --git a/emacsconf-publish.el b/emacsconf-publish.el index 53a6d10..29467d9 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -1052,14 +1052,18 @@ Entries are sorted chronologically, with different tracks interleaved." (with-temp-file filename (let* ((talks (mapcar - (lambda (o) (append (list :captions-edited t) o)) + (lambda (o) (append + (list :captions-edited t) o)) (seq-filter (lambda (o) (plist-get o :speakers)) (emacsconf-active-talks (emacsconf-filter-talks info))))) (by-status (seq-group-by (lambda (o) (plist-get o :status)) talks)) (files (directory-files emacsconf-backstage-dir))) (insert "" - "

Schedule by status: (gray: waiting, light yellow: processing, yellow: to assign, light green: captioning, green: captioned and ready)
Updated by conf.org and the wiki repository
" + (if (file-exists-p (expand-file-name "include-in-index.html" emacsconf-cache-dir)) + (with-temp-buffer (insert-file-contents (expand-file-name "include-in-index.html" emacsconf-cache-dir)) (buffer-string)) + "") + "

Schedule by status: (gray: waiting, light yellow: processing, yellow: to assign, light green: captioning, green: captioned and ready)
Updated by conf.org and the wiki repository
" "

" (format "

Waiting for %d talks (~%d minutes) out of %d total

" (length (assoc-default "WAITING_FOR_PREREC" by-status)) @@ -1177,12 +1181,36 @@ Entries are sorted chronologically, with different tracks interleaved." (plist-get f :title) (plist-get f :speakers-with-pronouns) (plist-get f :slug) - (emacsconf-index-card (append f (list :extra (concat "Captioned by " (plist-get f :captioner)) - :files (emacsconf-publish-talk-files f files))) - emacsconf-main-extensions))) + (emacsconf-index-card + (append f (list :extra + (concat + "Captioned by " (plist-get f :captioner) "
" + (format "Q&A archiving: IRC: %s-%s" + (format-time-string "%Y-%m-%d" (plist-get f :start-time)) + (plist-get (emacsconf-get-track f) :channel) + (format-time-string "%Y-%m-%d" (plist-get f :start-time)) + (plist-get (emacsconf-get-track f) :channel)) + (emacsconf-surround ", Etherpad (Markdown)" "") + (emacsconf-surround ", BBB playback" "") + (emacsconf-surround ", BBB text chat" "") + (emacsconf-surround ", BBB audio only" "")) + :files (emacsconf-publish-talk-files f files))) + emacsconf-main-extensions))) (assoc-default status by-status) "\n"))) - (if (file-exists-p (expand-file-name "include-in-index.html" emacsconf-cache-dir)) - (with-temp-buffer (insert-file-contents (expand-file-name "include-in-index.html" emacsconf-cache-dir)) (buffer-string)) + (if (file-exists-p (expand-file-name "include-in-index-footer.html" emacsconf-cache-dir)) + (with-temp-buffer (insert-file-contents (expand-file-name "include-in-index-footer.html" emacsconf-cache-dir)) (buffer-string)) "") ""))))) diff --git a/emacsconf.el b/emacsconf.el index 51ca4b0..395db45 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -427,6 +427,7 @@ ;; Extraction (:qa-youtube "QA_YOUTUBE") (:qa-toobnix "QA_TOOBNIX") + (:bbb-playback "BBB_PLAYBACK") ;; Old (:alternate-apac "ALTERNATE_APAC") (:extra-live-time "EXTRA_LIVE_TIME") -- cgit v1.2.3