@@ -94,7 +94,7 @@ The page size can be also changed interactively within the inspector."
94
94
; ; Operations
95
95
(defun cider-inspector--value-handler (_buffer value )
96
96
(cider-make-popup-buffer cider-inspector-buffer 'cider-inspector-mode )
97
- (cider-irender cider-inspector-buffer value))
97
+ (cider-inspector-render cider-inspector-buffer value))
98
98
99
99
(defun cider-inspector--out-handler (_buffer value )
100
100
(cider-emit-interactive-eval-output value))
@@ -176,33 +176,33 @@ Current page will be reset to zero."
176
176
(cider-inspector-response-handler (current-buffer ))))
177
177
178
178
; ; Render Inspector from Structured Values
179
- (defun cider-irender (buffer str )
179
+ (defun cider-inspector-render (buffer str )
180
180
(with-current-buffer buffer
181
181
(cider-inspector-mode)
182
182
(let ((inhibit-read-only t ))
183
183
(condition-case nil
184
- (cider-irender * (car (read-from-string str)))
184
+ (cider-inspector-render * (car (read-from-string str)))
185
185
(error (insert " \n Inspector error for: " str))))
186
186
(goto-char (point-min ))))
187
187
188
- (defun cider-irender * (elements )
188
+ (defun cider-inspector-render * (elements )
189
189
(dolist (el elements)
190
- (cider-irender -el* el)))
190
+ (cider-inspector-render -el* el)))
191
191
192
- (defun cider-irender -el* (el )
192
+ (defun cider-inspector-render -el* (el )
193
193
(cond ((symbolp el) (insert (symbol-name el)))
194
194
((stringp el) (insert (propertize el 'font-lock-face 'font-lock-keyword-face )))
195
195
((and (consp el) (eq (car el) :newline ))
196
196
(insert " \n " ))
197
197
((and (consp el) (eq (car el) :value ))
198
- (cider-irender -value (cadr el) (cl-caddr el)))
198
+ (cider-inspector-render -value (cadr el) (cl-caddr el)))
199
199
(t (message " Unrecognized inspector object: %s " el))))
200
200
201
- (defun cider-irender -value (value idx )
201
+ (defun cider-inspector-render -value (value idx )
202
202
(cider-propertize-region
203
203
(list 'cider-value-idx idx
204
204
'mouse-face 'highlight )
205
- (cider-irender -el* (cider-font-lock-as-clojure value))))
205
+ (cider-inspector-render -el* (cider-font-lock-as-clojure value))))
206
206
207
207
208
208
; ; ===================================================
0 commit comments