Integrate bufler-switch-buffer into consult-buffer

[0xd61]

How can I integrate the bufler workspace buffer list into consult-buffer?

I saw in persp-mode e.g. it is possible by filtering the buffer list:

(defvar persp-consult-source
    (list :name     "Persp"
          :narrow   ?s
          :category 'buffer
          :state    #'consult--buffer-state
          :history  'buffer-name-history
          :default  t
          :items
          #'(lambda ()
              (mapcar #'buffer-name
                      (persp-filter-out-bad-buffers)))))
(consult-customize consult--source-buffer :hidden nil :default nil)
(add-to-list 'consult-buffer-sources persp-consult-source)

Could I do something similar with bufler? I want to integrate it into consult-buffer to only show the buffers of the active workspace but still be able to show all buffers by using the narrowing keys like b SPC.
https://github.com/minad/consult?tab=readme-ov-file#virtual-buffers

Consult does support custom buffer sources, but I'm not experienced with emacs to create such an integration for bufler.
https://github.com/minad/consult?tab=readme-ov-file#multiple-sources

[alphapapa]

This is more of a question for Consult developers and users than for me. I do use Consult, but I don't have its APIs memorized, so I would have to research how to do it. I'd recommend browsing the Consult repo (issues, discussions, wiki), as other users have asked similar questions in the past. It shouldn't be too hard to put it together, and then you could share it for other users to use.

[0xd61]

This is what I have found:

(defun bufler-disable-workspace ()
    "Reset the `frame-parameters' `bufler-workspace-path' and `bufler-workspace-path-formatted' to nil."
    (interactive)
    (set-frame-parameter nil 'bufler-workspace-path nil)
    (set-frame-parameter nil 'bufler-workspace-path-formatted nil))

  (defvar consult--bufler-workspace+
    `(:name "Workspace"
            :narrow ?w
            :category buffer
            :face consult-buffer
            :history  buffer-name-history
            :state    ,#'consult--buffer-state
            :enabled  ,(lambda () (frame-parameter nil 'bufler-workspace-path))
            :items
            ,(lambda ()
               (let ((bufler-vc-state nil))
                 (mapcar #'buffer-name
                         (mapcar #'cdr
                                 (bufler-buffer-alist-at
                                  (frame-parameter nil 'bufler-workspace-path)
                                  :filter-fns bufler-filter-buffer-fns))))))
    "Bufler workspace buffers source for `consult-buffer'.")

  (add-to-list 'consult-buffer-sources 'consult--bufler-workspace+)

So far it seems to be working.

Credits to:
https://github.com/Kalelzar/emacs/blob/af54a5ba924ad4e811ae0de1da4acc259df84d28/modules/module-bufler.el#L35