From 5a8b2dfc6e6303e0e8f1b168b1ad83b00abcd6b2 Mon Sep 17 00:00:00 2001 From: John Warwick Date: Sun, 23 Sep 2018 22:08:58 +0200 Subject: [PATCH] Fix alt art set all behavior --- src/cljs/nr/account.cljs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/cljs/nr/account.cljs b/src/cljs/nr/account.cljs index d7d23adefc..90e9422bf2 100644 --- a/src/cljs/nr/account.cljs +++ b/src/cljs/nr/account.cljs @@ -131,7 +131,7 @@ (defn reset-card-art ([s] (let [art (:all-art-select @s)] - (reset-card-art art))) + (reset-card-art s art))) ([s art] (doseq [card (vals (:alt-arts @app-state))] (update-card-art card art s)))) @@ -243,7 +243,8 @@ (when (and (:special @user) (:alt-arts @app-state)) [:div {:id "my-alt-art"} [:h4 "My alternate card arts"] - [:select {:value "" :on-change #(select-card (.. % -target -value) s)} + [:select {:value (:alt-card @s) + :on-change #(select-card (.. % -target -value) s)} (doall (for [card (sort-by :title (vals (:alt-arts @app-state)))] ^{:key (:code card)} [:option {:value (:code card)} (:title card)]))]