render-code ( string mode -- xml )

Vocabulary

farkup

Inputs

string	an object
mode	an object

Outputs

xml

an object

Definition

USING: kernel splitting xml.data xml.syntax.private
xmode.code2html ;

IN: farkup

: render-code ( string mode -- xml )
    [ split-lines ] dip htmlize-lines 1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;