$tip-of-the-day ( element -- )

Vocabulary

help.tips

Inputs

element

an object

Outputs

None

Definition

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

IN: help.tips

: $tip-of-the-day ( element -- )
    drop [
        tip-of-the-day-style get [
            last-element off a-tip
            [ $tip-title ] [ content>> print-element nl ] bi
            "— " print-element "all-tips-of-the-day" ($link)
        ] with-nesting
    ] ($heading) ;