Commit ac71bc995058276a28248c9b450a5ceaadabf932 - electric-sudoku

sync game name to pathname s-ol 6 months ago

1 changed file(s) with 4 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all

-1

src/app/sudoku.cljc less more

128	128
129	129	(e/defn show-login []
130	130	(let [!password (atom "")
131		!out (atom nil)
	131	!out (atom (let [path (. js/location -pathname)]
	132	(when (> (count path) 1) (subs path 1))))
132	133	out (e/watch !out)]
	134	(let [path (str "/" out)]
	135	(. js/history pushState path "" path))
133	136	(if out
134	137	(dom/div
135	138	(dom/span