search-articles ( string -- )

Vocabulary

help.search

Inputs

string

an object

Outputs

None

Definition

USING: help.apropos help.markup help.search.private
help.stylesheet io io.styles kernel namespaces sequences words ;

IN: help.search

: search-articles ( string -- )
    [
        last-element off [
            "Search results for \"" "\"" surround
            title-style get [ format ] ($block)
        ] [
            (search-articles)
            [ word? ] partition swap "Articles" "Words" [
                over empty?
                [ 2drop ] [ $heading $completions ] if
            ] bi-curry@ bi*
        ] bi
    ] with-default-style nl ;