safety net in interactive swing development

debug.clj

(ns se.raek.kerodon.debug
  (:import (javax.swing JFrame JOptionPane JTextArea)))

(defn debug-frame [thing]
  (doto (JFrame. "Debug Frame")
    (.add thing)
    (.pack)
    (.show)))

(defn debug-message [msg]
  (JOptionPane/showMessageDialog nil msg "Debug MEssage" JOptionPane/PLAIN_MESSAGE))

(defn debug-text [text]
  (doto (JFrame. "Debug Text")
    (.add (JTextArea. text))
    (.pack)
    (.show)))

error.clj

(ns se.raek.kerodon.error
  (:use se.raek.kerodon.debug))

(defn exception-text [^Throwable e]
  (let [sw (java.io.StringWriter.)
        pw (java.io.PrintWriter. sw)]
    (.printStackTrace e pw)
    (.toString sw)))

(defn handle-error [e]
  (debug-text (exception-text e)))

(defmacro safety-net [& body]
  `(try
     ~@body
     (catch InterruptedException e#
       (throw e#))
     (catch Throwable e#
       (handle-error e#))))