You can now kiss the frog!

[mudsync.git] / mudsync / networking.scm

diff --git a/mudsync/networking.scm b/mudsync/networking.scm
index 228a89fd4377da5da2ec4ada75fddb4127402d4b..e72820628f352e2a83ddcd582b1caad00177e40d 100644 (file)
--- a/mudsync/networking.scm
+++ b/mudsync/networking.scm
@@ -1,5 +1,5 @@
 ;;; Mudsync --- Live hackable MUD
-;;; Copyright © 2016-2017 Christopher Allan Webber <cwebber@dustycloud.org>
+;;; Copyright © 2016-2017 Christine Lemmer-Webber <cwebber@dustycloud.org>
 ;;;
 ;;; This file is part of Mudsync.
 ;;;
@@ -27,7 +27,7 @@
   #:use-module (oop goops)
 
   ;; Formatting
-  #:use-module (sxml simple)
+  #:use-module (mudsync scrubl)
 
   ;; used by web server only
   #:use-module (sxml simple)
@@ -194,9 +194,7 @@
 (define* (nm-send-to-client-id nm message #:key client data)
   "Send DATA to TO-CLIENT id"
   (define formatted-data
-    (call-with-output-string
-      (lambda (p)
-        (sxml->xml data p))))
+    (scrubl-write scrubl-sxml data))
   (define client-obj (hash-ref (nm-clients nm) client))
   (match client-obj
     (#f (throw 'no-such-client
@@ -251,7 +249,11 @@ like the web one"
                 ;;      (p (b "<bar>") " Last one!"))
                 ))
       (div (@ (id "input-metabox"))
-           (input (@ (id "main-input"))))))
+           (input (@ (id "main-input")))
+           " "
+           (span (@ (id "connection-status")
+                    (class "disconnected"))
+                 "[disconnected]"))))
 
   (define (main-tmpl)
     `(html (@ (xmlns "http://www.w3.org/1999/xhtml"))