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

Fix terminal color reporting in text terminals

Browse source 
* eat.el (eat--t-report-foreground-color): Fix foreground color
reporting in text terminals.
* eat.el (eat--t-report-background-color): Fix background color
reporting in text terminals.
This commit is contained in:
Akib Azmain Turja 2022-12-09 20:44:08 +06:00
parent b996bffa4b
commit f047b2d283
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
eat.el
View file

@ -2377,7 +2377,10 @@ output."
"Report the current default foreground color to the client." "Report the current default foreground color to the client."
(funcall (funcall
(eat--t-term-input-fn eat--t-term) eat--t-term (eat--t-term-input-fn eat--t-term) eat--t-term
(let ((rgb (color-values (face-foreground 'default)))) (let ((rgb (or (color-values (face-foreground 'default))
;; On terminals like TTYs the above returns nil.
;; Terminals usually have a white foreground, so...
'(255 255 255))))
(format "\e]10;%04x/%04x/%04x\e\\" (format "\e]10;%04x/%04x/%04x\e\\"
(pop rgb) (pop rgb) (pop rgb))))) (pop rgb) (pop rgb) (pop rgb)))))
@ -2385,7 +2388,10 @@ output."
"Report the current default background color to the client." "Report the current default background color to the client."
(funcall (funcall
(eat--t-term-input-fn eat--t-term) eat--t-term (eat--t-term-input-fn eat--t-term) eat--t-term
(let ((rgb (color-values (face-background 'default)))) (let ((rgb (or (color-values (face-background 'default))
;; On terminals like TTYs the above returns nil.
;; Terminals usually have a black background, so...
'(0 0 0))))
(format "\e]11;%04x/%04x/%04x\e\\" (format "\e]11;%04x/%04x/%04x\e\\"
(pop rgb) (pop rgb) (pop rgb))))) (pop rgb) (pop rgb) (pop rgb)))))