ui/doom: improve solaire-mode theme integration

Now +doom-solaire-themes is an alist that informs Doom if the current
theme should be loaded with solaire-mode, and whether
solaire-mode-swap-bg should be used.

modules/ui/doom/config.el

@@ -1,18 +1,18 @@
 ;;; ui/doom/config.el -*- lexical-binding: t; -*-
 
 (defvar +doom-solaire-themes
-  '(doom-city-lights
+  '((doom-city-lights . t)
-    doom-dracula
+    (doom-dracula . t)
-    doom-molokai
+    (doom-molokai . t)
-    doom-nord
+    (doom-nord . t)
-    doom-nova
+    (doom-nova . nil)
-    doom-one
+    (doom-one . t)
-    doom-one-light
+    (doom-one-light . t)
-    doom-solarized-light
+    (doom-solarized-light . nil)
-    doom-spacegrey
+    (doom-spacegrey . nil)
-    doom-vibrant)
+    (doom-vibrant . nil))
-  "A list of themes that supports `solaire-mode'; if these themes are detected,
+  "An alist of themes that support `solaire-mode'. If CDR is t, then use
-`solaire-mode' will be enabled.")
+`solaire-mode-swap-bg'.")
 
 
 ;;
@@ -43,9 +43,9 @@
   :commands (solaire-mode turn-on-solaire-mode solaire-mode-swap-bg)
   :init
   (defun +doom|solaire-mode-swap-bg-maybe ()
-    (when (memq doom-theme +doom-solaire-themes)
+    (when-let* ((rule (assq doom-theme +doom-solaire-themes)))
       (require 'solaire-mode)
-      (solaire-mode-swap-bg)))
+      (if (cdr rule) (solaire-mode-swap-bg))))
   (add-hook 'doom-load-theme-hook #'+doom|solaire-mode-swap-bg-maybe t)
   :config
   (add-hook 'after-change-major-mode-hook #'turn-on-solaire-mode)