span-tag ( str style -- str' )

Vocabulary

io.streams.farkup.private

Inputs

str	an object
style	an object

Outputs

str'

an object

Definition

USING: assocs combinators io.styles kernel sequences ;

IN: io.streams.farkup.private

: span-tag ( str style -- str' )
    {
        [ font-name of "monospace" = [ "%" dup surround ] when ]
        [ font-style of italic = [ "_" dup surround ] when ]
        [ font-style of bold = [ "*" dup surround ] when ]
    } cleave ;