REBOL [
Title: "Checklister (HTML)"
Date: 15-Sep-1999
File: %checklist.r
Usage: {
Text indentation is used to determine the level of items
in the list. Items that begin with a "+" are marked as
done. Items that begin with a ";" are plain text
comments. An example text input file would be:
item
subitem
subitem
subsubitem
item
subitem
+subitem
;above subitem is done
The first line of the file is used as the title.
}
Purpose: "Creates a checklist in HTML from a text file."
library: [
level: 'advanced
platform: none
type: none
domain: [cgi markup text-processing file-handling]
tested-under: none
support: none
license: none
see-also: none
]
]
html: make string! 10000
emit: func [data] [append html reduce data append html newline]
indent: func [level] [loop (level - 1) * 8 [append html " "]]
file: to-file ask "Filename? %"
outline: read file
file: head change clear find file "." ".html"
emit ""
emit
parse/all outline [
copy text to newline skip (emit [text
now
])
any [
(level: 1 cmt: done: false)
any [[4 " " | tab] (level: level + 1)]
(if level = 1 [emit
])
[any " " [";" (cmt: true) | "+" (done: true)] | none]
copy text to newline skip (
if text [
indent level
emit either cmt [
[text
]
][
[
{}
"[" pick "x_" done "] " text
]
]
]
)
]
]
emit "
"
write file html
quit