diff options
Diffstat (limited to 'emacsconf-stream.el')
| -rw-r--r-- | emacsconf-stream.el | 48 |
1 files changed, 46 insertions, 2 deletions
diff --git a/emacsconf-stream.el b/emacsconf-stream.el index 6641392..d526367 100644 --- a/emacsconf-stream.el +++ b/emacsconf-stream.el @@ -1210,10 +1210,13 @@ XDG_RUNTIME_DIR=\"/run/user/%d\" (defun emacsconf-stream-crontabs (&optional test-mode info) "Write the streaming users' crontab files. If TEST-MODE is non-nil, use the videos in the test directory. +If TEST-MODE is a date, use that as the starting date. If INFO is non-nil, use that as the schedule instead." - (interactive) + (interactive (list (when current-prefix-arg (org-read-date t t nil "Start time: ")))) (let ((emacsconf-publishing-phase 'conference)) - (setq info (or info (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))) + (setq info (or info (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))) + (when (and test-mode (listp test-mode)) + (setq info (emacsconf-schedule-prepare-test-schedule test-mode info))) (dolist (track emacsconf-tracks) (let ((talks (seq-filter (lambda (talk) (string= (plist-get talk :track) @@ -1280,6 +1283,47 @@ International (CC BY-SA 4.0) license. Please observe the guidelines for conduct: (kill-new desc)) desc)) +(defun emacsconf-stream-toobnix-copy-livestream-description (track) + (interactive (list (emacsconf-complete-track))) + (when (stringp track) (setq track (emacsconf-get-track track))) + (let* ((track-id (plist-get track :id)) + (desc (emacsconf-replace-plist-in-string + (list + :track-name (plist-get track :name) + :dates emacsconf-dates + :conf-name emacsconf-name + :year emacsconf-year + :track-id track-id + :base-url emacsconf-base-url + :channel (plist-get track :channel) + :chat-url (plist-get track :webchat-url) + :irc-channels (concat + (string-join + (seq-keep (lambda (track) + (unless (string= (plist-get track :id) track-id) + (plist-get track :channel))) + emacsconf-tracks) + ",") + "," + (plist-get track :channel))) + " +${track-name} - ${conf-name} ${year} + +This for the ${track-name} track of ${conf-name} (${dates}) + +Watch using free/open source software: https://live.emacsconf.org/${year}/watch/${track-id}/ +Conference info: ${base-url}${year}/ +Schedule: ${base-url}${year}/talks/ +Chat on #${channel} via ${chat-url} or irc.libera.chat using your favorite IRC client +Etherpad: Use the Etherpad links from the talk page; general comments in https://pad.emacsconf.org/${year} + +Videos are shared under the terms of the Creative Commons Attribution-ShareAlike 4.0 +International (CC BY-SA 4.0) license. Please observe the guidelines for conduct: https://emacsconf.org/conduct/ +"))) + (when (called-interactively-p 'any) + (kill-new desc)) + desc)) + (defun emacsconf-stream-populate-random-package-file () (interactive) (with-temp-file (expand-file-name "fortune.txt" emacsconf-cache-dir) |