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

forward-declare mode variables

Browse source
This commit is contained in:
Steven Allen 2024-06-03 19:53:14 -07:00
parent 83af8285f7
commit 74e4443a08
3 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
exwm-background.el
View file

@ -34,6 +34,8 @@
(require 'exwm-core) (require 'exwm-core)
(defvar exwm-background-mode)
(defcustom exwm-background-color nil (defcustom exwm-background-color nil
"Background color for Xorg." "Background color for Xorg."
:type '(choice :type '(choice
@ -43,7 +45,7 @@
: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)
(when (bound-and-true-p exwm-background-mode) (exwm-background--update)))) (when exwm-background-mode (exwm-background--update))))
(defconst exwm-background--properties '("_XROOTPMAP_ID" "_XSETROOT_ID" "ESETROOT_PMAP_ID") (defconst exwm-background--properties '("_XROOTPMAP_ID" "_XSETROOT_ID" "ESETROOT_PMAP_ID")
"The background properties to set. "The background properties to set.

4
exwm-systemtray.el
View file

@ -40,6 +40,8 @@
(declare-function exwm-workspace--workarea "exwm-workspace.el" (frame)) (declare-function exwm-workspace--workarea "exwm-workspace.el" (frame))
(defvar exwm-systemtray-mode)
(defclass exwm-systemtray--icon () (defclass exwm-systemtray--icon ()
((width :initarg :width) ((width :initarg :width)
(height :initarg :height) (height :initarg :height)
@ -87,7 +89,7 @@ TrueColor-24\" can be used to force Emacs to use 24-bit depth."
using 32-bit depth. Using `workspace-background' instead.") using 32-bit depth. Using `workspace-background' instead.")
(setq value 'workspace-background)) (setq value 'workspace-background))
(set-default symbol value) (set-default symbol value)
(when (and (bound-and-true-p exwm-systemtray-mode) (when (and exwm-systemtray-mode
exwm-systemtray--connection exwm-systemtray--connection
exwm-systemtray--embedder-window) exwm-systemtray--embedder-window)
;; Change the background color for embedder. ;; Change the background color for embedder.

3
exwm-xsettings.el
View file

@ -57,6 +57,7 @@
(defvar exwm-xsettings--XSETTINGS_S0-atom nil) (defvar exwm-xsettings--XSETTINGS_S0-atom nil)
(defvar exwm-xsettings--selection-owner-window nil) (defvar exwm-xsettings--selection-owner-window nil)
(defvar exwm-xsettings--serial 0) (defvar exwm-xsettings--serial 0)
(defvar exwm-xsettings-mode)
(defun exwm-xsettings--rgba-match (_widget value) (defun exwm-xsettings--rgba-match (_widget value)
"Return t if VALUE is a valid RGBA color." "Return t if VALUE is a valid RGBA color."
@ -67,7 +68,7 @@
SYMBOL is the setting being updated and VALUE is the new value." 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 (bound-and-true-p exwm-xsettings-mode) (when exwm-xsettings-mode
(exwm-xsettings--update-settings))) (exwm-xsettings--update-settings)))
(defgroup exwm-xsettings nil (defgroup exwm-xsettings nil