summaryrefslogtreecommitdiff
path: root/cider-util.el
diff options
context:
space:
mode:
authorJeff Valk <jv@jeffvalk.com>2014-06-11 22:43:43 -0400
committerJeff Valk <jv@jeffvalk.com>2014-06-15 20:46:50 -0400
commita2b37dd28aaf335215a6563fd6193bfc17d41fa8 (patch)
tree66b8c7addd2756ee572200a0824f52bdd3153d60 /cider-util.el
parent462257ce1ee3d09236a347e3731e120d3c3bf7b5 (diff)
[Fix #613] Add clojure.test integration.
Add 'cider-test' to replace the venerable, now-retired 'clojure-test-mode'.
Diffstat (limited to 'cider-util.el')
-rw-r--r--cider-util.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/cider-util.el b/cider-util.el
index adf243a3..56d646c9 100644
--- a/cider-util.el
+++ b/cider-util.el
@@ -83,6 +83,13 @@ PROP is the name of a text property."
(assert (get-text-property (point) prop))
(let ((end (next-single-char-property-change (point) prop)))
(list (previous-single-char-property-change end prop) end)))
+
+(defun cider-insert (text &optional face break more-text)
+ "Insert TEXT with FACE, optionally followed by a line BREAK and MORE-TEXT."
+ (insert (if face (propertize text 'face face) text))
+ (when more-text (insert more-text))
+ (when break (insert "\n")))
+
;;; Font lock
(defun cider-font-lock-as (mode string)