          :data-placement "bottom"
          :data-html true
          :data-trigger "hover"
-         :title (reagent/render-component-to-string [card-img image-link])}
+         :title (reagent/render-component-to-string [card-img image-link])
+         :onClick (fn [] (reset! displayed-card-url image-link))}
          (str (get card "name"))]]))
 
 (defn card-in-list-did-mount [card-id]

                    [:p.text-right (str (count (remove-cards-by-type @card-data/card-list "Creature"))) " Non-creature Spells"]
                    [:p.text-right (str (count (filter-cards-by-type @card-data/card-list "Creature"))) " Creatures"]
                    [:p.text-right (str (count (filter-cards-by-type @card-data/card-list "Land"))) " Lands"]]]
        [:div.row [card-list @card-data/card-list]]]])

(defn about-page []
  [:div [:h2 "About decktouch"]

            [decktouch.card-input :as card-input])
  (:import goog.History))

(def displayed-card-url (reagent/atom ""))

;; -------------------------
;; Views
