gemini-go ( args -- )

Vocabulary

gemini.cli

Inputs

args

an object

Outputs

None

Definition

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

IN: gemini.cli

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