diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-12-05 14:23:16 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-12-05 14:23:16 -0500 |
| commit | c5a4eab85deb982ff850d70c599bf4c3b7415fcf (patch) | |
| tree | de102bb4f5a72e4e31a97c3111b1b3f2f99acc9d /emacsconf-stream.el | |
| parent | 44a17758585c7bbf39365ac09460b097b5d633e1 (diff) | |
| download | emacsconf-el-c5a4eab85deb982ff850d70c599bf4c3b7415fcf.tar.xz emacsconf-el-c5a4eab85deb982ff850d70c599bf4c3b7415fcf.zip | |
fix notifications?
Diffstat (limited to 'emacsconf-stream.el')
| -rw-r--r-- | emacsconf-stream.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/emacsconf-stream.el b/emacsconf-stream.el index 0608649..60fad4d 100644 --- a/emacsconf-stream.el +++ b/emacsconf-stream.el @@ -874,8 +874,8 @@ ffplay URL notification))))) (defun emacsconf-stream-update-talk-status-from-timer (talk new-status &optional notification) - (when notification - (apply #'notifications-notify notification)) + ;; (when notification + ;; (apply #'notifications-notify notification)) (emacsconf-update-talk-status-with-hooks (plist-get talk :slug) "." new-status)) (defun emacsconf-stream-schedule-timers (&optional info) @@ -887,20 +887,23 @@ ffplay URL (mapc (lambda (talk) (when (and (time-less-p now (plist-get talk :start-time))) (emacsconf-stream-schedule-talk-status-change talk (plist-get talk :start-time) "PLAYING" - `(:title (concat "Starting " (plist-get talk :qa))))) + `(:title (concat "Starting " (plist-get talk :slug))))) (when (and (plist-get talk :video-file) (plist-get talk :qa-time) + (not (string-match "none" (or (plist-get talk :q-and-a) "none"))) (null (plist-get talk :stream-files)) ;; can't tell when this is (time-less-p now (plist-get talk :qa-time))) (emacsconf-stream-schedule-talk-status-change talk (plist-get talk :qa-time) "CLOSED_Q" - `(:title (concat "Q&A for " (plist-get talk :qa) " (" (plist-get talk :q-and-a) ")"))))) + `(:title (concat "Q&A for " (plist-get talk :slug) " (" (plist-get talk :q-and-a) ")")))) + ) info))) ;; (notifications-notify :title "Hello") (defun emacsconf-stream-cancel-all-timers () (interactive) (cancel-function-timers #'emacsconf-update-talk-status-with-hooks) + (cancel-function-timers #'emacsconf-stream-update-talk-status-from-timer) (setq emacsconf-stream-timers nil)) (defun emacsconf-stream-send-to-mpv (talk-or-track command &optional parse) |