17 lines
860 B
Clojure
17 lines
860 B
Clojure
(ns babashka.impl.httpkit-server
|
|
(:require [org.httpkit.server :as server]
|
|
[sci.core :as sci :refer [copy-var]]))
|
|
|
|
(def sns (sci/create-ns 'org.httpkit.server nil))
|
|
|
|
(def httpkit-server-namespace
|
|
{:obj sns
|
|
'server-stop! (copy-var server/server-stop! sns)
|
|
'server-port (copy-var server/server-port sns)
|
|
'run-server (copy-var server/run-server sns)
|
|
'sec-websocket-accept (copy-var server/sec-websocket-accept sns)
|
|
'websocket-handshake-check (copy-var server/websocket-handshake-check sns)
|
|
'send-checked-websocket-handshake! (copy-var server/send-checked-websocket-handshake! sns)
|
|
'send-websocket-handshake! (copy-var server/send-websocket-handshake! sns)
|
|
'as-channel (copy-var server/as-channel sns)
|
|
'send! (copy-var server/send! sns)})
|