diff options
| author | jao <jao@gnu.org> | 2026-08-25 21:11:27 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-08-25 21:11:27 +0100 |
| commit | ca31697cc95491c19ff257c29bdab3b88d043b09 (patch) | |
| tree | bc14b9744c783dd1121b36ffadf21e3d7dc0bb7a /custom/jao-custom-x11.el | |
| parent | dba7a443d0edb88869c4df70622543a465cf9304 (diff) | |
| download | elibs-ca31697cc95491c19ff257c29bdab3b88d043b09.tar.gz elibs-ca31697cc95491c19ff257c29bdab3b88d043b09.tar.bz2 | |
emacs 31main
Diffstat (limited to 'custom/jao-custom-x11.el')
| -rw-r--r-- | custom/jao-custom-x11.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/custom/jao-custom-x11.el b/custom/jao-custom-x11.el index 3311668..6f0a607 100644 --- a/custom/jao-custom-x11.el +++ b/custom/jao-custom-x11.el @@ -79,11 +79,11 @@ (defun jao-set-wallpaper (&optional path) (interactive) (let ((current (format "~/.wallpaper.%s" (jao-colors-scheme)))) - (when-let ((f (or (and path (expand-file-name path)) - (read-file-name "Image: " - jao-wallpaper-dir - (file-symlink-p current) - t)))) + (when-let* ((f (or (and path (expand-file-name path)) + (read-file-name "Image: " + jao-wallpaper-dir + (file-symlink-p current) + t)))) (make-symbolic-link f current t) (cond (jao-river-enabled (jao-river-set-wallpaper f)) (jao-sway-enabled (jao-sway-set-wallpaper f)) |