mirror of
https://github.com/emacs-exwm/exwm.git
synced 2025-01-22 16:08:00 +01:00
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:
parent
9f310dd5c1
commit
4321cc079b
6 changed files with 4 additions and 35 deletions
|
@ -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
|
||||||
|
|
|
@ -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."
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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.
|
||||||
|
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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)))
|
||||||
|
|
Loading…
Reference in a new issue