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
|
(let [{command :command
|
||||||
game :game
|
game :game
|
||||||
game-keyword :game-keyword} (split-message message)]
|
game-keyword :game-keyword} (split-message message)]
|
||||||
(when game
|
(if game
|
||||||
(condp = command
|
(condp = command
|
||||||
"!match"
|
"!match"
|
||||||
(match-string @state game nil)
|
(match-string @state game nil)
|
||||||
|
@ -75,4 +75,9 @@
|
||||||
"!remove"
|
"!remove"
|
||||||
(do (swap! state game/remove-player-of-game game-keyword sender)
|
(do (swap! state game/remove-player-of-game game-keyword sender)
|
||||||
(remove-player-string nil game sender))
|
(remove-player-string nil game sender))
|
||||||
|
nil)
|
||||||
|
|
||||||
|
(condp = command
|
||||||
|
"!list"
|
||||||
|
(list-games-string @state nil nil)
|
||||||
nil))))
|
nil))))
|
||||||
|
|
Loading…
Reference in New Issue