hello jwt in clojure : hello.clj

hello.clj

(ns jwt-examples.hello)

(defmacro create-listener [args & body]
  (let [argsnum (if (< 0 (count args)) (count args) "") ]
    `(proxy [ ~(symbol (str "Signal" argsnum "$Listener")) ] [] (trigger ~args ~@body))))

(import [eu.webtoolkit.jwt WObject Signal WApplication WBreak WtServlet
         WEnvironment WLineEdit WPushButton WText Signal$Listener Signal1
         EventSignal WWidget Side]
        [java.util EnumSet])

(defn- make-app [env]
  (let [wapp (doto (WApplication. env)
               (.setTitle "Hello world"))           
        root (.getRoot wapp)
        name-edit (doto (WLineEdit.)
                    (.setFocus))
        greeting (WText.)]
    (WText. "Your name, please? " root)
    (.addWidget root name-edit)
    (.. (doto (WPushButton. "Greet me." root)
          (.setMargin 5 (EnumSet/of Side/Left))) clicked 
        (addListener  
          wapp
          (create-listener [] 
                           (.setText greeting (.getText name-edit)))))
    (.. name-edit enterPressed 
        (addListener 
          wapp  
          (create-listener [] 
                           (.setText greeting (.getText name-edit)))))
    (WBreak. root)
    (.addWidget root greeting)
    wapp))

(defn make-servlet []
  (proxy [WtServlet] []
    (createApplication [env]
                       (make-app env))))