[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/nano-theme 4d783fd59c 04/21: Tentative fix to have both
From: |
ELPA Syncer |
Subject: |
[elpa] externals/nano-theme 4d783fd59c 04/21: Tentative fix to have both dark & light frames. |
Date: |
Mon, 31 Jan 2022 11:57:49 -0500 (EST) |
branch: externals/nano-theme
commit 4d783fd59ca99d9602a2c6a4c93d187e0c94ecc2
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@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")
- [elpa] externals/nano-theme updated (5962a09d11 -> e2c43e7e4f), ELPA Syncer, 2022/01/31
- [elpa] externals/nano-theme 4d783fd59c 04/21: Tentative fix to have both dark & light frames.,
ELPA Syncer <=
- [elpa] externals/nano-theme 5a6d0bb6d3 03/21: Removed line spacing settings., ELPA Syncer, 2022/01/31
- [elpa] externals/nano-theme 0e5da0383e 02/21: Change group description, ELPA Syncer, 2022/01/31
- [elpa] externals/nano-theme 717bb558ec 05/21: Made strings less salient, ELPA Syncer, 2022/01/31
- [elpa] externals/nano-theme 6699736681 17/21: Less salient flyspell, ELPA Syncer, 2022/01/31
- [elpa] externals/nano-theme 1a21254149 19/21: Less salient critical face., ELPA Syncer, 2022/01/31
- [elpa] externals/nano-theme f54908d002 15/21: Added orderless faces, ELPA Syncer, 2022/01/31
- [elpa] externals/nano-theme e2c43e7e4f 21/21: Merge remote-tracking branch 'origin/master', ELPA Syncer, 2022/01/31
- [elpa] externals/nano-theme bc4fe18895 09/21: Remode redundant default settings., ELPA Syncer, 2022/01/31
- [elpa] externals/nano-theme 8776b65304 12/21: Small change for the new NANO modeline., ELPA Syncer, 2022/01/31
- [elpa] externals/nano-theme 7ae6bd1204 10/21: Tentative fix for light & dark frames (take 2), ELPA Syncer, 2022/01/31