a0eb4e9b65
- Rename all functions and variables in the module to reflect the namechange (and the irc jump function)
23 lines
791 B
EmacsLisp
23 lines
791 B
EmacsLisp
;;; app/irc/autoload/vertico.el -*- lexical-binding: t; -*-
|
|
;;;###if (featurep! :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)))))
|