Support hsetroot in wallpaper.el

* lisp/image/wallpaper.el (wallpaper--default-commands)
(wallpaper-command): Add "hsetroot".

diff --git a/lisp/image/wallpaper.el b/lisp/image/wallpaper.el
index d2b82a7af59b3e66232c3b4e52030573f159ec68..6d57691ff0c3f7f7dafc98087d89d8c7a6bde686 100644 (file)
--- 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))