 ;;;   Utility Functions   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;   Language Component API   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
 (defn get-generator
   [system gen-type]
   (get-in system [:lang :generators gen-type]))

  [system]
  (get-in system [:lang :db]))

(defn ingest-stats
  [system & args]
  (apply
    db/ingest-stats
    (concat
     [(get-db system)]
     args
     [(apply corpus/undump args)])))

(defn ingest-all-stats
  [system]
  (db/ingest-stats
    (get-db system)

              (log/debugf "race, name-type, gen: %s, %s, %s" race name-type gen)
              [[race name-type gen]
               (apply corpus/undump [race name-type gen])])))))

(defn ingest-stats
  [system & args]
  (if (nil? args)
    (-ingest-all-stats system)
    (apply
      db/ingest-stats
      (concat
       [(get-db system)]
       args
       [(apply corpus/undump args)]))))

(def lang-stats #(db/lang-stats (get-db %1) %2 %3))
(def name-stats #(db/name-stats (get-db %1) %2 %3 %4))
