From c8b9bb82012b00c0c1c498fedbb2aa4a85eeab8c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Sat, 29 Jul 2023 10:13:58 -0700 Subject: emacs: vterm tweaks --- .emacs.d/rul-init.d/vterm.el | 43 ++++++++++++++++++------------------------- 1 file changed, 18 insertions(+), 25 deletions(-) (limited to '.emacs.d') diff --git a/.emacs.d/rul-init.d/vterm.el b/.emacs.d/rul-init.d/vterm.el index 28c54e9..4d752a1 100644 --- a/.emacs.d/rul-init.d/vterm.el +++ b/.emacs.d/rul-init.d/vterm.el @@ -1,36 +1,26 @@ (use-package multi-vterm :ensure t :config -(setq - vterm-max-scrollback 100000 -) -(defvar vterm-source +(setq 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) + :category 'buffer + :narrow ?t + :face 'consult-buffer + :action ,#'consult--buffer-action + :items + (lambda () + (mapcar #'buffer-name + (seq-filter + (lambda (x) + (eq (buffer-local-value 'major-mode x) 'vterm-mode)) + (buffer-list)))))) (setq consult-vterm-buffer-sources (list - `(:hidden nil :narrow ?v ,@vterm-source))) + `(:hidden nil :narrow ?t ,@vterm-source))) + +(setq vterm-max-scrollback 100000) (defun consult-vterm-buffer () "Switch to a vterm buffer" @@ -38,4 +28,7 @@ (consult-buffer consult-vterm-buffer-sources)) (bind-key "C-x b" 'consult-vterm-buffer vterm-mode-map) + +(add-to-list 'consult-buffer-sources 'vterm-source 'append) +(add-hook 'vterm-mode-hook 'goto-address-mode) ) -- cgit v1.2.3