Extract implementation to a separate function

This commit is contained in:
Sheng Yang 2020-05-09 00:53:10 -05:00
parent 50bf06a57a
commit 39ce0c844b
2 changed files with 20 additions and 14 deletions

View file

@ -34,19 +34,7 @@ If prefix ARG is non-nil, recreate vterm buffer in the current project's root."
(with-current-buffer buffer
(unless (eq major-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)))))
(+vterm-open-remote-maybe))
(pop-to-buffer buffer)))))
;;;###autoload
@ -68,7 +56,8 @@ If prefix ARG is non-nil, cd into `default-directory' instead of project root."
project-root))
display-buffer-alist)
(setenv "PROOT" project-root)
(vterm)))
(vterm)
(+vterm-open-remote-maybe)))
(defvar +vterm--insert-point nil)