From 63c3013ee281783c3264ef589d54fa5b9fdb8ca3 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 26 Oct 2021 21:57:14 +0100
Subject: the default bg/fg situation

---
 init.org                  | 4 ++++
 lib/eos/jao-minibuffer.el | 6 +++---
 lib/themes/jao-themes.el  | 6 ++++--
 3 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/init.org b/init.org
index c837582..4285c26 100644
--- a/init.org
+++ b/init.org
@@ -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)
-- 
cgit v1.2.3