diff options
-rw-r--r-- | CHANGELOG.md | 4 | ||||
-rw-r--r-- | cider-doc.el | 11 |
2 files changed, 14 insertions, 1 deletions
diff --git a/CHANGELOG.md b/CHANGELOG.md index b7462d38..54cf8106 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -2,6 +2,10 @@ ## master (unreleased) +### Changes + +* [#2151](https://github.com/clojure-emacs/cider/pull/2151) Improve formatting of spec in `cider-doc` buffer + ## 0.16.0 (2017-12-28) ### New Features diff --git a/cider-doc.el b/cider-doc.el index c678575c..aadd0dd3 100644 --- a/cider-doc.el +++ b/cider-doc.el @@ -462,7 +462,16 @@ Tables are marked to be ignored by line wrap." (insert "\n") (when spec (emit "Spec: " 'font-lock-function-name-face) - (mapc (lambda (s) (insert s "\n")) spec) + (dolist (part spec) + (let ((role (car part)) + (desc (cadr part))) + (insert (format "%-4s: " role)) + (thread-first desc + cider-sync-request:format-code + cider-font-lock-as-clojure + (split-string "\n") + insert-rectangle)) + (insert "\n")) (insert "\n")) (if cider-docview-file (progn |