diff options
| -rw-r--r-- | CHANGELOG.md | 1 | ||||
| -rw-r--r-- | cider-doc.el | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/CHANGELOG.md b/CHANGELOG.md index fc54355f..cb1e0336 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -5,6 +5,7 @@ ### New Features * [#1825](https://github.com/clojure-emacs/cider/issues/1825): Display test input generated by `test.check`. +* [#1769](https://github.com/clojure-emacs/cider/issues/1769): Display function spec in the doc buffers. ### Changes diff --git a/cider-doc.el b/cider-doc.el index 40f0e075..667aab47 100644 --- a/cider-doc.el +++ b/cider-doc.el @@ -394,6 +394,7 @@ Tables are marked to be ignored by line wrap." (javadoc (nrepl-dict-get info "javadoc")) (super (nrepl-dict-get info "super")) (ifaces (nrepl-dict-get info "interfaces")) + (spec (nrepl-dict-get info "spec")) (clj-name (if ns (concat ns "/" name) name)) (java-name (if member (concat class "/" member) class)) (see-also (nrepl-dict-get info "see-also"))) @@ -455,6 +456,10 @@ Tables are marked to be ignored by line wrap." (browse-url (button-get x 'url)))) (insert ".\n")) (insert "\n") + (when spec + (emit "Spec: " 'font-lock-function-name-face) + (mapc (lambda (s) (insert s "\n")) spec) + (insert "\n")) (if cider-docview-file (progn (insert (propertize (if class java-name clj-name) |