add configuration

This commit is contained in:
Yann Esposito (Yogsototh) 2022-08-16 13:18:34 +02:00
parent aa47663de8
commit 2bfb2990d4
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
2 changed files with 15 additions and 4 deletions

1
config.edn Normal file
View file

@ -0,0 +1 @@
{:origin "https://lnks.esy.fun"}

View file

@ -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)})))