From eca7b640967eab0806d0b5eb72983ae95b715c7a Mon Sep 17 00:00:00 2001 From: Grégoire Duchêne Date: Sat, 11 Jan 2025 15:49:44 +0000 Subject: darwin/emacs: Automatically pick and switch themes --- dotfiles-darwin/emacs/functions.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'dotfiles-darwin/emacs/functions.el') diff --git a/dotfiles-darwin/emacs/functions.el b/dotfiles-darwin/emacs/functions.el index c9b16be..1c57e59 100644 --- a/dotfiles-darwin/emacs/functions.el +++ b/dotfiles-darwin/emacs/functions.el @@ -33,3 +33,12 @@ map) t nil "Use %k to resize the frame"))) + +(defun my/set-frame-themes () + "Configure themes, including theme switching." + (let ((day-theme (seq-random-elt (alist-get 'day my/themes))) + (night-theme (seq-random-elt (alist-get 'night my/themes)))) + (load-theme day-theme :no-confirm :no-enable) + (load-theme night-theme :no-confirm :no-enable) + (run-at-time nil (* 15 60) #'my/maybe-switch-theme day-theme night-theme + #'my/macos-dark-p))) -- cgit v1.2.3-70-g09d2