[WIP] part-2 wheel

Author: tamizhvendan

clojure/wheel/dev/user.clj

@@ -0,0 +1,7 @@
+(ns user
+  (:require [wheel.infra.core :refer [start-app stop-app migrate-database] :as infra]
+            [clojure.tools.namespace.repl :as repl]))
+
+(defn reset []
+  (stop-app)
+  (repl/refresh :after 'infra/start-app))

clojure/wheel/project.clj

@@ -5,7 +5,12 @@
             :url "https://www.eclipse.org/legal/epl-2.0/"}
   :dependencies [[org.clojure/clojure "1.10.1"]
                  [aero "1.1.3"]
-                 [mount "0.1.16"]]
+                 [mount "0.1.16"]
+                 [hikari-cp "2.8.0"]
+                 [org.postgresql/postgresql "42.2.6"]
+                 [org.flywaydb/flyway-core "5.2.4"]]
   :main ^:skip-aot wheel.core
   :target-path "target/%s"
-  :profiles {:uberjar {:aot :all}})
+  :profiles {:uberjar {:aot :all}
+             :dev {:source-paths ["dev"]
+                   :dependencies [[org.clojure/tools.namespace "0.3.1"]]}})

clojure/wheel/resources/config.edn

@@ -3,6 +3,6 @@
   {:adapter            "postgresql"
    :username           #or [#env "WHEEL_APP_DB_USERNAME" "postgres"]
    :password           #or [#env "WHEEL_APP_DB_PASSWORD" "postgres"]
-   :database-name      #or [#env "WHEEL_APP_DB_NAME" "my_tasks"]
+   :database-name      #or [#env "WHEEL_APP_DB_NAME" "wheel"]
    :server-name        #or [#env "WHEEL_APP_DB_SERVER" "localhost"]
    :port-number        #or [#env "WHEEL_APP_DB_PORT" 5432]}}}

clojure/wheel/src/wheel/core.clj

@@ -1,7 +1,12 @@
 (ns wheel.core
+  (:require [wheel.infra.core :as infra])
   (:gen-class))
 
+(defn add-shutdown-hook []
+  (.addShutdownHook (Runtime/getRuntime) (Thread. infra/stop-app)))
+
 (defn -main
-  "I don't do a whole lot ... yet."
   [& args]
+  (infra/start-app)
+  (add-shutdown-hook)
   (println "Hello, World!"))

clojure/wheel/src/wheel/infra/core.clj

@@ -0,0 +1,20 @@
+(ns wheel.infra.core
+  (:require [mount.core :as mount]
+            [wheel.infra.config :as config]
+            [wheel.infra.database :as db]))
+
+(defn start-app []
+  (mount/start))
+
+(defn stop-app []
+  (mount/stop))
+
+(defn migrate-database []
+  (mount/start #'config/root #'db/datasource)
+  (db/migrate)
+  (mount/stop))
+
+(comment
+  (start-app)
+  (stop-app)
+  (migrate-database))

clojure/wheel/src/wheel/infra/database.clj

@@ -0,0 +1,24 @@
+(ns wheel.infra.database
+  (:require [wheel.infra.config :as config]
+            [mount.core :as mount]
+            [hikari-cp.core :as hikari])
+  (:import [org.flywaydb.core Flyway]))
+
+(defn- make-datasource []
+  (hikari/make-datasource (config/database)))
+
+(mount/defstate datasource
+  :start (make-datasource)
+  :stop (hikari/close-datasource datasource))
+
+(defn migrate []
+  (.. (Flyway/configure)
+      (dataSource datasource)
+      (locations (into-array String ["classpath:db/migration"]))
+      load
+      migrate))
+
+(comment
+  (mount/start)
+  (migrate)
+  (mount/stop))