simon/scittle
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Run straight from github

Browse source
This commit is contained in:
Michiel Borkent 2022-02-07 18:34:01 +01:00
parent 5f746000a5
commit 96d2e44188
3 changed files with 3 additions and 109 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

106
resources/public/cljs/wordle.cljs
View file

@ -1,106 +0,0 @@
;; taken from https://github.com/oxalorg/wordle-clojurescript
(ns wordle.core2)
(def board-state (atom []))
(def counter (atom 0))
(def attempt (atom 0))
(def word-of-the-day (atom "hello"))
(defn write-letter [cell letter]
(set! (.-textContent cell) letter))
(defn make-cell []
(let [cell (js/document.createElement "div")]
(set! (.-className cell) "cell")
cell))
(defn make-board [n]
(let [board (js/document.createElement "div")]
(set! (.-className board) "board")
;; adding cells
(doseq [_ (range n)]
(let [cell (make-cell)]
(swap! board-state conj cell)
(.appendChild board cell)))
board))
(defn get-letter [cell]
(.-textContent cell))
(defn color-cell [idx cell]
(let [color (fn [el color]
(set! (-> el .-style .-backgroundColor)
color))
letter (get-letter cell)]
(cond
(= letter (nth @word-of-the-day idx))
(color cell "green")
(contains? (set @word-of-the-day) letter)
(color cell "aqua")
:else
(color cell "#333333"))))
(defn check-solution [cells]
(doseq [[idx cell] (map-indexed vector cells)]
(color-cell idx cell))
(= (mapv get-letter cells)
(vec @word-of-the-day)))
(defn user-input [key]
(let [start (* 5 @attempt)
end (* 5 (inc @attempt))]
(cond
(and (re-matches #"[a-z]" key)
(< @counter end))
(do
(write-letter (nth @board-state @counter) key)
(swap! counter inc))
(and (= key "backspace")
(> @counter start))
(do
(swap! counter dec)
(write-letter (nth @board-state @counter) ""))
(and (= key "enter")
(zero? (mod @counter 5)))
(do
(when (check-solution (subvec @board-state start end))
(js/alert "You won"))
(swap! attempt inc))
)))
(defonce listener (atom nil))
(defn ^:dev/before-load unmount []
(js/document.removeEventListener "keydown" @listener)
(let [app (js/document.getElementById "app")]
(set! (.-innerHTML app) "")))
(defn mount []
(let [app (js/document.getElementById "app")
board (make-board 30)
input-listener
(fn [e]
(user-input (.toLowerCase(.-key e))))]
(.appendChild app board)
(js/console.log board)
(reset! listener input-listener)
(js/document.addEventListener
"keydown"
input-listener)))
(mount)
(js/console.log "mounted!")
(comment
(do
(def sim ["a" "a" "a" "a" "a" "enter"
"e" "h" "o" "l" "o"
"backspace" "k" "enter"
"h" "e" "l" "l" "o" "enter"])
(run! user-input sim)))

2
resources/public/index.html
View file

@ -129,7 +129,7 @@
<ul>
<li><a href="tictactoe.html">Tic-tac-toe</a></li>
<li><a href="bookmarklet.html">Bookmarklet</a></li>
<li><a href="wordle.html">Worlde</a>Wordle</li>
<li><a href="wordle.html">Wordle</a></li>
<li>
<a href="https://github.com/kloimhardt/babashka-scittle-guestbook">
Babashka + scittle implementation of the Luminus guestbook.

4
resources/public/wordle.html
View file

@ -6,7 +6,7 @@
<meta content="text/html;charset=utf-8" http-equiv="Content-Type">
<meta content="utf-8" http-equiv="encoding">
<script src="js/scittle.js" type="application/javascript"></script>
<script type="application/x-scittle" src="cljs/wordle.cljs"></script>
<script type="application/x-scittle" src="https://raw.githubusercontent.com/oxalorg/wordle-clojurescript/main/src/wordle/core2.cljs"></script>
<style type="text/css">
#app {
background-color: #121212;
@ -32,7 +32,7 @@
</head>
<body>
<p class="board">Wordle by <a href="https://github.com/oxalorg/wordle-clojurescript">@oxalorg</a>.
Play the game by typing letters and then hit return. The source code is loaded from <a href="cljs/wordle.cljs">here</a>.
Play the game by typing letters and then hit return. The source code is loaded from <a href="https://raw.githubusercontent.com/oxalorg/wordle-clojurescript/main/src/wordle/core2.cljs">here</a>.
</p>
<div id="app"></div>
</body>