gemini-print ( url body meta -- )

Vocabulary

gemini.cli

Inputs

url	an object
body	an object
meta	an object

Outputs

None

Definition

USING: arrays combinators.short-circuit formatting
gemini.private io.encodings.string kernel namespaces present
sequences splitting ;

IN: gemini.cli

: gemini-print ( url body meta -- )
    f pre [
        PAGE delete-all gemini-charset decode split-lines [
            { [ pre get not ] [ "=>" ?head ] } 0&& [
                swap gemini-link present over 2array PAGE push
                PAGE length swap "[%s] %s\n" printf
            ] [ gemini-line. ] if
        ] with each LINKS delete-all PAGE LINKS push-all
    ] with-variable ;