doomemacs/modules/app/irc/autoload/vertico.el

24 lines
790 B
EmacsLisp
Raw Normal View History

;;; app/irc/autoload/vertico.el -*- lexical-binding: t; -*-
;;;###if (modulep! :completion vertico)
;;;###autoload
(defun +irc/vertico-jump-to-channel ()
"Jump to an open channel or server buffer with vertico."
(interactive)
(require 'consult)
(consult--multi (list (plist-put (copy-sequence +irc--consult-circe-source)
:hidden nil))
:narrow nil
:require-match t
:prompt "Jump to:"
:sort nil))
;;;###autoload
(defvar +irc--consult-circe-source
`(:name "circe"
:hidden t
:narrow ?c
:category buffer
:state ,#'consult--buffer-state
:items ,(lambda () (mapcar #'buffer-name (+irc--circe-all-buffers)))))