main.clj

(defn make-repl-jframe
  "Displays a JFrame with JConsole and attached REPL."
  ([] (make-repl-jframe {}))
  ([optmap]
   (let [jframe (make-jframe (merge default-opts optmap))]
     (javax.swing.SwingUtilities/invokeAndWait
       #(let [console (bsh.util.JConsole.)]
          (doto (.getContentPane jframe)
            (.setLayout (java.awt.BorderLayout.))
            (.add console))
          (.pack jframe) 
          (binding [*out* (java.io.OutputStreamWriter. (.getOut console))
                    *in*  (clojure.lang.LineNumberingPushbackReader. (.getIn console))]
            (.start (Thread. (bound-fn [] (clojure.main/repl))))))))))