# HG changeset patch # User Robert McIntyre # Date 1332473855 18000 # Node ID da1a5ed61a8de1f96bbf4e108498b0c9d5da0cfe # Parent fd549c8f42aee934c5de107c7028a144395bc390 minor reformatting. diff -r fd549c8f42ae -r da1a5ed61a8d clojure/com/aurellem/gb/pokemon.clj --- a/clojure/com/aurellem/gb/pokemon.clj Thu Mar 22 22:35:57 2012 -0500 +++ b/clojure/com/aurellem/gb/pokemon.clj Thu Mar 22 22:37:35 2012 -0500 @@ -219,25 +219,22 @@ stats (read-stats state poke-num) experience (read-experience state poke-num) OT-name (read-OT-name state poke-num) - ID (read-OT-id state poke-num) - ] - - {:name nickname + ID (read-OT-id state poke-num)] + {;; persistent + :name nickname :species species :species2 species2 :type type :dv dv-values :original-trainer OT-name :ID ID - :moves (zipmap moves moves-pp) + ;; ephemerial :satus status :stats stats :experience experience - - } - )) + })) ([poke-num] (pokemon-info @current-state poke-num)))