[elpa] externals/nano-theme 4d783fd59c 04/21: Tentative fix to have both dark & light frames.

[ELPA Syncer]

branch: externals/nano-theme
commit 4d783fd59ca99d9602a2c6a4c93d187e0c94ecc2
Author: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Commit: Nicolas P. Rougier <nicolas.roug...@inria.fr>

    Tentative fix to have both dark & light frames.
---
 nano-theme.el | 39 ++++++++++++++-------------------------
 1 file changed, 14 insertions(+), 25 deletions(-)

diff --git a/nano-theme.el b/nano-theme.el
index 46ee44a4bf..27bcf56afb 100644
--- a/nano-theme.el
+++ b/nano-theme.el
@@ -463,36 +463,25 @@ background color that is barely perceptible."
   "Load the nano dark theme on current frame."
 
   (interactive)
-  ;; (setq inhibit-frame-set-background-mode nil)
-  ;; (setq frame-background-mode nil)
-  ;; (let ((parent (selected-frame))
-  ;;        (children (frame-list)))
-  ;;    (dolist (child children)
-  ;;      (when (eq (frame-parameter child 'parent-frame) parent)
-  ;;        (with-selected-frame child
-  ;;          (load-theme 'nano-dark t)
-  ;;          (setq frame-background-mode 'dark)))))
-  ;; (set-foreground-color nano-dark-foreground)
-  ;; (set-background-color nano-dark-background)
-  (load-theme 'nano-dark t)
-  (setq frame-background-mode 'dark))
+   ;; (let ((parent (selected-frame))
+   ;;        (children (frame-list)))
+   ;;    (dolist (child children)
+   ;;      (when (eq (frame-parameter child 'parent-frame) parent)
+   ;;        (with-selected-frame child
+   ;;          (setq frame-background-mode 'dark)
+   ;;          (set-foreground-color nano-dark-foreground)
+   ;;          (set-background-color nano-dark-background)
+   ;;          (frame-set-background-mode child)
+   ;;          (load-theme 'nano-dark t)))))
+  ;;  (set-foreground-color nano-dark-foreground)
+  ;;   (set-background-color nano-dark-background)
+  (load-theme 'nano-dark t))
 
 (defun nano-light ()
   "Load the nano light theme on current frame."
 
   (interactive)
-  ;; (setq inhibit-frame-set-background-mode t)
-  ;; (setq frame-background-mode nil)
-  ;; (let ((parent (selected-frame))
-  ;;       (children (frame-list)))
-  ;;   (dolist (child children)
-  ;;     (when (eq (frame-parameter child 'parent-frame) parent)
-  ;;       (with-selected-frame child
-  ;;         (load-theme 'nano-light t)))))
-    ;; (set-foreground-color nano-light-foreground)
-    ;; (set-background-color nano-light-background)
-    (load-theme 'nano-light t)
-    (setq frame-background-mode 'light))
+  (load-theme 'nano-light t))
 
 (defvar nano-theme--current 'light
   "Current nano theme")