From a5fef6324be38541e28bbf154f321cfa9087d1b1 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 9 Dec 2023 10:51:44 +0200 Subject: emacs: Rewrite thanos/applications-map - Use defvar-keymap - Rewrite it on thanos-commands.el --- .emacs.d/modules/thanos-commands.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to '.emacs.d/modules/thanos-commands.el') 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) -- cgit v1.2.3