Command-line control of nickname in server-chat-client
This commit is contained in:
parent
052be5c58e
commit
be0dc5413b
|
@ -10,6 +10,7 @@
|
||||||
(define host (make-parameter "localhost"))
|
(define host (make-parameter "localhost"))
|
||||||
(define port (make-parameter 8001))
|
(define port (make-parameter 8001))
|
||||||
(define scope (make-parameter "chat"))
|
(define scope (make-parameter "chat"))
|
||||||
|
(define initial-username (make-parameter (symbol->string (strong-gensym 'chatter-))))
|
||||||
|
|
||||||
(file-stream-buffer-mode (current-output-port) 'line)
|
(file-stream-buffer-mode (current-output-port) 'line)
|
||||||
|
|
||||||
|
@ -18,10 +19,11 @@
|
||||||
(command-line #:once-each
|
(command-line #:once-each
|
||||||
["--host" hostname "Server hostname" (host hostname)]
|
["--host" hostname "Server hostname" (host hostname)]
|
||||||
["--port" portnum "Server port number" (port (string->number portnum))]
|
["--port" portnum "Server port number" (port (string->number portnum))]
|
||||||
["--scope" scopename "Server scope" (scope scopename)]))
|
["--scope" scopename "Server scope" (scope scopename)]
|
||||||
|
["--nick" nick "User nickname" (initial-username nick)]))
|
||||||
|
|
||||||
(spawn #:name 'main
|
(spawn #:name 'main
|
||||||
(field [username (symbol->string (strong-gensym 'chatter-))])
|
(field [username (initial-username)])
|
||||||
|
|
||||||
(define root-facet (current-facet))
|
(define root-facet (current-facet))
|
||||||
(define url (server-tcp-connection (host) (port) (scope)))
|
(define url (server-tcp-connection (host) (port) (scope)))
|
||||||
|
|
Loading…
Reference in New Issue