article-element ( name -- element )

Vocabulary

fuel.help

Inputs

name

an object

Outputs

element

an object

Definition

USING: accessors arrays help.markup help.topics kernel sequences
;

IN: fuel.help

: article-element ( name -- element )
    \ article swap dup lookup-article
    [ nip title>> ] [
        [ article-crumbs \ $fuel-nav-crumbs prefix ]
        [ content>> ] bi* \ $nl prefix swap prefix
    ] 2bi 3array ;