diff options
Diffstat (limited to '.config')
| -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 |