diff options
Diffstat (limited to '')
| -rw-r--r-- | emacsconf.el | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/emacsconf.el b/emacsconf.el index 3e9bdbd..d655d7c 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -103,6 +103,11 @@ :type 'file :group 'emacsconf) +(defcustom emacsconf-fallback-email "emacsconf-org-private@gnu.org" + "E-mail for public wiki pages if the speaker doesn't have a public email address." + :type 'string + :group 'emacsconf) + (defcustom emacsconf-upcoming-file nil "Path to the Org file with upcoming talks." :type 'file @@ -842,7 +847,8 @@ The subheading should match `emacsconf-abstract-heading-regexp'." emacsconf-add-timezone-conversions emacsconf-add-speakers-with-pronouns emacsconf-add-live-info - emacsconf-add-video-info) + emacsconf-add-video-info + emacsconf-add-media-info) "Functions to collect information.") (defun emacsconf-add-speakers-with-pronouns (o) @@ -901,6 +907,15 @@ The subheading should match `emacsconf-abstract-heading-regexp'." (list "youtube" "qa-youtube" "toobnix" "qa-toobnix")) o) +(defun emacsconf-add-media-info (o) + (plist-put o + :video-url (format "%s%s/%s--main.webm" emacsconf-media-base-url emacsconf-year (plist-get o :file-prefix))) + (plist-put o + :captions-url (format "%s%s/%s--main.vtt" emacsconf-media-base-url emacsconf-year (plist-get o :file-prefix))) + (plist-put o + :audio-url (format "%s%s/%s--main.opus" emacsconf-media-base-url emacsconf-year (plist-get o :file-prefix))) + o) + (defun emacsconf-add-live-info (o) (plist-put o :absolute-url (concat emacsconf-base-url (plist-get o :url))) (plist-put o :in-between-url (format "%s%s/in-between/%s.png" |