diff options
author | Tianxiang Xiong <tianxiang.xiong@fundingcircle.com> | 2017-07-07 18:08:27 -0700 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2017-07-08 07:30:38 +0300 |
commit | 72544bc0b4b4aa7ccacbecb95da1ce94b503409d (patch) | |
tree | 1ede539dc72e48ae406a80fbf35eb41ddcff9186 /cider-browse-spec.el | |
parent | 6a4ca9191d67eb733144edb451f537ce68608258 (diff) |
Fix presentation of individual spec
Remove extraneous text in title and fix font lock.
Diffstat (limited to 'cider-browse-spec.el')
-rw-r--r-- | cider-browse-spec.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/cider-browse-spec.el b/cider-browse-spec.el index 834ddb71..2a6a198b 100644 --- a/cider-browse-spec.el +++ b/cider-browse-spec.el @@ -230,17 +230,20 @@ Display SPEC as a title and uses `cider-browse-spec--pprint' to display a more user friendly representation of SPEC-FORM." (with-current-buffer buffer (let ((inhibit-read-only t)) + (cider-browse-spec-mode) (erase-buffer) (goto-char (point-max)) - (insert (format "Spec for : %s\n\n" spec)) + (insert (cider-font-lock-as-clojure spec) "\n\n") + (insert (with-temp-buffer + (clojure-mode) + (insert (cider-browse-spec--pprint spec-form)) + (indent-region (point-min) (point-max)) + (font-lock-ensure) + (buffer-string))) + (insert "\n\n") (insert-text-button "[Back]" 'action (lambda (b) (call-interactively 'cider-browse-spec--navigate-back)) 'follow-link t) - (insert "\n\n") - (insert (cider-browse-spec--pprint spec-form)) - (clojure-mode) - (indent-region (point-min) (point)) - (cider-browse-spec-mode) (goto-char (point-min))))) (defun cider-browse-spec--browse (spec) |