From 79b26d6a64b3a50f8f0d43c49a30dc14fcb5c959 Mon Sep 17 00:00:00 2001 From: bd Date: Wed, 19 Nov 2025 22:38:24 -0500 Subject: set-bg function correctly uses a default dir --- .config/emacs/modules/bd--utility.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to '.config/emacs/modules') diff --git a/.config/emacs/modules/bd--utility.el b/.config/emacs/modules/bd--utility.el index 5f060be..ee74f58 100644 --- a/.config/emacs/modules/bd--utility.el +++ b/.config/emacs/modules/bd--utility.el @@ -21,10 +21,11 @@ ARG can be one of the following: - nil: set the most recent wallpaper - directory: set a random image from the directory -- file: set the specified file - -TODO default folder" - (interactive "f") +- file: set the specified file" + (interactive + (list (read-file-name + "Select a wallpaper: " + (expand-file-name "~/wf/wall/") nil t))) (let ((wall (expand-file-name "~/wf/wall/current"))) (when arg (cond -- cgit v1.2.3