 (defn found? [query cards]
   (some #(if (= (.toLowerCase (:title %)) query) %) cards))
 
-(defn id-inf-limit [identity]
+(defn id-inf-limit
   "Returns influence limit of an identity or INFINITY in case of draft IDs."
+  [identity]
   (if (= (:setname identity) "Draft") INFINITY (:influencelimit identity)))
 
-(defn mostwanted? [card]
+(defn mostwanted?
   "Returns true if card is on Most Wanted NAPD list."
+  [card]
   (let [napdmwl '("Cerberus \"Lady\" H1" "Clone Chip" "Desperado" "Parasite" "Prepaid VoicePAD"
                    "Architect" "AstroScript Pilot Program" "Eli 1.0" "NAPD Contract" "SanSan City Grid")]
     (some #(= (:title card) %) napdmwl)))

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

    (some #(when (and (not= (:setname %) "Alternates") (= (:title %) (:title card))) %)
          (:cards @app-state))
    card))

(defn influence-dots
  "Returns a string with UTF-8 full circles representing influence."
  [num]
  (apply str (conj (for [_ (range num)] "&#9679;") "")))

(defn restricted-dots
  "Returns a string with UTF-8 empty circles representing MWL restricted cards."
  [num]
  (apply str (conj (for [_ (range num)] "&#9675;") "")))

(defn octgn-link [owner]
  (let [deck (om/get-state owner :deck)
