4 ;; suck site up and output as LML
7 (let ((html (net.html.parser
:parse-html file
)))
8 (setf html
(remove-if (lambda (x)
10 (member (first x
) '(:!doctype
))))
12 (with-new-file (s (make-pathname :type
"lml" :defaults file
)
13 :print-right-margin
70)
14 (format s
"~S" html
))))
15 (directory "Billy-Pilgrim:Users:gwking:darcs:metabang.tinaa:website:*.html"))
17 (net.html.parser
:parse-html
18 #P
"Billy-Pilgrim:Users:gwking:darcs:metabang.tinaa:website:index.html")
21 "Billy-Pilgrim:Users:gwking:darcs:cl-containers:website:index.shtml")
24 ((:html
:xmlns
"http://www.w3.org/1999/xhtml")
30 (with-new-file (*html-stream
* (spy (make-pathname :type
"lml" :defaults file
)))
31 (dtd-prologue :xhtml11
)
33 ((:html
:xmlns
"http://www.w3.org/1999/xhtml")