diff options
| author | bd <bdunahu@operationnull.com> | 2025-11-19 22:38:24 -0500 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-11-19 22:38:24 -0500 |
| commit | 79b26d6a64b3a50f8f0d43c49a30dc14fcb5c959 (patch) | |
| tree | 550cf648ffdd2133b19d10d03d5f3a742573088a /.config/emacs | |
| parent | 66cdc752aaa972efc6327aabe20ac813092d1b32 (diff) | |
set-bg function correctly uses a default dir
Diffstat (limited to '.config/emacs')
| -rw-r--r-- | .config/emacs/modules/bd--utility.el | 9 |
1 files changed, 5 insertions, 4 deletions
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 |