projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rube goldberg machine (with intentional error)
[mudsync.git]
/
mudsync
/
networking.scm
diff --git
a/mudsync/networking.scm
b/mudsync/networking.scm
index 228a89fd4377da5da2ec4ada75fddb4127402d4b..b541c1ee99da72ff881e73c2a6bfc0b2e4891e3d 100644
(file)
--- a/
mudsync/networking.scm
+++ b/
mudsync/networking.scm
@@
-27,7
+27,7
@@
#:use-module (oop goops)
;; Formatting
#:use-module (oop goops)
;; Formatting
- #:use-module (
sxml simple
)
+ #:use-module (
mudsync scrubl
)
;; used by web server only
#:use-module (sxml simple)
;; 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
(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
(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"))
;; (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"))
(define (main-tmpl)
`(html (@ (xmlns "http://www.w3.org/1999/xhtml"))