26 lines
1.6 KiB
Factor
26 lines
1.6 KiB
Factor
|
! Copyright (C) 2009 Daniel Ehrenberg
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: help.syntax help.markup strings math ;
|
||
|
|
IN: wrap.strings
|
||
|
|
|
||
|
|
ABOUT: "wrap.strings"
|
||
|
|
|
||
|
|
ARTICLE: "wrap.strings" "String word wrapping"
|
||
|
|
"The " { $vocab-link "wrap.strings" } " vocabulary implements word wrapping for simple strings, assumed to be in monospace font."
|
||
|
|
{ $subsection wrap-lines }
|
||
|
|
{ $subsection wrap-string }
|
||
|
|
{ $subsection wrap-indented-string } ;
|
||
|
|
|
||
|
|
HELP: wrap-lines
|
||
|
|
{ $values { "lines" string } { "width" integer } { "newlines" "sequence of strings" } }
|
||
|
|
{ $description "Given a string, divides it into a sequence of lines where each line has no more than " { $snippet "width" } " characters, unless there is a word longer than " { $snippet "width" } ". Linear whitespace between words is converted to a single space." } ;
|
||
|
|
|
||
|
|
HELP: wrap-string
|
||
|
|
{ $values { "string" string } { "width" integer } { "newstring" string } }
|
||
|
|
{ $description "Given a string, alters the whitespace in the string so that each line has no more than " { $snippet "width" } " characters, unless there is a word longer than " { $snippet "width" } ". Linear whitespace between words is converted to a single space." } ;
|
||
|
|
|
||
|
|
HELP: wrap-indented-string
|
||
|
|
{ $values { "string" string } { "width" integer } { "indent" string } { "newstring" string } }
|
||
|
|
{ $description "Given a string, alters the whitespace in the string so that each line has no more than " { $snippet "width" } " characters, unless there is a word longer than " { $snippet "width" } ". Linear whitespace between words is converted to a single space. Before each line, the indent string is added." } ;
|
||
|
|
|