a-url-path ( href rest -- string )


Vocabulary
furnace.chloe-tags

Inputs
hrefan object
restan object


Outputs
stringan object


Definition
USING: html.forms kernel present sequences splitting ;

IN: furnace.chloe-tags

: a-url-path ( href rest -- string )
dup [ value ] when
[ [ "/" ?tail drop "/" ] dip present 3append ] when* ;