diff options
| -rw-r--r-- | stumpwm.org | 24 |
1 files changed, 18 insertions, 6 deletions
diff --git a/stumpwm.org b/stumpwm.org index 37a6e68..a35d83e 100644 --- a/stumpwm.org +++ b/stumpwm.org @@ -37,13 +37,25 @@ #+end_src * Autostart #+begin_src lisp + + (setf is-zeus (equal (asdf:hostname) "zeus")) + (setf is-hermes (equal (asdf:hostname) "hermes")) + (setf *wallpapers* "~/wallpapers/") + + + (defun feh-set-wallpaper (wallpaper-name) + (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)))) + + (cond (is-zeus (feh-set-wallpaper "eris-chocolates.jpg")) + (is-hermes (feh-set-wallpaper "library-old-house.jpg"))) + (when *initializing* - (run-shell-command - "emacs --daemon & - feh --bg-scale ~/wallpapers/eris-chocolates.jpg & - picom & - xss-lock -n /usr/lib/xsecurelock/dimmer -l -- ~/Developer/scripts/lock.sh & - setxkbmap -layout us,gr,my-bg -option 'ctrl:swapcaps' -option 'grp:alt_space_toggle'")) + (run-shell-command + "emacs --daemon & + picom & + setxkbmap -layout us,gr,my-bg -option 'ctrl:swapcaps' -option 'grp:alt_space_toggle")) (setf *startup-message* "Welcome back, Thanos") #+end_src |