or-markup-example ( classes -- markup )
English natural language transformations

Prev:	comma-list ( parts conjunction -- clause-seq )
Next:	$or-markup-example ( classes -- )

Vocabulary
english

Inputs

classes

a sequence of words

Outputs

markup

a sequence of markup elements

Word description
Used to implement $or-markup-example and demonstrate comma-list.

Examples
See the examples in $or-markup-example.

See also
a/an, ?plural-article, a10n, comma-list, $or-markup-example

Definition

USING: accessors arrays help.markup kernel sequences words ;

IN: english

: or-markup-example ( classes -- markup )
    [
        dup word?
        [ [ name>> ] keep \ $link ] [ dup \ $snippet ] if
        swap 2array [ a/an " " append ] dip 2array
    ] map "or" comma-list ;