Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update vterm stuff

Browse Source
This commit is contained in:
Zander671
2026-09-03 09:13:45 -07:00
parent 07e29aff22
commit 16ad288e93
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
init.el
+5 -4
View File
@@ -3095,16 +3095,17 @@ Actually, return the method name."
(visual-wrap-prefix-mode -1)) (visual-wrap-prefix-mode -1))
(defun my/project-vterm (&optional arg prompt) (defun my/project-vterm (&optional arg prompt)
"Switch to or create a vterm buffer in the current projects root." "Switch to or create a vterm buffer in the current projects root."
(interactive (list current-prefix-arg t)) (interactive (list (prefix-numeric-value current-prefix-arg) t))
(if-let* ((proj (project-current prompt)) (if-let* ((proj (project-current prompt))
(default-directory (project-root proj))) (default-directory (project-root proj)))
(let ((vterm-buffer-name (format "*vterm for project %s*" default-directory)) (let ((vterm-shell (my/-vterm-shell-for-cwd))
(vterm-shell (my/-vterm-shell-for-cwd))) (vterm-buffer-name (format "*vterm for project %s*"
default-directory)))
(vterm arg)))) (vterm arg))))
(defun my/project-vterm-or-default (&optional arg) (defun my/project-vterm-or-default (&optional arg)
"Open a vterm for the current project, otherwise, open a normal vterm." "Open a vterm for the current project, otherwise, open a normal vterm."
(interactive "P") (interactive "P")
(unless (my/project-vterm) (unless (my/project-vterm arg)
(let ((vterm-shell (my/-vterm-shell-for-cwd))) (let ((vterm-shell (my/-vterm-shell-for-cwd)))
(vterm arg))))) (vterm arg)))))