Cleanup for slynk

Remove Swank stuff and cleanup slynk

diff --git a/init.lisp b/init.lisp
index a7d67fccc486509626179cdd8fcca989de389ae3..3391ed78a0a9f73289c1a1a9fecf44de9a30aff4 100644 (file)
--- 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 2c73b06b819fad26c759b271251be6b12c0624e1..b26e5ad3b4d15b2237d5f5640e9ecdb9b7cecad7 100644 (file)
--- 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 (file)
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)