From eca7b640967eab0806d0b5eb72983ae95b715c7a Mon Sep 17 00:00:00 2001
From: Grégoire Duchêne <gduchene@awhk.org>
Date: Sat, 11 Jan 2025 15:49:44 +0000
Subject: darwin/emacs: Automatically pick and switch themes

---
 emacs/init.el | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

(limited to 'emacs')

diff --git a/emacs/init.el b/emacs/init.el
index fe0cbff..7604227 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -108,17 +108,25 @@
 
 ;; Theme Management
 
-(defvar my/day-theme nil "Theme to use during the day.")
-
-(defvar my/night-theme nil "Theme to use during the night.")
-
-(defvar my/fonts
+(defconst my/fonts
   '((:family "Iosevka Fixed Slab" :height 140)
     (:family "Iosevka SS04" :height 140)
     (:family "Iosevka" :height 140)
     (:family "Menlo" :height 120))
   "Fonts to try as default.")
 
+(defconst my/themes
+  `((day . (adwaita
+            leuven
+            modus-operandi
+            tango
+            ,nil))
+    (night . (tango-dark
+              misterioso
+              modus-vivendi
+              wombat)))
+  "Themes to try.")
+
 (let ((hook (cond ((daemonp) 'server-after-make-frame-hook)
                   (window-system 'after-init-hook))))
   (when hook (add-hook hook #'my/set-frame-font)))
-- 
cgit v1.2.3-70-g09d2