diff options
Diffstat (limited to 'emacsconf-erc.el')
| -rw-r--r-- | emacsconf-erc.el | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/emacsconf-erc.el b/emacsconf-erc.el index 5791987..6c9a742 100644 --- a/emacsconf-erc.el +++ b/emacsconf-erc.el @@ -247,15 +247,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 @@ -265,7 +257,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) @@ -324,7 +316,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)) @@ -444,7 +436,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") |