From c36261caaff9305d256c616edcc9d1fdb51b1b42 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Thu, 3 Nov 2022 18:41:22 -0400 Subject: Change hooks to pass the talk variable --- emacsconf.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'emacsconf.el') diff --git a/emacsconf.el b/emacsconf.el index 219c9ed..1b2d81e 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -1119,16 +1119,19 @@ Filter by TRACK if given. Use INFO as the list of talks." (defvar emacsconf-todo-hooks '( - emacsconf-stream-play-talk-org-after-todo-state-change ;; play the talk + emacsconf-stream-play-talk-on-change ;; play the talk ;; emacsconf-erc-org-after-todo-state-change ;; announce via ERC - ;; emacsconf-publish-backstage-org-after-todo-state-change ;; update the backstage index - emacsconf-stream-update-talk-info-org-after-todo-state-change ;; write to the talk text + emacsconf-publish-bbb-redirect + emacsconf-publish-backstage-org-on-state-change ;; update the backstage index + emacsconf-stream-update-talk-on-change ;; write to the talk text ) - "Functions to run when the todo state changes.") + "Functions to run when the todo state changes. +They will be called with TALK.") (defun emacsconf-org-after-todo-state-change () "Run all the hooks in `emacsconf-todo-hooks'." - (run-hooks 'emacsconf-todo-hooks)) + (let ((talk (emacsconf-get-talk-info-for-subtree))) + (run-hook-with-args 'emacsconf-todo-hooks talk))) (defun emacsconf-broadcast (message) (interactive "MMessage: ") -- cgit v1.2.3