diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-12-03 08:27:47 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-12-03 08:27:47 -0500 |
| commit | c2ee8b8fff09f4c4e0dbe5388257e184d224ff68 (patch) | |
| tree | 09208a1119156b5171afddf6e3884235dc3d36a7 /emacsconf-pad.el | |
| parent | 908717cfde3adc271a0e1747bed82457d7ca5f4a (diff) | |
| download | emacsconf-el-c2ee8b8fff09f4c4e0dbe5388257e184d224ff68.tar.xz emacsconf-el-c2ee8b8fff09f4c4e0dbe5388257e184d224ff68.zip | |
updates
Diffstat (limited to '')
| -rw-r--r-- | emacsconf-pad.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/emacsconf-pad.el b/emacsconf-pad.el index 901ba2b..aa326e5 100644 --- a/emacsconf-pad.el +++ b/emacsconf-pad.el @@ -412,10 +412,6 @@ ${next-talk-list} </ul>")) ))) -(defun emacsconf-pad-prepopulate-shift-host (shift info) - - ) - (defun emacsconf-pad-format-checkin-hyperlist (talk) (emacsconf-replace-plist-in-string (append (list @@ -502,6 +498,7 @@ ${bbb-checklist}</li>") (defun emacsconf-pad-prepopulate-host-hyperlists () (interactive) (mapc #'emacsconf-pad-prepopulate-shift-hyperlist-host emacsconf-shifts)) + (defun emacsconf-pad-prepopulate-shift-hyperlist-host (shift &optional info) (interactive (list (completing-read "Shift: " (mapcar (lambda (o) (plist-get o :id)) emacsconf-shifts)))) @@ -540,10 +537,16 @@ ${bbb-checklist}</li>") :expanded-intro (emacsconf-pad-expand-intro talk) :mumble (concat emacsconf-id "-" (plist-get (emacsconf-get-track talk) :id)) :qa-hhmm (format-time-string "%H:%M" (plist-get talk :qa-time) emacsconf-timezone) + :hyperlist-note-info + (emacsconf-surround + (format "<li><strong>%s NOTE for ${slug}:</strong> " + (format-time-string "%H:%M" (plist-get talk :start-time) emacsconf-timezone)) + (plist-get talk :hyperlist-note) "</li>" "") :next-talk-in-5 (if next-talk (format-time-string "%H:%M" (time-subtract (plist-get next-talk :start-time) (seconds-to-time 300)) emacsconf-timezone) "") - :next-talk-in-1 (if next-talk (format-time-string "%H:%M" (time-subtract (plist-get next-talk :start-time) (seconds-to-time 60)) emacsconf-timezone) "")) + :next-talk-in-1 (if next-talk (format-time-string "%H:%M" (time-subtract (plist-get next-talk :start-time) (seconds-to-time 60)) emacsconf-timezone) "")) talk) (concat + "${hyperlist-note-info}" (cond (;; live talk, join BBB (and (null (plist-get talk :recorded-intro)) |