diff options
| -rw-r--r-- | init.org | 4 | ||||
| -rw-r--r-- | lib/eos/jao-minibuffer.el | 6 | ||||
| -rw-r--r-- | lib/themes/jao-themes.el | 6 |
3 files changed, 11 insertions, 5 deletions
@@ -1624,6 +1624,10 @@ :config (pdf-tools-install) + (setq pdf-view-midnight-colors + (cons (frame-parameter nil 'foreground-color) + (frame-parameter nil 'background-color))) + (dolist (f '(pdf-view-scroll-up-or-next-page pdf-view-scroll-down-or-previous-page pdf-view-previous-line-or-previous-page 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) |