mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

clinspect: Auto-compute column width.

master
Pierre Neidhardt 2021-02-05 21:02:58 +01:00
parent 0f0b64f284
commit 25ba3e0868
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
.emacs.d/lisp/package-cl-inspect-mode.el
View File

@ -5,11 +5,27 @@
(require 'cl-lib)
(defun clinspect--tabulated-list-format (header _data)
;; TODO: Use data to compute the column size.
(apply #'vector (mapcar (lambda (column)
(list column 12 t . nil))
header)))
(defvar clinspect-column-max-width 40)
(defun clinspect--tabulated-list-format (header entries)
(apply #'vector (mapcar (lambda (index)
(let ((column (nth index header)))
(list column
(min clinspect-column-max-width
(max (length column)
(apply #'max (mapcar
(lambda (entry)
(length (prin1-to-string
(nth index entry))))
entries))))
t
;; (if (numberp (nth index (car data)))
;; (lambda (a b)
;; (< (nth index a)
;; (nth index b)))
;; t)
)))
(number-sequence 0 (1- (length header))))))
(define-derived-mode clinspect-mode tabulated-list-mode "Clinspect"
"Mode to inspect Common Lisp sequences."