gemini-up ( -- )

Vocabulary

gemini.cli

Inputs

None

Outputs

None

Definition

USING: accessors kernel sequences urls ;

IN: gemini.cli

: gemini-up ( -- )
    URL ?first [
        >url f >>query f >>anchor
        [ dup "/" tail? "./../" "./" ? url-append-path ]
        change-path gemini-go
    ] when* ;