master 9148892768: Support hsetroot in wallpaper.el

[Stefan Kangas]

branch: master
commit 9148892768148f872e83293193c7f04b5add3d44
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Support hsetroot in wallpaper.el
    
    * lisp/image/wallpaper.el (wallpaper--default-commands)
    (wallpaper-command): Add "hsetroot".
---
 lisp/image/wallpaper.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/image/wallpaper.el b/lisp/image/wallpaper.el
index d2b82a7af5..6d57691ff0 100644
--- a/lisp/image/wallpaper.el
+++ b/lisp/image/wallpaper.el
@@ -62,6 +62,7 @@
     ("display" "-resize" "%wx%h" "-window" "root" "%f")
     ("feh" "--bg-max" "%f")
     ("xwallpaper" "--zoom" "%f")
+    ("hsetroot" "-full" "%f")
     ("xloadimage" "-onroot" "-fullscreen" "%f")
     ("xsetbg" " %f")
     )
@@ -152,6 +153,7 @@ native API will be used instead (see 
`haiku-set-wallpaper')."
      (const :tag "display                     (X Window System)"  "display")
      (const :tag "feh                         (X Window System)"  "feh")
      (const :tag "xwallpaper                  (X Window System)"  "xwallpaper")
+     (const :tag "hsetroot                    (X Window System)"  "hsetroot")
      (const :tag "xloadimage                  (X Window System)"  "xloadimage")
      (const :tag "xsetbg                      (X Window System)"  "xsetbg"))
     (const :tag "Other (specify)"         string))