diff options
-rw-r--r-- | snekeyes.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/snekeyes.lisp b/snekeyes.lisp index 91fdc52..4f9dd95 100644 --- a/snekeyes.lisp +++ b/snekeyes.lisp @@ -22,7 +22,7 @@ ;; of the +snekeyes-commands+ (defmethod handle-event :after ((*snekeyes* snekeyes) (event text-message-event)) (let* ((words (ppcre:split " " (msg-body event))) - (command (car words)) + (command (string-downcase (car words))) (dice-string (cadr words))) (if (dice-command-p command) (send-text-message *snekeyes* *room-id* (handle-dice-command command dice-string))))) |