luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

babashka.pods: transit read+write handlers

Browse source
This commit is contained in:
Michiel Borkent 2021-05-17 11:45:11 +02:00
parent 454ed43ae4
commit 5ce7f2d67d
2 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
pods

@ -1 +1 @@
Subproject commit 82aa3627106181a0ad58c289cd45129603e4fa24 Subproject commit 1fdd8231bd3a396c4d12c40fecc9dd0328b288d3

17
src/babashka/impl/pods.clj
View file

@ -2,10 +2,17 @@
{:no-doc true} {:no-doc true}
(:refer-clojure :exclude [read]) (:refer-clojure :exclude [read])
(:require [babashka.impl.common :refer [ctx]] (:require [babashka.impl.common :refer [ctx]]
[babashka.pods.sci :as pods])) [babashka.pods.sci :as pods]
[sci.core :as sci]))
(defn load-pod [& args]
(apply pods/load-pod @ctx args))
(def podns (sci/create-ns 'babashka.pods nil))
(def pods-namespace (def pods-namespace
{'load-pod (fn [& args] {'load-pod (sci/copy-var load-pod podns)
(apply pods/load-pod @ctx args)) 'invoke (sci/copy-var pods/invoke podns)
'invoke pods/invoke 'unload-pod (sci/copy-var pods/unload-pod podns)
'unload-pod pods/unload-pod}) 'add-transit-read-handler (sci/copy-var pods/add-transit-read-handler podns)
'add-transit-write-handler (sci/copy-var pods/add-transit-write-handler podns)})