procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

project-shell: Pop to an existing shell buffer by default

Browse source 
* lisp/progmodes/project.el (project-shell):
Pop to an existing shell buffer by default.
If there's none, or if universal argument is used, open a subsequent
shell buffer and jump to it.  Prefix shell buffer name with the base
name of project root directory. (Bug#41858)
This commit is contained in:
Theodor Thornhill 2020-06-20 04:02:18 +03:00 • committed by Dmitry Gutov
parent 2eda8199bf
commit be5d0c0f63
1 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/progmodes/project.el
View file

@ -715,11 +715,20 @@ PREDICATE, HIST, and DEFAULT have the same meaning as in
;;;###autoload
(defun project-shell ()
"Start an inferior shell in the current project's root directory."
"Start an inferior shell in the current project's root directory.
With \\[universal-argument] prefix, create subsequent shell buffers
with uniquified names."
(interactive)
(let ((default-directory (project-root (project-current t))))
;; Use ‘create-file-buffer’ to uniquify shell buffer names.
(shell (create-file-buffer "*shell*"))))
(let* ((default-directory (project-root (project-current t)))
(default-project-shell-name
(concat "*" (file-name-nondirectory
(directory-file-name
(file-name-directory default-directory)))
"-shell*"))
(shell-buffer (get-buffer default-project-shell-name)))
(if (and shell-buffer (not current-prefix-arg))
(pop-to-buffer shell-buffer)
(shell (generate-new-buffer-name default-project-shell-name)))))
;;;###autoload
(defun project-eshell ()