Extract implementation to a separate function
This commit is contained in:
parent
50bf06a57a
commit
39ce0c844b
2 changed files with 20 additions and 14 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue