From f38cd94f33cf55f3498dab1783af28e3126cd3ad Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Wed, 28 Mar 2018 06:49:49 -0400
Subject: [PATCH] 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 | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/modules/ui/doom/config.el b/modules/ui/doom/config.el
index 248fd478d..f6cc4dab5 100644
--- a/modules/ui/doom/config.el
+++ b/modules/ui/doom/config.el
@@ -1,18 +1,18 @@
 ;;; ui/doom/config.el -*- lexical-binding: t; -*-
 
 (defvar +doom-solaire-themes
-  '(doom-city-lights
-    doom-dracula
-    doom-molokai
-    doom-nord
-    doom-nova
-    doom-one
-    doom-one-light
-    doom-solarized-light
-    doom-spacegrey
-    doom-vibrant)
-  "A list of themes that supports `solaire-mode'; if these themes are detected,
-`solaire-mode' will be enabled.")
+  '((doom-city-lights . t)
+    (doom-dracula . t)
+    (doom-molokai . t)
+    (doom-nord . t)
+    (doom-nova . nil)
+    (doom-one . t)
+    (doom-one-light . t)
+    (doom-solarized-light . nil)
+    (doom-spacegrey . nil)
+    (doom-vibrant . nil))
+  "An alist of themes that support `solaire-mode'. If CDR is t, then use
+`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)