deque-blog

4 followers · 5 following

View GitHub Profile

Recently created

Least recently created

Recently updated

Least recently updated

deque-blog / spec-bad-scores.cljs

Created March 13, 2017 20:21

	(s/def ::blue int?)
	(s/def ::red int?)
	(s/def ::green int?)

	(s/def ::scores
	(s/keys :req-un [::blue ::red ::green]))

deque-blog / spec-good-binary-tree.cljs

Last active March 13, 2017 20:37

	(s/def ::good-binary-tree
	(s/cat
	:value int?
	:children (s/map-of #{:left :right} ::good-binary-tree)))

deque-blog / binary-tree-example.cljs

Last active March 13, 2017 20:44

	[1 {:left [2 {}]
	:right [3 {:left [4 {}]}]
	}]

deque-blog / triboard.view.interactions.cljs

Last active March 17, 2017 17:40

	(defprotocol IUserInteractions
	"A protocol for the interactions that can be triggered from the GUI"
	(on-new-game [this] "Send a new game command")
	(on-toogle-help [this] "Send a toggle help command")
	(on-restart [this] "Send a restart command")
	(on-undo [this] "Send an undo command")
	(on-player-move [this x y] "Send a play command at [x y]"))

deque-blog / triboard.view.frame.cljs

Last active March 18, 2017 13:57

	(defn main-frame
	[turn suggestions interactions]
	[:div.game-panel
	[menu/show-top-menu (:scores turn) (:player turn) interactions]
	[board/render-board (:board turn) suggestions interactions]])

deque-blog / triboard.view.show-top-menu.cljs

Last active March 18, 2017 14:08

	(defn show-top-menu
	"Show the top menu of the game that contains
	* The player scores
	* The main commands"
	[scores current-player interactions]
	[:div.scores
	[make-button #(i/on-new-game interactions) vutils/star]
	[make-button #(i/on-toogle-help interactions) "?"]
	(show-scores scores #(= % current-player))
	[make-button #(i/on-restart interactions) vutils/circle-arrow]

deque-blog / triboard.view.make-button.cljs

Created March 16, 2017 18:57

	(defn- make-button
	[on-click txt]
	[:button.help-button {:on-click on-click} txt])

deque-blog / triboard.view.scores.cljs

Last active March 17, 2017 18:27

	(defn- player->css-style
	[player highlight?]
	(let [player-class (str "score--" (name player))
	score-class (if (highlight? player) "score--is-current" "score")]
	(str player-class " " score-class)))

	(defn- player->score-text
	[player score]
	(str (str/capitalize (name player)) " - " score))

deque-blog / triboard.view.render-board.cljs

Last active March 18, 2017 14:16

	(defn render-board
	[board suggestions interactions]
	(into
	(empty-svg-board)
	(for [[position cell] (board/to-seq board)]
	^{:key position}
	(if (= :none cell)
	[empty-cell position interactions (if (suggestions position) :help :none)]
	[rect-cell position cell]))))

deque-blog / triboard.view.render-cell.cljs

Last active March 18, 2017 14:16

	(def relative-size 0.9)
	(def border-size (/ (- 1 relative-size) 2))

	(defn- rect-cell
	[[x y] player options]
	[:rect.cell
	(merge
	{:class (str "cell--" (name player))
	:x (+ border-size x) :width relative-size
	:y (+ border-size y) :height relative-size}