diff options
| author | bd <bdunahu@operationnull.com> | 2024-12-17 00:51:19 -0500 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-12-17 00:51:19 -0500 |
| commit | 39d4281587446be2755322566e34226d5bf40258 (patch) | |
| tree | 80c1567738c3fdb264f507e71e47f3d4e8a92cec /.config/emacs/modules/bd--exwm-windowing.el | |
| parent | e007e1c239f1b4667377ca4ce09e34fbbafd4c9d (diff) | |
modus modeline face cleanup
Diffstat (limited to '.config/emacs/modules/bd--exwm-windowing.el')
| -rw-r--r-- | .config/emacs/modules/bd--exwm-windowing.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/.config/emacs/modules/bd--exwm-windowing.el b/.config/emacs/modules/bd--exwm-windowing.el index 3b6532b..184c16e 100644 --- a/.config/emacs/modules/bd--exwm-windowing.el +++ b/.config/emacs/modules/bd--exwm-windowing.el @@ -62,13 +62,13 @@ ARG can be one of the following: - file: set the specified file" (interactive "f") (let ((wall (expand-file-name "~/wf/wall/current"))) - (and arg - (cond - ((file-regular-p arg) (copy-file arg wall t)) - ((file-directory-p arg) - (let* ((images (f-files arg (lambda (f) (string-match-p "\\.jpeg\\'" f)))) - (rfile (nth (random (length images)) images))) - (and rfile (copy-file rfile wall t)))))) + (when arg + (cond + ((file-regular-p arg) (copy-file arg wall t)) + ((file-directory-p arg) + (let* ((images (f-files arg (lambda (f) (string-match-p "\\.jpeg\\'" f)))) + (rfile (nth (random (length images)) images))) + (and rfile (copy-file rfile wall t)))))) (start-process "set wallpaper" nil "feh" "--bg-fill" wall) (message "Set wallpaper."))) (set-bg) |