diff options
Diffstat (limited to 'lisp/init-project.el')
-rw-r--r-- | lisp/init-project.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/init-project.el b/lisp/init-project.el index fc7741d..8703066 100644 --- a/lisp/init-project.el +++ b/lisp/init-project.el @@ -21,14 +21,16 @@ buffer even if one already exists." (let* ((default-directory (project-root (project-current t))) ;; find a vterm buffer which has its current directory in the project ;; root or any sub-directory of the root - (vterm-buf (car (seq-filter (lambda (buf) - (let* ((buf-prefix "vterm: ") - (buf-name (buffer-name buf)) - (buf-dir (string-remove-prefix buf-prefix buf-name))) - (and (string-prefix-p buf-prefix buf-name) - (file-in-directory-p (file-truename buf-dir) - (file-truename default-directory))))) - (buffer-list))))) + (vterm-buf + (car (seq-filter + (lambda (buf) + (let* ((buf-prefix "vterm: ") + (buf-name (buffer-name buf)) + (buf-dir (string-remove-prefix buf-prefix buf-name))) + (and (string-prefix-p buf-prefix buf-name) + (file-in-directory-p (file-truename buf-dir) + (file-truename default-directory))))) + (buffer-list))))) (if (and vterm-buf (not current-prefix-arg)) (pop-to-buffer vterm-buf) (vterm-other-window)))) |