factor/basis/xmode/code2html/code2html.factor

USING: xmode.tokens xmode.marker xmode.catalog kernel locals
io io.files sequences words io.encodings.utf8
namespaces xml.entities accessors xml.syntax locals xml.writer ;
IN: xmode.code2html

: htmlize-tokens ( tokens -- xml )
    [
        [ str>> ] [ id>> ] bi [
            name>> swap
            [XML <span class=<->><-></span> XML]
        ] when*
    ] map ;

: htmlize-line ( line-context line rules -- line-context' xml )
    tokenize-line htmlize-tokens ;

: htmlize-lines ( lines mode -- xml )
    [ f ] 2dip load-mode [ htmlize-line ] curry map nip
    { "\n" } join ;

: default-stylesheet ( -- xml )
    "resource:basis/xmode/code2html/stylesheet.css"
    utf8 file-contents
    [XML <style><-></style> XML] ;

:: htmlize-stream ( path stream -- xml )
    stream lines
    [ "" ] [ path over first find-mode htmlize-lines ]
    if-empty :> input
    default-stylesheet :> stylesheet
    <XML <html>
        <head>
            <-stylesheet->
            <title><-path-></title>
        </head>
        <body>
            <pre><-input-></pre>
        </body>
    </html> XML> ;

: htmlize-file ( path -- )
    dup utf8 [
        dup ".html" append utf8 [
            input-stream get htmlize-stream write-xml
        ] with-file-writer
    ] with-file-reader ;
Farkup and xmode.code2html switched to using xml.interpolate 2009-01-26 22:38:36 -05:00			`USING: xmode.tokens xmode.marker xmode.catalog kernel locals`
Fixing some things I broke 2009-01-30 20:28:16 -05:00			`io io.files sequences words io.encodings.utf8`
Moving XML vocabularies around 2009-02-05 22:17:03 -05:00			`namespaces xml.entities accessors xml.syntax locals xml.writer ;`
Importing extra/xmode (port of jEdit's 'XMode' syntax highlighting engine) 2007-11-28 23:34:11 -05:00			`IN: xmode.code2html`

Farkup and xmode.code2html switched to using xml.interpolate 2009-01-26 22:38:36 -05:00			`: htmlize-tokens ( tokens -- xml )`
Importing extra/xmode (port of jEdit's 'XMode' syntax highlighting engine) 2007-11-28 23:34:11 -05:00			`[`
Web framework refactoring work in progress 2008-06-01 18:22:39 -04:00			`[ str>> ] [ id>> ] bi [`
Farkup and xmode.code2html switched to using xml.interpolate 2009-01-26 22:38:36 -05:00			`name>> swap`
			`[XML <span class=<->><-></span> XML]`
Fix a couple of bugs in xmode and add a unit test 2009-01-30 20:34:31 -05:00			`] when*`
Farkup and xmode.code2html switched to using xml.interpolate 2009-01-26 22:38:36 -05:00			`] map ;`
Importing extra/xmode (port of jEdit's 'XMode' syntax highlighting engine) 2007-11-28 23:34:11 -05:00
Farkup and xmode.code2html switched to using xml.interpolate 2009-01-26 22:38:36 -05:00			`: htmlize-line ( line-context line rules -- line-context' xml )`
Importing extra/xmode (port of jEdit's 'XMode' syntax highlighting engine) 2007-11-28 23:34:11 -05:00			`tokenize-line htmlize-tokens ;`

Farkup and xmode.code2html switched to using xml.interpolate 2009-01-26 22:38:36 -05:00			`: htmlize-lines ( lines mode -- xml )`
Fix regression in xmode.code2html:htmlize-lines 2009-01-31 04:02:10 -05:00			`[ f ] 2dip load-mode [ htmlize-line ] curry map nip`
			`{ "\n" } join ;`
Importing extra/xmode (port of jEdit's 'XMode' syntax highlighting engine) 2007-11-28 23:34:11 -05:00
Farkup and xmode.code2html switched to using xml.interpolate 2009-01-26 22:38:36 -05:00			`: default-stylesheet ( -- xml )`
			`"resource:basis/xmode/code2html/stylesheet.css"`
			`utf8 file-contents`
			`[XML <style><-></style> XML] ;`
Importing extra/xmode (port of jEdit's 'XMode' syntax highlighting engine) 2007-11-28 23:34:11 -05:00
Farkup and xmode.code2html switched to using xml.interpolate 2009-01-26 22:38:36 -05:00			`:: htmlize-stream ( path stream -- xml )`
			`stream lines`
Fix a couple of bugs in xmode and add a unit test 2009-01-30 20:34:31 -05:00			`[ "" ] [ path over first find-mode htmlize-lines ]`
Farkup and xmode.code2html switched to using xml.interpolate 2009-01-26 22:38:36 -05:00			`if-empty :> input`
			`default-stylesheet :> stylesheet`
			`<XML <html>`
Various fixes 2007-12-06 00:23:18 -05:00			`<head>`
Farkup and xmode.code2html switched to using xml.interpolate 2009-01-26 22:38:36 -05:00			`<-stylesheet->`
			`<title><-path-></title>`
Various fixes 2007-12-06 00:23:18 -05:00			`</head>`
			`<body>`
Farkup and xmode.code2html switched to using xml.interpolate 2009-01-26 22:38:36 -05:00			`<pre><-input-></pre>`
Various fixes 2007-12-06 00:23:18 -05:00			`</body>`
Farkup and xmode.code2html switched to using xml.interpolate 2009-01-26 22:38:36 -05:00			`</html> XML> ;`
Various fixes 2007-12-06 00:23:18 -05:00
Importing extra/xmode (port of jEdit's 'XMode' syntax highlighting engine) 2007-11-28 23:34:11 -05:00			`: htmlize-file ( path -- )`
HTTP server work in progress 2008-03-11 04:39:09 -04:00			`dup utf8 [`
Split stdio up into input-stream/output-stream, pipes work in progress 2008-05-05 03:19:25 -04:00			`dup ".html" append utf8 [`
Farkup and xmode.code2html switched to using xml.interpolate 2009-01-26 22:38:36 -05:00			`input-stream get htmlize-stream write-xml`
HTTP server work in progress 2008-03-11 04:39:09 -04:00			`] with-file-writer`
			`] with-file-reader ;`