add configuration
This commit is contained in:
parent
aa47663de8
commit
2bfb2990d4
2 changed files with 15 additions and 4 deletions
1
config.edn
Normal file
1
config.edn
Normal file
|
@ -0,0 +1 @@
|
||||||
|
{:origin "https://lnks.esy.fun"}
|
|
@ -1,11 +1,21 @@
|
||||||
(ns lynks.main
|
(ns lynks.main
|
||||||
(:require [org.httpkit.server :as http-kit]
|
(:require [org.httpkit.server :as http-kit]
|
||||||
|
[clojure.edn :as edn]
|
||||||
[lynks.core :refer [app]])
|
[lynks.core :refer [app]])
|
||||||
(:gen-class))
|
(:gen-class))
|
||||||
|
|
||||||
(defn -main [& _args]
|
(defn -main [& args]
|
||||||
(let [origin "http://127.0.0.1:13000"]
|
(let [config (or (some-> args first slurp clojure.edn/read-string) {})
|
||||||
|
{cfg-listen :listen
|
||||||
|
cfg-port :port
|
||||||
|
cfg-origin :origin} config
|
||||||
|
listen (or cfg-listen "127.0.0.1")
|
||||||
|
port (or cfg-port 13000)
|
||||||
|
origin (or cfg-origin
|
||||||
|
(when listen
|
||||||
|
(str "http://" listen
|
||||||
|
(when port (str ":" port)))))]
|
||||||
(println origin)
|
(println origin)
|
||||||
(http-kit/run-server (app origin)
|
(http-kit/run-server (app origin)
|
||||||
{:ip "127.0.0.1"
|
{:ip (or listen "127.0.0.1")
|
||||||
:port 13000})))
|
:port (or port 13000)})))
|
||||||
|
|
Loading…
Reference in a new issue