view-todo-url ( id -- url )

Vocabulary

webapps.todo

Inputs

id

an object

Outputs

url

an object

Definition

USING: accessors kernel urls ;

IN: webapps.todo

: view-todo-url ( id -- url )
    <url> "$todo-list/view" >>path swap "id" set-query-param ;