diff --git a/src/bot.clj b/src/bot.clj index 8449dee..68cf6d3 100644 --- a/src/bot.clj +++ b/src/bot.clj @@ -60,7 +60,7 @@ (let [{command :command game :game game-keyword :game-keyword} (split-message message)] - (when game + (if game (condp = command "!match" (match-string @state game nil) @@ -75,4 +75,9 @@ "!remove" (do (swap! state game/remove-player-of-game game-keyword sender) (remove-player-string nil game sender)) + nil) + + (condp = command + "!list" + (list-games-string @state nil nil) nil))))