@@ -536,9 +536,19 @@ instead of just its \"value\" entry."
536
536
; ; The font size is lost between inspector 'screens',
537
537
; ; because on each re-rendering, we wipe everything, including the mode.
538
538
; ; Enabling cider-inspector-mode is the specific step that loses the font size.
539
- (buffer-local-value variable b))))
539
+ (buffer-local-value variable b)))
540
+ (truncate-lines-defined (when-let* ((b (get-buffer cider-inspector-buffer)))
541
+ (local-variable-p 'truncate-lines b)))
542
+ (truncate-lines-p (when-let* ((b (get-buffer cider-inspector-buffer))
543
+ (continue truncate-lines-defined))
544
+ (buffer-local-value 'truncate-lines b))))
540
545
(cider-make-popup-buffer cider-inspector-buffer 'cider-inspector-mode 'ancillary )
541
- (cider-inspector-render cider-inspector-buffer value font-size fragments block-tags))
546
+ (cider-inspector-render cider-inspector-buffer value
547
+ :font-size font-size
548
+ :truncate-lines-defined truncate-lines-defined
549
+ :truncate-lines-p truncate-lines-p
550
+ :fragments fragments
551
+ :block-tags block-tags))
542
552
(cider-popup-buffer-display cider-inspector-buffer cider-inspector-auto-select-buffer)
543
553
(when cider-inspector-fill-frame (delete-other-windows ))
544
554
(ignore-errors (cider-inspector-next-inspectable-object 1 ))
@@ -557,12 +567,14 @@ instead of just its \"value\" entry."
557
567
(when cider-inspector-page-location-stack
558
568
(goto-char (pop cider-inspector-page-location-stack))))))
559
569
560
- (defun cider-inspector-render (buffer str &optional font-size fragments block-tags )
570
+ (cl- defun cider-inspector-render (buffer str &key font-size truncate-lines-defined truncate-lines-p fragments block-tags )
561
571
" Render STR in BUFFER."
562
572
(with-current-buffer buffer
563
573
(cider-inspector-mode)
564
574
(when font-size
565
575
(text-scale-set font-size))
576
+ (when truncate-lines-defined
577
+ (setq-local truncate-lines truncate-lines-p))
566
578
(let ((inhibit-read-only t ))
567
579
(condition-case nil
568
580
(cider-inspector-render* (car (read-from-string str))
@@ -574,7 +586,7 @@ instead of just its \"value\" entry."
574
586
(defvar cider-inspector-looking-at-java-p nil )
575
587
576
588
(defun cider-inspector-render* (elements &optional fragments block-tags )
577
- " Render ELEMENTS, and FRAGMENTS if present."
589
+ " Render ELEMENTS, and FRAGMENTS, BLOCK-TAGS if present."
578
590
(setq cider-inspector-looking-at-java-p nil )
579
591
(dolist (el elements)
580
592
(cider-inspector-render-el* el))
0 commit comments