From 2be5bb221bae718f0625569517178a66892ac14a Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sat, 21 Jul 2018 23:02:51 +0200 Subject: Move arrange-text to utils module. --- utils.scm | 44 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 utils.scm (limited to 'utils.scm') diff --git a/utils.scm b/utils.scm new file mode 100644 index 0000000..670a9af --- /dev/null +++ b/utils.scm @@ -0,0 +1,44 @@ +;;; The Inevitable Game +;;; Copyright © 2018 Ricardo Wurmus +;;; +;;; This program is free software: you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation, either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program. If not, see +;;; . + +(define-module (utils) + #:use-module (srfi srfi-1) + #:use-module (ice-9 match) + #:use-module (config) + #:export (arrange-text)) + +(define* (arrange-text text #:key + (character-width 8.0) + (margin 0.0) + (max-width %width)) + "Take the string TEXT and split it at spaces so that it fits in the +given MAX-WIDTH. Return a list of lines." + (match (fold (lambda (chunk acc) + (match acc + ((#:width width #:result (and (current-line . tail) lines)) + (let* ((len (+ 1 (string-length chunk))) + (chunk-width (* len character-width)) + (new-width (+ chunk-width width))) + (if (< (+ new-width margin) max-width) + `(#:width ,new-width + #:result ,(cons (string-append current-line " " chunk) tail)) + `(#:width ,chunk-width + #:result ,(cons chunk lines))))))) + '(#:width 0 #:result ("")) + (string-tokenize text)) + ((#:width _ #:result lines) + (reverse lines)))) -- cgit v1.2.3