larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2024-11-26 07:28:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Change theme when system appearance changes

Browse Source
This commit is contained in:
larstvei 2023-06-11 00:26:07 +02:00
parent 4f5e1d9420
commit 684da8a8fd
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
init.org
View File

@ -409,11 +409,20 @@
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))
(defun load-nano-theme (variant)
(let ((theme (intern (concat "nano-" (symbol-name variant)))))
(load-theme theme t)))
(load-nano-theme (if (boundp 'ns-system-appearance) ns-system-appearance 'light))
#+END_SRC
Let's have Emacs change theme when the system appearance changes as well.
#+BEGIN_SRC emacs-lisp
(when (boundp 'ns-system-appearance-change-functions)
(add-hook 'ns-system-appearance-change-functions 'load-nano-theme))
#+END_SRC
I want to be able to quickly switch between a light and a dark theme.
#+BEGIN_SRC emacs-lisp