mirror of
https://github.com/penpot/penpot.git
synced 2025-03-02 10:45:41 -05:00
58 lines
1.3 KiB
Clojure
58 lines
1.3 KiB
Clojure
|
;; This Source Code Form is subject to the terms of the Mozilla Public
|
||
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
||
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
||
|
|
;;
|
||
|
|
;; This Source Code Form is "Incompatible With Secondary Licenses", as
|
||
|
|
;; defined by the Mozilla Public License, v. 2.0.
|
||
|
|
;;
|
||
|
|
;; Copyright (c) 2020 UXBOX Labs SL
|
||
|
|
|
||
|
|
(ns app.srepl
|
||
|
|
"Server Repl."
|
||
|
|
(:require
|
||
|
|
[integrant.core :as ig]
|
||
|
|
[app.srepl.main]
|
||
|
|
[app.common.spec :as us]
|
||
|
|
[clojure.core.server :as ccs]
|
||
|
|
[clojure.spec.alpha :as s]
|
||
|
|
[clojure.main :as cm]))
|
||
|
|
|
||
|
|
(defn- repl-init
|
||
|
|
[]
|
||
|
|
(ccs/repl-init)
|
||
|
|
(in-ns 'app.srepl.main))
|
||
|
|
|
||
|
|
(defn repl
|
||
|
|
[]
|
||
|
|
(cm/repl
|
||
|
|
:init repl-init
|
||
|
|
:read ccs/repl-read))
|
||
|
|
|
||
|
|
;; --- State initialization
|
||
|
|
|
||
|
|
(s/def ::name ::us/not-empty-string)
|
||
|
|
(s/def ::port int?)
|
||
|
|
(s/def ::host ::us/not-empty-string)
|
||
|
|
|
||
|
|
(defmethod ig/pre-init-spec ::server
|
||
|
|
[_]
|
||
|
|
(s/keys :opt-un [::port ::host ::name]))
|
||
|
|
|
||
|
|
(defmethod ig/prep-key ::server
|
||
|
|
[_ cfg]
|
||
|
|
(merge {:port 6062 :host "127.0.0.1" :name "main"} cfg))
|
||
|
|
|
||
|
|
(defmethod ig/init-key ::server
|
||
|
|
[_ {:keys [port host name] :as cfg}]
|
||
|
|
(ccs/start-server {:address host
|
||
|
|
:port port
|
||
|
|
:name name
|
||
|
|
:accept 'app.srepl/repl})
|
||
|
|
cfg)
|
||
|
|
|
||
|
|
(defmethod ig/halt-key! ::server
|
||
|
|
[_ cfg]
|
||
|
|
(ccs/stop-server (:name cfg)))
|
||
|
|
|
||
|
|
|