2020-11-23 19:29:42 -08:00
|
|
|
;;;; package.lisp
|
|
|
|
|
|
|
|
(defpackage #:backplane-server
|
|
|
|
(:use #:cl)
|
|
|
|
(:import-from #:arrows
|
|
|
|
#:->
|
|
|
|
#:some->)
|
|
|
|
(:import-from #:alexandria
|
|
|
|
#:if-let)
|
|
|
|
(:import-from #:cl-json
|
|
|
|
#:decode-json-from-string
|
|
|
|
#:encode-json-to-string)
|
|
|
|
|
|
|
|
(:export #:make-success
|
|
|
|
#:make-error
|
|
|
|
#:success-p
|
|
|
|
#:error-p
|
|
|
|
#:parse-message
|
|
|
|
#:handle-message
|
2020-12-03 21:12:12 -08:00
|
|
|
#:handle-xmpp-message
|
2020-11-24 11:26:20 -08:00
|
|
|
#:backplane-connect
|
2020-12-03 21:12:12 -08:00
|
|
|
#:start-listening
|
|
|
|
#:with-backplane
|
|
|
|
#:message
|
|
|
|
#:result/success
|
|
|
|
#:result/error))
|