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

Fix 'eat--set-term-sixel-params' on text display

Browse source 
* eat.el (eat--set-term-sixel-params): Don't error on text
display.
This commit is contained in:
Akib Azmain Turja 2023-10-10 00:22:19 +06:00
parent 5fd39f8bf0
commit 3294a118a7
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 12 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
eat.el
View file

@ -5086,9 +5086,7 @@ selection, or nil if none."
('half-block '(1 . 2)) ('half-block '(1 . 2))
(_ (cons (default-font-width) (default-font-height))))) (_ (cons (default-font-width) (default-font-height)))))
(scale-x (* eat-sixel-aspect-ratio eat-sixel-scale)) (scale-x (* eat-sixel-aspect-ratio eat-sixel-scale))
(scale-y eat-sixel-scale) (scale-y eat-sixel-scale))
(font-size (font-get (font-spec :name (face-font 'default))
:size)))
(setf (car dimensions) (max 1 (round (/ (car dimensions) (setf (car dimensions) (max 1 (round (/ (car dimensions)
(float scale-x))))) (float scale-x)))))
(setf (cdr dimensions) (max 1 (round (/ (cdr dimensions) (setf (cdr dimensions) (max 1 (round (/ (cdr dimensions)
@ -5098,13 +5096,17 @@ selection, or nil if none."
(setf (eat-term-parameter eat-terminal 'char-dimensions) (setf (eat-term-parameter eat-terminal 'char-dimensions)
dimensions) dimensions)
(unless (memq render-fmt '(none background half-block)) (unless (memq render-fmt '(none background half-block))
(setf (let ((font-size
(eat-term-parameter eat-terminal 'sixel-image-extra-properties) (font-get (font-spec :name (face-font 'default))
`( :ascent center :size)))
:height ,(cons (/ (float (default-font-height)) font-size) (setf
'em) (eat-term-parameter eat-terminal
:width ,(cons (/ (float (default-font-width)) font-size) 'sixel-image-extra-properties)
'em)))))) `( :ascent center
:height ,(cons (/ (float (default-font-height)) font-size)
'em)
:width ,(cons (/ (float (default-font-width)) font-size)
'em)))))))
(defun eat--set-cwd (_ host cwd) (defun eat--set-cwd (_ host cwd)
"Set CWD as the current working directory (`default-directory'). "Set CWD as the current working directory (`default-directory').