emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Allow +vterm/toggle to open remotely

Browse source 
When `default-directory` is remote, prepare the toggled vterm at remote
location.
This commit is contained in:
Sheng Yang 2020-05-09 00:23:56 -05:00
parent bd58f0ae71
commit 50bf06a57a
1 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
modules/term/vterm/autoload.el
View file

@ -33,7 +33,20 @@ If prefix ARG is non-nil, recreate vterm buffer in the current project's root."
(let ((buffer (get-buffer-create buffer-name)))
(with-current-buffer buffer
(unless (eq major-mode 'vterm-mode)
(vterm-mode)))
(vterm-mode))
(when (and (featurep 'tramp)
(tramp-tramp-file-p default-directory))
(message "default-directory is %s" default-directory)
(with-parsed-tramp-file-name default-directory path
(let ((method (cadr (assoc `tramp-login-program
(assoc path-method tramp-methods)))))
(vterm-send-string
(concat method " "
(when path-user (concat path-user "@")) path-host))
(vterm-send-return)
(vterm-send-string
(concat "cd " path-localname))
(vterm-send-return)))))
(pop-to-buffer buffer)))))
;;;###autoload