Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-27 06:48:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

Use appropriate customization groups for newly added modes

Browse source
This commit is contained in:
Daniel Mendler 2024-06-04 17:23:38 +02:00
parent 2fd5ab1039
commit 693ade989f
No known key found for this signature in database
GPG key ID: D88ADB2A2693CA43
4 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
exwm-background.el
View file

@ -34,11 +34,15 @@
(require 'exwm-core) (require 'exwm-core)
(defgroup exwm-background nil
"Background support."
:group 'exwm)
;;;###autoload ;;;###autoload
(define-minor-mode exwm-background-mode (define-minor-mode exwm-background-mode
"Toggle EXWM background support." "Toggle EXWM background support."
:global t :global t
:group 'exwm :group 'exwm-background
(exwm--global-minor-mode-body background)) (exwm--global-minor-mode-body background))
(defun exwm-background-enable () (defun exwm-background-enable ()
@ -51,7 +55,6 @@
:type '(choice :type '(choice
(color :tag "Background Color") (color :tag "Background Color")
(const :tag "Default" nil)) (const :tag "Default" nil))
:group 'exwm
:initialize #'custom-initialize-default :initialize #'custom-initialize-default
:set (lambda (symbol value) :set (lambda (symbol value)
(set-default-toplevel-value symbol value) (set-default-toplevel-value symbol value)

2
exwm-randr.el
View file

@ -359,7 +359,7 @@ Refresh when any RandR 1.5 monitor changes."
(define-minor-mode exwm-randr-mode (define-minor-mode exwm-randr-mode
"Toggle EXWM randr support." "Toggle EXWM randr support."
:global t :global t
:group 'exwm :group 'exwm-randr
(exwm--global-minor-mode-body randr)) (exwm--global-minor-mode-body randr))
(defun exwm-randr-enable () (defun exwm-randr-enable ()

2
exwm-systemtray.el
View file

@ -54,7 +54,7 @@
(define-minor-mode exwm-systemtray-mode (define-minor-mode exwm-systemtray-mode
"Toggle EXWM systemtray support." "Toggle EXWM systemtray support."
:global t :global t
:group 'exwm :group 'exwm-systemtray
(exwm--global-minor-mode-body systemtray)) (exwm--global-minor-mode-body systemtray))
(defun exwm-systemtray-enable () (defun exwm-systemtray-enable ()

10
exwm-xsettings.el
View file

@ -51,6 +51,10 @@
(require 'xcb-xsettings) (require 'xcb-xsettings)
(require 'exwm-core) (require 'exwm-core)
(defgroup exwm-xsettings nil
"XSETTINGS."
:group 'exwm)
(defvar exwm-xsettings--connection nil) (defvar exwm-xsettings--connection nil)
(defvar exwm-xsettings--XSETTINGS_SETTINGS-atom nil) (defvar exwm-xsettings--XSETTINGS_SETTINGS-atom nil)
(defvar exwm-xsettings--XSETTINGS_S0-atom nil) (defvar exwm-xsettings--XSETTINGS_S0-atom nil)
@ -61,7 +65,7 @@
(define-minor-mode exwm-xsettings-mode (define-minor-mode exwm-xsettings-mode
"Toggle EXWM xsettings support." "Toggle EXWM xsettings support."
:global t :global t
:group 'exwm :group 'exwm-xsettings
(exwm--global-minor-mode-body xsettings)) (exwm--global-minor-mode-body xsettings))
(defun exwm-xsettings-enable () (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) (set-default-toplevel-value symbol value)
(when exwm-xsettings-mode (exwm-xsettings--update-settings))) (when exwm-xsettings-mode (exwm-xsettings--update-settings)))
(defgroup exwm-xsettings nil
"XSETTINGS."
:group 'exwm)
(defcustom exwm-xsettings nil (defcustom exwm-xsettings nil
"Alist of custom XSETTINGS. "Alist of custom XSETTINGS.
These settings take precedence over `exwm-xsettings-theme' and These settings take precedence over `exwm-xsettings-theme' and