Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2025-01-22 23:07:58 +01:00
Code Issues Projects Releases Packages Wiki Activity

Duplicate systemtray:-ClientMessage to xsettings:-ClientMessage

Browse source 
And fix the imports.
This commit is contained in:
Steven Allen 2024-01-08 07:58:23 -08:00
parent 2e36840011
commit ffd26a509c
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
exwm-xsettings.el
View file

@ -47,6 +47,9 @@
;;; Code: ;;; Code:
(require 'xcb-ewmh)
(require 'xcb-icccm)
(require 'exwm-core) (require 'exwm-core)
(defvar exwm-xsettings--connection nil) (defvar exwm-xsettings--connection nil)
@ -167,6 +170,15 @@ These settings take precedence over `exwm-xsettings-theme' and `exwm-xsettings-i
(blue :initarg :blue :type xcb:CARD16) (blue :initarg :blue :type xcb:CARD16)
(alpha :initarg :alpha :initform #xffff :type xcb:CARD16))) (alpha :initarg :alpha :initform #xffff :type xcb:CARD16)))
(defclass xcb:xsettings:-ClientMessage
(xcb:icccm:--ClientMessage xcb:ClientMessage)
((format :initform 32)
(type :initform 'xcb:Atom:MANAGER)
(time :initarg :time :type xcb:TIMESTAMP) ;new slot
(selection :initarg :selection :type xcb:ATOM) ;new slot
(owner :initarg :owner :type xcb:WINDOW)) ;new slot
:documentation "An XSETTINGS client message.")
(defun exwm-xsettings--pick-theme (theme) (defun exwm-xsettings--pick-theme (theme)
"Pick a light or dark theme from the given THEME. "Pick a light or dark theme from the given THEME.
If THEME is a string, it's returned directly. If THEME is a string, it's returned directly.
@ -329,8 +341,7 @@ SERIAL is a sequence number."
:destination exwm--root :destination exwm--root
:event-mask xcb:EventMask:StructureNotify :event-mask xcb:EventMask:StructureNotify
:event (xcb:marshal :event (xcb:marshal
;; TODO: new event? Do I need a new field? (make-instance 'xcb:xsettings:-ClientMessage
(make-instance 'xcb:systemtray:-ClientMessage
:window exwm--root :window exwm--root
:time xcb:Time:CurrentTime :time xcb:Time:CurrentTime
:selection exwm-xsettings--XSETTINGS_S0-atom :selection exwm-xsettings--XSETTINGS_S0-atom