Skip to content

Commit d6d0920

Browse files
bbatsovcap10morgan
authored andcommitted
Rename cider-irender to cider-inspector-render
1 parent bf2d581 commit d6d0920

File tree

1 file changed

+9
-9
lines changed

1 file changed

+9
-9
lines changed

cider-inspector.el

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -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 "\nInspector 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

Comments
 (0)