diff options
Diffstat (limited to '')
| -rw-r--r-- | emacsconf-publish.el | 81 | ||||
| -rw-r--r-- | emacsconf.el | 6 |
2 files changed, 45 insertions, 42 deletions
diff --git a/emacsconf-publish.el b/emacsconf-publish.el index 296c946..06baa8d 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -29,16 +29,15 @@ :type 'string :group 'emacsconf) -(defcustom emacsconf-main-extensions '(".org" ".odp" ".pdf" ".el" "--compressed56.webm" "--main.vtt" "--main_fr.vtt" "--main_ja.vtt" "--chapters.vtt" "--main--chapters.vtt") +(defcustom emacsconf-main-extensions '(".org" ".odp" ".pdf" ".el" "--compressed56.webm" "--main.vtt" "--main_fr.vtt" "--main_ja.vtt" "--chapters.vtt" "--main--chapters.vtt" "--script.fountain") "Extensions to list on public pages." :type '(repeat string) :group 'emacsconf) -(defcustom emacsconf-protected-extensions '(".en.srv2" ".srt") +(defcustom emacsconf-backstage-extensions '(".en.srv2" ".srt") "Extensions to list in the staging area." :group 'emacsconf) (defcustom emacsconf-public-media-directory nil "Can be over TRAMP" :type 'string :group 'emacsconf) -(defcustom emacsconf-protected-media-directory nil "Can be over TRAMP" :type 'string :group 'emacsconf) (defun emacsconf-update-talk (talk) "Publish the schedule page and the page for this talk." @@ -112,14 +111,15 @@ (when emacsconf-public-media-directory (emacsconf-make-public-index (expand-file-name "index.html" emacsconf-public-media-directory)) (emacsconf-generate-playlist (expand-file-name "index.m3u" emacsconf-public-media-directory) - "EmacsConf2021" + (concat emacsconf-name emacsconf-year) (emacsconf-public-talks emacsconf-info) (format "https://media.emacsconf.org/%s/" emacsconf-year))) - (when emacsconf-protected-media-directory - (emacsconf-make-protected-index (expand-file-name "index.html" emacsconf-protected-media-directory))) - (emacsconf-generate-playlist (expand-file-name "index.m3u" emacsconf-protected-media-directory) - "EmacsConf2021" (emacsconf-filter-talks emacsconf-info) - (format "https://media.emacsconf.org/%s/protected/" emacsconf-year))) + (when emacsconf-backstage-dir + (emacsconf-make-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) + (format "https://media.emacsconf.org/%s/backstage/" emacsconf-year))) (defun emacsconf-index-card (talk &optional extensions) "Format an HTML card for TALK, linking the files in EXTENSIONS." @@ -142,17 +142,12 @@ talk "<div class=\"vid\">${video-html}${resources}${extra}${chapter-list}</div>")))) -(defun emacsconf-index-card-video (video-id video-file talk extensions) - (let* ((wiki-caption-dir (expand-file-name - "captions" - (expand-file-name - (plist-get talk :conf-year) - emacsconf-directory))) - (chapter-info (and video-file +(defun emacsconf-index-card-video (video-id video-file talk extensions &optional backstage) + (let* ((chapter-info (and video-file (emacsconf-make-chapter-strings (expand-file-name (concat (file-name-base video-file) "--chapters.vtt") - wiki-caption-dir) + emacsconf-cache-dir) (plist-get talk :track-base-url)))) (info (append @@ -167,7 +162,7 @@ (and video-file (let ((tracks (emacsconf-video-subtitle-tracks - (expand-file-name (concat (file-name-base video-file) ".vtt") wiki-caption-dir) + (expand-file-name (concat (file-name-base video-file) ".vtt") emacsconf-cache-dir) (or (plist-get talk :track-base-url) (plist-get talk :base-url))))) (cond @@ -210,7 +205,7 @@ :video (emacsconf-replace-plist-in-string info - (if (and video-file (file-exists-p video-file)) + (if video-file (if (eq (plist-get talk :format) 'wiki) "[[!template id=\"vid\" vidid=\"${video-id}\" src=\"${source-src}\" poster=\"${poster}\" ${captions} size=\"${video-file-size}\" duration=\"${video-duration}\" other_resources=\"\"\"${other-files}${toobnix-info}\"\"\"]] @@ -747,21 +742,21 @@ Entries are sorted chronologically, with different tracks interleaved." cancelled "\n")) "")))) -(defun emacsconf-make-protected-index (filename) - (interactive (list (expand-file-name "index.html" emacsconf-protected-media-directory))) +(defun emacsconf-make-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))) (insert - "<html><meta charset=\"UTF-8\"><body>" - (format "<h1>Talks to be captioned (%d minutes)</h1><ul class=\"videos\">" - (apply '+ (seq-map (lambda (talk) (string-to-number (plist-get talk :duration))) + "<html><head><meta charset=\"UTF-8\"><link rel=\"stylesheet\" href=\"/style.css\" /></head><body>" + (format "<h1>Talks to be captioned (%d minutes)</h1><p>You can e-mail <a href=\"mailto:sacha@sachachua.com\">sacha@sachachua.com</a> to call dibs on editing the captions for one of these talks.</p><ul class=\"videos\">" + (apply '+ (seq-map (lambda (talk) (string-to-number (or (plist-get talk :video-time) "0"))) received))) (mapconcat (lambda (f) - (format "<li><strong>%s</strong><br />%s<br />%s</li>" + (format "<li><strong>%s</strong><br />%s<br />%s<br/ ><a href=\"%s%s\">View talk page</a></li>" (plist-get f :title) (plist-get f :speakers) (emacsconf-index-card @@ -769,7 +764,9 @@ Entries are sorted chronologically, with different tracks interleaved." f (list :extra (if (plist-get f :caption-note) (concat "<div class=\"caption-note\">" (plist-get f :caption-note) "</div>") ""))) - (append emacsconf-main-extensions emacsconf-protected-extensions)))) + (append emacsconf-main-extensions emacsconf-backstage-extensions)) + emacsconf-base-url + (plist-get f :url))) received "\n") (format @@ -912,14 +909,11 @@ Entries are sorted chronologically, with different tracks interleaved." (string-join (emacsconf-link-file-formats-as-list video-slug extensions) " ")) (defun emacsconf-link-file-formats-as-list (talk extensions) - (let ((video-slug (plist-get talk :video-slug)) - (wiki-captions-dir (expand-file-name "captions" (expand-file-name (plist-get talk :conf-year) emacsconf-directory)))) + (let ((video-slug (plist-get talk :video-slug))) (delq nil (seq-map (lambda (ext) (let ((file (expand-file-name (concat video-slug ext) - (if (string-match "\\.vtt$" ext) - wiki-captions-dir - emacsconf-captions-directory))) + emacsconf-cache-dir)) size) (when (file-exists-p file) (setq size @@ -1101,9 +1095,9 @@ Entries are sorted chronologically, with different tracks interleaved." 'file-exists-p (seq-map (lambda (suffix) (expand-file-name (concat video-slug "--" suffix ".webm") - emacsconf-captions-directory)) + emacsconf-cache-dir)) '("main" "captioned" "normalized" "compressed"))) - (car (directory-files emacsconf-captions-directory + (car (directory-files emacsconf-cache-dir nil (concat (regexp-quote video-slug) "\\." @@ -1133,14 +1127,19 @@ Entries are sorted chronologically, with different tracks interleaved." (defun emacsconf-cache-all-video-data () (interactive) (org-map-entries (lambda () (when (and (org-entry-get (point) "VIDEO_SLUG") (null (org-entry-get (point) "VIDEO_FILE_SIZE"))) (emacsconf-cache-video-data-for-entry))))) -(defun emacsconf-cache-video-data-for-entry () - (interactive) - (let* ((video-file (emacsconf-get-preferred-video (org-entry-get (point) "VIDEO_SLUG"))) - (duration (/ (compile-media-get-file-duration-ms video-file) 1000))) - (org-entry-put (point) "VIDEO_FILE" (file-name-nondirectory video-file)) - (org-entry-put (point) "VIDEO_FILE_SIZE" (file-size-human-readable (file-attribute-size (file-attributes video-file)))) - (org-entry-put (point) "VIDEO_DURATION" (format-seconds "%m:%.2s" duration)) - (org-entry-put (point) "TIME" (number-to-string (ceiling (/ duration 60)))))) +(defvar emacsconf-cache-dir (expand-file-name "cache" (file-name-directory emacsconf-org-file))) +(defun emacsconf-sync) +(defun emacsconf-cache-video-data (talk) + (interactive (list (emacsconf-complete-talk))) + (emacsconf-with-talk-heading talk + (let* ((video-file-name (emacsconf-get-preferred-video (org-entry-get (point) "VIDEO_SLUG"))) + (video-file (expand-file-name video-file-name emacsconf-cache-dir)) + duration) + (setq duration (/ (compile-media-get-file-duration-ms video-file) 1000)) + (org-entry-put (point) "VIDEO_FILE" (file-name-nondirectory video-file)) + (org-entry-put (point) "VIDEO_FILE_SIZE" (file-size-human-readable (file-attribute-size (file-attributes video-file)))) + (org-entry-put (point) "VIDEO_DURATION" (format-seconds "%m:%.2s" duration)) + (org-entry-put (point) "VIDEO_TIME" (number-to-string (ceiling (/ duration 60))))))) (defvar emacsconf-youtube-channel-id "UCwuyodzTl_KdEKNuJmeo99A") (defun emacsconf-youtube-edit () diff --git a/emacsconf.el b/emacsconf.el index 32255ed..6dee874 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -75,7 +75,7 @@ :type 'file :group 'emacsconf) -(defvar emacsconf-stream-base "https://live0.emacsconf.org:9001/emacsconf/") +(defvar emacsconf-stream-base "https://live0.emacsconf.org/emacsconf/") (defvar emacsconf-chat-base "https://chat.emacsconf.org/") (defvar emacsconf-backstage-dir "/ssh:media:/var/www/media.emacsconf.org/2022/backstage") (defvar emacsconf-upload-dir "/ssh:media:/srv/upload") @@ -97,6 +97,8 @@ (emacsconf-slugify (plist-get talk :speakers))) ""))) + + (defun emacsconf-set-video-slug-if-needed (o) (interactive (list (emacsconf-complete-talk-info))) (unless (plist-get o :video-slug) @@ -115,6 +117,7 @@ (org-entry-put (point) "VIDEO_SLUG" (emacsconf-video-slug (emacsconf-get-talk-info-for-subtree)))) "SLUG={.}-VIDEO_SLUG={.}")) + (defun emacsconf-upload-copy-from-json (talk key filename) (interactive (let-alist (json-parse-string (buffer-string) :object-type 'alist) (list (emacsconf-complete-talk-info) @@ -309,6 +312,7 @@ ;; Processing (:video-slug "VIDEO_SLUG") (:video-file "VIDEO_FILE") + (:video-time "VIDEO_TIME") (:video-file-size "VIDEO_FILE_SIZE") (:video-duration "VIDEO_DURATION") (:youtube-url "YOUTUBE_URL") |