object-link-tag ( str style -- str' )

Vocabulary

io.streams.farkup.private

Inputs

str	an object
style	an object

Outputs

str'

an object

Definition

USING: assocs formatting io.streams.html io.styles kernel
sequences ;

IN: io.streams.farkup.private

: object-link-tag ( str style -- str' )
    presented of [
        url-of
        [ swap [ "|" prepend ] [ f ] if* "[[%s%s]]" sprintf ]
        when*
    ] when* ;