with-curses ( window quot -- )

Vocabulary

curses

Inputs

window	an object
quot	an object

Outputs

None

Definition

USING: accessors combinators continuations curses.ffi
curses.private destructors kernel ;

IN: curses

: with-curses ( window quot -- )
    curses-ok? [ unsupported-curses-terminal ] unless [
        [
            [
                initscr curses-pointer-error >>ptr {
                    [ apply-global-options ]
                    [ apply-window-options ]
                    [ ptr>> wclear curses-error ]
                    [ ptr>> wrefresh curses-error ]
                    [ ]
                } cleave init-colors
            ]
        ] dip [ with-window ] curry compose
        [ endwin curses-error ] finally
    ] with-destructors ; inline