module/output/general.scm


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)))