28 lines
737 B
Factor
28 lines
737 B
Factor
|
! Copyright (C) 2012 John Benediktsson
|
||
|
|
! See http://factorcode.org/license.txt for BSD license
|
||
|
|
|
||
|
|
USING: arrays combinators environment kernel math math.parser
|
||
|
|
sequences system vocabs ;
|
||
|
|
|
||
|
|
IN: terminal
|
||
|
|
|
||
|
|
HOOK: (terminal-size) os ( -- columns lines )
|
||
|
|
|
||
|
|
{
|
||
|
|
{ [ os macosx? ] [ "terminal.macosx" ] }
|
||
|
|
{ [ os linux? ] [ "terminal.linux" ] }
|
||
|
|
{ [ os windows? ] [ "terminal.windows" ] }
|
||
|
|
} cond require
|
||
|
|
|
||
|
|
: terminal-size ( -- dim )
|
||
|
|
"COLUMNS" "LINES"
|
||
|
|
[ os-env [ string>number ] [ 0 ] if* ] bi@
|
||
|
|
2dup [ 0 <= ] either? [
|
||
|
|
(terminal-size)
|
||
|
|
[ over 0 <= [ nip ] [ drop ] if ] bi-curry@ bi*
|
||
|
|
] when 2array ;
|
||
|
|
|
||
|
|
: terminal-width ( -- width ) terminal-size first ;
|
||
|
|
|
||
|
|
: terimal-height ( -- height ) terminal-size second ;
|