From 693ade989f76dcd8722f85fcb6385165cfc86f9f Mon Sep 17 00:00:00 2001
From: Daniel Mendler <mail@daniel-mendler.de>
Date: Tue, 4 Jun 2024 17:23:38 +0200
Subject: [PATCH] Use appropriate customization groups for newly added modes

---
 exwm-background.el |  7 +++++--
 exwm-randr.el      |  2 +-
 exwm-systemtray.el |  2 +-
 exwm-xsettings.el  | 10 +++++-----
 4 files changed, 12 insertions(+), 9 deletions(-)

diff --git a/exwm-background.el b/exwm-background.el
index 253908b..9f96dc6 100644
--- a/exwm-background.el
+++ b/exwm-background.el
@@ -34,11 +34,15 @@
 
 (require 'exwm-core)
 
+(defgroup exwm-background nil
+  "Background support."
+  :group 'exwm)
+
 ;;;###autoload
 (define-minor-mode exwm-background-mode
   "Toggle EXWM background support."
   :global t
-  :group 'exwm
+  :group 'exwm-background
   (exwm--global-minor-mode-body background))
 
 (defun exwm-background-enable ()
@@ -51,7 +55,6 @@
   :type '(choice
           (color :tag "Background Color")
           (const :tag "Default" nil))
-  :group 'exwm
   :initialize #'custom-initialize-default
   :set (lambda (symbol value)
          (set-default-toplevel-value symbol value)
diff --git a/exwm-randr.el b/exwm-randr.el
index 5dda194..d0caae5 100644
--- a/exwm-randr.el
+++ b/exwm-randr.el
@@ -359,7 +359,7 @@ Refresh when any RandR 1.5 monitor changes."
 (define-minor-mode exwm-randr-mode
   "Toggle EXWM randr support."
   :global t
-  :group 'exwm
+  :group 'exwm-randr
   (exwm--global-minor-mode-body randr))
 
 (defun exwm-randr-enable ()
diff --git a/exwm-systemtray.el b/exwm-systemtray.el
index 5b2aa13..a0aa806 100644
--- a/exwm-systemtray.el
+++ b/exwm-systemtray.el
@@ -54,7 +54,7 @@
 (define-minor-mode exwm-systemtray-mode
   "Toggle EXWM systemtray support."
   :global t
-  :group 'exwm
+  :group 'exwm-systemtray
   (exwm--global-minor-mode-body systemtray))
 
 (defun exwm-systemtray-enable ()
diff --git a/exwm-xsettings.el b/exwm-xsettings.el
index 1746385..2cd1cf4 100644
--- a/exwm-xsettings.el
+++ b/exwm-xsettings.el
@@ -51,6 +51,10 @@
 (require 'xcb-xsettings)
 (require 'exwm-core)
 
+(defgroup exwm-xsettings nil
+  "XSETTINGS."
+  :group 'exwm)
+
 (defvar exwm-xsettings--connection nil)
 (defvar exwm-xsettings--XSETTINGS_SETTINGS-atom nil)
 (defvar exwm-xsettings--XSETTINGS_S0-atom nil)
@@ -61,7 +65,7 @@
 (define-minor-mode exwm-xsettings-mode
   "Toggle EXWM xsettings support."
   :global t
-  :group 'exwm
+  :group 'exwm-xsettings
   (exwm--global-minor-mode-body xsettings))
 
 (defun exwm-xsettings-enable ()
@@ -80,10 +84,6 @@ SYMBOL is the setting being updated and VALUE is the new value."
   (set-default-toplevel-value symbol value)
   (when exwm-xsettings-mode (exwm-xsettings--update-settings)))
 
-(defgroup exwm-xsettings nil
-  "XSETTINGS."
-  :group 'exwm)
-
 (defcustom exwm-xsettings nil
   "Alist of custom XSETTINGS.
 These settings take precedence over `exwm-xsettings-theme' and