preserving item displaying details on page refresh

fixes #18
NixOS · May 11, 2020 · 8472e74 · 8472e74
1 parent 4efb8dd
commit 8472e74
Showing 1 changed file with 17 additions and 9 deletions.
diff --git a/src/ElasticSearch.elm b/src/ElasticSearch.elm
@@ -126,15 +126,16 @@ update path navKey msg model =
             )
 
         ShowDetails selected ->
-            ( { model
-                | showDetailsFor =
-                    if model.showDetailsFor == Just selected then
-                        Nothing
-
-                    else
-                        Just selected
-              }
-            , Cmd.none
+            ( model
+            , createUrl path
+                model.query
+                (if model.showDetailsFor == Just selected then
+                    Nothing
+
+                 else
+                    Just selected
+                )
+                |> Browser.Navigation.pushUrl navKey
             )
 
 
@@ -154,6 +155,13 @@ showLoadingOnQuery model =
 
 createUrl : String -> Maybe String -> Maybe String -> String
 createUrl path query showDetailsFor =
+    let
+        _ =
+            Debug.log "createUrl:query" query
+
+        _ =
+            Debug.log "createUrl:showDetailsFor" showDetailsFor
+    in
     []
         |> List.append
             (query