branch: elpa/cider
commit db972bbdfbe777272529ec848c9f1991ae94dbda
Merge: 86dd3fee9d ec64d73fa0
Author: Arne Brasseur <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #3177 from clojure-emacs/arne/colorize-test-assertion
Apply colorization on actual/expected test output
---
CHANGELOG.md | 1 +
cider-test.el | 9 ++++++---
2 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/CHANGELOG.md b/CHANGELOG.md
index 2ea008ec03..770e16d26b 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -4,6 +4,7 @@
### Changes
+* [#3177](https://github.com/clojure-emacs/cider/pull/3177) Apply ANSI
colorization to test assertion output.
* Use clojure-mode
[5.14.0](https://github.com/clojure-emacs/clojure-mode/blob/v5.14.0/CHANGELOG.md#5140-2022-03-07).
* [#3170](https://github.com/clojure-emacs/cider/issues/3170) Skip ensure repl
available on xref functions.
* [#3173](https://github.com/clojure-emacs/cider/issues/3173) Locally remove
`cider-complete-at-point` from `completion-at-point-functions` instead of
killing it as a local variable.
diff --git a/cider-test.el b/cider-test.el
index 126b869ace..e702498620 100644
--- a/cider-test.el
+++ b/cider-test.el
@@ -28,6 +28,7 @@
;;; Code:
+(require 'ansi-color)
(require 'button)
(require 'cl-lib)
(require 'easymenu)
@@ -395,9 +396,11 @@ With the actual value, the outermost '(not ...)'
s-expression is removed."
(insert-align-label (s)
(insert (format "%12s" s)))
(insert-rect (s)
- (insert-rectangle (thread-first s
- cider-font-lock-as-clojure
- (split-string "\n")))
+ (let ((start (point)))
+ (insert-rectangle (thread-first s
+ cider-font-lock-as-clojure
+ (split-string "\n")))
+ (ansi-color-apply-on-region start (point)))
(beginning-of-line)))
(cider-propertize-region (cider-intern-keys (cdr test))
(let ((beg (point))
