Skip to content

Commit

Permalink
code formatting using cursive
Browse files Browse the repository at this point in the history
  • Loading branch information
@lprakashv
lprakashv committed Feb 17, 2021
1 parent cc5ce81 commit 0a270ac
Show file tree
Hide file tree
Showing 8 changed files with 159 additions and 159 deletions.
6 changes: 3 additions & 3 deletions project.clj
View file
Original file line number Diff line number Diff line change
Expand Up @@ -98,9 +98,9 @@

:profiles
{:dev
{:dependencies [[binaryage/devtools "1.0.2"]
[re-frisk "1.3.4"]]
:source-paths ["dev"]}
{:dependencies [[binaryage/devtools "1.0.2"]
[re-frisk "1.3.4"]]
:source-paths ["dev"]}

:prod {}}

Expand Down
2 changes: 1 addition & 1 deletion src/clj/reframe_codenames/css.clj
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,4 +2,4 @@
(:require [garden.def :refer [defstyles]]))

(defstyles screen
[:.App {:text-align "center"}])
[:.App {:text-align "center"}])
8 changes: 4 additions & 4 deletions src/cljs/deps.cljs
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
{:npm-dev-deps {"shadow-cljs" "2.11.7"
"react-bootstrap" "1.0.1"
"bootstrap" "4.4.1"
"react-social-icons" "4.1.0"}}
{:npm-dev-deps {"shadow-cljs" "2.11.7"
"react-bootstrap" "1.0.1"
"bootstrap" "4.4.1"
"react-social-icons" "4.1.0"}}
34 changes: 17 additions & 17 deletions src/cljs/reframe_codenames/db.cljs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -408,28 +408,28 @@
(take n)))

(defn- take-colored-words []
(let [w (take-rand-n words 25 [])
red (take-rand-n w 9 [])
blue (take-rand-n w 8 red)
grey (take-rand-n w 7 (concat red blue))
(let [w (take-rand-n words 25 [])
red (take-rand-n w 9 [])
blue (take-rand-n w 8 red)
grey (take-rand-n w 7 (concat red blue))
black (take-rand-n w 1 (concat red blue grey))]
{:all w :red red :blue blue :grey grey :black black}))

(defn- game-tiles []
(let [categorized-words (take-colored-words)
all-words (:all categorized-words)
red-words-set (set (:red categorized-words))
blue-words-set (set (:blue categorized-words))
black-words-set (set (:black categorized-words))
index (atom -1)]
(let [categorized-words (take-colored-words)
all-words (:all categorized-words)
red-words-set (set (:red categorized-words))
blue-words-set (set (:blue categorized-words))
black-words-set (set (:black categorized-words))
index (atom -1)]
(map
(fn [word]
(let [color (cond (contains? red-words-set word) :red
(contains? blue-words-set word) :blue
(contains? black-words-set word) :black
:else :grey)]
{:color color :word word :index (swap! index inc) :open? false}))
all-words)))
(fn [word]
(let [color (cond (contains? red-words-set word) :red
(contains? blue-words-set word) :blue
(contains? black-words-set word) :black
:else :grey)]
{:color color :word word :index (swap! index inc) :open? false}))
all-words)))

(defn default-db []
{:name "re-frame"
Expand Down
114 changes: 57 additions & 57 deletions src/cljs/reframe_codenames/events.cljs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -6,72 +6,72 @@
[day8.re-frame.tracing :refer [fn-traced]]))

(re-frame/reg-event-db
::initialize-db
(fn-traced [_ _]
(db/default-db)))
::initialize-db
(fn-traced [_ _]
(db/default-db)))

(re-frame/reg-event-db
::toggle-turn
(fn-traced [d _]
(let [new-turn (utils/opp-color (:turn d))]
(merge d
{:turn new-turn
:message (utils/get-messsage-for-type :turn-message new-turn)
:turn-over? false
:hint ""
:limit 0}))))
::toggle-turn
(fn-traced [d _]
(let [new-turn (utils/opp-color (:turn d))]
(merge d
{:turn new-turn
:message (utils/get-messsage-for-type :turn-message new-turn)
:turn-over? false
:hint ""
:limit 0}))))

(re-frame/reg-event-db
::toggle-spy-master
(fn-traced [d _]
(let [{:keys [spy-master? hint limit turn]} d
valid-hint? (and
(> limit 0)
(not (clojure.string/blank? hint)))]
(cond
(or (not spy-master?) valid-hint?) (-> d
(assoc :spy-master? (not spy-master?))
(assoc :message (utils/get-messsage-for-type :turn-message turn)))
:else (-> d
(assoc :message (utils/get-messsage-for-type :spy-master-exit-error)))))))
::toggle-spy-master
(fn-traced [d _]
(let [{:keys [spy-master? hint limit turn]} d
valid-hint? (and
(> limit 0)
(not (clojure.string/blank? hint)))]
(cond
(or (not spy-master?) valid-hint?) (-> d
(assoc :spy-master? (not spy-master?))
(assoc :message (utils/get-messsage-for-type :turn-message turn)))
:else (-> d
(assoc :message (utils/get-messsage-for-type :spy-master-exit-error)))))))

