describe-metadata ( vocab -- )

Vocabulary

help.vocabs

Inputs

vocab

an object

Outputs

None

Definition

USING: arrays combinators help.markup kernel make sequences
splitting vocabs.metadata ;

IN: help.vocabs

: describe-metadata ( vocab -- )
    [
        {
            [
                "." split1-last [
                    [ ~quotation~ ] dip [ ] curry compose
                    { } like [ ~quotation~ ] dip [ ] curry
                    compose { } like [ ] curry call ,
                ] [ drop ] if
            ]
            [
                vocab-tags
                [ "Tags:" swap \ $tags prefix 2array , ]
                unless-empty
            ]
            [
                vocab-authors
                [ "Authors:" swap \ $authors prefix 2array , ]
                unless-empty
            ]
            [
                vocab-platforms
                [ "Platforms:" swap \ $links prefix 2array , ]
                unless-empty
            ]
        } cleave
    ] { } make [ "Metadata" $heading $table ] unless-empty ;