error-summary. ( -- )

Vocabulary

ui.tools.listener

Inputs

None

Outputs

None

Definition

USING: accessors assocs help.markup io.styles namespaces
sequences source-files.errors ui.commands ui.tools.common
ui.tools.error-list ;

IN: ui.tools.listener

: error-summary. ( -- )
    error-counts keys [
        H{ { table-gap { 3 3 } } } [
            [ [ [ icon>> write-image ] with-cell ] each ]
            with-row
        ] tabular-output last-element off {
            "Press "
            { $command tool "common" show-error-list }
            " to view errors."
        } print-element
    ] unless-empty ;