(import
  '(javax.swing JFrame JLabel JTextField JButton SwingUtilities)
  '(java.awt.event ActionListener)
  '(java.awt GridLayout))

(defn celcius []
  (let [frame (JFrame. "Celcius Converter")
        temp-text (JTextField.)
        celsius-label (JLabel. "Celcius")
        convert-button (JButton. "Convert")
        fahrenheit-label (JLabel. "Farenheit")]
    (.addActionListener convert-button
      (proxy [ActionListener] []
        (actionPerformed [evt]
          (let [c (. Double parseDouble (.getText temp-text))]
            (.setText fahrenheit-label
              (str (+ 32 (* 1.8 c)) " Fahrenheit"))))))
    (doto frame
      (setLayout (GridLayout. 2 2 3 3))
      (add temp-text) (add celcius-label)
      (add convert-button) (add fahrenheit-label)
      (setSize 300 80) (setVisible true))))

(celcius)