(search-articles) ( string -- seq' )

Vocabulary

help.search.private

Inputs

string

an object

Outputs

seq'

an object

Definition

USING: help help.topics kernel math sequences sorting ;

IN: help.search.private

: (search-articles) ( string -- seq' )
    search-words
    [ { } ] [
        [ all-articles ] dip dup length 1 > [
            [ [ article-words ] ] dip [ subseq-of? ] curry
            compose filter
        ] [
            first [ head? ] curry [ [ article-words ] ] dip
            [ any? ] curry compose filter
        ] if
    ] if-empty [ article-name ] sort-by ;