kernels: Rename 'sxml->html-string' to 'sxml->xml-string'.

* jupyter/kernels.scm (sxml->html-string): Rename to...
(sxml->xml-string): ... this.
(reply-shtml): Adjust accordingly.
* guix-jupyter-kernel.scm (reply-for-environment-kernel): Likewise.
* guix/jupyter/kernel.scm (build-event-reporter)
(call-with-build-progress-report): Likewise.

guix-jupyter-kernel.scm

@@ -143,7 +143,7 @@ NAME with MANIFEST."
                        (scm->json-string
                         `(("data"     .
                            (("text/html"
-                             . ,(sxml->html-string
+                             . ,(sxml->xml-string
                                  `(div
                                    "Running "
                                    ,(kernel-specs-display-name specs)

guix/jupyter/kernel.scm

@@ -200,7 +200,7 @@ monadic value, a <kernel> connected to that process."
                          (scm->json-string
                           `(("data"
                              . (("text/html"
-                                 . ,(sxml->html-string shtml))))
+                                 . ,(sxml->xml-string shtml))))
                             ("metadata" . ())
                             ("transient"
                              . (("display_id" . ,display-id))))))
@@ -227,7 +227,7 @@ monadic value, a <kernel> connected to that process."
                        (scm->json-string
                         `(("data"
                            . (("text/html"
-                               . ,(sxml->html-string
+                               . ,(sxml->xml-string
                                    `(div "Preparing things...")))))
                           ("metadata" . ())
                           ("transient"

jupyter/kernels.scm

@@ -89,7 +89,7 @@
             pub-busy
             pub-idle
 
-            sxml->html-string
+            sxml->xml-string
             reply-shtml
 
             close-kernel))
@@ -467,7 +467,7 @@ identity (bytevector)."
 ;; Reply.
 ;;
 
-(define (sxml->html-string sxml)
+(define (sxml->xml-string sxml)
   (call-with-output-string
     (lambda (port)
       (sxml->xml sxml port))))
@@ -479,7 +479,7 @@ identity (bytevector)."
 	(empty-object '())
 	(counter      (+ count 1))                ;execution counter
 
-        (html (sxml->html-string shtml))
+        (html (sxml->xml-string shtml))
         (send (lambda (socket type content)
                 (send-message kernel
                               (reply message type