Fingure: hyper-minimal finger server in Clojure.

fingure.clj

(ns fingure.core
  (:gen-class))

(use 'lamina.core 'aleph.tcp 'gloss.core)

(defn response [query]
	(println (count query))
	(if (clojure.string/blank? query)
		"Greetings from the fingure finger daemon."
		(str "Greetings from the fingure finger daemon.\r\nNo information about " query " found.")))

(defn handler [ch client-info]
  (receive-all ch
    #(enqueue-and-close ch (response %))))

(defn -main[]
	(start-tcp-server handler {:port 79, :frame (string :utf-8 :delimiters ["\r\n"])}))

fingure.txt

$ finger @localhost
[localhost]
Trying 127.0.0.1...
Greetings from the fingure finger daemon.

$ finger foo@localhost
[localhost]
Trying 127.0.0.1...
Greetings from the fingure finger daemon.
No information about foo found.