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

Auto update 'eat-term-shell-integration-directory'

Browse source 
* eat.el: Auto update 'eat-term-shell-integration-directory' if
not modified.
This commit is contained in:
Akib Azmain Turja 2022-12-07 13:17:37 +06:00
parent b3c81c3078
commit e6a7deafd0
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 17 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
eat.el
View file

@ -322,13 +322,18 @@ This value is used by terminal programs to identify the terminal."
(defvar eat--install-path nil (defvar eat--install-path nil
"Path to directory where Eat is installed.") "Path to directory where Eat is installed.")
(defvar eat--shell-integration-path nil
"Path to directory where shell integration scripts are installed.")
(defvar eat-term-terminfo-directory) (defvar eat-term-terminfo-directory)
(defvar eat-term-shell-integration-directory) (defvar eat-term-shell-integration-directory)
(let ((old-install-path eat--install-path)) (let ((old-install-path eat--install-path)
(old-shell-integration-path eat--shell-integration-path))
(setq eat--install-path (setq eat--install-path
(copy-sequence (copy-sequence (file-name-directory
(file-name-directory (or load-file-name (or load-file-name buffer-file-name))))
buffer-file-name)))) (setq eat--shell-integration-path
(expand-file-name "integration" eat--install-path))
(defcustom eat-term-terminfo-directory eat--install-path (defcustom eat-term-terminfo-directory eat--install-path
"Directory where required terminfo databases can be found. "Directory where required terminfo databases can be found.
@ -338,8 +343,10 @@ that describe the capabilities of the terminal."
:type 'directory :type 'directory
:group 'eat-term) :group 'eat-term)
(defvar eat--term-shell-integration-directory)
(defcustom eat-term-shell-integration-directory (defcustom eat-term-shell-integration-directory
(expand-file-name "integration" eat--install-path) eat--shell-integration-path
"Directory where Eat shell integration scripts can be found. "Directory where Eat shell integration scripts can be found.
This value is exposed to terminal programs as This value is exposed to terminal programs as
@ -349,9 +356,11 @@ This value is exposed to terminal programs as
:group 'eat-eshell) :group 'eat-eshell)
(when (eq eat-term-terminfo-directory old-install-path) (when (eq eat-term-terminfo-directory old-install-path)
(setq eat-term-terminfo-directory eat--install-path (setq eat-term-terminfo-directory eat--install-path))
eat-term-shell-integration-directory (when (eq eat-term-shell-integration-directory
(expand-file-name "integration" eat--install-path)))) old-shell-integration-path)
(setq eat-term-shell-integration-directory
eat--shell-integration-path)))
(defcustom eat-term-inside-emacs (format "%s,eat" emacs-version) (defcustom eat-term-inside-emacs (format "%s,eat" emacs-version)
"Value for the `INSIDE_EMACS' environment variable." "Value for the `INSIDE_EMACS' environment variable."