gopher-go ( args -- )

Vocabulary

gopher.cli

Inputs

args

an object

Outputs

None

Definition

USING: arrays combinators.short-circuit kernel present sequences
webbrowser ;

IN: gopher.cli

: gopher-go ( args -- )
    dup array? [ first ] when present [ DEFAULT-URL ] when-empty
    { [ "://" over subseq? ] [ "gopher://" head? ] } 1||
    [ "gopher://" prepend ] unless dup "gopher://" head?
    [ [ add-history ] [ add-stack ] [ gopher-get ] tri ]
    [ open-url ] if ;