diff options
Diffstat (limited to '.stumpwm.d/theme.lisp')
| -rw-r--r-- | .stumpwm.d/theme.lisp | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/.stumpwm.d/theme.lisp b/.stumpwm.d/theme.lisp index 98910bf..0160e1a 100644 --- a/.stumpwm.d/theme.lisp +++ b/.stumpwm.d/theme.lisp @@ -6,6 +6,23 @@ (stumpwm:load-module "ttf-fonts") (load "~/.stumpwm.d/colors.lisp") + +;; Wallpaper +(defun feh-set-wallpaper (wallpaper-name) + "Set wallpaper using feh" + (let ((wallpaper-dir "~/wallpapers/")) + (format t "Setting wallpaper: ~a~%" wallpaper-name) + (run-shell-command (format nil "feh --bg-scale ~a~a" wallpaper-dir wallpaper-name)))) + +(defun thanos/set-wallpapers () + "Set wallpapers depending on hostname." + (cond ((equal (asdf:hostname) "zeus") (feh-set-wallpaper "winter-dragons.jpg")) + ((equal (asdf:hostname) "hermes") (feh-set-wallpaper "cyberpunk-wallpaper2.jpg")))) + + +(when *initializing* + (thanos/set-wallpapers)) + (setf *message-window-gravity* :center *input-window-gravity* :center *window-border-style :thin |