gemini-pad ( text n -- text' )

Vocabulary

gemini.private

Inputs

text	an object
n	an object

Outputs

text'

an object

Definition

USING: ascii kernel math sequences ;

IN: gemini.private

:: gemini-pad ( text n -- text' )
    text n
    [ over length over > ] [
        dup pick [ blank? ] find-last-from drop dup
        [ 2dup - n >= [ drop f ] when ] when
        [ nip ] [ [ cut " " glue ] keep ] if* n + 1 +
    ] while drop ;