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

Vocabulary

webapps.help

Inputs

title	an object
href	an 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 [
            [ [ " (" ] ] dip [ 3append ")" append ] curry
            compose
        ] dip [ ?head drop ] curry compose dip
    ] when ;