$tip-title ( tip -- )

Vocabulary

help.tips

Inputs

tip

an object

Outputs

None

Definition

USING: help.markup help.stylesheet io.styles kernel namespaces ;

IN: help.tips

: $tip-title ( tip -- )
    [
        heading-style get
        [ [ "Tip of the day" ] dip write-object ] with-style
    ] ($block) ;