procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add :type to wallpaper-command

Browse source 
* lisp/image/wallpaper.el (wallpaper-command): Make it easier to
customize by adding a :type declaration covering all supported values.
This commit is contained in:
Stefan Kangas 2022-09-14 13:22:22 +02:00
parent 0f4839fb6e
commit 4e207423eb
1 changed files with 21 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/image/wallpaper.el
View file

@ -47,6 +47,7 @@
;;; Finding the wallpaper command
(defvar wallpaper--default-commands
;; When updating this, also update the custom :type for `wallpaper-command'.
'(
;; Sway (Wayland)
("swaybg" "-o" "*" "-i" "%f" "-m" "fill")
@ -124,16 +125,32 @@ will be replaced as described in `wallpaper-command-args'.")
"Executable used for setting the wallpaper.
A suitable command for your environment should be detected
automatically, so there is usually no need to customize this.
However, if you do need to change this, you might also want to
customize `wallpaper-command-args' to match.
If you set this to any supported command using customize or
`setopt', the user option `wallpaper-command-args' is
automatically updated to match. If you need to change this to an
unsupported command, you will want to manually customize
`wallpaper-command-args' to match.
Note: If you find that you need to use a command in your
environment that is not automatically detected, we would love to
hear about it! Please send an email to bug-gnu-emacs@gnu.org and
tell us the command (and all options) that worked for you. You
can also use \\[report-emacs-bug]."
:type '(choice string
(const :tag "Not set" nil))
:type
'(choice
(radio
(const :tag "gsettings (GNOME)" "gsettings")
(const :tag "plasma-apply-wallpaperimage (KDE Plasma)" "plasma-apply-wallpaperimage")
(const :tag "swaybg (Wayland/Sway)" "swaybg")
(const :tag "wbg (Wayland)" "wbg")
(const :tag "gm (X Window System)" "gm")
(const :tag "display (X Window System)" "display")
(const :tag "feh (X Window System)" "feh")
(const :tag "xwallpaper (X Window System)" "xwallpaper")
(const :tag "xloadimage (X Window System)" "xloadimage")
(const :tag "xsetbg (X Window System)" "xsetbg"))
(const :tag "Other (specify)" string))
:set #'wallpaper--set-wallpaper-command
:group 'image
:version "29.1")