1 files changed, 8 insertions, 0 deletions
diff --git a/module/output/text.scm b/module/output/text.scm
index e86f4664..cca87678 100644
--- a/module/output/text.scm
+++ b/module/output/text.scm
@@ -51,3 +51,11 @@
      (map (lambda (line) (justify-line line #:width width))
           (lines str)))
     height)))
+
+(define-public (trim-to-width str len)
+  (let ((trimmed (string-pad-right str len)))
+    (if (< (string-length trimmed)
+           (string-length str))
+        (string-append (string-drop-right trimmed 1)
+                       "…")
+        trimmed)))