   (om/set-state! owner :side side)
   (om/set-state! owner :name "New deck")
   (om/set-state! owner :cards [])
-  (om/set-state! owner :identity "")
+  (om/set-state! owner :identity (-> side side-identities first :title))
   (edit-deck owner))
 
 (defn save-deck [owner]


(def app-state (atom {:decks []}))

(defn edit-deck [owner]
  (om/set-state! owner :edit true)
  (-> owner (om/get-node "viewport") js/$ (.css "left" -477)))

           [:p [:input.name {:type "text" :placeholder "Deck name" :value (:name state)
                             :on-change #(om/set-state! owner :name (.. % -target -value))}]]
           [:p
            [:select {:value (:identity state)
                      :on-change #(om/set-state! owner :identity (.. % -target -value))}
             (for [card (side-identities (:side state))]
               [:option (:title card)])]]
           [:p
            [:input.lookup {:type "text" :placeholder "Card" :value (:card-search state)}] " x "
            [:input.qty {:type "text" :value (:quantity state)}]
