From d59e5d4255f7d91f4ccba84d4200126c0c8d4d0a Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Wed, 23 Nov 2022 09:41:06 -0500 Subject: checkin --- emacsconf-pad.el | 47 ++++++++++++++++++++++++++++++++++++----------- emacsconf.el | 7 ++++--- 2 files changed, 40 insertions(+), 14 deletions(-) diff --git a/emacsconf-pad.el b/emacsconf-pad.el index 7542689..ba216ce 100644 --- a/emacsconf-pad.el +++ b/emacsconf-pad.el @@ -412,13 +412,39 @@ ${next-talk-list} talk) (pcase (or (plist-get talk :q-and-a) "") ((rx "live") - "
  • ${time} ${checkin}: Double-check ${speakers} checked into ${bbb-room}; let #emacsconf-org know if not
    • ") + "
  • ${time} ${checkin}: By this time, ${speakers} should be checked into ${bbb-backstage} and set as moderator(s); let #emacsconf-org know if they're missing
    • ") ((rx "IRC") "
  • ${time} ${checkin}: Double-check ${speakers} in ${channel}; let #emacsconf-org know if not
    • ") ((rx "Mumble") "
  • ${time} ${checkin}: Double-check ${speakers} on Mumble; let #emacsconf-org know if not
    • ") (_ "")))) +(defun emacsconf-pad-prepopulate-checkins (&optional info) + (interactive) + (setq info (or info (emacsconf-prepare-for-display info))) + (mapc (lambda (day) + (let ((pad-id (concat "checkin-" (downcase (format-time-string "%a" (plist-get (cadr day) :checkin-time)))))) + (emacsconf-create-pad) + (emasconf-set-pad) + (concat "")) + ) + (seq-group-by (lambda (talk) + (format-time-string "%A, %b %-e, %Y" (plist-get talk :checkin-time))) + info)))) + + ) + (defun emacsconf-pad-prepopulate-shift-hyperlist (shift &optional info) (interactive (list (completing-read "Shift: " (mapcar (lambda (o) (plist-get o :id)) emacsconf-shifts)))) @@ -464,7 +490,7 @@ ${next-talk-list} (result (emacsconf-replace-plist-in-string modified-talk - (format "
  • %s export SLUG=%s %s %s%s\n%s
    • " + (format "
  • %s export SLUG=%s %s %s%s\n
    • " (format-time-string "%H:%M" (plist-get talk :start-time) emacsconf-timezone) (plist-get talk :slug) (plist-get talk :title) @@ -472,11 +498,12 @@ ${next-talk-list} (plist-get talk :url) emacsconf-base-url (plist-get talk :url) + (emacsconf-surround + "
    " (plist-get talk :hyperlist-note) "
    " + "") (pcase (or (plist-get talk :q-and-a) "") ((rx "live") - " +
  • [ ] ${stream}: Close the Q&A windows and move on to the next talk
    • ") ((rx "irc") - " - +
  • [ ] ${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)) diff --git a/emacsconf.el b/emacsconf.el index 873a9ea..bf117af 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -386,10 +386,11 @@ ;; Captioning (:captioner "CAPTIONER") (:caption-note "CAPTION_NOTE") - (:intro-note "INTRO_NOTE") ;; Conference (:check-in "CHECK_IN") (:public "PUBLIC") + (:intro-note "INTRO_NOTE") + (:hyperlist-note "HYPERLIST_NOTE") ;; Extraction (:qa-youtube "QA_YOUTUBE") (:qa-toobnix "QA_TOOBNIX") @@ -578,6 +579,7 @@ (plist-put o :watch-url (concat emacsconf-base-url emacsconf-year "/watch/" (plist-get track :id)))) (plist-put o :channel (plist-get track :channel)) (plist-put o :webchat-url (concat emacsconf-chat-base "?join=emacsconf," (plist-get track :channel))) + (plist-put o :bbb-backstage (concat emacsconf-media-base-url emacsconf-year "/backstage/current/room/" (plist-get o :slug))) (cond ((string-match "live" (or (plist-get o :q-and-a) "")) (plist-put o :bbb-redirect (format "https://emacsconf.org/current/%s/room/" (plist-get o :slug))) @@ -967,8 +969,7 @@ ;; (emacsconf-ansible-load-vars (expand-file-name "prod-vars.yml" emacsconf-ansible-directory)) ;;; Tracks (defvar emacsconf-tracks - '( - (:name "General" :color "peachpuff" :id "gen" :channel "emacsconf-gen" + '((:name "General" :color "peachpuff" :id "gen" :channel "emacsconf-gen" :watch "https://live.emacsconf.org/2022/watch/gen/" :tramp "/ssh:emacsconf-gen@res.emacsconf.org#46668:" :start "09:00" :end "17:00" -- cgit v1.2.3