diff --git a/bases/do-blog/src/com/oly/static_sites/do_blog/pages/chess_board.cljs b/bases/do-blog/src/com/oly/static_sites/do_blog/pages/chess_board.cljs index 1a9f057..beef6b3 100644 --- a/bases/do-blog/src/com/oly/static_sites/do_blog/pages/chess_board.cljs +++ b/bases/do-blog/src/com/oly/static_sites/do_blog/pages/chess_board.cljs @@ -10,27 +10,57 @@ [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" + :action 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 "message from element ") - (prn (.-origin event)) - (prn (.-data event)))) + (when (= (.-api event) "toWidget") + (prn (str "msg type " (.-type event))) + (prn (str "msg type " (.-action event))) + (case (.-action event) + "m.room.message" (prn "type msg") + "m.room.member" (prn "type member") + "capabilities" (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 "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" + :action "ready" + #_#_: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" - :msgtype "capabilities" - :capabilities #js ["m.room.send_message" "m.room.get_state"] + :action "capabilities" + :capabilities #js [] #_#_:action "supported_api_versions"}, "*") ) @@ -38,14 +68,15 @@ #_(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)) + (prn (.location js/window)) + + (site-startup) + )) + ) (defonce test-event (setup))