report-subject ( status -- string )

Vocabulary

mason.email

Inputs

status

an object

Outputs

string

an object

Definition

USING: combinators make mason.common namespaces sequences ;

IN: mason.email

: report-subject ( status -- string )
    [
        subject-prefix %
        current-git-id get 7 index-or-length head % " -- " % {
            { status-clean [ "clean" ] }
            { status-dirty [ "dirty" ] }
            { status-error [ "error" ] }
        } case %
    ] "" make ;