diff options
| author |  Tom Willemse | 2025-07-16 12:14:44 -0700 |
|---|---|---|
| committer | Tom Willemse | 2025-07-16 12:14:44 -0700 |
| commit | f4eb5ce4b6ecf70f4b142b1832da8f9f2a332204 (patch) | |
| tree | 99f0ffa0f992934716a955b3b2e36f9931b31f52 | |
| parent | 31fb8b73189b53bed2944e50321f391452538dbd (diff) | |
| download | new-dotfiles-f4eb5ce4b6ecf70f4b142b1832da8f9f2a332204.tar.gz new-dotfiles-f4eb5ce4b6ecf70f4b142b1832da8f9f2a332204.zip | |
stumpwm: Stop swank when stumpwm restarts
Otherwise we end up with errors starting another server whenever we restart
stumpwm for some reason.
| -rw-r--r-- | oni/home/services/stumpwm/stumpwm.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
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) |