         :scroll-pane sp
         :menus menus}))
 
-#_(defn make-repl-output-window
-    "Make an editor window."
-    [params]
-    (let [f (frame :title "Brevis - REPL Output" :width 800 :height 200 :minimum-size [800 :by 360])
-          text-area (text :multi-line? true :font "MONOSPACED-PLAIN-14"
-                                           :text "> ")
-          area (scrollable text-area)
-          listener-thread (Thread. (fn []  
-                                     (loop []
-                                       (let [resp (nrepl.transport/recv (:client @repl) 20)]
-                                         (when resp
-                                           (when (:out resp) (write-stdout-repl (:out resp)))
-                                           (when (:value resp) (write-value-repl (:value resp)))))
-                                       (recur))))]
-     (display f area)
-     (-> f pack! show!)
-     (.setLocation f 850 650)      
-     {:frame f
-      :scrollable area
-      :listener-thread listener-thread
-      :text-area text-area}))
-
 (defn make-repl-output-window
     "Make an editor window."
     [params]

    [leiningen.core.main :as lein-main])
  (:use [clojure.java.io :only [file]] 
        [clojure.pprint]
        [seesaw core font color graphics chooser mig tree]
        [brevis.ui.profile])
  (:gen-class

    (reset! current-filename (:current-filename @current-profile))
    (make-ui)
    (load-file (str "src" File/separator "brevis" File/separator "ui" File/separator "keybinds.clj"))
    (add-content-tab-from-filename @current-filename params)
    #_(when-not (empty? (:current-filename @current-profile))      
       (.setText (:text-area ew) (slurp @current-filename)))))

(when (find-ns 'ccw.complete)
  (-main))
