Cleaning up mire.clj to use duck-streams.

technomancy · Jan 27, 2009 · df141a4 · df141a4
1 parent 1c2e0d2
commit df141a4
Showing 1 changed file with 9 additions and 11 deletions.
diff --git a/src/mire.clj b/src/mire.clj
@@ -1,17 +1,15 @@
 #!/usr/bin/env clj
 
 (ns mire
-  (:use [clojure.contrib server-socket])
+  (:use [clojure.contrib server-socket duck-streams]))
-  (:import [java.io InputStreamReader OutputStreamWriter]
-           [clojure.lang LineNumberingPushbackReader]))
 
-(def port 3333)
+(def port (* 3 1111))
 
-(defn- mire-handle-client [ins outs]
+(defn mire-handle-client [in out]
-  (binding [*in* (LineNumberingPushbackReader. (InputStreamReader. ins))
+  (binding [*in* (reader in)
-            *out* (OutputStreamWriter. outs)]
+            *out* (writer out)]
-    (loop [input (read-line)]
+    (loop []
-      (println input)
+      (println (read-line))
-      (recur (read-line)))))
+      (recur))))
 
-(defonce *server* (create-server port mire-handle-client))
+(def server (create-server port mire-handle-client))