diff -r 4ff9d125b31f -r 4eb225e610dc .stumpwm.d/init.lisp
--- a/.stumpwm.d/init.lisp	Mon Jul 01 21:45:11 2024 -0400
+++ b/.stumpwm.d/init.lisp	Tue Jul 02 20:11:18 2024 -0400
@@ -1,7 +1,6 @@
 (require :stumpwm)
-;; (require :swank)
+
 (in-package :stumpwm)
-;; (swank-loader:init)
 
 (setq *mouse-focus-policy*    :sloppy
       *float-window-modifier* :SUPER
@@ -11,17 +10,25 @@
 (set-module-dir "/usr/share/stupmwm/contrib/")
 (init-load-path *module-dir*)
 
-;;(setf *window-format* "%m%n%s%c")
+(setf *window-format* "%m%n%s%c")
 (setf *screen-mode-line-format* (list "[^B%n^b] %W^>%d"))
 
 (setf *time-modeline-string* "%a %b %e %k:%M")
 
 (setq *mode-line-timeout* 4)
 
-(enable-mode-line (current-screen) (current-head) t)
-
 (when *initializing*
-  (run-shell-command "sh ~/.fehbg"))
+  (defvar *stumpwm-port* 4004)
+  (require :swank)
+  (swank-loader:init)
+  (swank:create-server :port *stumpwm-port*
+                       :style swank:*communication-style*
+                       :dont-close t)
+  (run-shell-command "sh ~/.fehbg")
+  (when (equal (machine-instance) "zor")
+    (run-shell-command "sh ~/.screenlayout/default.sh"))
+  (dolist (s stumpwm:*screen-list*) 
+    (enable-mode-line s (car (screen-heads s)) t)))
 
 (which-key-mode)
 
@@ -32,4 +39,14 @@
                             (format nil "alacritty ~A" program)
                             "alacritty")))))
 
+(defcommand blueberry () ()
+  (sb-thread:make-thread
+   (lambda ()
+     (run-shell-command "blueberry"))))
+
+(defcommand chromium () ()
+  (sb-thread:make-thread
+   (lambda ()
+     (run-shell-command "chromium"))))
+
 (define-key *root-map* (kbd "c") "term")