adjust-help-font-size ( delta -- )

Vocabulary

help.stylesheet

Inputs

delta

an object

Outputs

None

Definition

USING: assocs io.styles kernel math math.order namespaces
sequences ;

IN: help.stylesheet

: adjust-help-font-size ( delta -- )
    [
        font-size {
            default-style
            title-style
            help-path-style
            heading-style
            subsection-style
            snippet-style
            code-style
        }
    ] dip [ + 1 max ] curry [ [ get-global ] ] dip
    [ change-at ] curry compose with each ;