mirror of
https://github.com/larstvei/dot-emacs.git
synced 2024-11-26 07:28:31 +00:00
Load theme according to system appearance
This commit is contained in:
parent
b08379ef0c
commit
c30e1f28e1
13
init.org
13
init.org
@ -395,11 +395,20 @@
|
|||||||
|
|
||||||
** Visual
|
** Visual
|
||||||
|
|
||||||
I am using a lot from [[https://github.com/rougier/nano-emacs][rougier's N Λ N O Emacs]], starting with the theme.
|
I am using a lot from [[https://github.com/rougier/nano-emacs][rougier's N Λ N O Emacs]], starting with the theme. For
|
||||||
|
the white theme, I keep the light background toned down a touch.
|
||||||
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(setq nano-light-background "#fafafa")
|
(setq nano-light-background "#fafafa")
|
||||||
(load-theme 'nano-light t)
|
#+END_SRC
|
||||||
|
|
||||||
|
The theme is set according to the system appearance (on macOS) if that is
|
||||||
|
available, defaulting to a light theme.
|
||||||
|
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(let* ((variant (if (boundp 'ns-system-appearance) ns-system-appearance 'light))
|
||||||
|
(theme (intern (concat "nano-" (symbol-name variant)))))
|
||||||
|
(load-theme theme t))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
This is the default setup for [[https://github.com/rougier/nano-modeline][N Λ N O Modeline]] after version 1.0.0:
|
This is the default setup for [[https://github.com/rougier/nano-modeline][N Λ N O Modeline]] after version 1.0.0:
|
||||||
|
Loading…
Reference in New Issue
Block a user