diff options
author | Sacha Chua <sacha@sachachua.com> | 2022-10-21 14:06:59 -0400 |
---|---|---|
committer | Sacha Chua <sacha@sachachua.com> | 2022-10-21 14:06:59 -0400 |
commit | b816389ad4de0ddce2f3b8947a3954d4f3a9b5f7 (patch) | |
tree | 6811370c5a5cc61305f3ff58f096527f60d43a23 /emacsconf.el | |
parent | acd6eab46f0cd846d8fbd8c4fb92801b8166f568 (diff) | |
download | emacsconf-el-b816389ad4de0ddce2f3b8947a3954d4f3a9b5f7.tar.xz emacsconf-el-b816389ad4de0ddce2f3b8947a3954d4f3a9b5f7.zip |
Get ready for backstage index
Diffstat (limited to 'emacsconf.el')
-rw-r--r-- | emacsconf.el | 6 |
1 files changed, 5 insertions, 1 deletions
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") |