diff options
Diffstat (limited to '.emacs.d/modules/thanos-commands.el')
| -rw-r--r-- | .emacs.d/modules/thanos-commands.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/.emacs.d/modules/thanos-commands.el b/.emacs.d/modules/thanos-commands.el index 7066c3e..6245098 100644 --- a/.emacs.d/modules/thanos-commands.el +++ b/.emacs.d/modules/thanos-commands.el @@ -90,6 +90,23 @@ memory cores image (when iso (concat "-cdrom " iso)))))) +(defun thanos/wallpaper-select () + "Set wallpaper." + (interactive) + (let ((wallpaper (completing-read "Choose wallpaper: " (directory-files wallpapers-dir nil "^[^.].*")))) + (thanos/wallpaper-set wallpaper))) + +(defvar-keymap thanos/applications-map + :doc "Thanos commonly used programs" + "m" #'mu4e + "c" #'gptel-send + "f" #'elfeed + "e" #'emms-smart-browse + "i" #'erc-libera + "t" #'thanos/load-theme + "w" #'thanos/wallpaper-select + "C-c" 'thanos/create + "C-e" #'emms-pause) (provide 'thanos-commands) |