mirror of
https://github.com/penpot/penpot.git
synced 2025-06-25 11:07:02 +02:00
🔥 Remove usage of public usage of sm/define funcion
This commit is contained in:
parent
cdcff62232
commit
b882b9e283
17 changed files with 216 additions and 244 deletions
|
@ -24,24 +24,27 @@
|
|||
|
||||
;; --- Messages Handling
|
||||
|
||||
(def ^:private
|
||||
schema:message
|
||||
(sm/define
|
||||
[:map {:title "WorkerMessage"}
|
||||
[:sender-id ::sm/uuid]
|
||||
[:payload
|
||||
[:map
|
||||
[:cmd :keyword]]]
|
||||
[:buffer? {:optional true} :boolean]]))
|
||||
(def ^:private schema:message
|
||||
[:map {:title "WorkerMessage"}
|
||||
[:sender-id ::sm/uuid]
|
||||
[:payload
|
||||
[:map
|
||||
[:cmd :keyword]]]
|
||||
[:buffer? {:optional true} :boolean]])
|
||||
|
||||
(def ^:private check-message!
|
||||
(sm/check-fn schema:message))
|
||||
|
||||
(def buffer (rx/subject))
|
||||
|
||||
(defn- handle-message
|
||||
"Process the message and returns to the client"
|
||||
[{:keys [sender-id payload transfer] :as message}]
|
||||
|
||||
(dm/assert!
|
||||
"expected valid message"
|
||||
(sm/check! schema:message message))
|
||||
(check-message! message))
|
||||
|
||||
(letfn [(post [msg]
|
||||
(let [msg (-> msg (assoc :reply-to sender-id) (wm/encode))]
|
||||
(.postMessage js/self msg)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue