(use-package multi-vterm
:ensure t
:config
(setq
 vterm-max-scrollback 100000
)

(defvar vterm-source
  `(:name     "VTerm Buffer"
              :category 'buffer
              :narrow   ?t
              :face     'consult-buffer
              :history  'buffer-name-history
              :state    #'consult--buffer-state
              :new
              (lambda (name)
                (with-current-buffer (get-buffer-create name)
                  (insert "#+title: " name "\n\n")
                  (vterm)
                  (consult--buffer-action (current-buffer))))
              :items
              (lambda ()
                (mapcar #'buffer-name
                        (seq-filter
                         (lambda (x)
                           (eq (buffer-local-value 'major-mode x) 'vterm-mode))
                         (buffer-list))))))

(add-to-list 'consult-buffer-sources 'vterm-source 'append)

(setq consult-vterm-buffer-sources
      (list
       `(:hidden nil :narrow ?v ,@vterm-source)))

(defun consult-vterm-buffer ()
  "Switch to a vterm buffer"
  (interactive)
  (consult-buffer consult-vterm-buffer-sources))

(bind-key "C-x b" 'consult-vterm-buffer vterm-mode-map)
)