external/lift.darcs/website/stuff/Temp.lisp

   1 (in-package #:few)
   2
   3 #+Ignore
   4 ;; suck site up and output as LML
   5 (mapc
   6  (lambda (file)
   7    (let ((html (net.html.parser:parse-html file)))
   8      (setf html (remove-if (lambda (x)
   9                              (and (consp x)
  10                                   (member (first x) '(:!doctype))))
  11                            html))
  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"))
  16
  17 (net.html.parser:parse-html
  18  #P"Billy-Pilgrim:Users:gwking:darcs:metabang.tinaa:website:index.html")
  19
  20 (probe-file
  21  "Billy-Pilgrim:Users:gwking:darcs:cl-containers:website:index.shtml")
  22
  23 (eval `(html
  24         ((:html :xmlns "http://www.w3.org/1999/xhtml")
  25          ,@(rest ccl:!))))
  26
  27
  28
  29 #+No
  30 (with-new-file (*html-stream* (spy (make-pathname :type "lml" :defaults file)))
  31   (dtd-prologue :xhtml11)
  32   (eval `(html
  33           ((:html :xmlns "http://www.w3.org/1999/xhtml")
  34            ,@html))))