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

Fix alignment.
continuous-integration/drone/push Build is passing Details

This commit is contained in:
Oliver 2024-11-14 19:31:38 +00:00
parent ae81fab9fd
commit d9f5ed284b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/ui-hiccup/src/com/oly/static_sites/ui_hiccup/chess.cljc
View File

@ -1,19 +1,19 @@
(ns com.oly.static-sites.ui-hiccup.chess) (ns com.oly.static-sites.ui-hiccup.chess)
(defn square [{:keys [colour text class]}] (defn square [{:keys [colour text class]}]
[:div.w3.h3.tc {:class class} [:div.flex.items-center.justify-around.w3.h3.tc {:class class}
[:p.dib.v-mid.ma0.pa0 text]]) [:p.v-mid.ma0.pa0 text]])
(defn board [size items] (defn board [size items]
(loop [pos 1 (loop [pos 1
squares items squares items
row [:div.h2] row [:div.h3]
result [:div]] result [:div]]
(if (seq squares) (if (seq squares)
(if (= size pos) (if (= size pos)
(recur 1 (recur 1
(rest squares) (rest squares)
[:div.h2] [:div.h3]
(conj result (conj row (square (first squares) )))) (conj result (conj row (square (first squares) ))))
(recur (inc pos) (recur (inc pos)
(rest squares) (rest squares)