gopher-link

Vocabulary

gopher.private

Definition

IN: gopher.private

TUPLE: gopher-link type name selector host port ;

Methods

USING: accessors combinators formatting gopher.private kernel
splitting urls ;

M: gopher-link >url
    dup type>> 104 =
    [ selector>> "URL:" ?head drop ] [
        { [ host>> ] [ port>> ] [ type>> ] [ selector>> ] }
        cleave "gopher://%s:%s/%c%s" sprintf
    ] if >url ;


USING: gopher.private present summary urls ;

M: gopher-link summary >url present ;