[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 55bd6a5cd4: ; Make wallpaper--format-arg more resilient
From: |
Stefan Kangas |
Subject: |
master 55bd6a5cd4: ; Make wallpaper--format-arg more resilient |
Date: |
Fri, 7 Oct 2022 04:54:04 -0400 (EDT) |
branch: master
commit 55bd6a5cd4398ae425408518a14c90083e917757
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
; Make wallpaper--format-arg more resilient
* lisp/image/wallpaper.el (wallpaper--format-arg): Make more
resilient to errors.
---
lisp/image/wallpaper.el | 36 ++++++++++++++++++++----------------
1 file changed, 20 insertions(+), 16 deletions(-)
diff --git a/lisp/image/wallpaper.el b/lisp/image/wallpaper.el
index e23b65d616..ab3df437d9 100644
--- a/lisp/image/wallpaper.el
+++ b/lisp/image/wallpaper.el
@@ -440,9 +440,10 @@ FILE is the image file name."
(format-spec
format
`((?f . ,(expand-file-name file))
- (?F . ,(mapconcat #'url-hexify-string
- (file-name-split file)
- "/"))
+ (?F . ,(lambda ()
+ (mapconcat #'url-hexify-string
+ (file-name-split file)
+ "/")))
(?h . ,(lambda ()
(wallpaper--get-height-or-width
"height"
@@ -454,22 +455,25 @@ FILE is the image file name."
#'display-pixel-width
wallpaper-default-width)))
;; screen number
- (?S . ,(let ((display (frame-parameter (selected-frame) 'display)))
- (if (and display
- (string-match (rx ":" (+ (in "0-9")) "."
- (group (+ (in "0-9"))) eos)
- display))
- (match-string 1 display)
- "0")))
+ (?S . ,(lambda ()
+ (let ((display (frame-parameter (selected-frame) 'display)))
+ (if (and display
+ (string-match (rx ":" (+ (in "0-9")) "."
+ (group (+ (in "0-9"))) eos)
+ display))
+ (match-string 1 display)
+ "0"))))
;; monitor name
(?M . ,#'wallpaper--x-monitor-name)
;; workspace
- (?W . ,(or (and (fboundp 'x-window-property)
- (display-graphic-p)
- (number-to-string
- (or (x-window-property "_NET_CURRENT_DESKTOP" nil
"CARDINAL" 0 nil t)
- (x-window-property "WIN_WORKSPACE" nil "CARDINAL" 0
nil t))))
- "0")))))
+ (?W . ,(lambda ()
+ (or (and (fboundp 'x-window-property)
+ (display-graphic-p)
+ (number-to-string
+ (or (x-window-property "_NET_CURRENT_DESKTOP" nil
"CARDINAL" 0 nil t)
+ (x-window-property "WIN_WORKSPACE" nil "CARDINAL"
0 nil t)
+ 0)))
+ "0"))))))
(defun wallpaper-default-set-function (file)
"Set the wallpaper to FILE using a command.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 55bd6a5cd4: ; Make wallpaper--format-arg more resilient,
Stefan Kangas <=