summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--emacsconf-erc.el36
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}/