diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-12-05 14:22:56 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-12-05 14:22:56 -0500 |
| commit | 3eddc74f304938bba8a3077693377a94a814ff89 (patch) | |
| tree | ba0fa5b86be0ebb25d25b921640a4f667146c502 /emacsconf-erc.el | |
| parent | a2189b89cb5029236d60ea2f87942c70c4c4a0d6 (diff) | |
| download | emacsconf-el-3eddc74f304938bba8a3077693377a94a814ff89.tar.xz emacsconf-el-3eddc74f304938bba8a3077693377a94a814ff89.zip | |
fix topic
Diffstat (limited to 'emacsconf-erc.el')
| -rw-r--r-- | emacsconf-erc.el | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/emacsconf-erc.el b/emacsconf-erc.el index 8f47d36..4dc048c 100644 --- a/emacsconf-erc.el +++ b/emacsconf-erc.el @@ -63,7 +63,7 @@ (defcustom emacsconf-erc-org "#emacsconf-org" "Channel for organizers") (defcustom emacsconf-topic-templates - '(("#emacsconf" "EmacsConf 2022 | Subscribe to https://lists.gnu.org/mailman/listinfo/emacsconf-discuss for updates") + '(("#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-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") @@ -158,6 +158,18 @@ If MESSAGE is not specified, reset the topic to the template." threshold-time))) emacsconf-erc-recent-announcements)))) +(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 (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 :speakers) + (plist-get talk :pad-url) + (plist-get talk :qa-info) + (car (assoc-default (concat "#" (plist-get talk :channel)) emacsconf-topic-templates))))))) (defun erc-cmd-NOWPLAYING (talk) "Set the channel topics to announce TALK." (interactive (list (emacsconf-complete-talk-info))) |