diff options
Diffstat (limited to 'src/app')
| -rw-r--r-- | src/app/sudoku.cljc | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/app/sudoku.cljc b/src/app/sudoku.cljc index 877627f..faa0a97 100644 --- a/src/app/sudoku.cljc +++ b/src/app/sudoku.cljc @@ -129,8 +129,11 @@ (e/defn show-login [] (let [!password (atom "") - !out (atom nil) + !out (atom (let [path (. js/location -pathname)] + (when (> (count path) 1) (subs path 1)))) out (e/watch !out)] + (let [path (str "/" out)] + (. js/history pushState path "" path)) (if out (dom/div (dom/span |