                  ))
         ]))))
 
+(defn- stack-trace-element->row-markup
+  [element]
+  [:tr
+   [:td (to-markup element)]])
+
 (defn- exception->markup 
   "Given an analyzed exception, generate markup for it."
   [{:keys [class message properties stack-trace]}]

      (catch Throwable t
        ;; TODO: logging!
        (->          
          (build-report twixt t)
          #_ (spy "report")
          response
          (content-type "text/html")

        [:div.alert.alert-danger (h (exception-message exception))]
        ]
       ]
      (write-exception-stack exception)
      
      [:h3 "Request"]
      
      (to-markup request)  
      
      [:h3 "System Properties"]
      (to-markup (System/getProperties))          
      ]
     ]))

