summaryrefslogtreecommitdiffstats
path: root/emacsconf-pad.el
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-22 08:34:20 -0500
committerSacha Chua <sacha@sachachua.com>2022-11-22 08:34:20 -0500
commit59333798b0cd7fd285f5e0b3550bb926eab3c38c (patch)
tree1e0a86f15e17ef38afd33bae15257a036b9b5796 /emacsconf-pad.el
parent911ca4f70fbd06602c6e8d427638e1c9ee85716a (diff)
downloademacsconf-el-59333798b0cd7fd285f5e0b3550bb926eab3c38c.tar.xz
emacsconf-el-59333798b0cd7fd285f5e0b3550bb926eab3c38c.zip
generate status page for live.emacsconf.org
Diffstat (limited to '')
-rw-r--r--emacsconf-pad.el84
1 files changed, 60 insertions, 24 deletions
diff --git a/emacsconf-pad.el b/emacsconf-pad.el
index 5af8ba3..c7fc10c 100644
--- a/emacsconf-pad.el
+++ b/emacsconf-pad.el
@@ -318,14 +318,30 @@ ${next-talk-list}
;; (emacsconf-pad-export-initial-content-for-hyperlists "/ssh:media:~/backstage/hyperlists")
(defun emacsconf-pad-format-shift-hyperlist (shift info)
- (concat
- "<h1>" (plist-get shift :id) "</h1>"
- (emacsconf-replace-plist-in-string
- shift
- "<p>Host: ${host}, Streamer: ${streamer}, IRC: ${irc}, Pad: ${pad}, Check-in: ${checkin}</p>")
- (emacsconf-replace-plist-in-string
- shift
- "
+ (let* ((prefixed (list
+ :start (plist-get shift :start)
+ :end (plist-get shift :end)
+ :host (emacsconf-surround "HOST-" (plist-get shift :host) "" "HOST")
+ :stream (emacsconf-surround "STREAM-" (plist-get shift :streamer) "" "STREAM")
+ :irc-volunteer (emacsconf-surround "IRC-" (plist-get shift :irc) "" "IRC")
+ :checkin (emacsconf-surround "CHECKIN-" (plist-get shift :checkin) "" "CHECKIN")
+ :pad (emacsconf-surround "PAD-" (plist-get shift :pad) "" "PAD")
+ :coord (emacsconf-surround "COORD-" (plist-get shift :coord) "" "COORD")))
+ (shift-talks
+ (mapcar (lambda (o) (append prefixed o))
+ (seq-filter
+ (lambda (talk) (string= (plist-get talk :track) (plist-get shift :track)))
+ (emacsconf-filter-talks-by-time (plist-get shift :start) (plist-get shift :end) info)))))
+ (concat
+ (emacsconf-replace-plist-in-string
+ shift
+ (concat
+ "<h1>" (plist-get shift :id) "</h1>"
+ "<p>Host: ${host}, Streamer: ${streamer}, IRC: ${irc}, Pad: ${pad}, Check-in: ${checkin}, Coord: ${coord}</p>"))
+ (emacsconf-replace-plist-in-string
+ prefixed
+ (concat
+ "
<strong>Setup</strong>
<ul><li>[ ] ${checkin}: Open the index: https://media.emacsconf.org/${year}/backstage/index-${track-id}.html</li>
<li>[ ] ${host}: Open the intro pad and the index: https://media.emacsconf.org/${year}/backstage/index-${track-id}.html</li>
@@ -345,22 +361,42 @@ ${next-talk-list}
<li>[ ] Watch the stream with MPV on your local system: mpv https://live0.emacsconf.org/emacsconf/$TRACK.webm &</li>
<li>[ ] Check 480p: mpv https://live0.emacsconf.org/emacsconf/$TRACK-480p.webm &</li>
<li>[ ] Test with a sample video or Q&A session: ssh emacsconf-$TRACK@res.emacsconf.org -p 46668 \"~/bin/track-mpv meetups &\"</li>
-</ul></li></ul>
-")
- "<ul>"
- (emacsconf-pad-shift-hyperlist
- (list
- :start (plist-get shift :start)
- :end (plist-get shift :end)
- :host (emacsconf-surround "HOST-" (plist-get shift :host) "" "HOST")
- :stream (emacsconf-surround "STREAM-" (plist-get shift :streamer) "" "STREAM")
- :irc-volunteer (emacsconf-surround "IRC-" (plist-get shift :irc) "" "IRC")
- :checkin (emacsconf-surround "CHECKIN-" (plist-get shift :checkin) "" "CHECKIN")
- :pad (emacsconf-surround "PAD-" (plist-get shift :pad) "" "PAD"))
- (seq-filter
- (lambda (talk) (string= (plist-get talk :track) (plist-get shift :track)))
- (emacsconf-filter-talks-by-time (plist-get shift :start) (plist-get shift :end) info)))
- "</ul>"))
+</ul></li>
+<li>[ ] ${coord}: ssh -t orga@live0.emacsconf.org 'screen -S restream-${track-id}-youtube /home/orga/restream-${track-id}-youtube.sh' and then confirm</li>
+<li>[ ] ${coord}: ssh -t orga@live0.emacsconf.org 'screen -S restream-${track-id}-toobnix /home/orga/restream-${track-id}-toobnix.sh' and then confirm</li>
+<li>[ ] ${coord}: update the status page on live.emacsconf.org</li>
+</ul>
+"
+ "<ul>"
+ (mapconcat #'cdr
+ (sort
+ (append
+ (delq nil
+ (mapcar (lambda (talk)
+ (when (plist-get talk :checkin-time)
+ (emacsconf-replace-plist-in-string
+ (append (list :checkin-time-info
+ (format-time-string "%-l:%M" (plist-get talk :checkin-time) emacsconf-timezone))
+ talk)
+ "<li>${checkin}: Double-check that the speaker for ${title} has checked in; let #emacsconf-org know if not</li>")))
+ shift-talks))
+ (mapcar
+ ;; talks
+ (lambda (talk)
+ (cons (plist-get talk :start-time)
+ (emacsconf-pad-talk-hyperlist
+ (append prefixed talk))))
+ shift-talks))
+ (lambda (a b) (time-less-p (car a) (car b))))
+ "\n")
+ "</ul>"
+ "Teardown
+<ul>
+<li>[ ] ${coord}: stop the restream-${track-id}-youtube screen on live0</li>
+<li>[ ] ${coord}: stop the restream-${track-id}-toobnix screen on live0</li>
+<li>[ ] ${coord}: update the status page on live.emacsconf.org</li>
+</ul>"))
+ )))
(defun emacsconf-pad-prepopulate-hyperlists ()
(interactive)