From 6f06353290532af03ee97055853d430c161fa493 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 14 Sep 2022 10:29:16 +0200 Subject: [PATCH] Support recent KDE Plasma in wallpaper.el * lisp/image/wallpaper.el (wallpaper-commands): Support recent KDE Plasma. (wallpaper--check-command): New cl-defmethod. --- lisp/image/wallpaper.el | 5 +++++ 1 file changed, 5 insertions(+) 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"))) -- 2.39.2