group-articles ( -- assoc )

Vocabulary

help.lint.checks

Inputs

None

Outputs

assoc

an object

Definition

USING: assocs definitions help.topics kernel namespaces
sequences ;

IN: help.lint.checks

: group-articles ( -- assoc )
    articles get keys files>vocabs H{ } clone [
        '[
            dup >link where dup
            [ first _ at _ push-at ] [ 2drop ] if
        ] each
    ] keep ;