[elpa] externals/dicom f8702c7605 6/6: Truncate overlay long DICOM keywords

[ELPA Syncer]

branch: externals/dicom
commit f8702c760556b5098a5b060d7a26aa88828634e6
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Truncate overlay long DICOM keywords
---
 dicom.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/dicom.el b/dicom.el
index 4fd15f505c..e8d1e9e50a 100644
--- a/dicom.el
+++ b/dicom.el
@@ -161,7 +161,12 @@ progress:${percent-pos}%'"
                       ""))))
   (pcase-dolist (`(,k . ,v) item)
     (unless (memq k dicom--hidden)
-      (insert (format "    %-35s %s\n" k v)))))
+      (let ((k (symbol-name k)))
+        (when (> (length k) 25)
+          (setq k (propertize
+                   (truncate-string-to-width k 25 0 nil "…")
+                   'help-echo k)))
+        (insert (format "    %-25s  %s\n" k v))))))
 
 (defun dicom--read (file)
   "Read DICOM FILE and return list of items."