>>106533522
>>106533591
This is what I currently have:
(defun string-list-max-length (strings)
(let* ((lenghts (mapcar (lambda (string) (length string)) strings))
(max-length (seq-max lenghts)))
max-length))
(defun show-hash-table (hash-table)
(let* ((keys (nreverse (hash-table-keys hash-table)))
(max-length (string-list-max-length keys)))
(with-temp-buffer-window "hash-table-details" nil nil
(mapcar (lambda (key)
(let* ((key-length (length key))
Comment too long. Click here to view the full text.