diff options
| -rw-r--r-- | lisp/bandali-erc.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lisp/bandali-erc.el b/lisp/bandali-erc.el index 2d6f496..bc82bc6 100644 --- a/lisp/bandali-erc.el +++ b/lisp/bandali-erc.el @@ -1,7 +1,5 @@ (use-package erc - :bind (("C-c b b" . erc-switch-to-buffer) - :map erc-mode-map - ("M-a" . erc-track-switch-buffer)) + :bind ("C-c w e" . erc-switch-to-buffer-other-window) :custom (erc-join-buffer 'bury) (erc-lurker-hide-list '("JOIN" "PART" "QUIT")) @@ -11,12 +9,17 @@ (erc-server-reconnect-attempts 5) (erc-server-reconnect-timeout 3) :config + (declare-function erc-message "erc-backend" + (message-command line &optional force)) + (declare-function erc-default-target "erc") + (declare-function erc-current-nick "erc") (defun erc-cmd-OPME () "Request chanserv to op me." (erc-message "PRIVMSG" (format "chanserv op %s %s" (erc-default-target) (erc-current-nick)) nil)) + (declare-function erc-cmd-DEOP "erc" (&rest people)) (defun erc-cmd-DEOPME () "Deop myself from current channel." (erc-cmd-DEOP (format "%s" (erc-current-nick)))) @@ -25,6 +28,7 @@ (add-to-list 'erc-modules 'smiley) (add-to-list 'erc-modules 'spelling) (add-to-list 'erc-modules 'scrolltoplace) + (declare-function erc-update-modules "erc") (erc-update-modules)) (use-package erc-fill @@ -42,7 +46,10 @@ (use-package erc-track :after erc :bind (("C-c a e t d" . erc-track-disable) - ("C-c a e t e" . erc-track-enable)) + ("C-c a e t e" . erc-track-enable) + ("C-c a e M-a" . erc-track-switch-buffer-other-window) + :map erc-mode-map + ("M-a" . erc-track-switch-buffer)) :custom (erc-track-enable-keybindings nil) (erc-track-exclude-types '("JOIN" "MODE" "NICK" "PART" "QUIT" |