selectrum: refactor +irc/selectrum-jump-to-channel

This commit is contained in:
Itai Y. Efrat 2021-05-21 18:28:38 +03:00
parent 49a5c51615
commit 24f2efd8ca
3 changed files with 32 additions and 24 deletions

View file

@ -72,6 +72,16 @@ argument) is non-nil only show channels in current server."
((featurep! :completion selectrum) #'+irc/selectrum-jump-to-channel)
((user-error "No jump-to-channel backend is enabled. Enable selectrum or ivy!")))))
;;;###autoload
(defun +irc--circe-all-buffers ()
(cl-loop with servers = (circe-server-buffers)
for server in servers
collect server
nconc
(with-current-buffer server
(cl-loop for buf in (circe-server-chat-buffers)
collect buf))))
;;;###autoload
(defun +irc/tracking-next-buffer ()
"Disables switching to an unread buffer unless in the irc workspace."