$annotation ( element -- )

Vocabulary

annotations

Inputs

element

an object

Outputs

None

Definition

USING: annotations.private arrays help.markup kernel sequences ;

IN: annotations

: $annotation ( element -- )
    first
    [ "!" " your comment here" surround 1array $syntax ] [
        [
            "Treats the rest of the line after the exclamation point as a ..."
            \ $link
        ] dip comment-usage.-word 2array " word." 3array
        $description
    ] [
        ": foo ( x y z -- w )\n    !"
        " --w-ó()ò-w-- kilroy was here\n    + * ;" surround
        1array $code
    ] tri ;