gistfile1.clj

(defn read-symbol 
  "Read a single symbol from a string returning nil on failure"
  [s]
  (read s false nil))

(defn get-response 
  "Get a response from the given string"
  [s]
  (with-open [r (PushbackReader. (StringReader. s))]
    (let [x (doall (take-while #(not (nil? %)) (repeatedly #(read-symbol r))))]
      (use-eliza-rules x))))

(defn eliza-ui []
  (let [frame (JFrame. "Eliza")
	pane (JPanel.)
	user-input (JTextField.)
	eliza-output (JLabel. "")
	key-handler (proxy [KeyAdapter] []
		      (keyReleased [keyEvent]
				  (when (= (KeyEvent/VK_ENTER) (.getKeyCode keyEvent))
				    (let [input (.getText user-input)]
				      (.setText user-input "")
				      (.setText eliza-output (apply str 
								    (interleave 
								     (doall (get-response input))
								     (repeat \space))))))))]
    (.addKeyListener user-input key-handler)
    (doto pane
      (.setLayout (BoxLayout. pane BoxLayout/Y_AXIS))
      (.add (JLabel. "Eliza - How may I help?"))
      (.add user-input)
      (.add (JLabel. "Listen:"))
      (.add eliza-output))
    (doto frame
      (.add pane)
      (.setSize 300 300)
      (.setVisible true))))