     [:div#board]]])
 
 (defn show-alert!
-  [msg]
-  (dom/append!
-    (sel1 :#messages)
-    (node [:div.alert-box {:data-alert true} msg])))
+  ([msg] (show-alert! msg nil))
+  ([msg alert-type]
+   (dom/append!
+     (sel1 :#messages)
+     (node [:div {:class (str "alert-box " (when alert-type (name alert-type)))
+                  :data-alert true}
+            msg]))))
 
 (defn card-selector
   "todo: general partition/chunking buffer"

          (clear! (sel1 :#messages))
          (let [result (<! result-chan)]
            (if (msg/error? result)
              (show-alert! (:message result)))))))

  (let [dict "abcdefghijklmnopqrstuvwxyz"
        dict "lj"

      (dom/append! el (card-ui/set-tmpl s)))))

(defn go-game-summary [container {:keys [game] :as finish-msg}]
  (go (let [modal (node [:div.reveal-modal.open
                         {:style "display:block; visibility:visible;"}
                         [:h2 "Game Complete"]
