1.1--- a/.stumpwm.d/init.lisp	Tue Jul 02 20:11:18 2024 -0400
     1.2+++ b/.stumpwm.d/init.lisp	Thu Jul 04 20:40:22 2024 -0400
     1.3@@ -2,6 +2,14 @@
     1.4 
     1.5 (in-package :stumpwm)
     1.6 
     1.7+(defvar *stumpwm-port* 4004)
     1.8+(ql:quickload :swank)
     1.9+(require :swank)
    1.10+(swank-loader:init)
    1.11+(ignore-errors
    1.12+ (swank:create-server :port *stumpwm-port*
    1.13+                      :style swank:*communication-style*))
    1.14+
    1.15 (setq *mouse-focus-policy*    :sloppy
    1.16       *float-window-modifier* :SUPER
    1.17       *startup-message* "Greetings, stranger.")
    1.18@@ -18,12 +26,6 @@
    1.19 (setq *mode-line-timeout* 4)
    1.20 
    1.21 (when *initializing*
    1.22-  (defvar *stumpwm-port* 4004)
    1.23-  (require :swank)
    1.24-  (swank-loader:init)
    1.25-  (swank:create-server :port *stumpwm-port*
    1.26-                       :style swank:*communication-style*
    1.27-                       :dont-close t)
    1.28   (run-shell-command "sh ~/.fehbg")
    1.29   (when (equal (machine-instance) "zor")
    1.30     (run-shell-command "sh ~/.screenlayout/default.sh"))