fa8288823b
vterm doesn't really seem to support this, but it also doesn't stop the user from doing it, resulting in weirdly broken terminals. Change-Id: I5251306a2fb72e7aae4e6c70e522bad240222301 Reviewed-on: https://cl.tvl.fyi/c/depot/+/9017 Tested-by: BuildkiteCI Reviewed-by: tazjin <tazjin@tvl.su> Autosubmit: tazjin <tazjin@tvl.su>
62 lines
1.9 KiB
EmacsLisp
62 lines
1.9 KiB
EmacsLisp
;;; term-switcher.el --- Easily switch between open vterms
|
|
;;
|
|
;; Copyright (C) 2019-2020 Google Inc.
|
|
;; Copyright (C) 2021-2023 The TVL Authors
|
|
;;
|
|
;; Author: Vincent Ambo <tazjin@tvl.su>
|
|
;; Version: 1.1
|
|
;; Package-Requires: (dash ivy s vterm)
|
|
;;
|
|
;;; Commentary:
|
|
;;
|
|
;; This package adds a function that lets users quickly switch between
|
|
;; different open vterms via ivy.
|
|
|
|
(require 'dash)
|
|
(require 'ivy)
|
|
(require 's)
|
|
(require 'vterm)
|
|
|
|
(defgroup term-switcher nil
|
|
"Customization options `term-switcher'.")
|
|
|
|
(defcustom term-switcher-buffer-prefix "vterm<"
|
|
"String prefix for vterm terminal buffers. For example, if you
|
|
set your titles to match `vterm<...>' a useful prefix might be
|
|
`vterm<'."
|
|
:type '(string)
|
|
:group 'term-switcher)
|
|
|
|
(defun ts/open-or-create-vterm (buffer-name)
|
|
"Switch to the buffer with BUFFER-NAME or create a new vterm
|
|
buffer."
|
|
(if (equal "New vterm" buffer-name)
|
|
;; Don't open semi-broken vterms over tramp.
|
|
(if (file-remote-p default-directory)
|
|
(let ((default-directory "~"))
|
|
(vterm))
|
|
(vterm))
|
|
(if-let ((buffer (get-buffer buffer-name)))
|
|
(switch-to-buffer buffer)
|
|
(error "Could not find vterm buffer: %s" buffer-name))))
|
|
|
|
(defun ts/is-vterm-buffer (buffer)
|
|
"Determine whether BUFFER runs a vterm."
|
|
(equal 'vterm-mode (buffer-local-value 'major-mode buffer)))
|
|
|
|
(defun ts/switch-to-terminal ()
|
|
"Switch to an existing vterm buffer or create a new one."
|
|
|
|
(interactive)
|
|
(let ((terms (-map #'buffer-name
|
|
(-filter #'ts/is-vterm-buffer (buffer-list)))))
|
|
(if terms
|
|
(ivy-read "Switch to vterm: "
|
|
(cons "New vterm" terms)
|
|
:caller 'ts/switch-to-terminal
|
|
:preselect (s-concat "^" term-switcher-buffer-prefix)
|
|
:require-match t
|
|
:action #'ts/open-or-create-vterm)
|
|
(vterm))))
|
|
|
|
(provide 'term-switcher)
|