diff options
| author | Tianxiang Xiong <tianxiang.xiong@gmail.com> | 2018-01-02 23:21:53 -0800 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2018-01-03 09:21:53 +0200 |
| commit | f7079555b39f1506b7296ecdacd824ad1ec9ab87 (patch) | |
| tree | adb0747c70b5bc1cd86a7d09008ee8af089ce339 /cider-doc.el | |
| parent | f1dc7543cef77f560ae82c4407d9bf3787b66866 (diff) | |
[Fix #2150] Improve formatting of spec in `cider-doc` buffer (#2151)
Font-lock and align spec in `cider-doc` buffer properly.
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 |