-
Notifications
You must be signed in to change notification settings - Fork 8
/
Copy pathcore.clj
37 lines (33 loc) · 872 Bytes
/
core.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
(ns otus-18.homework.core
(:require
[otus-18.homework.analytical :refer [analytics-print]]
[otus-18.homework.conf.migrations :refer [migrate]]
[otus-18.homework.db :refer [save-pokemon save-type]]
[otus-18.homework.pokemons :refer [pokemons translated-types]]
)
(:gen-class))
(defn load-types []
(println "loading types...")
(translated-types "ja" save-type) ; can use println
(println "saved")
)
(defn load-pokemons []
(println "loading pokemons...")
(pokemons 55 save-pokemon) ; can use println
(println "saved")
)
(defn init []
(do
(migrate)
(load-types)
(load-pokemons)
))
(defn -main
[& args]
(do
(init)
(println "Аналитика")
(analytics-print)
(println "Нужно удалить файл ~/pokemons.h2.mv.db")
)
)