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

; Simplify wallpaper--format-arg with let-alist

Browse source 
* lisp/image/wallpaper.el (wallpaper--format-arg): Use let-alist.
This commit is contained in:
Stefan Kangas 2022-09-27 15:56:22 +02:00
parent 071d811c0f
commit 49d40cd953
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/image/wallpaper.el
View file

@ -422,11 +422,9 @@ FILE is the image file name."
(match-string 1 display)
"0")))
;; monitor name
(?M . ,(let* ((attrs (car (display-monitor-attributes-list)))
(source (cdr (assq 'source attrs)))
(monitor (cdr (assq 'name attrs))))
(if (and monitor (member source '("XRandr" "XRandR 1.5" "Gdk")))
monitor
(?M . ,(let-alist (car (display-monitor-attributes-list))
(if (and .name (member .source '("XRandr" "XRandR 1.5" "Gdk")))
.name
"0")))
;; workspace
(?W . ,(or (and (fboundp 'x-window-property)