From f7079555b39f1506b7296ecdacd824ad1ec9ab87 Mon Sep 17 00:00:00 2001 From: Tianxiang Xiong Date: Tue, 2 Jan 2018 23:21:53 -0800 Subject: [Fix #2150] Improve formatting of spec in `cider-doc` buffer (#2151) Font-lock and align spec in `cider-doc` buffer properly. --- cider-doc.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'cider-doc.el') 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 -- cgit v1.2.3