From: rush <rush@Thonkbook.com>
Date: Mon, 1 Sep 2025 01:54:39 +0000 (-0400)
Subject: Cleanup for slynk
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=b0f5e30d24baf7f8008ba31973bc9581829f0404;p=stumpwminit.git

Cleanup for slynk

Remove Swank stuff and cleanup slynk
---

diff --git a/init.lisp b/init.lisp
index a7d67fc..3391ed7 100644
--- a/init.lisp
+++ b/init.lisp
@@ -4,9 +4,6 @@
 (defvar *modelineinfo* "")
 (defparameter *threads* '())
 
-;; SWANK
-;; (load "~/.stumpwm.d/swank-init.lisp")
-
 ;; SLYNK
 (load "~/.stumpwm.d/slynk-init.lisp")
 
diff --git a/slynk-init.lisp b/slynk-init.lisp
index 2c73b06..b26e5ad 100644
--- a/slynk-init.lisp
+++ b/slynk-init.lisp
@@ -1,5 +1,4 @@
 (require :slynk)
-(slynk-loader:init)
 
 (defparameter *port-number* 4004)
 
diff --git a/swank-init.lisp b/swank-init.lisp
deleted file mode 100644
index 286500b..0000000
--- a/swank-init.lisp
+++ /dev/null
@@ -1,40 +0,0 @@
-(require :swank)
-(swank-loader:init)
-
-(defparameter *port-number* 4004)
-
-(defvar *swank-server-p* nil)
-
-(defcommand start-swank () ()
-  (if *swank-server-p*
-      (message "Swank server is already active on Port^5 ~a^n" *port-number*)
-      (progn
-	(swank:create-server :port *port-number*
-			     :dont-close t)
-	(setf *swank-server-p* t)
-	(message "Swank server is now active on Port^5 ~a^n.
-Use^4 M-x slime-connect^n in Emacs.
-Type^2 (in-package :stumpwm)^n in Slime REPL." *port-number*))))
-
-(defcommand stop-swank () ()
-  "Stop Swank"
-  (swank:stop-server *port-number*)
-  (setf *swank-server-p* nil)
-  (message "Stopping Swank Server! Closing Port^5 ~a^n." *port-number*))
-
-(defcommand toggle-swank () ()
-  (if *swank-server-p*
-      (run-commands "stop-swank")
-      (run-commands "start-swank")))
-
-;;modeline status
-(defun get-swank-status ()
-  (if *swank-server-p*
-      (setf *swank-ml-status* (format nil "Swank:^2 ~a^n | " *port-number*))
-      (setf *swank-ml-status* "Swank: off | ")))
-
-(defun ml-fmt-swank-status (ml)
-  (declare (ignore ml))
-  (get-swank-status))
-
-(add-screen-mode-line-formatter #\S #'ml-fmt-swank-status)