From be228e03c513e59b0c1976538831e44dfd475dcd Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 30 Jun 2021 19:32:56 -0500 Subject: Switch prefix with erc-switch-to-buffer --- init.el | 2 ++ lisp/acdw-erc.el | 9 +++++++++ 2 files changed, 11 insertions(+) diff --git a/init.el b/init.el index 7d32117..a49f107 100644 --- a/init.el +++ b/init.el @@ -296,6 +296,8 @@ erc-track-mode erc-truncate-mode) + (:bind "C-c C-b" acdw-erc/erc-switch-to-buffer) + ;; (setup (:straight erc-hl-nicks) ;; (with-eval-after-load 'erc ;; (require 'erc-hl-nicks) diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el index 8cf9734..f62e731 100644 --- a/lisp/acdw-erc.el +++ b/lisp/acdw-erc.el @@ -101,5 +101,14 @@ If USE-TLS is non-nil, use TLS." (apply #'concat ss)) name)))) + +;;; Uh + +(defun acdw-erc/erc-switch-to-buffer (&optional arg) + "Prompt for ERC buffer to switch to. +Reverse prefix argument from `erc-switch-to-buffer'." + (interactive "P") + (erc-switch-to-buffer (not arg))) + (provide 'acdw-erc) ;;; acdw-erc.el ends here -- cgit 1.4.1-21-gabe81