ansi

Vocabulary

io.streams.ansi.private

Definition

USING: io.styles ;

IN: io.streams.ansi.private

TUPLE: ansi < filter-writer ;

Methods

USING: destructors io.streams.ansi.private kernel ;

M: ansi dispose drop ;


USING: io.streams.ansi.private io.styles kernel ;

M: ansi make-block-stream
    swap <style-stream> <ignore-close-stream> ;


USING: io.streams.ansi.private io.streams.string io.styles
kernel ;

M: ansi make-cell-stream 2drop <string-writer> <ansi> ;


USING: io.streams.ansi.private io.styles kernel ;

M: ansi make-span-stream
    swap <style-stream> <ignore-close-stream> ;


USING: accessors assocs io io.streams.ansi.private
io.streams.escape-codes io.styles kernel ;

M:: ansi stream-format ( str style stream -- )
    stream stream>> :> out style foreground of
    [ color>foreground out stream-write t ] [ f ] if*
    style background of
    [ color>background out stream-write drop t ] when*
    style font-style of
    [ font-styles out stream-write drop t ] when*
    str out stream-write [ "\e[0m" out stream-write ] when ;


USING: accessors io io.streams.ansi.private io.styles kernel
sequences strings strings.tables ;

M: ansi stream-write-table
    [
        drop [ [ stream>> >string ] map ] map format-table
        [ nl ] [ write ] interleave
    ] with-output-stream* ;