mirror of
https://github.com/emacs-exwm/exwm.git
synced 2024-11-27 06:48:00 +01:00
Use appropriate customization groups for newly added modes
This commit is contained in:
parent
2fd5ab1039
commit
693ade989f
4 changed files with 12 additions and 9 deletions
|
@ -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)
|
||||
|
|
|
@ -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 ()
|
||||
|
|
|
@ -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 ()
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue