ddc33e849f
Add a README.org with info on installing dependencies and running the app outside Emacs, and add a comment at the end of core.clj with info on running the app inside Emacs with CIDER. Change-Id: Ie7e73f71a98425092782facd80ceec2a8995bb0d Reviewed-on: https://cl.tvl.fyi/c/depot/+/5115 Reviewed-by: grfn <grfn@gws.fyi> Autosubmit: grfn <grfn@gws.fyi> Tested-by: BuildkiteCI
69 lines
1.4 KiB
Clojure
69 lines
1.4 KiB
Clojure
(ns bbbg.core
|
|
(:gen-class)
|
|
(:require
|
|
[bbbg.db :as db]
|
|
[bbbg.web :as web]
|
|
[clojure.spec.alpha :as s]
|
|
[clojure.spec.test.alpha :as stest]
|
|
[com.stuartsierra.component :as component]
|
|
[expound.alpha :as exp]))
|
|
|
|
(s/def ::config
|
|
(s/merge
|
|
::db/config
|
|
::web/config))
|
|
|
|
(defn make-system [config]
|
|
(component/system-map
|
|
:db (db/make-database config)
|
|
:web (web/make-server config)))
|
|
|
|
(defn env->config []
|
|
(s/assert
|
|
::config
|
|
(merge
|
|
(db/env->config)
|
|
(web/env->config))))
|
|
|
|
(defn dev-config []
|
|
(s/assert
|
|
::config
|
|
(merge
|
|
(db/dev-config)
|
|
(web/dev-config))))
|
|
|
|
(defonce system nil)
|
|
|
|
(defn init-dev []
|
|
(s/check-asserts true)
|
|
(set! s/*explain-out* exp/printer)
|
|
(stest/instrument))
|
|
|
|
(defn run-dev []
|
|
(init-dev)
|
|
(alter-var-root
|
|
#'system
|
|
(fn [sys]
|
|
(when sys
|
|
(component/start sys))
|
|
(component/start (make-system (dev-config))))))
|
|
|
|
(defn -main [& _args]
|
|
(alter-var-root
|
|
#'system
|
|
(constantly (component/start (make-system (env->config))))))
|
|
|
|
(comment
|
|
;; To run the application:
|
|
;; 1. `M-x cider-jack-in`
|
|
;; 2. `M-x cider-load-buffer` in this buffer
|
|
;; 3. (optionally) configure the secrets backend in `bbbg.util.dev-secrets`
|
|
;; 4. Put your cursor after the following form and run `M-x cider-eval-last-sexp`
|
|
;;
|
|
;; A web server will be listening on http://localhost:8888
|
|
|
|
(do
|
|
(run-dev)
|
|
(bbbg.db/migrate! (:db system)))
|
|
|
|
)
|