emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/exwm 693ade989f 4/5: Use appropriate customization grou


From: ELPA Syncer
Subject: [elpa] externals/exwm 693ade989f 4/5: Use appropriate customization groups for newly added modes
Date: Tue, 4 Jun 2024 12:58:03 -0400 (EDT)

branch: externals/exwm
commit 693ade989f76dcd8722f85fcb6385165cfc86f9f
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    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 253908b366..9f96dc6b6c 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 5dda1949ba..d0caae5c15 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 5b2aa13d7b..a0aa8068e5 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 174638555d..2cd1cf4466 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]