From f4eb5ce4b6ecf70f4b142b1832da8f9f2a332204 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Wed, 16 Jul 2025 12:14:44 -0700
Subject: stumpwm: Stop swank when stumpwm restarts

Otherwise we end up with errors starting another server whenever we restart
stumpwm for some reason.
---
 oni/home/services/stumpwm/stumpwm.lisp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/oni/home/services/stumpwm/stumpwm.lisp b/oni/home/services/stumpwm/stumpwm.lisp
index 5bf8e91..0630dac 100644
--- a/oni/home/services/stumpwm/stumpwm.lisp
+++ b/oni/home/services/stumpwm/stumpwm.lisp
@@ -167,6 +167,11 @@ after it has been unlocked."
 (undefine-key stumpwm::*tile-group-root-map* (kbd "o"))
 (undefine-key stumpwm::*group-root-map* (kbd "o"))
 
+(defun stop-swank ()
+  (swank:stop-server 4005))
+
 (swank:create-server :dont-close t)
 
+(add-hook *restart-hook* 'stop-swank)
+
 (which-key-mode)
-- 
cgit v1.3-2-g0d8e