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 [
        [ [ [ first ] ] dip [ at ] curry compose ] dip
        [ push-at ] curry compose
        [ [ dup >link where dup ] ] dip [ [ 2drop ] if ] curry
        compose each
    ] keep ;