;;; 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.
;;;
#:use-module (oop goops)
;; Formatting
- #:use-module (sxml simple)
+ #:use-module (mudsync scrubl)
;; used by web server only
#:use-module (sxml simple)
(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
;; (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"))