Add !list IRC command to dispatch-command function

Signed-off-by: Sebastian Crane <seabass-labrax@gmx.com>
2022-02-09 21:47:05 +00:00 · 2022-02-09 21:47:05 +00:00 · 77b022455e
parent f891299236
commit 77b022455e
1 changed files with 6 additions and 1 deletions
--- 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))))