stumpwm: update startup

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