emacs:(aesthetics) Add thanos/set-wallpaper

Function to set wallpaper using feh

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