diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 23:14:35 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 23:14:35 +0200 |
commit | 9a0a030cc83559084e6e4637fbcaed43face6217 (patch) | |
tree | 095ca54a05a7244002d1fdf9afd4a7afd875065d /module/output/text.scm | |
parent | Term display now reacts more to terminal size. (diff) | |
download | calp-9a0a030cc83559084e6e4637fbcaed43face6217.tar.gz calp-9a0a030cc83559084e6e4637fbcaed43face6217.tar.xz |
Move some procedures.
Diffstat (limited to '')
-rw-r--r-- | module/output/text.scm | 8 |
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))) |