gopher. ( url -- )

Vocabulary

gopher

Inputs

url

an object

Outputs

None

Definition

USING: accessors combinators gopher.private kernel prettyprint
urls ;

IN: gopher

: gopher. ( url -- )
    >url [ path>> ] [ gopher swap ] bi {
        { A_TEXT [ gopher-text. ] }
        { A_MENU [ gopher-menu. ] }
        { A_INDEX [ gopher-menu. ] }
        { A_GIF [ gopher-gif. ] }
        { A_IMAGE [ gopher-image. ] }
        [ drop . ]
    } case drop ;