diff options
author | Martin Polden <mpolden@mpolden.no> | 2022-06-18 21:35:18 +0200 |
---|---|---|
committer | Martin Polden <mpolden@mpolden.no> | 2022-06-18 21:35:18 +0200 |
commit | 8274c2621ac5d20fa07a39719e960a1f4e7d7597 (patch) | |
tree | 6a10113e4572f84c7d2909f7ba9440087ad4ff36 /lisp | |
parent | 2d7b2e912df9054c5aa567f6af31b97d48447d8a (diff) |
project: fix formatting
Diffstat (limited to 'lisp')
-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)))) |