handle-nick ( string -- )

Vocabulary

managed-server.chat

Inputs

string

an object

Outputs

None

Definition

USING: accessors assocs kernel managed-server sequences ;

IN: managed-server.chat

: handle-nick ( string -- )
    [ "nick" usage ] [
        dup clients key?
        [ username-taken-string send-line ] [
            [ username swap warn-name-changed ]
            [ username clients rename-at ] [ client username<< ]
            tri
        ] if
    ] if-empty ;