From 093497894b84bcea46c2df7b5d360261b881693e Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Sat, 22 Oct 2022 20:45:47 -0400 Subject: Backstage functions --- emacsconf-publish.el | 206 +++++++++++++++++++++++++++++++++------------------ 1 file changed, 134 insertions(+), 72 deletions(-) (limited to 'emacsconf-publish.el') diff --git a/emacsconf-publish.el b/emacsconf-publish.el index 06baa8d..b7a6073 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -115,7 +115,7 @@ (emacsconf-public-talks emacsconf-info) (format "https://media.emacsconf.org/%s/" emacsconf-year))) (when emacsconf-backstage-dir - (emacsconf-make-backstage-index (expand-file-name "index.html" emacsconf-backstage-dir))) + (emacsconf-publish-backstage-index (expand-file-name "index.html" emacsconf-backstage-dir))) (emacsconf-generate-playlist (expand-file-name "index.m3u" emacsconf-backstage-dir) (concat emacsconf-name emacsconf-year) (emacsconf-filter-talks emacsconf-info) @@ -220,7 +220,7 @@ ${chapter-list} (if video-file (emacsconf-replace-plist-in-string info - "

Download .webm video (${video-duration}, ${video-file-size}B)

") + "

Download video (${video-duration}, ${video-file-size}B)

") ""))) "

${video-download}${other-files}${toobnix-info}

")))) @@ -742,44 +742,74 @@ Entries are sorted chronologically, with different tracks interleaved." cancelled "\n")) "")))) -(defun emacsconf-make-backstage-index (filename) +(defun emacsconf-publish-talk-files (talk files) + (seq-filter (lambda (o) + (and (string-match (concat "^" (regexp-quote (plist-get talk :video-slug))) o) + (not (string= (plist-get talk :video-file) o)))) + files)) + +(defun emacsconf-sum (field talks) + (apply '+ (seq-map (lambda (talk) (string-to-number (or (plist-get talk field) "0"))) talks))) + +(defun emacsconf-publish-backstage-index (filename) (interactive (list (expand-file-name "index.html" emacsconf-backstage-dir))) (setq emacsconf-info (emacsconf-get-talk-info)) (with-temp-file filename (let* ((talks (seq-filter (lambda (o) (plist-get o :video-file)) (emacsconf-filter-talks emacsconf-info))) - (received (seq-remove (lambda (o) (plist-get o :captioner)) talks)) - (captioned (seq-filter (lambda (o) (plist-get o :captioner)) talks))) + (by-status (seq-group-by (lambda (o) (plist-get o :status)) talks)) + (files (directory-files emacsconf-backstage-dir))) (insert "" - (format "

Talks to be captioned (%d minutes)

You can e-mail sacha@sachachua.com to call dibs on editing the captions for one of these talks.

%s
%s
%s
View talk page

" (plist-get f :caption-note) "

%s talk(s) to be captioned (%d minutes)

You can e-mail sacha@sachachua.com to call dibs on editing the captions for one of these talks. This year, we're experimenting with using OpenAI Whisper (the .vtt files) along with YouTube (the .srt files, when available) to provide auto-generated captions. You can decide which one prefer to use as a starting point, or you can write the captions from scratch. If you're writing them from scratch, you can choose to include timing information, or we can probably figure them out afterwards with a forced alignment tool. Also, if you feel like making chapter markers, that's cool too. More info: captioning tips

" (plist-get f :caption-note) "

%s
%s
%s
View talk page

%d captioned talks ready for enjoyment (%d minutes)

%s
%s
%s

%d talk(s) being captioned (%s minutes)

" (plist-get f :captioner) "

%s
%s
%s
View talk page

%d captioned talk(s) ready for enjoyment (%d minutes)

%s
%s
%s

Download %s

Download %s%s

" (plist-get track :title) "

EmacsConf ${year}: ${name} track

" (emacsconf-publish-page-nav nav "watch") " | ${stream-nav}

Alternatively, load ${stream} or (low-res) in a streaming media player such as MPV.

Alternatively, load ${stream} or ${480p} (low-res) in a streaming media player such as MPV.

" (emacsconf-publish-page-nav nav "links") " | ${stream-nav}

${brief}

Watch EmacsConf ${name} track

Watch EmacsConf ${name} track (low-res)