From a9534e1a839f5a98569d516f56e15c77146db62b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 27 Sep 2021 18:20:34 -0500
Subject: Add circe-buffer-source

---
 lisp/acdw-consult.el | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

(limited to 'lisp/acdw-consult.el')

diff --git a/lisp/acdw-consult.el b/lisp/acdw-consult.el
index daad645..84a7fea 100644
--- a/lisp/acdw-consult.el
+++ b/lisp/acdw-consult.el
@@ -67,4 +67,27 @@ if ripgrep is installed, otherwise `consult-grep'."
               defuns)))
     `(progn ,@ (nreverse defuns))))
 
+;;; Circe buffers source
+
+(require 'cl-lib)
+(autoload 'circe-server-buffers "circe")
+(autoload 'circe-server-chat-buffers "circe")
+
+(defun 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))))
+
+(defvar circe-buffer-source
+  `(:name     "circe"
+              :hidden   t
+              :narrow   ?c
+              :category buffer
+              :state    ,#'consult--buffer-state
+              :items    ,(lambda () (mapcar #'buffer-name (circe-all-buffers)))))
+
 (provide 'acdw-consult)
-- 
cgit 1.4.1-21-gabe81