diff options
author | Jeff Valk <jv@jeffvalk.com> | 2014-06-11 22:43:43 -0400 |
---|---|---|
committer | Jeff Valk <jv@jeffvalk.com> | 2014-06-15 20:46:50 -0400 |
commit | a2b37dd28aaf335215a6563fd6193bfc17d41fa8 (patch) | |
tree | 66b8c7addd2756ee572200a0824f52bdd3153d60 /cider-util.el | |
parent | 462257ce1ee3d09236a347e3731e120d3c3bf7b5 (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.el | 7 |
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) |