             [paulkrake.score :as s]
             [paulkrake.glicko2 :as g]
             [clojure.data.json :as json]))
-
-(def kategorien ["tore" "gegentore" "ballbesitz" "zweikaempfe"
-                 "laufstrecke" "karten" "torschuesse" "top-speed"
-                 "gefoult" "gefoult-worden" "ecken" "sprints" ])
 
 (defn to-clj-unmemoized [uri]
   (->> uri slurp json/read-str ))

                      (vector home away hg ag)))
             x)))


(defn map-inverse [m]
  (as-> m x
        (map (fn [[k v]] [v k]) x)
        (into {} x)
        )
  )




(defn data [saison spieltag kategorie])


(defn shots-on-goal [saison spieltag]
  (data saison spieltag "torschuesse"))

(defn tore [saison spieltag]
  (data saison spieltag "tore"))

(defn team-stats-by-match [match-id team-id]
  (as-> "http://sportsapi.sport1.de/team-stats-by-match/ma%s/te%s" x
        (format x match-id team-id)
        (to-clj x)
        (first x)))

(defn season-by-competition [saison]
  (let [name (format "20%s/20%s" 
