@@ -94,7 +94,7 @@ The page size can be also changed interactively within the inspector."
9494; ; Operations
9595(defun cider-inspector--value-handler (_buffer value )
9696 (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))
9898
9999(defun cider-inspector--out-handler (_buffer value )
100100 (cider-emit-interactive-eval-output value))
@@ -176,33 +176,33 @@ Current page will be reset to zero."
176176 (cider-inspector-response-handler (current-buffer ))))
177177
178178; ; Render Inspector from Structured Values
179- (defun cider-irender (buffer str )
179+ (defun cider-inspector-render (buffer str )
180180 (with-current-buffer buffer
181181 (cider-inspector-mode)
182182 (let ((inhibit-read-only t ))
183183 (condition-case nil
184- (cider-irender * (car (read-from-string str)))
184+ (cider-inspector-render * (car (read-from-string str)))
185185 (error (insert " \n Inspector error for: " str))))
186186 (goto-char (point-min ))))
187187
188- (defun cider-irender * (elements )
188+ (defun cider-inspector-render * (elements )
189189 (dolist (el elements)
190- (cider-irender -el* el)))
190+ (cider-inspector-render -el* el)))
191191
192- (defun cider-irender -el* (el )
192+ (defun cider-inspector-render -el* (el )
193193 (cond ((symbolp el) (insert (symbol-name el)))
194194 ((stringp el) (insert (propertize el 'font-lock-face 'font-lock-keyword-face )))
195195 ((and (consp el) (eq (car el) :newline ))
196196 (insert " \n " ))
197197 ((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)))
199199 (t (message " Unrecognized inspector object: %s " el))))
200200
201- (defun cider-irender -value (value idx )
201+ (defun cider-inspector-render -value (value idx )
202202 (cider-propertize-region
203203 (list 'cider-value-idx idx
204204 'mouse-face 'highlight )
205- (cider-irender -el* (cider-font-lock-as-clojure value))))
205+ (cider-inspector-render -el* (cider-font-lock-as-clojure value))))
206206
207207
208208; ; ===================================================
0 commit comments