diff options
Diffstat (limited to '.emacs.d/modules/thanos-aesthetics.el')
| -rw-r--r-- | .emacs.d/modules/thanos-aesthetics.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/.emacs.d/modules/thanos-aesthetics.el b/.emacs.d/modules/thanos-aesthetics.el index ac848ee..3f468fe 100644 --- a/.emacs.d/modules/thanos-aesthetics.el +++ b/.emacs.d/modules/thanos-aesthetics.el @@ -245,5 +245,17 @@ (global-set-key (kbd "M-.") 'xref-find-definitions) (global-set-key (kbd "C-c l") 'display-line-numbers-mode) +;; wallpapers +(defvar wallpapers-dir "~/wallpapers/") + +(defun thanos/set-wallpaper () + "Set wallpaper." + (interactive) + (let ((wallpaper (completing-read "Choose wallpaper" (directory-files wallpapers-dir nil "^[^.].*")))) + (call-process-shell-command + (concat "feh --bg-scale " wallpapers-dir wallpaper) nil 0))) + +(define-key thanos/applications-map (kbd "w") 'thanos/set-wallpaper) + (provide 'thanos-aesthetics) ;;; thanos-aesthetics.el ends here |