terminal-size ( -- dim )

Vocabulary

terminal

Inputs

None

Outputs

dim

an object

Definition

USING: arrays environment kernel math math.parser ;

IN: terminal

: terminal-size ( -- dim )
    "COLUMNS" "LINES" [ os-env [ string>number ] [ 0 ] if* ] bi@
    [ [ 0 <= ] either? ] 2check [
        (terminal-size)
        [ over 0 <= [ nip ] [ drop ] if ] bi-curry@ bi*
    ] when 2array ;