More helpful message for unknown commands

pull/111/head
Shrutarshi Basu 9 years ago
parent ed8581287c
commit 659bce3603

@ -175,4 +175,7 @@ version print the version" (current-server-port) (make-publish-di
(if (regexp-match #rx"(shit|fuck)" command) (if (regexp-match #rx"(shit|fuck)" command)
(displayln (let ([responses '("Cursing at free software? Really?" "How uncouth." "Same to you, buddy.")]) (displayln (let ([responses '("Cursing at free software? Really?" "How uncouth." "Same to you, buddy.")])
(list-ref responses (random (length responses))))) (list-ref responses (random (length responses)))))
(displayln (format "unknown command ~a" command)))) (begin
(displayln (format "`~a` is an unknown command. Please try one of the following." command))
(displayln "")
(handle-help))))

Loading…
Cancel
Save