factor/extra/xmode/code2html/code2html.factor

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

: htmlize-tokens ( tokens -- )
    [
        [ str>> ] [ id>> ] bi [
            <span name>> =class span> escape-string write </span>
        ] [
            escape-string write
        ] if*
    ] each ;

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

: htmlize-lines ( lines mode -- )
    f swap load-mode [ htmlize-line nl ] curry reduce drop ;

: default-stylesheet ( -- )
    <style>
        "resource:extra/xmode/code2html/stylesheet.css"
        utf8 file-contents escape-string write
    </style> ;

: htmlize-stream ( path stream -- )
    lines swap
    <html>
        <head>
            default-stylesheet
            <title> dup escape-string write </title>
        </head>
        <body>
            <pre>
                over empty?
                [ 2drop ]
                [ over first find-mode htmlize-lines ] if
            </pre>
        </body>
    </html> ;

: htmlize-file ( path -- )
    dup utf8 [
        dup ".html" append utf8 [
            input-stream get htmlize-stream
        ] with-file-writer
    ] with-file-reader ;
Various fixes 2008-05-27 02:18:38 -04:00			`USING: xmode.tokens xmode.marker xmode.catalog kernel`
HTTP server work in progress 2008-03-11 04:39:09 -04:00			`html.elements io io.files sequences words io.encodings.utf8`
Web framework refactoring work in progress 2008-06-01 18:22:39 -04:00			`namespaces xml.entities accessors ;`
Importing extra/xmode (port of jEdit's 'XMode' syntax highlighting engine) 2007-11-28 23:34:11 -05:00			`IN: xmode.code2html`

			`: htmlize-tokens ( tokens -- )`
			`[`
Web framework refactoring work in progress 2008-06-01 18:22:39 -04:00			`[ str>> ] [ id>> ] bi [`
Builtinn types now use new slot accessors; tuple slot type declaration work in progress 2008-06-28 03:36:20 -04:00			`<span name>> =class span> escape-string write </span>`
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			`escape-string write`
Importing extra/xmode (port of jEdit's 'XMode' syntax highlighting engine) 2007-11-28 23:34:11 -05:00			`] if*`
			`] each ;`

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

Various fixes 2007-12-06 00:23:18 -05:00			`: htmlize-lines ( lines mode -- )`
xmode.code2html fix 2007-12-06 01:03:27 -05:00			`f swap load-mode [ htmlize-line nl ] curry reduce drop ;`
Importing extra/xmode (port of jEdit's 'XMode' syntax highlighting engine) 2007-11-28 23:34:11 -05:00
			`: default-stylesheet ( -- )`
			`<style>`
use butlast, butlast-slice "extra/foo" resource-path -> "resource:extra/foo" 2008-05-06 13:37:11 -04:00			`"resource:extra/xmode/code2html/stylesheet.css"`
Update html.streams usages 2008-05-23 18:45:14 -04:00			`utf8 file-contents escape-string write`
Importing extra/xmode (port of jEdit's 'XMode' syntax highlighting engine) 2007-11-28 23:34:11 -05:00			`</style> ;`

Various fixes 2007-12-06 00:23:18 -05:00			`: htmlize-stream ( path stream -- )`
			`lines swap`
			`<html>`
			`<head>`
			`default-stylesheet`
Update html.streams usages 2008-05-23 18:45:14 -04:00			`<title> dup escape-string write </title>`
Various fixes 2007-12-06 00:23:18 -05:00			`</head>`
			`<body>`
xmode.code2html fix 2007-12-06 01:03:27 -05:00			`<pre>`
			`over empty?`
			`[ 2drop ]`
			`[ over first find-mode htmlize-lines ] if`
			`</pre>`
Various fixes 2007-12-06 00:23:18 -05:00			`</body>`
			`</html> ;`

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 [`
			`input-stream get htmlize-stream`
HTTP server work in progress 2008-03-11 04:39:09 -04:00			`] with-file-writer`
			`] with-file-reader ;`