diff options
Diffstat (limited to 'cider-doc.el')
| -rw-r--r-- | cider-doc.el | 11 |
1 files changed, 10 insertions, 1 deletions
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 |