1 files changed, 10 insertions, 0 deletions
diff --git a/module/output/general.scm b/module/output/general.scm
new file mode 100644
index 00000000..f455f18b
--- /dev/null
+++ b/module/output/general.scm
@@ -0,0 +1,10 @@
+(define-module (output general)
+  )
+
+(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)))