diff options
| author | s-ol <s+removethis@s-ol.nu> | 2023-03-23 20:31:31 +0000 |
|---|---|---|
| committer | s-ol <s+removethis@s-ol.nu> | 2023-03-23 20:31:31 +0000 |
| commit | ac71bc995058276a28248c9b450a5ceaadabf932 (patch) | |
| tree | d0b48e2b5d38a189ccf73513fa4df2036e822a2a | |
| parent | support multiple games in parallel (diff) | |
| download | electric-sudoku-main.tar.gz electric-sudoku-main.zip | |
| -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 |