fixup-words ( title href -- title' href' )


Vocabulary
webapps.help

Inputs
titlean object
hrefan object


Outputs
title'an object
href'an object


Definition
USING: kernel sequences splitting ;

IN: webapps.help

: fixup-words ( title href -- title' href' )
dup "word-" head? [
dup ".html" ?tail drop "," split1-last nip
dup ":" append
'[ " (" _ 3append ")" append _ ?head drop ] dip
] when ;