summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEmacsConf <emacsconf-org@gnu.org>2022-11-06 12:11:51 -0800
committerEmacsConf <emacsconf-org@gnu.org>2022-11-06 12:11:51 -0800
commit0c56ca0b7e7ebe1d63251d887aa947925fc018fc (patch)
tree29bd9d8b95c457b5bfc169cef7131e4487b50011
parent62f6c67e65dc499b3fa26ce6fe01cde42d6e3670 (diff)
downloademacsconf-el-0c56ca0b7e7ebe1d63251d887aa947925fc018fc.tar.xz
emacsconf-el-0c56ca0b7e7ebe1d63251d887aa947925fc018fc.zip
announce on change
-rw-r--r--emacsconf-erc.el16
-rw-r--r--emacsconf.el2
2 files changed, 5 insertions, 13 deletions
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")
diff --git a/emacsconf.el b/emacsconf.el
index 7ea24ef..4443f7e 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -1119,7 +1119,7 @@ Filter by TRACK if given. Use INFO as the list of talks."
(defvar emacsconf-todo-hooks
'(emacsconf-stream-play-talk-on-change ;; play the talk
emacsconf-stream-open-qa-windows-on-change
- ;; emacsconf-erc-org-after-todo-state-change ;; announce via ERC
+ emacsconf-erc-announce-on-change ;; announce via ERC
emacsconf-publish-media-files-on-change
emacsconf-publish-bbb-redirect
emacsconf-publish-backstage-org-on-state-change ;; update the backstage index