0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-12 18:18:24 -05:00

🎉 Add socket repl.

This commit is contained in:
Andrey Antukh 2020-11-12 12:00:32 +01:00 committed by Alonso Torres
parent 29180e4196
commit 4ad08a7449
4 changed files with 36 additions and 1 deletions

View file

@ -37,7 +37,6 @@
funcool/promesa {:mvn/version "5.1.0"}
funcool/cuerdas {:mvn/version "2020.03.26-3"}
buddy/buddy-core {:mvn/version "1.8.0"}
buddy/buddy-hashers {:mvn/version "1.6.0"}
buddy/buddy-sign {:mvn/version "3.2.0"}

View file

@ -27,6 +27,7 @@
(defn run
[params]
(require 'app.config
'app.srepl.server
'app.migrations
'app.worker
'app.media

View file

@ -0,0 +1,5 @@
(ns app.srepl.main
"A main namespace for server repl."
(:require
[clojure.pprint :refer [pprint]]
[app.db :as db]))

View file

@ -0,0 +1,30 @@
(ns app.srepl.server
"Server Repl."
(:require
[clojure.pprint :refer [pprint]]
[clojure.main :as cm]
[clojure.core.server :as ccs]
[app.srepl.main]
[mount.core :as mount :refer [defstate]]))
(defn- repl-init
[]
(ccs/repl-init)
(in-ns 'app.srepl.main))
(defn repl
[]
(cm/repl
:init repl-init
:read ccs/repl-read))
(defstate server
:start (ccs/start-server
{:address "127.0.0.1"
:port 6061
:name "main"
:accept 'app.srepl.server/repl})
:stop (ccs/stop-server "main"))