 (defn write-stdout-repl
   "Write a stdout message for to the REPL output."
   [s]
-  (swap! repl-output conj s)
+  (swap! repl-output conj s);; probably should limit history
   (update-repl-output))
 
 (def write-value-repl write-stdout-repl)

      (.addKeyListener textArea 
        (proxy [java.awt.event.KeyAdapter] []          
          (keyPressed [#^java.awt.event.KeyEvent e]
            (when (= (.getKeyCode e) java.awt.event.KeyEvent/VK_ENTER)
              (.append textArea "\n")
              ;; This shouldn't be here:

                      line (.getText textArea startPosition (- (.getLength (.getDocument textArea)) startPosition 1))
                      ;response-vals (nrepl/message (:client @repl) {:op "eval" :code line})
                      #_session-sender #_(nrepl/client-session @reply.eval-modes.nrepl/current-connection :session @reply.eval-modes.nrepl/current-session)]
                  (reset! repl-input-index 0)
                  (.setText textArea "")
                  (eval-and-print line true)           
                  ;; Add to a console history
