fix(dirvish): point the bg wallpaper command at set-wallpaper on Wayland

The Wayland branch of cj/--wallpaper-program-for returned swww, but this system's wallpaper daemon is awww, so dirvish "bg" silently no-opped. Point it at the set-wallpaper script (on PATH via dotfiles), which wraps awww img and persists the choice to waypaper's config. X11 still uses feh. Updated the wallpaper-program test to match.

1 files changed, 5 insertions, 4 deletions

diff --git a/modules/dirvish-config.el b/modules/dirvish-config.el
index f33e8cf74..c4c5f1aae 100644
--- a/modules/dirvish-config.el
+++ b/modules/dirvish-config.el
@@ -400,18 +400,19 @@ regardless of what file or subdirectory the point is on."
   "Return the (PROGRAM PRE-FILE-ARG...) list for setting wallpaper under ENV.
 
 ENV is a display-server symbol: `x11' picks feh with --bg-fill, `wayland'
-picks swww with the img subcommand.  Any other value returns nil so the
-caller can surface an \"unknown display server\" error.
+picks the `set-wallpaper' script (on PATH from dotfiles; it wraps the awww
+backend and persists the choice to waypaper's config).  Any other value
+returns nil so the caller can surface an \"unknown display server\" error.
 
 Pure helper used by `cj/set-wallpaper'."
   (pcase env
     ('x11     '("feh" "--bg-fill"))
-    ('wayland '("swww" "img"))
+    ('wayland '("set-wallpaper"))
     (_ nil)))
 
 (defun cj/set-wallpaper ()
   "Set the image at point as the desktop wallpaper.
-Uses feh on X11, swww on Wayland."
+Uses feh on X11, the `set-wallpaper' script on Wayland."
   (interactive)
   (let* ((raw (dired-file-name-at-point))
          (file (and raw (expand-file-name raw)))