procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support recent KDE Plasma in wallpaper.el

Browse source 
* lisp/image/wallpaper.el (wallpaper-commands): Support recent KDE
Plasma.
(wallpaper--check-command): New cl-defmethod.
This commit is contained in:
Stefan Kangas 2022-09-14 10:29:16 +02:00
parent d537e4c102
commit 6f06353290
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/image/wallpaper.el
View file

@ -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")))