Clojure ... interoperabilidad con Java: JOptionPane (2)

En el post anterior se trato de JOptionPane, algunos ejemplos del uso de los métodos showInputDialog y showMessageDialog.

En esta ocasión usaremos el método showConfirmDialog para hacer una pregunta.

Código Clojure

;;Importamos la librería javax.swing
(import '(javax.swing JOptionPane));'

(try

;; variable "pregunta"
(def pregunta  
   (JOptionPane/showConfirmDialog nil,
      (str "Estas de acuerdo en que Clojure es mejor que Lisp?")
    )
)
   
  ;;la variable pregunta devolverá un valor entre 0, si es OK; 1, si es No; 2, si es Cancelar
   (if (= pregunta 0) 

      (JOptionPane/showMessageDialog nil,
        (str "Bien, estas de acuerdo")
       )

       (if (= pregunta 1)
          (JOptionPane/showMessageDialog nil,
            (str "Claro, entiendo que no todos pueden estar de acuerdo")
          )

          ((JOptionPane/showMessageDialog nil,
            (str "Operacion cancelada"))
          )
          
       )
       
    )

 (catch Exception e (str "error: " (.getMessage e)))
)


Ejecutamos:
java -jar  clojure-1.6.0.jar matematico.clj