From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 14 Sep 2022 16:17:42 +0000 (+0200)
Subject: Support hsetroot in wallpaper.el
X-Git-Tag: emacs-29.0.90~1856^2~506
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9148892768148f872e83293193c7f04b5add3d44;p=emacs.git

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 d2b82a7af59..6d57691ff0c 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))