A keypress listener using Jline and Clojure futures.

key-listener.clj

(ns keylistener.core
  (:require [clojure.java.io :as io])
  (:import [jline.console ConsoleReader])
  (:gen-class))

(def console (ConsoleReader.))

(defn keypress-loop []
  (let [char (.readCharacter console)]
    (if (not (nil? char))
      char
      (recur))))

(defn main-thread [n listener]
  (println n)
  (Thread/sleep 500)
  (if (future-done? listener)
    (do (println (str "You pressed char: " @listener))
        (recur (inc n) (future (keypress-loop))))
    (recur (inc n) listener)))

(defn -main [& args]
 (let [listener (future (keypress-loop))]
   (main-thread 0 listener)))