branch: elpa/cider
commit 85cb9f5c80caceb03b197e73e5c7f4330088c7f6
Author: Oleksandr Yakushev <a...@bytopia.org>
Commit: Oleksandr Yakushev <a...@bytopia.org>
[inspector] Clean up references to javadoc fragments
---
cider-inspector.el | 24 ++++++------------------
1 file changed, 6 insertions(+), 18 deletions(-)
diff --git a/cider-inspector.el b/cider-inspector.el
index dd24103ad9..afeae400bc 100644
--- a/cider-inspector.el
+++ b/cider-inspector.el
@@ -612,10 +612,6 @@ instead of just its \"value\" entry."
(let* ((value (if v2
(nrepl-dict-get dict-or-value "value")
dict-or-value))
- (fragments (when v2
- (nrepl-dict-get dict-or-value "doc-fragments")))
- (block-tags (when v2
- (nrepl-dict-get dict-or-value
"doc-block-tags-fragments")))
(ns (cider-current-ns))
(font-size (when-let* ((b (get-buffer cider-inspector-buffer))
(variable 'text-scale-mode-amount)
@@ -633,9 +629,7 @@ instead of just its \"value\" entry."
(cider-inspector-render cider-inspector-buffer value
:font-size font-size
:truncate-lines-defined truncate-lines-defined
- :truncate-lines-p truncate-lines-p
- :fragments fragments
- :block-tags block-tags)
+ :truncate-lines-p truncate-lines-p)
(cider-popup-buffer-display cider-inspector-buffer
cider-inspector-auto-select-buffer)
(when cider-inspector-fill-frame (delete-other-windows))
(ignore-errors (cider-inspector-next-inspectable-object 1))
@@ -655,7 +649,7 @@ instead of just its \"value\" entry."
(when cider-inspector-page-location-stack
(goto-char (pop cider-inspector-page-location-stack)))))))
-(cl-defun cider-inspector-render (buffer str &key font-size
truncate-lines-defined truncate-lines-p fragments block-tags)
+(cl-defun cider-inspector-render (buffer str &key font-size
truncate-lines-defined truncate-lines-p)
"Render STR in BUFFER."
(with-current-buffer buffer
(cider-inspector-mode)
@@ -665,23 +659,17 @@ instead of just its \"value\" entry."
(setq-local truncate-lines truncate-lines-p))
(let ((inhibit-read-only t))
(condition-case nil
- (cider-inspector-render* (car (read-from-string str))
- fragments
- block-tags)
+ (cider-inspector-render* (car (read-from-string str)))
(error (insert "\nInspector error for: " str))))
(goto-char (point-min))))
(defvar cider-inspector-looking-at-java-p nil)
-(defun cider-inspector-render* (elements &optional fragments block-tags)
- "Render ELEMENTS, and FRAGMENTS, BLOCK-TAGS if present."
+(defun cider-inspector-render* (elements)
+ "Render ELEMENTS."
(setq cider-inspector-looking-at-java-p nil)
(dolist (el elements)
- (cider-inspector-render-el* el))
- (when fragments
- (insert "\n\n")
- (insert (cider--render-docstring (list "doc-fragments" fragments
- "doc-block-tags-fragments"
block-tags)))))
+ (cider-inspector-render-el* el)))
(defconst cider--inspector-java-headers
;; NOTE "--- Static fields:" "--- Instance fields:" are for objects,
