From f4e6c59ce591a98c558b9584d8cd193693ec0687 Mon Sep 17 00:00:00 2001 From: Juan Monetta Date: Thu, 11 Jan 2018 18:46:46 -0300 Subject: Render specs in cider-doc using `cider-browse-spec--pprint-indented` (#2154) This also adds a button to jump to the spec browser straight from the doc buffer. --- cider-doc.el | 21 +++++++++------------ 1 file changed, 9 insertions(+), 12 deletions(-) (limited to 'cider-doc.el') diff --git a/cider-doc.el b/cider-doc.el index aadd0dd3..7f7c2e97 100644 --- a/cider-doc.el +++ b/cider-doc.el @@ -36,6 +36,7 @@ (require 'org-table) (require 'button) (require 'easymenu) +(require 'cider-browse-spec) ;;; Variables @@ -461,18 +462,14 @@ Tables are marked to be ignored by line wrap." (insert ".\n")) (insert "\n") (when spec - (emit "Spec: " 'font-lock-function-name-face) - (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")) + (emit "Spec:" 'font-lock-function-name-face) + (insert (cider-browse-spec--pprint-indented spec)) + (insert "\n\n") + (insert-text-button "Browse spec" + 'follow-link t + 'action (lambda (_) + (cider-browse-spec (format "%s/%s" ns name)))) + (insert "\n\n")) (if cider-docview-file (progn (insert (propertize (if class java-name clj-name) -- cgit v1.2.3