          (apply concat           
                 (for [k (-> properties keys sort)]
                   [[:dt (-> k name h)] [:dd (-> (get properties k) to-markup)]]))
-         ])
-      ]
+         ])]
+     (when-not (empty? stack-trace)
+       [:table.table.table-hover.table-condensed.table-striped.table-bordered
+        (map stack-trace-element->row-markup stack-trace)])
+     
      ]))
 
 (defn- match-keys 


(defn build-report
  "Builds an HTML exception report (as a string)."
  [twixt exception]
  (html5
    [:head
     [:title "Exception"]

                 ))
        ]))))

(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]}]
