From 3294a118a7de67d86e63e651c1434fb39e865afa Mon Sep 17 00:00:00 2001 From: Akib Azmain Turja Date: Tue, 10 Oct 2023 00:22:19 +0600 Subject: [PATCH] Fix 'eat--set-term-sixel-params' on text display * eat.el (eat--set-term-sixel-params): Don't error on text display. --- eat.el | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/eat.el b/eat.el index 7638a34..6223b73 100644 --- a/eat.el +++ b/eat.el @@ -5086,9 +5086,7 @@ selection, or nil if none." ('half-block '(1 . 2)) (_ (cons (default-font-width) (default-font-height))))) (scale-x (* eat-sixel-aspect-ratio eat-sixel-scale)) - (scale-y eat-sixel-scale) - (font-size (font-get (font-spec :name (face-font 'default)) - :size))) + (scale-y eat-sixel-scale)) (setf (car dimensions) (max 1 (round (/ (car dimensions) (float scale-x))))) (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) dimensions) (unless (memq render-fmt '(none background half-block)) - (setf - (eat-term-parameter eat-terminal 'sixel-image-extra-properties) - `( :ascent center - :height ,(cons (/ (float (default-font-height)) font-size) - 'em) - :width ,(cons (/ (float (default-font-width)) font-size) - 'em)))))) + (let ((font-size + (font-get (font-spec :name (face-font 'default)) + :size))) + (setf + (eat-term-parameter eat-terminal + 'sixel-image-extra-properties) + `( :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) "Set CWD as the current working directory (`default-directory').