Commit 9dca44b5 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

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.
parent d9497412
......@@ -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)
......
......@@ -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"
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment