show-gemini ( url gemini-gadget -- )

Vocabulary

gemini.ui

Inputs

url	an object
gemini-gadget	an object

Outputs

None

Definition

USING: accessors kernel ui.gadgets ui.tools.browser.history
webbrowser ;

IN: gemini.ui

: show-gemini ( url gemini-gadget -- )
    [ [ ?gemini-url ] [ f ] if* ] dip over
    [ protocol>> "gemini" = ] [ t ] if* [
        [
            2dup control-value =
            [ 2drop ] [ nip history>> add-history ] if
        ] [ set-control-value ] 2bi
    ] [ drop open-url ] if ;