(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 _ subseq-of? ] filter ]
        [ first '[ article-words [ _ head? ] any? ] filter ] if
    ] if-empty [ article-name ] sort-by ;