Remove deprecated exwm-*-enable functions

The corresponding global minor modes should be used instead.

* exwm-background.el (exwm-background-enable): Remove function.
* exwm-core.el (exwm-debug): Remove function.
* exwm-randr.el (exwm-randr-enable): Remove function.
* exwm-systemtray.el (exwm-systemtray-enable): Remove function.
* exwm-xim.el (exwm-xim-enable): Remove function.
* exwm-xsettings.el (exwm-xsettings-enable): Remove function.
This commit is contained in:
Daniel Mendler 2024-12-22 14:02:49 +01:00
parent 9f310dd5c1
commit 4321cc079b
No known key found for this signature in database
GPG key ID: D88ADB2A2693CA43
6 changed files with 4 additions and 35 deletions

View file

@ -45,12 +45,6 @@
:group 'exwm-background :group 'exwm-background
(exwm--global-minor-mode-body background)) (exwm--global-minor-mode-body background))
(defun exwm-background-enable ()
"Enable EXWM background support."
(message "`exwm-background-enable' is obsolete. Use `exwm-background-mode' instead.")
(exwm-background-mode 1))
(make-obsolete 'exwm-background-enable "Use `exwm-background-mode' instead." "0.30")
(defcustom exwm-background-color nil (defcustom exwm-background-color nil
"Background color for Xorg." "Background color for Xorg."
:type '(choice :type '(choice

View file

@ -99,12 +99,11 @@ nil: Disable timestamp."
(declare-function exwm-workspace-switch "exwm-workspace.el" (declare-function exwm-workspace-switch "exwm-workspace.el"
(frame-or-index &optional force)) (frame-or-index &optional force))
(defvaralias 'exwm-debug 'exwm-debug-mode) ;; Not obsolete (defvaralias 'exwm-debug 'exwm-debug-mode)
(define-minor-mode exwm-debug-mode (define-minor-mode exwm-debug-mode
"Debug-logging enabled if non-nil." "Debug-logging enabled if non-nil."
:global t :global t
:group 'exwm-debug) :group 'exwm-debug)
(define-obsolete-function-alias 'exwm-debug #'exwm-debug-mode "0.30")
(defmacro exwm--debug (&rest forms) (defmacro exwm--debug (&rest forms)
"Evaluate FORMS if `exwm-debug-mode' is active." "Evaluate FORMS if `exwm-debug-mode' is active."

View file

@ -106,12 +106,6 @@ corresponding monitors whenever the monitors are active.
:group 'exwm-randr :group 'exwm-randr
(exwm--global-minor-mode-body randr)) (exwm--global-minor-mode-body randr))
(defun exwm-randr-enable ()
"Enable EXWM RandR support."
(message "`exwm-randr-enable' is obsolete. Use `exwm-randr-mode' instead.")
(exwm-randr-mode 1))
(make-obsolete 'exwm-randr-enable "Use `exwm-randr-mode' instead." "0.30")
(defsubst exwm-randr--assert-connected () (defsubst exwm-randr--assert-connected ()
"Assert that `exwm-randr-mode' is enabled and activated." "Assert that `exwm-randr-mode' is enabled and activated."
(cond (cond
@ -307,9 +301,9 @@ Refresh when any CRTC/output changes."
(xcb:unmarshal evt data) (xcb:unmarshal evt data)
(with-slots (subCode u) evt (with-slots (subCode u) evt
(cond ((= subCode xcb:randr:Notify:CrtcChange) (cond ((= subCode xcb:randr:Notify:CrtcChange)
(setq notify (slot-value u 'cc))) (setq notify (slot-value u 'cc)))
((= subCode xcb:randr:Notify:OutputChange) ((= subCode xcb:randr:Notify:OutputChange)
(setq notify (slot-value u 'oc)))) (setq notify (slot-value u 'oc))))
(when notify (when notify
(with-slots (timestamp) notify (with-slots (timestamp) notify
(when (> timestamp exwm-randr--last-timestamp) (when (> timestamp exwm-randr--last-timestamp)

View file

@ -57,12 +57,6 @@
:group 'exwm-systemtray :group 'exwm-systemtray
(exwm--global-minor-mode-body systemtray)) (exwm--global-minor-mode-body systemtray))
(defun exwm-systemtray-enable ()
"Enable EXWM systemtray support."
(message "`exwm-systemtray-enable' is obsolete. Use `exwm-systemtray-mode' instead.")
(exwm-systemtray-mode 1))
(make-obsolete 'exwm-systemtray-enable "Use `exwm-systemtray-mode' instead." "0.30")
(defcustom exwm-systemtray-height nil (defcustom exwm-systemtray-height nil
"System tray height. "System tray height.

View file

@ -803,12 +803,6 @@ Such event would be received when the client window is destroyed."
:group 'exwm :group 'exwm
(exwm--global-minor-mode-body xim)) (exwm--global-minor-mode-body xim))
(defun exwm-xim-enable ()
"Enable EXWM XIM support."
(message "`exwm-xim-enable' is obsolete. Use `exwm-xim-mode' instead.")
(exwm-xim-mode 1))
(make-obsolete 'exwm-xim-enable "Use `exwm-xim-mode' instead." "0.30")
(provide 'exwm-xim) (provide 'exwm-xim)

View file

@ -68,12 +68,6 @@
:group 'exwm-xsettings :group 'exwm-xsettings
(exwm--global-minor-mode-body xsettings)) (exwm--global-minor-mode-body xsettings))
(defun exwm-xsettings-enable ()
"Enable EXWM xsettings support."
(message "`exwm-xsettings-enable' is obsolete. Use `exwm-xsettings-mode' instead.")
(exwm-xsettings-mode 1))
(make-obsolete 'exwm-xsettings-enable "Use `exwm-xsettings-mode' instead." "0.30")
(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."
(and (numberp value) (<= 0 value 1))) (and (numberp value) (<= 0 value 1)))