wrap-indented-string ( string width indent -- newstring )
String word wrapping

Prev:

wrap-string ( string width -- newstring )

Vocabulary
wrap.strings

Inputs

string	a string
width	an integer
indent	string or integer

Outputs

newstring

a string

Word description
Given a string, alters the whitespace in the string so that each line has no more than width characters, unless there is a word longer than width. Linear whitespace between words is converted to a single space. The indent can be either a string or a number of spaces to prepend to each line.

Definition

USING: kernel math sequences splitting wrap.strings.private ;

IN: wrap.strings

: wrap-indented-string ( string width indent -- newstring )
    make-indent [ length - wrap-lines ] keep over empty?
    [ nip ] [ [ prepend ] curry map! join-lines ] if ;