                     (when (< count min-count)
                       [:span.invalid (str "(minimum " min-count ")")])])
                  (let [inf (influence deck)
-                       limit (:influencelimit identity)]
+                       limit (influencelimit identity)]
                    [:div "Influence: "
                     [:span {:class (when (> inf limit) "invalid")} inf]
-                    "/" (:influencelimit identity)])
+                    "/" (if (= INFINITY limit) "∞" limit)])
                  (when (= (:side identity) "Corp")
                    (let [min-point (min-agenda-points deck)
                          points (agenda-points deck)]


(def select-channel (chan))
(def zoom-channel (chan))

(defn identical-cards? [cards]
  (let [name (:title (first cards))]


(defn valid? [{:keys [identity cards] :as deck}]
  (and (>= (card-count cards) (:minimumdecksize identity))
       (<= (influence deck) (influencelimit identity))
       (every? #(and (allowed? (:card %) identity)
                     (<= (:qty %) (or (get-in % [:card :limited]) 3))) cards)
       (or (= (:side identity) "Runner")
