From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 14 Sep 2022 08:29:16 +0000 (+0200)
Subject: Support recent KDE Plasma in wallpaper.el
X-Git-Tag: emacs-29.0.90~1856^2~529
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f06353290532af03ee97055853d430c161fa493;p=emacs.git

Support recent KDE Plasma in wallpaper.el

* lisp/image/wallpaper.el (wallpaper-commands): Support recent KDE
Plasma.
(wallpaper--check-command): New cl-defmethod.
---

diff --git a/lisp/image/wallpaper.el b/lisp/image/wallpaper.el
index 97789fe3f53..c31c54fd9f7 100644
--- a/lisp/image/wallpaper.el
+++ b/lisp/image/wallpaper.el
@@ -43,6 +43,8 @@
     ("wbg" %f)
     ;; Gnome
     ("gsettings" "set" "org.gnome.desktop.background" "picture-uri" "file://%f")
+    ;; KDE Plasma
+    ("plasma-apply-wallpaperimage" "%f")
     ;; Other / General X
     ("gm" "display" "-size" "%wx%h" "-window" "root" "%f")
     ("display" "-resize" "%wx%h" "-window" "root" "%f")
@@ -88,6 +90,9 @@ You can also use \\[report-emacs-bug]."
 (cl-defmethod wallpaper--check-command ((_type (eql 'gsettings)))
   (member "GNOME" (xdg-current-desktop)))
 
+(cl-defmethod wallpaper--check-command ((_type (eql 'plasma-apply-wallpaperimage)))
+  (member "KDE" (xdg-current-desktop)))
+
 (cl-defmethod wallpaper--check-command ((_type (eql 'swaybg)))
   (and (getenv "WAYLAND_DISPLAY")
        (getenv "SWAYSOCK")))