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
|
||||
(:require [org.httpkit.server :as http-kit]
|
||||
[clojure.edn :as edn]
|
||||
[lynks.core :refer [app]])
|
||||
(:gen-class))
|
||||
|
||||
(defn -main [& _args]
|
||||
(let [origin "http://127.0.0.1:13000"]
|
||||
(defn -main [& args]
|
||||
(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)
|
||||
(http-kit/run-server (app origin)
|
||||
{:ip "127.0.0.1"
|
||||
:port 13000})))
|
||||
{:ip (or listen "127.0.0.1")
|
||||
:port (or port 13000)})))
|
||||
|
|
Loading…
Reference in a new issue