a-url ( href rest query value-name -- url )

Vocabulary

furnace.chloe-tags

Inputs

href	an object
rest	an object
query	an object
value-name	an object

Outputs

url

an object

Definition

USING: accessors furnace.utilities html.forms kernel urls ;

IN: furnace.chloe-tags

: a-url ( href rest query value-name -- url )
    dup
    [ 3nip value ] [
        drop <url> swap parse-query-attr >>query -rot a-url-path
        >>path adjust-url
    ] if ;