Открывать vterm вместо shell по C-x p s

custom.el

@@ -9,7 +9,7 @@
  '(native-comp-async-report-warnings-errors nil)
  '(org-safe-remote-resources '("\\`https://fniessen\\.github\\.io\\(?:/\\|\\'\\)"))
  '(package-selected-packages
-   '(treemacs tree-sitter-langs treesit-auto magit tree-sitter-mode tree-sitter-lang tab-bar-mode vterm which-key-posframe vertico-posframe treemacs-magit treemacs-all-the-icons terraform-mode terraform-doc reverse-im rainbow-delimiters pyvenv-auto python-mode php-mode pdf-tools ox-hugo org-roam-ui orderless mood-line kubedoc kele go-mode fsharp-mode exec-path-from-shell eglot ef-themes dockerfile-mode docker-compose-mode crontab-mode consult-org-roam company-box circe-notifications auto-sudoedit all-the-icons-dired))
+   '(project treemacs tree-sitter-langs treesit-auto magit tree-sitter-mode tree-sitter-lang tab-bar-mode vterm which-key-posframe vertico-posframe treemacs-magit treemacs-all-the-icons terraform-mode terraform-doc reverse-im rainbow-delimiters pyvenv-auto python-mode php-mode pdf-tools ox-hugo org-roam-ui orderless mood-line kubedoc kele go-mode fsharp-mode exec-path-from-shell eglot ef-themes dockerfile-mode docker-compose-mode crontab-mode consult-org-roam company-box circe-notifications auto-sudoedit all-the-icons-dired))
  '(safe-local-variable-values
    '((eval setq-local org-export-before-parsing-functions
            (append org-export-before-parsing-functions

init.el

@@ -185,6 +185,12 @@
 (use-package all-the-icons-dired
   :hook (dired-mode . all-the-icons-dired-mode))
 
+;; Пакет для автоматического использования su/sudo для редактирования файлов
+;; в случае если файл не может быть отредактирован текущим пользователем
+(use-package auto-sudoedit
+  :config
+  (auto-sudoedit-mode 1))
+
 ;; Настройки для работы с Docker
 (use-package docker-compose-mode)
 (use-package dockerfile-mode)
@@ -460,6 +466,10 @@
 ;; pdf-tools для чтения PDF файлов
 (use-package pdf-tools)
 
+(use-package project
+  :config
+  (define-key project-prefix-map "s" 'project-vterm))
+
 ;; Пакет для работы клавиш емакса в русской раскладке
 (use-package reverse-im
   :demand t
@@ -473,12 +483,6 @@
   :init
   (savehist-mode))
 
-;; Пакет для автоматического использования su/sudo для редактирования файлов
-;; в случае если файл не может быть отредактирован текущим пользователем
-(use-package auto-sudoedit
-  :config
-  (auto-sudoedit-mode 1))
-
 ;; Настройки tab-bar для работы со вкладками
 (use-package tab-bar
   :config
@@ -571,10 +575,24 @@
 
 ;; Пакет vterm для эмулятора терминала внутри Emacs
 (use-package vterm
+  :after project
   :bind ("s-x" . vterm)
+  :functions
+  (project-vterm)
   :config
   (setq vterm-kill-buffer-on-exit t)
-  (setq vterm-buffer-name-string "%s vterm"))
+  (setq vterm-buffer-name-string "%s vterm")
+  (defun project-vterm ()
+  (interactive)
+  (require 'comint)
+  (let* ((default-directory (project-root (project-current t)))
+         (default-project-shell-name (project-prefixed-buffer-name "vterm"))
+         (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))))))
 
 ;; Подсказывать справку по доступным сочетаниям при нажатии
 ;; C-h во время ввода сочетания