Add swank support.

ivy.xml

@@ -16,5 +16,6 @@
     <dependency name="commons-logging" rev="1.1.1"/>
     <dependency name="ezmorph" rev="1.0.5"/>
     <dependency name="json-lib" rev="2.2.2-jdk15"/>
+    <dependency name="swank" rev="20090804201540+bfb55c4"/>
   </dependencies>
 </ivy-module>

src/com/draines/clot/irc.clj

@@ -493,6 +493,8 @@
                        :channels channels
                        :password password})]
     (log conn (format "log-in: logging in to %s" host port))
+    (when-not conn
+      (System/exit 1))
     (when conn
       (register-connection conn)
       (when password

src/com/draines/clot/main.clj

@@ -1,19 +1,34 @@
 (ns com.draines.clot.main
   (:gen-class)
   (:require [com.draines.clot.irc :as clot]
-            [clojure.contrib.str-utils :as str-utils]))
+            [clojure.contrib.str-utils :as str-utils])
+  (:use [swank.swank :only [ignore-protocol-version start-server]]
+        [clojure.main :only [repl]]))
 
 (defn setup! []
   (clot/start-watcher!)
   (clot/register-handler 'com.draines.clot.handlers.google)
   (clot/register-handler 'com.draines.clot.handlers.tumblr)
   (clot/register-handler 'com.draines.clot.handlers.bandname))
 
+(defn swank! [port]
+  (let [stop (atom false)]
+    (repl :read (fn [rprompt rexit]
+                  (if @stop
+                    rexit
+                    (do
+                      (swap! stop (fn [_] true))
+                      `(do
+                         (ignore-protocol-version "2009-02-24")
+                         (start-server "/tmp/slime-port.txt" :encoding "iso-latin-1-unix" :port ~port)))))
+          :need-prompt #(identity false))))
+
 (defn -main [host port nick password & channels]
   (let [port (Integer/parseInt port)
         password (when-not (= "nil" password) password)
         channels (str-utils/re-split #" " (first channels))]
     (setup!)
+    (swank! 14005)
     (let [c (clot/log-in host port nick channels password)]
       (Thread/sleep 3000)
       (clot/log c (format "connection errors: %s" (clot/connection-agent-errors c))))))