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

Ask if 'stty' is unavailable in Eshell

Browse source 
* eat.el (eat-eshell-fallback-if-stty-not-available): New user
option.
* eat.el (eat--eshell-adjust-make-process-args): If 'stty' is
not available, use 'eat-eshell-fallback-if-stty-not-available'
to determine whether to continue terminal emulation or not.
This commit is contained in:
Akib Azmain Turja 2022-12-14 14:12:34 +06:00
parent 8fce5fe928
commit fc195410e4
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 28 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
eat.el
View file

@ -140,6 +140,23 @@ This is left disabled for security reasons."
:group 'eat-ui :group 'eat-ui
:group 'eat-eshell) :group 'eat-eshell)
(defcustom eat-eshell-fallback-if-stty-not-available 'ask
"What to do if `stty' is unavailable.
`stty' is a dependency to setup terminal. If `stty' is unavailable,
Eat won't be able to setup terminal, so any input won't be visible.
The value should be any of the following:
nil Do nothing.
t Fallback to plain Eshell if `stty' is not available.
`ask' Ask what to do.
FUNCTION Call FUNCTION with the command and arguments (using
`apply') and fallback to plain Eshell if it returns
nil."
:type 'boolean
:group 'eat-eshell)
(defcustom eat-enable-directory-tracking t (defcustom eat-enable-directory-tracking t
"Non-nil means do directory tracking. "Non-nil means do directory tracking.
@ -5489,6 +5506,7 @@ PROGRAM can be a shell command."
(eat--eshell-cleanup)))) (eat--eshell-cleanup))))
(eshell-sentinel process message)) (eshell-sentinel process message))
(declare-function eshell-search-path "esh-ext" (name))
(defvar eshell-current-subjob-p) ; In `esh-proc'. (defvar eshell-current-subjob-p) ; In `esh-proc'.
;; HACK: This is a dirty hack, it can break easily. ;; HACK: This is a dirty hack, it can break easily.
@ -5498,7 +5516,16 @@ PROGRAM can be a shell command."
Call FN with COMMAND and ARGS, and whenever `make-process' is called, Call FN with COMMAND and ARGS, and whenever `make-process' is called,
modify its argument to change the filter, the sentinel and invoke modify its argument to change the filter, the sentinel and invoke
`stty' from the new process." `stty' from the new process."
(if eshell-current-subjob-p (if (or eshell-current-subjob-p
(and (not (eshell-search-path "stty"))
(pcase eat-eshell-fallback-if-stty-not-available
('nil nil)
('t t)
('ask (not (y-or-n-p "The program stty can't be \
found, input won't be shown if terminal emulation is enabled. \
Disable terminal emulation?")))
((and (pred functionp) function)
(apply function command args)))))
(funcall fn command args) (funcall fn command args)
(cl-letf* (cl-letf*
(;; For Emacs 29 and above. (;; For Emacs 29 and above.