summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2023-10-15 00:05:11 -0400
committerSacha Chua <sacha@sachachua.com>2023-10-15 00:05:11 -0400
commit1fd8e1de812399fc0fa617dcc0513e15ca9378f2 (patch)
tree036eb63ca7bd9d74803f3cf511b099c95bf970cd
parenta4239bbf7d0f2953d975da3b53eb5d5f9900e973 (diff)
downloademacsconf-el-1fd8e1de812399fc0fa617dcc0513e15ca9378f2.tar.xz
emacsconf-el-1fd8e1de812399fc0fa617dcc0513e15ca9378f2.zip
add original video to processing list of files
-rw-r--r--emacsconf-publish.el10
1 files 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 "<div class=\"caption-note\">" (plist-get f :caption-note) "</div>") "")
:files
- (emacsconf-publish-talk-files f files))))
+ (cons
+ (plist-get f :video-file)
+ (emacsconf-publish-talk-files f files)))))
(format "<li><a name=\"%s\"></a><strong><a href=\"%s\">%s</a></strong><br />%s (id:%s)<br />%s</li>"
(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