blob: f455f18b957fbae5cdcf3492310dd69be19de88c (
plain)
1
2
3
4
5
6
7
8
9
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)))
|