256color

Vocabulary

io.streams.256color.private

Definition

USING: io.styles ;

IN: io.streams.256color.private

TUPLE: 256color < filter-writer ;

Methods

USING: destructors io.streams.256color.private kernel ;

M: 256color dispose drop ;


USING: io.streams.256color.private io.styles kernel ;

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


USING: io.streams.256color.private io.streams.string io.styles
kernel ;

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


USING: io.streams.256color.private io.styles kernel ;

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


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

M:: 256color 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
    [ ansi-font-style out stream-write drop t ] when*
    str out stream-write [ "\e[0m" out stream-write ] when ;


USING: accessors io io.streams.256color.private
io.streams.escape-codes io.styles kernel sequences strings ;

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