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 c8c2cb3db6
1 changed files with 83 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,26 +11,88 @@
[reagent.core :as r])) [reagent.core :as r]))
#_m.capability.screenshot ;;/addwidget https://blog-test.digitaloctave.com/chess?widgetId=dochess
(def widget (atom {}))
(defn send-to-parent
([action]
(prn (str "sending " action))
(.postMessage
js/window.parent
#js {:api "fromWidget",
:v "1.0"
:action action}, "*"))
([action data]
(.postMessage
js/window.parent
#js {:api "fromWidget",
:v "1.0"
:action action
:data data}, "*")))
(defn site-startup [] (defn site-startup []
(prn "site start up") (prn "site start up")
(.addEventListener js/window "message" (.addEventListener js/window "message"
(fn [event] (fn [event]
(prn "message from element ") (prn "message from element ")
(prn (.-origin event)) (prn event)
(prn (.-data event)))) (prn (.-api event))
(prn "send ready message") (.log js/console event)
(.postMessage js/window.parent #js {:api "fromWidget",
:v "1.0"
:msgtype "ready"
#_#_:action "supported_api_versions"}, "*")
(prn "send capability message")
(.postMessage js/window.parent #js {:api "fromWidget", (prn (.-action (.-data event)))
(when (= (.-api (.-data event)) "toWidget")
(prn (str "msg type " (.-type (.-data event))))
(prn (str "msg type " (-> event .-data .-action )))
(case (.-action event)
"m.room.message" (prn "type msg")
"m.room.member" (prn "type member")
"capabilities"
(do
(swap! widget assoc :widget-id (-> event .-data .-widgetId ))
(.postMessage
js/window.parent
#js {:api "fromWidget",
:v "1.0"
:action "capabilities"
:capabilities #js ["m.text" "m.image"]
#_#_:action "supported_api_versions"}, "*")
(prn "type capa"))
"notify_capabilities"
(do
(.postMessage
js/window.parent
#js {:api "fromWidget",
:v "1.0"
:action "capabilities"
:capabilities #js ["m.text" "m.image"]
#_#_:action "supported_api_versions"}, "*")
(prn "type capa"))
(prn (.-type event)))
(prn (.-origin event))
(prn (.-data event)))))
(prn "send ready message")
(send-to-parent "ready")
#_(.postMessage js/window.parent #js {:api "fromWidget",
:v "1.0" :v "1.0"
:msgtype "capabilities" :action "ready"
:capabilities #js ["m.room.send_message" "m.room.get_state"] #_#_:action "supported_api_versions"}, "*")
(prn "send content loaded message")
#_(.postMessage js/window.parent #js {:api "fromWidget",
:v "1.0"
:action "content_loaded"
#_#_:action "supported_api_versions"}, "*")
#_(prn "send capability message")
#_(.postMessage js/window.parent #js {:api "fromWidget",
:v "1.0"
:action "capabilities"
:capabilities #js []
#_#_:action "supported_api_versions"}, "*") #_#_:action "supported_api_versions"}, "*")
) )
@ -38,14 +100,15 @@
#_(def game-state-viking (r/atom {:board viking-start-state})) #_(def game-state-viking (r/atom {:board viking-start-state}))
(defn setup [] (defn setup []
(prn "register listener") (prn "register listener")
(.addEventListener js/window "load"
(set! (.-onload js/window) site-startup)
(.addEventListener js/window "message"
(fn [event] (fn [event]
(prn "message from element ") (prn "on load")
(prn (.-origin event)) (prn (.-location js/window))
(prn (.-data event))))) (prn (-> js/window .-location .-hash))
(site-startup)
))
)
(defonce test-event (setup)) (defonce test-event (setup))