如何基于tabulated-list-print实现任意列数的表格打印？

我编写了一个可在buffer中显示表格的函数，但该函数仅支持处理两列。请问如何对其进行扩展，使其能够处理任意数量的列？

原函数代码：

(defun tlprint-alist (alist &optional outbufr keytl valtl)
  "Print an associated list via `tabulated-list-print'."

  (let*
      ( (bufr (or outbufr (get-buffer-create "*Alist2*")))
        (keytl (or keytl "Key Title"))
        (valtl (or valtl "Value Title")) )

    (with-current-buffer bufr
      (tabulated-list-mode)
      (setq buffer-read-only nil)
      (setq tabulated-list-format
             (vector (list keytl 20 t) (list valtl 20 t)))
      (setq tabulated-list-sort-key (cons keytl nil))
      (setq tabulated-list-entries
            (mapcar (lambda (dyad)
                      (list (car dyad) (cdr dyad)))
                    alist))
      (tabulated-list-init-header)
      (tabulated-list-print) )))

解决方案 #

要让函数支持任意列数，核心是把硬编码的两列逻辑改成动态处理列标题和条目内容，具体修改如下：

修改后的函数代码

(defun tlprint-table (entries &optional outbufr col-titles)
  "Print a table with arbitrary columns via `tabulated-list-print'.
ENTRIES should be a list where each element is (IDENTIFIER . COLUMN-VALUES),
where COLUMN-VALUES is a list of values corresponding to each column.
COL-TITLES is a list of strings for column headers (defaults to '(\"Column 1\" \"Column 2\"))."
  (let* ((bufr (or outbufr (get-buffer-create "*Table*")))
         (col-titles (or col-titles '("Column 1" "Column 2")))
         ;; 动态生成每列的格式配置：(标题 宽度 可排序)
         (table-format (vconcat (mapcar (lambda (title)
                                          (list title 20 t))
                                        col-titles))))
    (with-current-buffer bufr
      (tabulated-list-mode)
      (setq buffer-read-only nil)
      (erase-buffer) ; 清空buffer原有内容
      (setq tabulated-list-format table-format)
      ;; 默认按第一列排序
      (setq tabulated-list-sort-key (cons (car col-titles) nil))
      (setq tabulated-list-entries
            (mapcar (lambda (entry)
                      ;; 确保条目符合tabulated-list要求：(标识符 (列值1 列值2 ...))
                      (list (car entry) (cdr entry)))
                    entries))
      (tabulated-list-init-header)
      (tabulated-list-print)
      (setq buffer-read-only t)))) ; 设置只读保护表格内容

使用示例

比如要展示一个三列的表格：

;; 构造测试数据：每个元素是(标识符 . (列1值 列2值 列3值))
(setq test-data '(("Item1" . ("Apple" "Red" "Fruit"))
                  ("Item2" . ("Carrot" "Orange" "Vegetable"))
                  ("Item3" . ("Banana" "Yellow" "Fruit"))))

;; 调用函数，传入自定义列标题
(tlprint-table test-data nil '("Name" "Color" "Type"))

关键修改说明

• 参数调整：用col-titles列表替代原有的两个单独标题参数，支持传入任意数量的列标题。
• 动态格式生成：通过mapcar遍历col-titles生成tabulated-list-format向量，不再硬编码两列配置。
• 条目兼容：要求输入的entries中每个元素的cdr是对应列数的值列表，适配多列数据结构。
• 体验优化：增加erase-buffer避免重复调用时内容叠加，最后设置buffer为只读保护表格。

内容的提问来源于stack exchange，提问作者Dilna