Petr,
Thanks, actually dug that post up already and been trying to
decypher it... My closest approximations still aren't working.
Perhaps someone will be kind enough to do a full step by
step breakdown of the stuff below? Feel like I understand it
pretty well, it's just not working when I go to implement my
own version of the same.
Would really appreciate it.
Cheerfulness,
------EAT
[EMAIL PROTECTED] wrote:
> Here's another example of something useful to do with parse.
> I use this script to avoid writing my docs directly in HTML
> (or in an HTML editor... of which I've tried dozens but never
> found a good one).
>
> Here's what it does:
>
> - the first line is the page title
> - indented lines are examples (monospaced preformatted)
> - lines starting with === are main sections
> - lines starting with --- are sub-sections
> - normal lines are just paragraphs (empty line for new)
>
> There are a number of other features that I'll be adding,
> but I thought I'd email it to you while it's still small and
> cute. :)
>
> I'll send you an example of the text in just a few minutes.
>
> -Carl
>
> (PS: Might be somewhat advanced for novices.)
>
> REBOL [Title: "Text to HTML Converter" Author: "Carl" File: %text-html.r]
>
> file: to-file ask "Filename? (w/o suffix) "
>
> html: make string! 10000
> emit: func [data] [append html reduce data]
> space: charset " ^-"
> chars: complement charset " ^-^/"
> a+: <font face="arial,helvetica">
> a-: </font>
>
> parts: [newline | "===" section | "---" subsect | example | paragraph]
> text-line: [copy text thru newline]
> title: [text-line (emit [<html><title>text</title><body>a+<h2>text</h2>a-<p>])]
>
> section: [text-line (emit [<p>a+<h3>trim text</h3>a-<p>]) newline]
> subsect: [text-line (emit [<p>a+<i><h4>trim text</h4></i>a-<p>]) newline]
> paragraph: [copy para some [chars thru newline] (emit [para<p>])]
> indented: [some space thru newline]
> example: [copy code some [indented | some newline indented]
> (emit [<b><pre>code</pre></b><p>newline])]
> done: [(emit [</body></html>])]
>
> parse/all detab read join file ".txt" [title some parts done]
> write join file ".html" html
> quit
