annotation-url ( parent id -- url )

Vocabulary

webapps.pastebin

Inputs

parent	an object
id	an object

Outputs

url

an object

Definition

USING: accessors kernel math.parser urls ;

IN: webapps.pastebin

: annotation-url ( parent id -- url )
    "$pastebin/paste" >url swap number>string >>anchor
    swap "id" set-query-param ;