Add !list IRC command to dispatch-command function
Signed-off-by: Sebastian Crane <seabass-labrax@gmx.com>
This commit is contained in:
parent
f891299236
commit
77b022455e
|
@ -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))))
|
||||
|
|
Loading…
Reference in New Issue