   (on ::repl-ready #(println "repl ready"))
   (event ::repl-exit)
 
-  (event ::repl-write :text "(println \"hello world\")"))
+  (event ::repl-write :text "(println \"hello world\")")) 
 
 ;; GUI part
 

                                    length (.getLength doc)]
                                (.insertString doc length % nil)))]

    (EDT (.setEditable input false))
    
    (EDT (.setEditable history false))

    (EDT (.setVerticalScrollBarPolicy scroll (JScrollPane/VERTICAL_SCROLLBAR_ALWAYS)))
    (EDT (.setHorizontalScrollBarPolicy scroll (JScrollPane/HORIZONTAL_SCROLLBAR_NEVER)))
    
    (doto group
      (add! (sg-component scroll 500 300))

  (start-repl-thread))

(comment
  (start-repl-thread)

  (on ::repl-exception #(println (str "exception: " (:text %))))
