diff options
| author | Grant Shangreaux <shshoshin@protonmail.com> | 2020-04-20 09:45:48 -0500 |
|---|---|---|
| committer | Grant Shangreaux <shshoshin@protonmail.com> | 2020-04-20 09:45:48 -0500 |
| commit | a052ebb929d70b3b853109cfe81d8016edb61ca6 (patch) | |
| tree | 1990197d942c267e8f2ab64a3248142d05834570 /snekeyes.lisp | |
| parent | 3a6fe85e1f24d07f06636eb3484327a7a2d1af84 (diff) | |
Fix: command strings are downcased to ease their use
Diffstat (limited to 'snekeyes.lisp')
| -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))))) |