From a052ebb929d70b3b853109cfe81d8016edb61ca6 Mon Sep 17 00:00:00 2001 From: Grant Shangreaux Date: Mon, 20 Apr 2020 09:45:48 -0500 Subject: Fix: command strings are downcased to ease their use --- snekeyes.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))))) -- cgit v1.2.3