notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

Greatly simplified background processes

Browse Source
This commit is contained in:
Bryce Covert
2020-07-31 23:15:43 -07:00
parent be9c789003
commit 49f98522c0
6 changed files with 116 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/clj/auto_ap/server.clj
View File

@@ -1,24 +1,20 @@
(ns auto-ap.server
(:require #_[auto-ap.background.mail :refer [always-process-sqs]]
[auto-ap.handler :refer [app]]
[auto-ap.ledger :refer [process-all keep-up-to-date]]
[auto-ap.yodlee.core :refer [load-in-memory-cache]]
[auto-ap.background.invoices :refer [close-auto-invoices]]
[auto-ap.ledger]
[auto-ap.yodlee.core]
[auto-ap.background.invoices]
[nrepl.server :refer [start-server stop-server]]
[config.core :refer [env]]
[ring.adapter.jetty :refer [run-jetty]])
[ring.adapter.jetty :refer [run-jetty]]
[mount.core :as mount])
(:gen-class))
#_(defn cider-nrepl-handler []
(require 'cider.nrepl)
(ns-resolve 'cider.nrepl 'cider-nrepl-handler))
(defn -main [& args]
(start-server :port 9000 :bind "0.0.0.0" #_#_:handler (cider-nrepl-handler))
(let [port (Integer/parseInt (or (env :port) "3000"))]
(future (process-all))
(future (load-in-memory-cache))
(future (keep-up-to-date))
(future (close-auto-invoices))
(mount/start)
#_(future (always-process-sqs))
(run-jetty app {:port port :join? false})))