gemini. ( url -- )

Vocabulary

gemini

Inputs

url

an object

Outputs

None

Definition

USING: combinators gemini.private images.loader
images.loader.private images.viewer io.encodings.string kernel
splitting urls ;

IN: gemini

: gemini. ( url -- )
    >url dup gemini [ drop ] 2dip swap {
        { [ "text/" ?head ] [ gemini-charset decode gemtext. ] }
        {
            [ "image/" ?head ]
            [ (image-class) load-image* image. drop ]
        }
        [ 3drop ]
    } cond ;