X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=mudsync%2Fnetworking.scm;h=b541c1ee99da72ff881e73c2a6bfc0b2e4891e3d;hb=3d8191bd9806c3affa781dadd14b3c91d42f3e6f;hp=33ad424f3234c497f01e8de21bf0580bad128af0;hpb=6f7c1d4f9a2043c16f83facef6b3216e45e14f40;p=mudsync.git

diff --git a/mudsync/networking.scm b/mudsync/networking.scm
index 33ad424..b541c1e 100644
--- a/mudsync/networking.scm
+++ b/mudsync/networking.scm
@@ -249,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"))