From 0c56ca0b7e7ebe1d63251d887aa947925fc018fc Mon Sep 17 00:00:00 2001
From: EmacsConf <emacsconf-org@gnu.org>
Date: Sun, 6 Nov 2022 12:11:51 -0800
Subject: announce on change

---
 emacsconf-erc.el | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

(limited to 'emacsconf-erc.el')

diff --git a/emacsconf-erc.el b/emacsconf-erc.el
index c49562c..6069335 100644
--- a/emacsconf-erc.el
+++ b/emacsconf-erc.el
@@ -246,15 +246,7 @@ If MESSAGE is not specified, reset the topic to the template."
 
 ;;; For todo hooks
 
-(defun emacsconf-erc-add-to-todo-hook ()
-  (interactive)
-  (emacsconf-add-org-after-todo-state-change-hook #'emacsconf-erc-org-after-todo-state-change))
-
-(defun emacsconf-erc-remove-from-todo-hook ()
-  (interactive)
-  (emacsconf-remove-org-after-todo-state-change-hook #'emacsconf-erc-org-after-todo-state-change))
-
-(defun emacsconf-erc-org-after-todo-state-change ()
+(defun emacsconf-erc-announce-on-change (talk)
   "Announce talk."
   (let ((func
          (pcase org-state
@@ -264,7 +256,7 @@ If MESSAGE is not specified, reset the topic to the template."
            ("UNSTREAMED_Q" #'erc-cmd-NOWUNSTREAMEDQ)
            ("TO_ARCHIVE" #'erc-cmd-NOWDONE))))
     (when func
-      (funcall func (emacsconf-get-talk-info-for-subtree)))))
+      (funcall func talk))))
 
 ;;; Change TODO states
 (defun erc-cmd-MARKPLAYING (talk)
@@ -317,7 +309,7 @@ If MESSAGE is not specified, reset the topic to the template."
 (defun erc-cmd-BROADCAST (&rest message)
   "Say MESSAGE in all the emacsconference channels."
   (emacsconf-erc-with-channels (mapcar 'car emacsconf-topic-templates)
-    (erc-send-message (s-join " " message))))
+    (erc-send-message (string-join message " "))))
 
 (defun erc-cmd-JUMP (talk)
   (emacsconf-go-to-talk talk))
@@ -437,7 +429,7 @@ ${video-description}
   "Go to TALK and store NOTES in the :LOGBOOK:.
 Usage: /conflog keyword notes go here"
   (save-window-excursion
-    (emacsconf-with-talk-heading talk (emacsconf-org-log-note (s-join " " notes)))))
+    (emacsconf-with-talk-heading talk (emacsconf-org-log-note (string-join notes " ")))))
 
 (defun erc-cmd-GIT (&optional location)
   (if (string= location "conf")
-- 
cgit v1.2.3