diff options
| author | jao <jao@gnu.org> | 2021-10-26 21:57:14 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-10-26 21:57:14 +0100 |
| commit | 63c3013ee281783c3264ef589d54fa5b9fdb8ca3 (patch) | |
| tree | b520d02afed04420e32ff3356ed1a37cd78fa050 /lib | |
| parent | 34288685116e90826aaa5639bafc4b5ef58b2575 (diff) | |
| download | elibs-63c3013ee281783c3264ef589d54fa5b9fdb8ca3.tar.gz elibs-63c3013ee281783c3264ef589d54fa5b9fdb8ca3.tar.bz2 | |
the default bg/fg situation
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/eos/jao-minibuffer.el | 6 | ||||
| -rw-r--r-- | lib/themes/jao-themes.el | 6 |
2 files changed, 7 insertions, 5 deletions
diff --git a/lib/eos/jao-minibuffer.el b/lib/eos/jao-minibuffer.el index fda2c57..6845c51 100644 --- a/lib/eos/jao-minibuffer.el +++ b/lib/eos/jao-minibuffer.el @@ -148,7 +148,7 @@ (jao-minibuffer--add-variable 'jao-minibuffer-msg-info variable-name order)) (defun jao-minibuffer-adjust-mode-line-faces () - (let ((bg (face-attribute 'default :background))) + (let ((bg (frame-parameter nil 'background-color))) (set-face-attribute 'mode-line nil :box nil :height 1 :background bg :foreground bg :overline jao-minibuffer-active-buffer-line-color @@ -167,11 +167,11 @@ (setq-default mode-line-position jao-minibuffer--mode-line-position) (dolist (b (buffer-list)) (with-current-buffer b (setq-local mode-line-format '(" ")))) - (jao-minibuffer-adjust-mode-line-faces) (advice-add 'force-mode-line-update :after #'jao-minibuffer-refresh) (advice-add 'select-window :after #'jao-minibuffer-refresh) ;; (add-hook 'window-selection-change-functions #'jao-minibuffer-refresh) - (jao-minibuffer-add-variable 'jao-minibuffer--mode-line-format order)) + (jao-minibuffer-add-variable 'jao-minibuffer--mode-line-format order) + (jao-minibuffer-adjust-mode-line-faces)) ;;;###autoload (defun jao-minibuffer-toggle () diff --git a/lib/themes/jao-themes.el b/lib/themes/jao-themes.el index 5ed1295..d3f6baa 100644 --- a/lib/themes/jao-themes.el +++ b/lib/themes/jao-themes.el @@ -1164,9 +1164,11 @@ (f-alist (assq-delete-all 'background-color kvs)) (f-alist (assq-delete-all 'foreground-color f-alist))) (when jao-themes--fg - (push (cons 'foreground-color jao-themes--fg) f-alist)) + (push (cons 'foreground-color jao-themes--fg) f-alist) + (set-frame-parameter nil 'foreground-color jao-themes--fg)) (when jao-themes--bg - (push (cons 'background-color jao-themes--bg) f-alist)) + (push (cons 'background-color jao-themes--bg) f-alist) + (set-frame-parameter nil 'background-color jao-themes--fg)) (setq window-system-default-frame-alist (cons (cons kind f-alist) |