diff options
| author | EmacsConf <emacsconf-org@gnu.org> | 2022-11-06 05:09:42 -0800 |
|---|---|---|
| committer | EmacsConf <emacsconf-org@gnu.org> | 2022-11-06 05:09:42 -0800 |
| commit | 5ee4fe0d9ff316a45afd4ce4e8e51c4e73c0d548 (patch) | |
| tree | 924348b3ecee96c70c9c68165c8e4d5d081adb94 | |
| parent | 15d8dd04ce097d3d037ac1b821718feb7837a415 (diff) | |
| download | emacsconf-el-5ee4fe0d9ff316a45afd4ce4e8e51c4e73c0d548.tar.xz emacsconf-el-5ee4fe0d9ff316a45afd4ce4e8e51c4e73c0d548.zip | |
Add ERC commands OPME DEOPME, and modify OPALL
| -rw-r--r-- | emacsconf-erc.el | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/emacsconf-erc.el b/emacsconf-erc.el index fa2eb47..c49562c 100644 --- a/emacsconf-erc.el +++ b/emacsconf-erc.el @@ -297,9 +297,22 @@ If MESSAGE is not specified, reset the topic to the template." ;;; Other commands -(defun erc-cmd-OPALL () +(defun erc-cmd-OPME () + "Request chanserv to op me." + (erc-message "PRIVMSG" + (format "chanserv op %s %s" + (erc-default-target) + (erc-current-nick)) nil)) + +(defun erc-cmd-DEOPME () + "Deop myself from current channel." + (erc-cmd-DEOP (format "%s" (erc-current-nick)))) + +(defun erc-cmd-OPALL (&optional nick) (emacsconf-erc-with-channels (mapcar 'car emacsconf-topic-templates) - (erc-cmd-OPME))) + (if nick + (erc-cmd-OP nick) + (erc-cmd-OPME)))) (defun erc-cmd-BROADCAST (&rest message) "Say MESSAGE in all the emacsconference channels." |