14 lines
325 B
Scheme
14 lines
325 B
Scheme
|
(load "sxml-utils.scm")
|
||
|
|
(load "colorer.scm")
|
||
|
|
|
||
|
|
(define main-tree '(programlisting (*PI* a "b") (@ (format "linespecific")) "<article id=\"hw\">
|
||
|
|
<title>Hello</title>
|
||
|
|
<para>Hello <object>World</object>!</para>
|
||
|
|
</article>"))
|
||
|
|
|
||
|
|
(define h-tree "")
|
||
|
|
|
||
|
|
(define result (colorer:join-markup main-tree h-tree '(h)))
|
||
|
|
|
||
|
|
(write result)
|