From 1fd8e1de812399fc0fa617dcc0513e15ca9378f2 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Sun, 15 Oct 2023 00:05:11 -0400 Subject: add original video to processing list of files --- emacsconf-publish.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/emacsconf-publish.el b/emacsconf-publish.el index f90d2cc..9d311b7 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -35,7 +35,7 @@ :type '(repeat string) :group 'emacsconf) -(defcustom emacsconf-backstage-extensions '(".en.srv2" ".srt") +(defcustom emacsconf-publish-backstage-extensions '(".en.srv2" ".srt" "--original.mp4") "Extensions to list in the staging area." :group 'emacsconf) (defcustom emacsconf-public-media-directory (concat "/ssh:orga@media.emacsconf.org:/var/www/media.emacsconf.org/" emacsconf-year "/") @@ -1120,7 +1120,9 @@ Entries are sorted chronologically, with different tracks interleaved." (list :extra (if (plist-get f :caption-note) (concat "
" (plist-get f :caption-note) "
") "") :files - (emacsconf-publish-talk-files f files)))) + (cons + (plist-get f :video-file) + (emacsconf-publish-talk-files f files))))) (format "
  • %s
    %s (id:%s)
    %s
  • " (plist-get f :slug) (plist-get f :absolute-url) @@ -1206,7 +1208,9 @@ Entries are sorted chronologically, with different tracks interleaved." (defun emacsconf-publish-backstage-index (&optional filename) (interactive) (setq filename (or filename (expand-file-name "index.html" emacsconf-backstage-dir))) - (let ((info (or emacsconf-schedule-draft (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info))))) + (let ((info (or emacsconf-schedule-draft (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))) + (default-directory emacsconf-cache-dir) + (emacsconf-main-extensions (append emacsconf-main-extensions emacsconf-publish-backstage-extensions))) (with-temp-file filename (let* ((talks (mapcar -- cgit v1.2.3