From d1cf6b3cad9211f41a9d43d02d0e4bf6f10375e5 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 7 Aug 2022 00:05:39 +0100 Subject: refactoring nit --- lib/eos/jao-mode-line.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/lib/eos/jao-mode-line.el b/lib/eos/jao-mode-line.el index b3db94b..843e0b4 100644 --- a/lib/eos/jao-mode-line.el +++ b/lib/eos/jao-mode-line.el @@ -120,19 +120,18 @@ (if inactive jao-mode-line--inactive-face jao-mode-line--face))) (defun jao-mode-line-adjust-faces () - (let ((bg (frame-parameter nil 'background-color))) + (let ((bg (and (display-graphic-p) (frame-parameter nil 'background-color))) + (ol (and (display-graphic-p) jao-minibuffer-active-buffer-line-color)) + (ul (and (display-graphic-p) jao-minibuffer-inactive-buffer-line-color))) (jao-mode-line--extract-face nil) (jao-mode-line--extract-face t) (set-face-attribute 'mode-line nil :box nil :height 1 :background bg :foreground bg - :overline jao-minibuffer-active-buffer-line-color - :underline jao-minibuffer-inactive-buffer-line-color - :extend t) + :overline ol :underline ul :extend t) (set-face-attribute 'mode-line-inactive nil :box nil :height 1 :background bg :foreground bg ;; :overline bg - :underline jao-minibuffer-inactive-buffer-line-color - :extend t))) + :underline ul :extend t))) ;;;###autoload (defun jao-mode-line-add-to-minibuffer (&optional order) -- cgit v1.2.3