$navigation ( topic direction -- )

Vocabulary

ui.tools.browser

Inputs

topic	an object
direction	an object

Outputs

None

Definition

USING: arrays help help.crossref help.markup help.stylesheet
io.styles kernel make namespaces sequences ;

IN: ui.tools.browser

:: $navigation ( topic direction -- )
    help-path-style get [
        topic [
            direction prev/next-article
            [ 1array \ $long-link direction $navigation-arrow ]
            when*
        ] { } make [ ($navigation-table) ] unless-empty
    ] with-style ;