join-lines ( string -- string' )

Vocabulary

ui.gadgets.editors.private

Inputs

string

an object

Outputs

string'

an object

Definition

USING: kernel sequences splitting unicode ;

IN: ui.gadgets.editors.private

: join-lines ( string -- string' )
    split-lines
    [ rest-slice [ [ blank? ] trim-head-slice ] map! drop ]
    [ but-last-slice [ [ blank? ] trim-tail-slice ] map! drop ]
    [ join-words ] tri ;