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 da5ff2a..874e575 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 @@ -43,9 +43,8 @@ (prn (aget event "data" "action")) (prn (aget event "data" "widgetId")) (when (= (aget event "data" "api") "toWidget") - (prn (str "msg type " (.-type (.-data event)))) - (prn (str "msg type " (-> event .-data .-action ))) - (case (aget event "data" "action") + (prn (str "msg type " (aget event "data" "action") )) + (case (aget event "data" "action") "m.room.message" (prn "type msg") "m.room.member" (prn "type member") "capabilities" @@ -58,7 +57,7 @@ :action "capabilities" :capabilities #js ["m.text" "m.image"] #_#_:action "supported_api_versions"}, "*") - (prn "type capa")) + ) "notify_capabilities" (do (.postMessage @@ -68,11 +67,13 @@ :action "capabilities" :capabilities #js ["m.text" "m.image"] #_#_:action "supported_api_versions"}, "*") - (prn "type capa")) - (prn (.-type event))) + ) + (do + (prn "unhandled action " (str (aget event "data" "action"))) + (prn (aget event "data")))) - (prn (.-origin event)) - (prn (.-data event))))) + #_(prn (.-origin event)) + #_(prn (.-data event))))) (prn "send ready message") @@ -99,6 +100,27 @@ ) #_(def game-state-viking (r/atom {:board viking-start-state})) + + +(defn chars->map [text] + (when (mod (count test) 3) + (loop [colour :white + positions "KE3CA1CA4" + results []] + + (prn positions) + + (if (seq positions) + (recur + (if (= colour :white) :black :white) + (drop 3 positions) + (conj results { + :colour colour + :piece (first positions) + :pos [(second positions) (nth positions 2)]})) + results)))) + + (defn setup [] (prn "register listener") (.addEventListener js/window "load" @@ -106,10 +128,7 @@ (prn "on load") (prn (.-location js/window)) (prn (-> js/window .-location .-hash)) - - (site-startup) - )) - ) + (site-startup)))) (defonce test-event (setup))