handle-help ( string -- )

Vocabulary

managed-server.chat

Inputs

string

an object

Outputs

None

Definition

USING: assocs kernel namespaces sequences sorting ;

IN: managed-server.chat

: handle-help ( string -- )
    [
        "Commands: " commands get keys sort ", " join append
        send-line
    ] [
        chat-docs get ?at
        [ send-line ] [ "Unknown command: " prepend send-line ]
        if
    ] if-empty ;