Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* eat.el (eat-project-other-window): New command

Browse source
This commit is contained in:
Akib Azmain Turja 2023-09-03 11:00:28 +06:00
parent 8da6684841
commit b4595662d4
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
eat.el
View file

@ -6991,6 +6991,24 @@ that number, or create it if it doesn't already exist."
(eat-buffer-name (project-prefixed-buffer-name "eat")))
(eat nil arg)))
;;;###autoload
(defun eat-project-other-window (&optional arg)
"Start Eat in the current project root directory in another window.
Start a new Eat session, or switch to an already active session.
Return the buffer selected (or created).
With a non-numeric prefix ARG, create a new session.
With a numeric prefix ARG (like
\\[universal-argument] 42 \\[eat-project]), switch to the session with
that number, or create it if it doesn't already exist."
(interactive "P")
(require 'project)
(let* ((default-directory (project-root (project-current t)))
(eat-buffer-name (project-prefixed-buffer-name "eat")))
(eat-other-window nil arg)))
;;;; Tracing.