Added a SWANK server

1 files changed, 20 insertions, 1 deletions

diff --git a/src/main.lisp b/src/main.lisp
index 862526b..a113ab0 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -5,6 +5,7 @@
   (:use :c2cl :ukkoclot/bot :ukkoclot/config :ukkoclot/inline-bots :ukkoclot/tg)
   (:import-from :anaphora :acond :awhen :it)
   (:import-from :log)
+  (:import-from :swank)
   (:import-from :ukkoclot/bot :make-bot :bot-power-on :fixup-value)
   (:import-from :ukkoclot/db :with-db)
   (:import-from :ukkoclot/strings :escape-xml :is-tg-whitespace-str :starts-with :starts-with-ignore-case)
@@ -21,16 +22,34 @@
          (error (err) (report-error bot ,evt err)))
        (progn ,@body)))
 
+(defun start-swank (port)
+  (log:info "Starting a SWANK server on port ~A..." port)
+  (swank:create-server :port port :dont-close t)
+  (log:info "SWANK started.  You can connect to it by forwarding ports via SSH: `ssh -L~A:127.0.0.1:~A username@server.com'" port port)
+  (log:info "And then afterwards M-x slime-connect giving localhost and ~A" port))
+
+(defun stop-swank (port)
+  (log:info "Stopping the SWANK server on port ~A..." port)
+  (swank:stop-server port)
+  (log:info "Done"))
+
 (defun main ()
   (unwind-protect
        (let ((config (config-load #P"config.default.lisp")))
          (config-merge config #P"config.lisp")
          (log:info "Starting up ~A" (config-bot-name config))
+         (main-with-config config))
+    (log:info "Quitting!")))
+
+(defun main-with-config (config)
+  (unwind-protect
+       (progn
+         (start-swank (config-swank-port config))
          (with-db (db (config-db-path config))
            (let ((bot (make-bot config db)))
              ;; TODO: Catch fatal errors & report them
              (wrapped-main bot config))))
-    (log:info "We're done!")))
+    (stop-swank (config-swank-port config))))
 
 (defun wrapped-main (bot config)
   (when *in-prod*