                              :background-size "contain"
                              :background-image (str "url(images/cardart/" (name (:face c)) ".png)")
                              :border-width "2px"}}]) cards)]])
+
+
 
 (defn player-one-area [player-info phase active-player?]
   (let [player-info (subscribe [:player-info 1])

       [:div#discard-pile {:style {:position "absolute" :left "35%" :bottom "60%"}}
        [discard-pile @discarded-cards]]

       [:div#player-controls
        [:div (menu-box-style "0%")
         (if (= 1 @current-player-id)

             {:on-click #(dispatch [:set-guard-guess guess])}
             (s/capitalize (name guess))]) card-faces)]))))

(def face->symbol
  {:guard "G"
   :priest "Pst"
   :baron "B"
   :handmaid "H"
   :prince "Prnc"
   :king   "K"
   :countess "C"
   :princess "P"})

(defn in?
  [coll element]
  (some #(= element %) coll))

(defn hand->symbols [hand]
  (s/join
   (reduce
    (fn [string card]
      (if (in? (:visible card) 1)
        (concat string (face->symbol (:face card)))
        string)) "" hand)))

(defn player-display [current-player players]
  [:ul {:style {:list-style "none"
                :font-size "1em"}}
   (map-indexed
    (fn [i p]
      (let [{:keys [id hand alive? protected?]} p]
        ^{:key (str "player" i "display")}
        [:li {:style {:text-decoration (if alive? "" "line-through")
                      :color (if (= current-player id) "steelblue" "white")}}
         (str (when protected? (js/String.fromCharCode 9730))
              " Player " id " "
              (hand->symbols hand))])) players)])


(defn game-screen []
  (let [deck              (subscribe [:deck])
