[elpa] externals/inspector 5b808173cc 52/93: Slice with [more] button

[ELPA Syncer]

branch: externals/inspector
commit 5b808173cc76e208ce22e92e9245a5a22216b55f
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>

    Slice with [more] button
---
 inspector.el | 31 ++++++++++++++++++-------------
 1 file changed, 18 insertions(+), 13 deletions(-)

diff --git a/inspector.el b/inspector.el
index 37e32d7d68..ac65e192d7 100644
--- a/inspector.el
+++ b/inspector.el
@@ -172,6 +172,22 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
     (when slice
       (funcall function slice (lambda () (inspector--do-with-slicer slicer 
function))))))
 
+(defun inspector--do-with-slicer-and-more-button (slicer function)
+  (inspector--do-with-slicer
+   slicer
+   (lambda (slice cont)
+     (funcall function slice cont)
+     (insert-button "[More]"
+                   'action (let ((pos (point)))
+                             (lambda (btn)
+                               (ignore btn)
+                               (setq buffer-read-only nil)
+                               (goto-char pos)
+                               (delete-char (length "[More]"))
+                               (funcall cont)
+                               (setq buffer-read-only nil)))
+                       'follow-link t))))
+
 (cl-defgeneric inspect-object (object)
   "Main generic interface for filling inspector buffers for the different 
types of OBJECT.")
 
@@ -294,7 +310,7 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
     (inspector--insert-title "Proper list")
     (let ((i 0)
          (j 0))
-      (inspector--do-with-slicer
+      (inspector--do-with-slicer-and-more-button
        (lambda ()
         (when (< i (length cons))
           (subseq cons i (min (incf i inspector-slice-size)
@@ -304,18 +320,7 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
            (insert (format "%d: " j))
           (incf j)
            (inspector--insert-inspect-button elem)
-           (newline))
-        (insert-button "[More]"
-                       'action (let ((pos (point)))
-                                 (lambda (btn)
-                                   (ignore btn)
-                                   (setq buffer-read-only nil)
-                                   (goto-char pos)
-                                   (delete-char (length "[More]"))
-                                   (funcall cont)
-                                   (setq buffer-read-only nil)
-                                   ))
-                       'follow-link t))))) 
+           (newline))))))
    (t ;; It is a cons cell
     (inspector--insert-title "Cons cell")
     (insert "CAR: ")