# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1720140022 14400
# Node ID 5fd0502a32314cd54d95a2d1527e6e243f573d63
# Parent  4eb225e610dc3ba17b31b2650476ae0fd8839ae1
init update

diff -r 4eb225e610dc -r 5fd0502a3231 .stumpwm.d/init.lisp
--- a/.stumpwm.d/init.lisp	Tue Jul 02 20:11:18 2024 -0400
+++ b/.stumpwm.d/init.lisp	Thu Jul 04 20:40:22 2024 -0400
@@ -2,6 +2,14 @@
 
 (in-package :stumpwm)
 
+(defvar *stumpwm-port* 4004)
+(ql:quickload :swank)
+(require :swank)
+(swank-loader:init)
+(ignore-errors
+ (swank:create-server :port *stumpwm-port*
+                      :style swank:*communication-style*))
+
 (setq *mouse-focus-policy*    :sloppy
       *float-window-modifier* :SUPER
       *startup-message* "Greetings, stranger.")
@@ -18,12 +26,6 @@
 (setq *mode-line-timeout* 4)
 
 (when *initializing*
-  (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"))