actually sorted

mtgred · Oct 22, 2024 · 3d60760 · 3d60760
1 parent 42c18e1
commit 3d60760
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/clj/game/core/set_up.clj b/src/clj/game/core/set_up.clj
@@ -126,8 +126,8 @@
 
 (defn- set-deck-lists
   [state]
-  (let [runner-cards (into (sorted-map) (frequencies (map :title (get-in @state [:runner :deck]))))
-        corp-cards (into (sorted-map) (frequencies (map :title (get-in @state [:corp :deck]))))]
+  (let [runner-cards (sort-by key (frequencies (map :title (get-in @state [:runner :deck]))))
+        corp-cards (sort-by key (frequencies (map :title (get-in @state [:corp :deck]))))]
     (swap! state assoc :decklists {:corp corp-cards :runner runner-cards})))
 
 (defn init-game

diff --git a/src/cljs/nr/gameboard/board.cljs b/src/cljs/nr/gameboard/board.cljs
@@ -1301,7 +1301,7 @@
         card-name (fn [c] [:div {:text-align "left"
                                  :on-mouse-over #(card-preview-mouse-over % zoom-channel)
                                  :on-mouse-out #(card-preview-mouse-out % zoom-channel)}
-                           (render-message (subs (str (first c) "  ") 1))])]
+                           (render-message (first c))])]
     [:div
      [:table.decklists.table
       [:tbody