element-value ( element -- str )

Vocabulary

help.search.private

Inputs

element

an object

Outputs

str

an object

Definition

USING: arrays combinators help.markup help.topics kernel
sequences splitting strings ;

IN: help.search.private

: element-value ( element -- str )
    dup array? [
        dup ?first {
            { \ $link [ second article-name ] }
            { \ $vocab-link [ second ] }
            { \ $emphasis [ second ] }
            { \ $subsection [ second article-name ] }
            {
                \ $subsections
                [ rest [ article-name ] map join-words ]
            }
            {
                \ $description
                [ rest [ element-value ] map join-words ]
            }
            {
                \ $notes
                [ rest [ element-value ] map join-words ]
            }
            {
                \ $snippet
                [ rest [ element-value ] map join-words ]
            }
            [ 2drop f ]
        } case
    ] [ [ string? ] 1guard ] if ;