1.1--- a/.stumpwm.d/init.lisp	Mon Jul 01 21:45:11 2024 -0400
     1.2+++ b/.stumpwm.d/init.lisp	Tue Jul 02 20:11:18 2024 -0400
     1.3@@ -1,7 +1,6 @@
     1.4 (require :stumpwm)
     1.5-;; (require :swank)
     1.6+
     1.7 (in-package :stumpwm)
     1.8-;; (swank-loader:init)
     1.9 
    1.10 (setq *mouse-focus-policy*    :sloppy
    1.11       *float-window-modifier* :SUPER
    1.12@@ -11,17 +10,25 @@
    1.13 (set-module-dir "/usr/share/stupmwm/contrib/")
    1.14 (init-load-path *module-dir*)
    1.15 
    1.16-;;(setf *window-format* "%m%n%s%c")
    1.17+(setf *window-format* "%m%n%s%c")
    1.18 (setf *screen-mode-line-format* (list "[^B%n^b] %W^>%d"))
    1.19 
    1.20 (setf *time-modeline-string* "%a %b %e %k:%M")
    1.21 
    1.22 (setq *mode-line-timeout* 4)
    1.23 
    1.24-(enable-mode-line (current-screen) (current-head) t)
    1.25-
    1.26 (when *initializing*
    1.27-  (run-shell-command "sh ~/.fehbg"))
    1.28+  (defvar *stumpwm-port* 4004)
    1.29+  (require :swank)
    1.30+  (swank-loader:init)
    1.31+  (swank:create-server :port *stumpwm-port*
    1.32+                       :style swank:*communication-style*
    1.33+                       :dont-close t)
    1.34+  (run-shell-command "sh ~/.fehbg")
    1.35+  (when (equal (machine-instance) "zor")
    1.36+    (run-shell-command "sh ~/.screenlayout/default.sh"))
    1.37+  (dolist (s stumpwm:*screen-list*) 
    1.38+    (enable-mode-line s (car (screen-heads s)) t)))
    1.39 
    1.40 (which-key-mode)
    1.41 
    1.42@@ -32,4 +39,14 @@
    1.43                             (format nil "alacritty ~A" program)
    1.44                             "alacritty")))))
    1.45 
    1.46+(defcommand blueberry () ()
    1.47+  (sb-thread:make-thread
    1.48+   (lambda ()
    1.49+     (run-shell-command "blueberry"))))
    1.50+
    1.51+(defcommand chromium () ()
    1.52+  (sb-thread:make-thread
    1.53+   (lambda ()
    1.54+     (run-shell-command "chromium"))))
    1.55+
    1.56 (define-key *root-map* (kbd "c") "term")