From 39d4281587446be2755322566e34226d5bf40258 Mon Sep 17 00:00:00 2001 From: bd Date: Tue, 17 Dec 2024 00:51:19 -0500 Subject: modus modeline face cleanup --- .config/emacs/modules/bd--exwm-windowing.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to '.config/emacs/modules/bd--exwm-windowing.el') 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) -- cgit v1.2.3