[elpa] externals/nano-theme 7ae6bd1204 10/21: Tentative fix for light & dark frames (take 2)

[ELPA Syncer]

branch: externals/nano-theme
commit 7ae6bd1204465b4a26ee625636006e4dba4deca2
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Tentative fix for light & dark frames (take 2)
---
 nano-theme.el | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

diff --git a/nano-theme.el b/nano-theme.el
index 6f5cc47324..38aeaff552 100644
--- a/nano-theme.el
+++ b/nano-theme.el
@@ -498,29 +498,30 @@ background color that is barely perceptible."
 (defun nano-theme (mode)
   "Apply the nano theme according to MODE which can be 'dark or 'light."
 
+  (message (format "Theme applied: %s" mode))
+  
   (let ((light     '((background light)))
         (dark      '((background dark)))
         (theme      (if (eq mode 'dark)
                        'nano-dark
                       'nano-light)))
-
-
     
-    ;; (add-to-list 'default-frame-alist `(background-mode . ,mode))
-    (add-to-list 'default-frame-alist `(background-color . ,(if (eq mode 
'light)
-                                                                
nano-light-background
-                                                              
nano-dark-background)))
-    (add-to-list 'default-frame-alist `(foreground-color . ,(if (eq mode 
'light)
-                                                                
nano-light-foreground
-                                                              
nano-dark-foreground)))
+     (add-to-list 'default-frame-alist `(background-mode . ,mode))
+     (add-to-list 'default-frame-alist `(background-color . ,(if (eq mode 
'light)
+                                                                 
nano-light-background
+                                                               
nano-dark-background)))
+     (add-to-list 'default-frame-alist `(foreground-color . ,(if (eq mode 
'light)
+                                                                 
nano-light-foreground
+                                                               
nano-dark-foreground)))
 
     (custom-set-variables '(widget-image-enable nil)
                           '(x-underline-at-descent-line t))
     
-    (set-frame-parameter nil 'background-mode mode)
-;;    (setq frame-background-mode mode)
-;;    (setq nano-theme--current mode)
-;;    (frame-set-background-mode (selected-frame))
+    ;; (set-frame-parameter nil 'background-mode mode)
+    (setq frame-background-mode mode)
+    (frame-set-background-mode (selected-frame))
+    ;; (setq nano-theme--current mode)
+    ;; (frame-set-background-mode (selected-frame))
 
     (when nano-fonts-use
         (custom-theme-set-faces theme