farkup-writer
Farkup streams

Next:

<farkup-writer> ( -- farkup-writer )

Vocabulary
io.streams.farkup

Class description
A formatted output stream which accumulates Farkup markup as string types. The data slot contains a sequence with all markup so far.

Definition

USING: destructors ;

IN: io.streams.farkup

TUPLE: farkup-writer < disposable data ;

Methods

USING: destructors io.streams.farkup kernel ;

M: farkup-writer dispose* drop ;


USING: io.streams.farkup io.streams.farkup.private io.styles ;

M: farkup-writer make-block-stream
    farkup-block-stream new-farkup-sub-stream ;


USING: io.streams.farkup io.streams.farkup.private io.styles ;

M: farkup-writer make-cell-stream
    farkup-sub-stream new-farkup-sub-stream ;


USING: io.streams.farkup io.streams.farkup.private io.styles ;

M: farkup-writer make-span-stream
    farkup-span-stream new-farkup-sub-stream ;


USING: io io.streams.farkup kernel ;

M: farkup-writer stream-flush drop ;


USING: io.streams.farkup io.streams.farkup.private io.styles ;

M: farkup-writer stream-format format-farkup-span ;


USING: io io.streams.farkup io.streams.farkup.private ;

M: farkup-writer stream-nl [ "\n\n" ] emit-farkup ;


USING: io io.streams.farkup io.streams.farkup.private ;

M: farkup-writer stream-write [ ] emit-farkup ;


USING: accessors assocs combinators io.streams.farkup
io.streams.farkup.private io.styles kernel math sequences ;

M: farkup-writer stream-write-table
    nip [
        {
            [
                first length 1 + "|" <repetition> " " join
                "\n" dup surround
            ]
            [
                first length "| - " <repetition>
                concat "|\n" append
            ]
            [
                [
                    [ data>> concat ~array~ substitute ] map
                    " | " join "| " " |" surround
                ] map "\n" join "\n" append
            ]
        } cleave 3append
    ] emit-farkup ;


USING: io io.streams.farkup io.streams.farkup.private strings ;

M: farkup-writer stream-write1 [ 1string ] emit-farkup ;