Factor out keywordise-game function

Signed-off-by: Sebastian Crane <seabass-labrax@gmx.com>

src/bot.clj

@@ -6,10 +6,13 @@
             [game]
             [irclj.core]))
 
+(defn keywordise-game [game]
+  (when (string? game)
+    (keyword (str/lower-case game))))
+
 (defn sorted-players-of-game [state game]
   (->> game
-       (str/lower-case)
+       (keywordise-game)
-       (keyword)
        (game/get-players-of-game state)
        (sort)))
 
@@ -51,7 +54,7 @@
   (let [message-parts (str/split message #"\s")
         command (if-let [x (first message-parts)] (str/lower-case x) "")
         game (second message-parts)
-        game-keyword (when game (keyword (str/lower-case game)))]
+        game-keyword (keywordise-game game)]
     {:command command
      :game game
      :game-keyword game-keyword}))

test/bot_test.clj

@@ -9,6 +9,10 @@
                           :quasi-rts #{"abc" "123"}
                           :imaginary-rpg #{"xyz" "abc"}}})
 
+(deftest keywordise-game-test
+  (is (= :quasi-rts
+         (keywordise-game "Quasi-RTS"))))
+
 (deftest match-string-test
   (is (= '"Anyone ready for quasi-Rts? 123 abc"
          (match-string :state test-state :game "quasi-Rts"))))