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

Render board
continuous-integration/drone/push Build is passing Details

This commit is contained in:
Oly 2024-11-18 14:35:00 +00:00
parent b3abc6dd1c
commit 5a7da84ee9
2 changed files with 27 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
bases/do-blog/src/com/oly/static_sites/do_blog/core.cljs
View File

@ -119,12 +119,8 @@
(defn ui-search [search] (defn ui-search [search]
[:div [:div
(board 8 (draw-board start-state)) (board 8 (draw-board
(board 8 start-state))
(into [] (mapv (fn [n] {:class "fl bg-black-80 white-80" :colour "black-80" :text (str n)})
(range 1 (* 8 9))))
)
[:input.w-100.center.input-reset.ba.b--black-20.pa2.mb2 [:input.w-100.center.input-reset.ba.b--black-20.pa2.mb2
{:type "text" {:type "text"

45
bases/do-blog/src/com/oly/static_sites/do_blog/pages/chess/render.cljs
View File

@ -11,28 +11,31 @@
:white :black))) :white :black)))
(defn draw-square [pos pieces] (defn draw-square [pos pieces]
(let [piece (first (filter #(= pos (:start-pos %)) pieces)) (let [square (calculate-black-white pos)
piece (first (filter #(= pos (:start-pos %)) pieces))
selected-piece-moveable (fetch-selected-piece-moves (first (filter :selected pieces))) selected-piece-moveable (fetch-selected-piece-moves (first (filter :selected pieces)))
moveable-square (first (filter #(= pos %) selected-piece-moveable))] moveable-square (first (filter #(= pos %) selected-piece-moveable))]
{:colour (if (= (calculate-black-white pos) :black)
white-square (-> {:text (cond
black-square) (:selected piece) (:character piece) ;"S "
:text (cond piece (:character piece)
(:selected piece) (:character piece) ;"S " moveable-square "O "
piece (:character piece) :else (if (= (calculate-black-white pos) :black)
moveable-square "O " white-square
:else (if (= (calculate-black-white pos) :black) black-square))}
white-square (assoc :colour (if (= square :black)
black-square)) white-square
} black-square)
)) :class (if (= square :black)
"fl bg-white-80 black-80"
"fl bg-black-80 white-80")))))
(defn draw-board [pieces] (defn draw-board [pieces]
(loop [x 1 (loop [x 1
y 1 y 1
result []] result []]
(if (>= x 8) (if (>= x 8)
(if (>= y 8) (if (>= y 8)
(conj result (draw-square [x y] pieces)) (conj result (draw-square [x y] pieces))
(recur 1 (+ 1 y) (conj result (str (draw-square [x y] pieces) "\n")))) (recur 1 (+ 1 y) (conj result (draw-square [x y] pieces))))
(recur (+ 1 x) y (conj result (draw-square [x y] pieces)))))) (recur (+ 1 x) y (conj result (draw-square [x y] pieces))))))