(re-frame/reg-event-db
::open-tile
(fn-traced [d [_ i j]]
(let [index (+ (* i 5) j)
turn (:turn d)
{{{tile-color :color} index} :board} d]
(as-> d v
(assoc-in v [:board index :open?] true)
(update v :limit dec)
(assoc v :turn-over?
(or
(= (utils/opp-color turn) tile-color)
(zero? (:limit v))))
(if (:turn-over? v)
(merge v
{:message (utils/get-messsage-for-type :open-tile-turn-over)
:hint ""
:limit 0})
v)))))
::open-tile
(fn-traced [d [_ i j]]
(let [index (+ (* i 5) j)
turn (:turn d)
{{{tile-color :color} index} :board} d]
(as-> d v
(assoc-in v [:board index :open?] true)
(update v :limit dec)
(assoc v :turn-over?
(or
(= (utils/opp-color turn) tile-color)
(zero? (:limit v))))
(if (:turn-over? v)
(merge v
{:message (utils/get-messsage-for-type :open-tile-turn-over)
:hint ""
:limit 0})
v)))))

(re-frame/reg-event-db
::set-hint
(fn-traced [d [_ text]]
(-> d
(assoc :hint text))))
::set-hint
(fn-traced [d [_ text]]
(-> d
(assoc :hint text))))

(re-frame/reg-event-db
::set-limit
(fn-traced [d [_ limit]]
(-> d
(assoc :limit (int limit)))))
::set-limit
(fn-traced [d [_ limit]]
(-> d
(assoc :limit (int limit)))))

(re-frame/reg-event-db
::announce-winner
(fn-traced [d [_ winner]]
(-> d
(merge
{:game-over? true
:spy-master? true
:message (utils/get-messsage-for-type :winner-announcement winner)}))))
::announce-winner
(fn-traced [d [_ winner]]
(-> d
(merge
{:game-over? true
:spy-master? true
:message (utils/get-messsage-for-type :winner-announcement winner)}))))
54 changes: 27 additions & 27 deletions src/cljs/reframe_codenames/subs.cljs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -5,46 +5,46 @@
; TODO - improve all the subs taking other subscribe as signal functions

(re-frame/reg-sub
::name
(fn [db]
(:name db)))
::name
(fn [db]
(:name db)))

(re-frame/reg-sub
::board
(fn [db]
(:board db)))
::board
(fn [db]
(:board db)))

(re-frame/reg-sub
::spy-master?
(fn [db]
(:spy-master? db)))
::spy-master?
(fn [db]
(:spy-master? db)))

(re-frame/reg-sub
::turn
(fn [db]
(:turn db)))
::turn
(fn [db]
(:turn db)))

(re-frame/reg-sub
::turn-over?
(fn [db]
(:turn-over? db)))
::turn-over?
(fn [db]
(:turn-over? db)))

(re-frame/reg-sub
::hint
(fn [db]
(:hint db)))
::hint
(fn [db]
(:hint db)))

(re-frame/reg-sub
::limit
(fn [db]
(:limit db)))
::limit
(fn [db]
(:limit db)))

(re-frame/reg-sub
::message
(fn [db]
(:message db)))
::message
(fn [db]
(:message db)))

(re-frame/reg-sub
::game-over?
(fn [db]
(:game-over? db)))
::game-over?
(fn [db]
(:game-over? db)))
14 changes: 7 additions & 7 deletions src/cljs/reframe_codenames/utils.cljs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,13 +9,13 @@
(defn get-messsage-for-type
([tpe]
(case tpe
:open-tile-turn-over {:status :info
:text "Turn over! Spymaster, toggle turn and set hint."}
:open-tile-turn-over {:status :info
:text "Turn over! Spymaster, toggle turn and set hint."}
:spy-master-exit-error {:status :warning :text "Add hint with a number"}))
([tpe arg]
(case tpe
:turn-message {:status (if (= arg :red) :danger :primary)
:text (str (capitalize arg) "'s turn")}
:turn-message {:status (if (= arg :red) :danger :primary)
:text (str (capitalize arg) "'s turn")}
:winner-announcement {:status :success
:text (str "Game over. Winner is " (capitalize arg) "!")})))

Expand All @@ -30,7 +30,7 @@
(defn left-tiles-count-by-color [board-tiles color]
(->> board-tiles
(filter
#(and
(not (:open? %))
(= color (:color %))))
#(and
(not (:open? %))
(= color (:color %))))
(count)))
Loading

0 comments on commit 0a270ac

Please sign in to comment.