oly
/
static-sites
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Try to instead of from.
continuous-integration/drone/push Build is passing Details

This commit is contained in:
Oliver 2025-01-17 20:40:51 +00:00
parent 4af2c5899b
commit 17ac8b7efc
1 changed files with 27 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
bases/do-blog/src/com/oly/static_sites/do_blog/pages/chess_board.cljs
View File

@ -10,27 +10,41 @@
[com.oly.static-sites.ui-hiccup.interface :refer [board]]
[reagent.core :as r]))
(defn send-to-parent [action data]
(.postMessage js/window.parent #js {:api "fromWidget",
:v "1.0"
:msgtype action
:data data
#_#_:action "supported_api_versions"}, "*")
)
#_m.capability.screenshot
(defn site-startup []
(prn "site start up")
(.addEventListener js/window "message"
(.addEventListener js/window "message"
(fn [event]
(prn (str "msg type" (.-type event)))
(case (.-type event)
"m.room.message" (prn "type msg")
"m.room.member" (prn "type member")
"capabilities" (prn "type capa")
(prn (.-type event)))
(prn "message from element ")
(prn (.-origin event))
(prn (.-data event))))
(prn "send ready message")
(.postMessage js/window.parent #js {:api "fromWidget",
:v "1.0"
:msgtype "ready"
:v "1.0"
:msgtype "ready"
#_#_:action "supported_api_versions"}, "*")
(prn "send capability message")
(.postMessage js/window.parent #js {:api "fromWidget",
(.postMessage js/window.parent #js {:api "toWidget",
:v "1.0"
:msgtype "capabilities"
:capabilities #js ["m.room.send_message" "m.room.get_state"]
:capabilities #js {}
#_#_:action "supported_api_versions"}, "*")
)
@ -38,14 +52,14 @@
#_(def game-state-viking (r/atom {:board viking-start-state}))
(defn setup []
(prn "register listener")
(set! (.-onload js/window) site-startup)
(.addEventListener js/window "message"
(.addEventListener js/window "load"
(fn [event]
(prn "message from element ")
(prn (.-origin event))
(prn (.-data event)))))
(prn "on load")
(prn (.-location js/window))
(site-startup)
))
)
(defonce test-event (setup))