word-element ( word -- element )

Vocabulary

fuel.help.private

Inputs

word

an object

Outputs

element

an object

Definition

USING: accessors arrays combinators fuel.help help help.crossref
help.markup help.topics kernel make namespaces prettyprint
sequences ;

IN: fuel.help.private

: word-element ( word -- element )
    \ article swap dup article-title swap [
        {
            [
                vocabulary>> vocab-crumbs \ $fuel-nav-crumbs
                prefix ,
            ]
            [
                >link [
                    prev-article
                    [ \ $prev-link next/prev-link , ] when*
                ] [
                    next-article
                    [ \ $next-link next/prev-link , ] when*
                ] bi
            ]
            [
                parent-topics
                [ \ $doc-path prefix , ] unless-empty
            ]
            [ word-help % ]
            [
                related-words
                [ \ $related swap 2array , ] unless-empty
            ]
            [
                get-global
                [ \ $value swap unparse-short 2array , ] when*
            ]
            [ \ $definition swap definition-str 2array , ]
            [ methods-str [ \ $methods swap 2array , ] when* ]
        } cleave
    ] { } make 3array ;