seabass
/
matchbot
forked from LibreGaming/matchbot
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Prune empty game if removing its only player 

Signed-off-by: Sebastian Crane <seabass-labrax@gmx.com>
This commit is contained in:
Sebastian Crane 2022-02-09 21:25:20 +00:00
parent 5c0918f990
commit ae06d012ea
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/game.clj
View File

@ -1,7 +1,8 @@
;; SPDX-License-Identifier: Apache-2.0 ;; SPDX-License-Identifier: Apache-2.0
;; SPDX-FileCopyrightText: 2021 Sebastian Crane <seabass-labrax@gmx.com> ;; SPDX-FileCopyrightText: 2021 Sebastian Crane <seabass-labrax@gmx.com>
(ns game) (ns game
(:require [clojure.set :refer [superset?]]))
(defn get-players-of-game [state game] (defn get-players-of-game [state game]
(get-in state [:games game])) (get-in state [:games game]))
@ -10,7 +11,10 @@
(update-in state [:games game] #(set (conj % player)))) (update-in state [:games game] #(set (conj % player))))
(defn remove-player-of-game [state game player] (defn remove-player-of-game [state game player]
(update-in state [:games game] #(disj % player))) (update state :games
#(if (superset? (set [player]) (% game))
(dissoc % game)
(update % game disj player))))
(defn get-games [state] (defn get-games [state]
(keys (:games state))) (keys (:games state)))