gemini-link ( link-text base-url -- text url )

Vocabulary

gemini.private

Inputs

link-text	an object
base-url	an object

Outputs

text	an object
url	an object

Definition

USING: accessors ascii kernel sequences splitting urls ;

IN: gemini.private

:: gemini-link ( link-text base-url -- text url )
    link-text [ blank? ] trim-head [ blank? ] split1-when
    [ blank? ] trim-head [ dup ] when-empty
    swap >url dup protocol>>
    [ base-url clone f >>query f >>anchor swap derive-url ]
    unless ;