This statements generates a list of
(list filename buf),
How could this be written to include an index as well?
(list index filename buf) where the index would be a counter, starting at zero, increment 1 for each item.
(mapcar (lambda (buf) (list (buffer-file-name buf) buf)) (seq-filter 'buffer-file-name (buffer-list))))