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

New customization group exwm-xsettings

Browse source 
* exwm-xsettings.el (exwm-xsettings): New customization group.
This commit is contained in:
Daniel Mendler 2024-01-14 01:05:36 +01:00
parent c033fc00f3
commit 5acb8bea8a
No known key found for this signature in database
GPG key ID: D88ADB2A2693CA43
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
exwm-xsettings.el
View file

@ -40,7 +40,7 @@
;; (exwm-xsettings-enable) ;; (exwm-xsettings-enable)
;; ;;
;; To modify these settings at runtime, customize them with ;; To modify these settings at runtime, customize them with
;; `custom-set-variables' or `setopt' (Emacs 29+). E.g., the following will ;; `custom-set-variables' or `setopt' (Emacs 29+). E.g., the following will
;; immediately change the icon theme to "Papirus" at runtime, even in running ;; immediately change the icon theme to "Papirus" at runtime, even in running
;; applications: ;; applications:
;; ;;
@ -69,11 +69,14 @@ SYMBOL is the setting being updated and VALUE is the new value."
(set-default-toplevel-value symbol value) (set-default-toplevel-value symbol value)
(exwm-xsettings--update-settings)) (exwm-xsettings--update-settings))
(defgroup exwm-xsettings nil
"XSETTINGS."
:group 'exwm)
(defcustom exwm-xsettings nil (defcustom exwm-xsettings nil
"Custom XSETTINGS. "Alist of custom XSETTINGS.
These settings take precedence over `exwm-xsettings-theme' and These settings take precedence over `exwm-xsettings-theme' and
`exwm-xsettings-icon-theme'." `exwm-xsettings-icon-theme'."
:group 'exwm
:type '(alist :key-type (string :tag "Name") :type '(alist :key-type (string :tag "Name")
:value-type (choice :tag "Value" :value-type (choice :tag "Value"
(string :tag "String") (string :tag "String")
@ -101,7 +104,6 @@ These settings take precedence over `exwm-xsettings-theme' and
(defcustom exwm-xsettings-theme nil (defcustom exwm-xsettings-theme nil
"The system-wide theme." "The system-wide theme."
:group 'exwm
:type '(choice (string :tag "Theme") :type '(choice (string :tag "Theme")
(cons (string :tag "Light Theme") (cons (string :tag "Light Theme")
(string :tag "Dark Theme"))) (string :tag "Dark Theme")))
@ -110,7 +112,6 @@ These settings take precedence over `exwm-xsettings-theme' and
(defcustom exwm-xsettings-icon-theme nil (defcustom exwm-xsettings-icon-theme nil
"The system-wide icon theme." "The system-wide icon theme."
:group 'exwm
:type '(choice (string :tag "Icon Theme") :type '(choice (string :tag "Icon Theme")
(cons (string :tag "Light Icon Theme") (cons (string :tag "Light Icon Theme")
(string :tag "Dark Icon Theme"))) (string :tag "Dark Icon Theme")))