[closure-cvs] CVS closure/src/gui

[dlichteblau]

Update of /project/closure/cvsroot/closure/src/gui
In directory clnet:/tmp/cvs-serv9505/src/gui

Modified Files:
	clue-gui.lisp 
Log Message:

Use CXML's rune implementation and XML parser.


--- /project/closure/cvsroot/closure/src/gui/clue-gui.lisp	2005/03/13 18:01:37	1.3
+++ /project/closure/cvsroot/closure/src/gui/clue-gui.lisp	2006/12/29 21:29:27	1.4
@@ -115,7 +115,7 @@
                       ((member mime-type (list (netlib:find-mime-type "text/html")))
                        (sgml::parse-html input charset))
                       ((member mime-type (list (netlib:find-mime-type "text/xml")))
-                       (xml::parse-stream input))
+                       (cxml:parse-stream input (cxml-dom:make-dom-builder) :recode nil))
 
                       ((or t
                            #+NIL
@@ -214,6 +214,10 @@
    (serial       :initarg :serial)
    (dumpee       :initarg :dumpee       :initform nil) ) )
 
+(defmethod runes::figure-encoding ((stream glisp:gstream))
+  ;; For HTML iso-8859-1 is the default
+  (values (cxml::find-encoding :iso-8859-1) nil))
+
 (defmethod g/read-byte ((stream pb-stream)  &optional (eof-error-p t) eof-value)
   (with-slots (nread ntotal proxee dumpee) stream
     (let ((res (g/read-byte proxee eof-error-p eof-value)))