From 69f2dbf08f3a3a9e015933b6f4923d2a7faf7af3 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Wed, 29 Nov 2023 12:11:18 -0500 Subject: update hyperlists --- emacsconf-pad.el | 277 +++++++++++++++++++++++++++++++++++-------------------- 1 file changed, 178 insertions(+), 99 deletions(-) diff --git a/emacsconf-pad.el b/emacsconf-pad.el index c999a8a..4d319cd 100644 --- a/emacsconf-pad.el +++ b/emacsconf-pad.el @@ -20,7 +20,10 @@ ;;; Commentary: -;; Prepopulate the Etherpad +;; Prepopulate the Etherpad: emacsconf-pad-prepopulate-all-talks +;; +;; Prepopulate shift hyperlists: emacsconf-pad-prepopulate-hyperlists +;; Prepopulate checkins: emacsconf-pad-prepopulate-checkins (defcustom emacsconf-pad-base "https://pad.emacsconf.org/" "Base URL for the Etherpad. Include trailing slash. @@ -294,7 +297,7 @@ ${next-talk-list} (declare (indent 1) (debug t)) `(progn (with-current-buffer (find-file emacsconf-org-file) - (goto-char (org-find-property "CUSTOM_ID" + (goto-char (org-find-property "SLUG" (if (string-match "^[0-9]+-\\(.*\\)$" ,pad-id) (match-string 1 ,pad-id) "meta"))) @@ -303,7 +306,8 @@ ${next-talk-list} (defun emacsconf-pad-modified-p (pad-id) (save-window-excursion (save-excursion - (let ((cached-last-modified (emacsconf-pad-with-heading pad-id (org-entry-get (point) "PAD_RESET"))) + (let ((cached-last-modified (emacsconf-pad-with-heading pad-id + (org-entry-get (point) "PAD_RESET"))) (result (emacsconf-pad-get-last-edited pad-id))) (let-alist result (and cached-last-modified @@ -361,12 +365,14 @@ ${next-talk-list} (concat (emacsconf-replace-plist-in-string (append (list :index (concat emacsconf-pad-base - "private_" + "private-" emacsconf-private-pad-prefix - "_" emacsconf-id)) + "-" + emacsconf-year) + :year emacsconf-year) shift) (concat - "Back to ${index}
In case of ...: https://emacsconf.org/2022/organizers-notebook/#exceptions
" + "Back to ${index}
In case of ...: https://emacsconf.org/${year}/organizers-notebook/#exceptions
" "

" (plist-get shift :id) "

" "

Host: ${host}, Streamer: ${streamer}, IRC: ${irc}, Pad: ${pad}, Check-in: ${checkin}, Coord: ${coord}

")) (emacsconf-replace-plist-in-string @@ -398,11 +404,16 @@ ${next-talk-list}
  • [ ] Watch the stream with MPV on your local system: mpv https://live0.emacsconf.org/emacsconf/${track-id}.webm &
  • [ ] Check 480p by viewing it : mpv https://live0.emacsconf.org/emacsconf/${track-id}-480p.webm &
  • [ ] Confirm that the streaming user has connected to Mumble, is in the ${channel} channel, and can hear what we say on Mumble.
    • -
  • [ ] Test with a sample video or Q&A session. You can run this command on your local system if you want to do things off-screen: ssh emacsconf-${track-id}@res.emacsconf.org -p 46668 \"~/bin/track-mpv meetups &\"
    • +
  • [ ] Test with a sample video or Q&A session. You can run this command on your local system if you want to do things off-screen: ssh emacsconf-${track-id}@res.emacsconf.org -p 46668 \"~/bin/track-mpv emacsconf &\"
  • [ ] ${stream}: Restart the background music via SSH or VNC: music . The background music should automatically get killed when the talks start, but if it doesn't, you can stop it with: screen -S background -X quit
    • - -
  • [ ] ${coord}: ssh -t orga@live0.emacsconf.org 'screen -S restream-${track-id}-youtube /home/orga/restream-${track-id}-youtube.sh' and then confirm
    • -
  • [ ] ${coord}: ssh -t orga@live0.emacsconf.org 'screen -S restream-${track-id}-toobnix /home/orga/restream-${track-id}-toobnix.sh' and then confirm
    • +" + (if emacsconf-restream-youtube + "
  • [ ] ${coord}: ssh -t orga@live0.emacsconf.org 'screen -S restream-${track-id}-youtube /home/orga/restream-${track-id}-youtube.sh' and then confirm at ${youtube-url}
    • +" "") + (if emacsconf-restream-toobnix + "
  • [ ] ${coord}: ssh -t orga@live0.emacsconf.org 'screen -S restream-${track-id}-toobnix /home/orga/restream-${track-id}-toobnix.sh' and then confirm at ${toobnix-url}
    • " + "") + "
  • [ ] ${coord}: update the status page on live.emacsconf.org by changing emacsconf-tracks and calling emacsconf-stream-update-status-page
  • ${stream}: OR:
    • ")) ((rx "irc") "
  • [ ] ${stream}: Update the task status, which should open the pad and IRC; arrange windows: ${ssh-closedq} -
    • +
  • [ ] ${stream}: Update the task status (no visible changes): ${ssh-openq}
  • [ ] ${host}: Announce that people can ask questions in the ${channel} IRC channel.
    • ") @@ -784,10 +862,11 @@ ${bbb-checklist}")
  • [ ] ${host}: Announce that people can ask questions in the pad or on the ${channel} IRC channel, and that the speaker will follow up later.
  • [ ] ${stream}: Update the task status: ${ssh-openq} # this should not make any visible changes, just update the task status
    • " ) + ((rx "pad") + "
  • [ ] [? pad didn't auto-open] ${stream}: ${pad-url}
    • ") (_ "
  • [ ] ${stream}: Open the IRC channel (${channel}) and the pad, and arrange the windows: ${ssh-closedq}
    • -")) - "
  • [ ] ${stream}: When it's time for the next talk, close the Q&A windows and move on to the next talk
    • ")))) +")))))) (if do-insert (insert result)) result)) -- cgit v1.2.3