com-up ( gemini -- )

Vocabulary

gemini.ui

Inputs

gemini

an object

Outputs

None

Definition

USING: accessors kernel sequences ui.gadgets urls ;

IN: gemini.ui

: com-up ( gemini -- )
    [
        control-value dup [
            f >>query f >>anchor
            [ dup "/" tail? "./../" "./" ? url-append-path ]
            change-path
        ] when
    ] [ show-gemini ] bi ;