diff options
| author | Thanos Apollo <[email protected]> | 2023-12-09 10:51:44 +0200 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2023-12-09 10:56:59 +0200 |
| commit | a5fef6324be38541e28bbf154f321cfa9087d1b1 (patch) | |
| tree | 4b8d5fc594497bc36ae8b287de89343dc0d9534b /.emacs.d/modules/thanos-commands.el | |
| parent | f74354ae3d2912686b87d20426d8155865939306 (diff) | |
emacs: Rewrite thanos/applications-map
- Use defvar-keymap
- Rewrite it on thanos-commands.el
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) |