Files
doomemacs/modules/app/irc/autoload/vertico.el
Itai Y. Efrat 24eaa1317c completion/selectrum -> completion/vertico, part 2
- Rename module from `:completion selectrum` to `:completion vertico`
- Rename all files involved
- Do *not* yet rename all the functions, as that messes up git's rename
  detection.
2021-07-25 02:51:15 +03:00

24 lines
793 B
EmacsLisp

;;; app/irc/autoload/vertico.el -*- lexical-binding: t; -*-
;;;###if (featurep! :completion vertico)
;;;###autoload
(defun +irc/selectrum-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)))))