diff options
| -rw-r--r-- | emacsconf-erc.el | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/emacsconf-erc.el b/emacsconf-erc.el index 4dc048c..7609657 100644 --- a/emacsconf-erc.el +++ b/emacsconf-erc.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2022 Sacha Chua ;; Author: Sacha Chua <sacha@sachachua.com> -;; Keywords: +;; Keywords: ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -34,7 +34,7 @@ ;; - /nowdone slug ;; use M-x emacsconf-erc-add-to-todo-hook in conf.org to have the announcements triggered by todo state changes -;; +;; ;; updating task status ;; - /markplaying slug ;; - /markclosedq slug @@ -46,7 +46,7 @@ ;; - /broadcast message ;; - /conftopic message ;; - /checkin nick -;; +;; ;;; Code: (defcustom emacsconf-collaborative-pad @@ -63,12 +63,12 @@ (defcustom emacsconf-erc-org "#emacsconf-org" "Channel for organizers") (defcustom emacsconf-topic-templates - '(("#emacsconf" "Welcome to EmacsConf 2022 | please join our track-specific channels #emacsconf-gen and #emacsconf-dev as well | Subscribe to https://lists.gnu.org/mailman/listinfo/emacsconf-discuss for updates") + '(("#emacsconf" "Welcome to EmacsConf 2023 | please join our track-specific channels #emacsconf-gen and #emacsconf-dev as well | Subscribe to https://lists.gnu.org/mailman/listinfo/emacsconf-discuss for updates") ("#emacsconf-gen" "General track | https://emacsconf.org/2022/watch/gen/ | Subscribe to https://lists.gnu.org/mailman/listinfo/emacsconf-discuss for updates") ("#emacsconf-dev" "Development track | https://emacsconf.org/2022/watch/dev/ | Subscribe to https://lists.gnu.org/mailman/listinfo/emacsconf-discuss for updates") - ("#emacsconf-accessible" "EmacsConf 2022 accessibility - help by describing what's happening | Subscribe to https://lists.gnu.org/mailman/listinfo/emacsconf-discuss for updates") - ("#emacsconf-org" "EmacsConf 2022 | Dedicated channel for EmacsConf organizers and speakers | this is intended as an internal, low-traffic channel; for main discussion around EmacsConf, please join #emacsconf | Subscribe to https://lists.gnu.org/mailman/listinfo/emacsconf-discuss for updates") - ("#emacsconf-questions" "EmacsConf 2022 | Low-traffic channel for questions if speakers prefer IRC and need help focusing; for main discussion around EmacsConf, please join #emacsconf | Subscribe to https://lists.gnu.org/mailman/listinfo/emacsconf-discuss for updates")) + ("#emacsconf-accessible" "EmacsConf 2023 accessibility - help by describing what's happening | Subscribe to https://lists.gnu.org/mailman/listinfo/emacsconf-discuss for updates") + ("#emacsconf-org" "EmacsConf 2023 | Dedicated channel for EmacsConf organizers and speakers | this is intended as an internal, low-traffic channel; for main discussion around EmacsConf, please join #emacsconf | Subscribe to https://lists.gnu.org/mailman/listinfo/emacsconf-discuss for updates") + ("#emacsconf-questions" "EmacsConf 2023 | Low-traffic channel for questions if speakers prefer IRC and need help focusing; for main discussion around EmacsConf, please join #emacsconf | Subscribe to https://lists.gnu.org/mailman/listinfo/emacsconf-discuss for updates")) "List of (channel topic-template) entries for mass-setting channel topics." :group 'emacsconf :type '(repeat (list (string :tag "Channel") @@ -88,7 +88,7 @@ (defun erc-cmd-CONFTOPIC (&rest message) "Set the topic to MESSAGE | template in the EmacsConf channels. If MESSAGE is not specified, reset the topic to the template." - (mapc (lambda (template) + (mapc (lambda (template) (with-current-buffer (erc-get-buffer (car template)) (erc-cmd-TOPIC (if message (concat (if (stringp message) message (s-join " " message)) " | " (cadr template)) (cadr template))))) @@ -131,7 +131,7 @@ If MESSAGE is not specified, reset the topic to the template." (emacsconf-erc-with-channels (list emacsconf-erc-org) (erc-send-message (format "Ready: %s (%s)" (plist-get talk :title) (plist-get talk :speakers)))) (mapc (lambda (nick) - (erc-message "PRIVMSG" + (erc-message "PRIVMSG" (format "%s ready in %s: %s (%s) %s %s" emacsconf-nick (plist-get talk :bbb-room) @@ -160,12 +160,12 @@ If MESSAGE is not specified, reset the topic to the template." (defun erc-cmd-TALKTOPIC (talk) (interactive (list (emacsconf-complete-talk-info))) - (when (stringp talk) (setq talk (or (emacsconf-find-talk-info talk) (error "Could not find talk %s" talk)))) + (when (stringp talk) (setq talk (or (emacsconf-find-talk-info talk) (error "Could not find talk %s" talk)))) (when (plist-get talk :track) (emacsconf-erc-with-channels (list (concat "#" (plist-get talk :channel))) (erc-cmd-TOPIC (format "%s: %s (%s) pad: %s Q&A: %s | %s" (plist-get talk :slug) - (plist-get talk :title) + (plist-get talk :title) (plist-get talk :speakers) (plist-get talk :pad-url) (plist-get talk :qa-info) @@ -173,7 +173,7 @@ If MESSAGE is not specified, reset the topic to the template." (defun erc-cmd-NOWPLAYING (talk) "Set the channel topics to announce TALK." (interactive (list (emacsconf-complete-talk-info))) - (when (stringp talk) (setq talk (or (emacsconf-find-talk-info talk) (error "Could not find talk %s" talk)))) + (when (stringp talk) (setq talk (or (emacsconf-find-talk-info talk) (error "Could not find talk %s" talk)))) ;; Announce it in the track's channel (if (emacsconf-erc-recently-announced (format "---- %s:" (plist-get talk :slug))) (message "Recently announced, skipping") @@ -181,7 +181,7 @@ If MESSAGE is not specified, reset the topic to the template." (emacsconf-erc-with-channels (list (concat "#" (plist-get talk :channel))) (erc-cmd-TOPIC (format "%s: %s (%s) pad: %s Q&A: %s | %s" (plist-get talk :slug) - (plist-get talk :title) + (plist-get talk :title) (plist-get talk :speakers) (plist-get talk :pad-url) (plist-get talk :qa-info) @@ -202,7 +202,7 @@ If MESSAGE is not specified, reset the topic to the template." (erc-send-message (format "-- %s track: %s: %s (watch: %s, pad: %s, channel: #%s)" (plist-get talk :track) (plist-get talk :slug) - (plist-get talk :title) + (plist-get talk :title) (plist-get talk :watch-url) (plist-get talk :pad-url) (plist-get talk :channel)))))) @@ -218,7 +218,7 @@ If MESSAGE is not specified, reset the topic to the template." (plist-get talk :title) (plist-get talk :qa-info) (plist-get talk :watch-url) - (plist-get talk :pad-url)))) + (plist-get talk :pad-url)))) (emacsconf-erc-with-channels (list emacsconf-erc-hallway emacsconf-erc-org) (erc-send-message (format "-- Q&A beginning for \"%s\" in the %s track (%s) Watch: %s Add notes/questions: %s . Chat: #%s" (plist-get talk :title) @@ -238,7 +238,7 @@ If MESSAGE is not specified, reset the topic to the template." (plist-get talk :title) (plist-get talk :qa-info) (plist-get talk :watch-url) - (plist-get talk :pad-url)))) + (plist-get talk :pad-url)))) (emacsconf-erc-with-channels (list emacsconf-erc-hallway emacsconf-erc-org) (erc-send-message (format "-- Q&A now open for \"%s\" in the %s track (%s). Watch: %s Add notes/questions: %s IRC: #%s" (plist-get talk :title) @@ -257,7 +257,7 @@ If MESSAGE is not specified, reset the topic to the template." (erc-send-message (format "-- Q&A continues off-stream for \"%s\" (%s) Add notes/questions: %s ." (plist-get talk :title) (plist-get talk :qa-info) - (plist-get talk :pad-url)))) + (plist-get talk :pad-url)))) (emacsconf-erc-with-channels (list emacsconf-erc-hallway emacsconf-erc-org) (erc-send-message (format "-- Q&A continues off-stream for \"%s\" in the %s track (%s) Add notes/questions: %s IRC: #%s" (plist-get talk :title) @@ -435,7 +435,7 @@ TIME can be hh:mm or an offset such as -2 (two minutes ago) based on current tim (unless (re-search-backward "TODO.*Update schedule on wiki" nil t) (insert "\n* TODO [#B] Update schedule on wiki\n")) (goto-char (point-max)) - (insert (emacsconf-replace-plist-in-string info + (insert (emacsconf-replace-plist-in-string info "\n* TODO [#B] Check ${title} on https://media.emacsconf.org/${conf-year} ,* TODO [#B] Commit the page update for ${title} and check https://emacsconf.org/${conf-year}/talks/${slug}/ |