listener.clj

(ns listener
  (:require [clojure.java.io :as io])
  (:import [java.net ServerSocket Socket])
  (:import [java.io InputStreamReader BufferedReader]))

(def settings {:client-port 5000})

(defn get-reader [socket]
  (BufferedReader. (InputStreamReader. (.getInputStream socket))))

(defn accept-client [server-socket]
  (with-open [client-socket (.accept server-socket)
              reader (get-reader client-socket)]
    (println (. reader readLine))))

(defn accept-clients [server-socket]
  (repeatedly #(accept-client server-socket)))

(defn start-server [port]
  (with-open [socket (new ServerSocket port)]
    (dorun (accept-clients socket))))

(start-server (:client-port settings))