Async vimclojure

vim.core.clj

(ns vim.core)

(defn async* [f] 
  (future 
    (let [result (with-out-str 
                   (try 
                    (println (f))
                   (catch Exception e 
                     (.printStackTrace e 
                                       (java.io.PrintWriter. *out*))))) ]
      (javax.swing.SwingUtilities/invokeLater
      (fn []
        (doto (javax.swing.JDialog.)
          (.setTitle "Vim Async Result")
          (.setContentPane
            (javax.swing.JScrollPane.
              (doto (javax.swing.JTextArea.)
                (.setText result))))
          (.setSize 640 480)
          (.setModal true)
          (.setVisible true)))))))

(defmacro async [& body]
  `(async* (fn [] ~@body)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Usage: in a temp buffer ...

(use 'vim.core :reload)

(async
  (doseq [t (range 0 100)]
    (Thread/sleep 15)
    (println t))
  "DONE!")

; ... and then ,ef