Add clj-stacktrace color support

technomancy · Dec 18, 2011 · 0dae29e · 0dae29e
1 parent 41550bf
commit 0dae29e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/src/swank/core.clj b/src/swank/core.clj
@@ -120,7 +120,7 @@ values."
 
 (defn- exception-str [width elem]
   (pst-elem-str
-   false
+   true
    (parse-trace-elem elem)
    width))
 

diff --git a/src/swank/payload/slime.el b/src/swank/payload/slime.el
@@ -5699,15 +5699,16 @@ Returns nil if both fails."
  (defun sldb-insert-frame (frame &optional face)
    "Insert FRAME with FACE at point.
  If FACE is nil, `sldb-compute-frame-face' is used to determine the face."
-   (setq face (or face (sldb-compute-frame-face frame)))
    (let ((number (sldb-frame.number frame))
-         (string (sldb-frame.string frame))
+         (string (ansi-color-apply (sldb-frame.string frame)))
          (props `(frame ,frame sldb-default-action sldb-toggle-details)))
      (slime-propertize-region props
        (slime-propertize-region '(mouse-face highlight)
          (insert " " (in-sldb-face frame-label (format "%2d:" number)) " ")
          (slime-insert-indented
-          (slime-add-face face string)))
+          (if face
+            (slime-add-face face string)
+            string)))
        (insert "\n"))))
 
  (defun sldb-fetch-more-frames (&rest ignore)