feat: add vterm project shell

Author: xhcoding

README.org

@@ -454,10 +454,10 @@ from: https://github.com/doomemacs/doomemacs/blob/master/lisp/doom-start.el
 
   ;; 数据目录
   (if sys-is-windows
-      (defconst my-data-dir (expand-file-name "D:/Data"))
+      (defconst my-data-dir (expand-file-name "D:/BaiduSyncdisk"))
     (if sys-is-wsl2
-        (defconst my-data-dir (expand-file-name "/mnt/d/Data"))
-      (defconst my-data-dir (expand-file-name "~/Data"))))
+        (defconst my-data-dir (expand-file-name "/mnt/d/BaiduSyncdisk"))
+      (defconst my-data-dir (expand-file-name "~/BaiduSyncdisk"))))
 
   ;; 笔记目录
   (defconst my-notes-dir (expand-file-name "Notes" my-data-dir))
@@ -1286,8 +1286,32 @@ ref:https://github.com/manateelazycat/toggle-one-window
 #+begin_src elisp
   (use-package vterm
     :straight (vterm :type git :host github :repo "xhcoding/emacs-libvterm")
+    :preface
+    (defun my-vterm-setup()
+      (setq-local global-hl-line-mode nil)
+      (meow-mode -1))
+    :hook (vterm-mode . my-vterm-setup)
     :config
-    (setq vterm-shell "pwsh.exe"))
+    (setq vterm-shell "pwsh.exe")
+    (defun my-project-shell ()
+      "Start an inferior shell in the current project's root directory.
+  If a buffer already exists for running a shell in the project's root,
+  switch to it.  Otherwise, create a new shell buffer.
+  With \\[universal-argument] prefix arg, create a new inferior shell buffer even
+  if one already exists."
+      (interactive)
+      (require 'comint)
+      (let* ((default-directory (project-root (project-current t)))
+             (default-project-shell-name (project-prefixed-buffer-name "shell"))
+             (shell-buffer (get-buffer default-project-shell-name)))
+        (if (and shell-buffer (not current-prefix-arg))
+            (if (comint-check-proc shell-buffer)
+                (pop-to-buffer shell-buffer (bound-and-true-p display-comint-buffer-action))
+              (vterm shell-buffer))
+          (vterm (generate-new-buffer-name default-project-shell-name)))))
+
+    (advice-add 'project-shell :override #'my-project-shell)
+    )
 #+end_src
 ** fingertip 智能括号插入