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

Add txt to chess position function.
continuous-integration/drone/push Build is passing Details

This commit is contained in:
Oly 2025-01-24 13:40:30 +00:00
parent 0d97469f64
commit f29ad8734b
1 changed files with 31 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -43,9 +43,8 @@
(prn (aget event "data" "action")) (prn (aget event "data" "action"))
(prn (aget event "data" "widgetId")) (prn (aget event "data" "widgetId"))
(when (= (aget event "data" "api") "toWidget") (when (= (aget event "data" "api") "toWidget")
(prn (str "msg type " (.-type (.-data event)))) (prn (str "msg type " (aget event "data" "action") ))
(prn (str "msg type " (-> event .-data .-action ))) (case (aget event "data" "action")
(case (aget event "data" "action")
"m.room.message" (prn "type msg") "m.room.message" (prn "type msg")
"m.room.member" (prn "type member") "m.room.member" (prn "type member")
"capabilities" "capabilities"
@ -58,7 +57,7 @@
:action "capabilities" :action "capabilities"
:capabilities #js ["m.text" "m.image"] :capabilities #js ["m.text" "m.image"]
#_#_:action "supported_api_versions"}, "*") #_#_:action "supported_api_versions"}, "*")
(prn "type capa")) )
"notify_capabilities" "notify_capabilities"
(do (do
(.postMessage (.postMessage
@ -68,11 +67,13 @@
:action "capabilities" :action "capabilities"
:capabilities #js ["m.text" "m.image"] :capabilities #js ["m.text" "m.image"]
#_#_:action "supported_api_versions"}, "*") #_#_: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 (.-origin event))
(prn (.-data event))))) #_(prn (.-data event)))))
(prn "send ready message") (prn "send ready message")
@ -99,6 +100,27 @@
) )
#_(def game-state-viking (r/atom {:board viking-start-state})) #_(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 [] (defn setup []
(prn "register listener") (prn "register listener")
(.addEventListener js/window "load" (.addEventListener js/window "load"
@ -106,10 +128,7 @@
(prn "on load") (prn "on load")
(prn (.-location js/window)) (prn (.-location js/window))
(prn (-> js/window .-location .-hash)) (prn (-> js/window .-location .-hash))
(site-startup))))
(site-startup)
))
)
(defonce test-event (setup)) (defonce test-event (setup))